From dea04f9250ffeb8d1b1702e975fe5816fd461474 Mon Sep 17 00:00:00 2001 From: Nikhar Abbas Date: Mon, 18 Nov 2019 15:52:41 -0700 Subject: [PATCH] Define integer --- src/Controllers.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Controllers.f90 b/src/Controllers.f90 index 32baa4e9..adbe6c5f 100644 --- a/src/Controllers.f90 +++ b/src/Controllers.f90 @@ -349,7 +349,7 @@ SUBROUTINE FlapControl(avrSWAP, CntrPar, LocalVar, objInst) TYPE(ObjectInstances), INTENT(INOUT) :: objInst ! Flap control - IF (CntrPar%Flp_Mode) THEN + IF (CntrPar%Flp_Mode == 1) THEN LocalVar%Flp_Angle(1) = CntrPar%Flp_Angle * D2R LocalVar%Flp_Angle(2) = CntrPar%Flp_Angle * D2R LocalVar%Flp_Angle(3) = CntrPar%Flp_Angle * D2R