Update Functions.f90

Ben-Mertz · Nov 1, 2018 · 563b0de · 563b0de
1 parent b4eea60
commit 563b0de
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Source/Functions.f90 b/Source/Functions.f90
@@ -325,9 +325,9 @@ SUBROUTINE ColemanTransform(rootMOOP, aziAngle, nHarmonic, axTOut, axYOut)
 
 			! Body
 
-		axTOut	= 2.0/3.0 * (cos(nHarmonic*(aziAngle)*rootMOOP(1)) + cos(nHarmonic*(aziAngle+phi2)*rootMOOP(2)) + cos(nHarmonic*(aziAngle+phi3))*rootMOOP(3))
-		axYOut  = 2.0/3.0 * (sin(nHarmonic*(aziAngle)*rootMOOP(1)) + sin(nHarmonic*(aziAngle+phi2)*rootMOOP(2)) + sin(nHarmonic*(aziAngle+phi3))*rootMOOP(3))
-
+		axTOut	= 2.0/3.0 * (cos(nHarmonic*(aziAngle))*rootMOOP(1) + cos(nHarmonic*(aziAngle+phi2))*rootMOOP(2) + cos(nHarmonic*(aziAngle+phi3))*rootMOOP(3))
+		axYOut  = 2.0/3.0 * (sin(nHarmonic*(aziAngle))*rootMOOP(1) + sin(nHarmonic*(aziAngle+phi2))*rootMOOP(2) + sin(nHarmonic*(aziAngle+phi3))*rootMOOP(3))
+		
 	END SUBROUTINE ColemanTransform
 	!-------------------------------------------------------------------------------------------------------------------------------
 	!The inverse Coleman or d-q axis transformation transforms the direct axis and quadrature axis
@@ -361,4 +361,4 @@ SUBROUTINE ColemanTransformInverse(axTIn, axYIn, aziAngle, nHarmonic, aziOffset,
 
 	END SUBROUTINE ColemanTransformInverse
 	!-------------------------------------------------------------------------------------------------------------------------------
-END MODULE Functions
+END MODULE Functions