From 563b0def95afd347651b9c4f6e7071150e22f6a6 Mon Sep 17 00:00:00 2001 From: Sebastiaan Mulders Date: Thu, 1 Nov 2018 07:57:17 +0100 Subject: [PATCH] Update Functions.f90 --- Source/Functions.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Source/Functions.f90 b/Source/Functions.f90 index d1d51623..d5835d7f 100644 --- 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 \ No newline at end of file +END MODULE Functions