diff --git a/Source/DISCON.f90 b/Source/DISCON.f90 index 6a64266b..0b99326b 100644 --- a/Source/DISCON.f90 +++ b/Source/DISCON.f90 @@ -11,6 +11,7 @@ SUBROUTINE DISCON(avrSWAP, aviFAIL, accINFILE, avcOUTNAME, avcMSG) BIND (C, NAME USE :: Controllers USE :: Constants USE :: Filters +USE :: Functions IMPLICIT NONE #ifndef IMPLICIT_DLLEXPORT @@ -51,6 +52,8 @@ SUBROUTINE DISCON(avrSWAP, aviFAIL, accINFILE, avcOUTNAME, avcMSG) BIND (C, NAME CALL StateMachine(CntrPar, LocalVar) CALL WindSpeedEstimator(LocalVar, CntrPar) + CALL SetpointSmoother(LocalVar, CntrPar, objInst) + CALL VariableSpeedControl(avrSWAP, CntrPar, LocalVar, objInst) CALL PitchControl(avrSWAP, CntrPar, LocalVar, objInst) CALL YawRateControl(avrSWAP, CntrPar, LocalVar, objInst)