diff --git a/Source/Controllers.f90 b/Source/Controllers.f90 index 73281922..fc967979 100644 --- a/Source/Controllers.f90 +++ b/Source/Controllers.f90 @@ -269,9 +269,9 @@ SUBROUTINE IPC(CntrPar, LocalVar, objInst) ! Optionally filter the resulting signal to induce a phase delay IF (CntrPar%IPC_CornerFreqAct > 0.0) THEN - LocalVar%PitComIPCF(K) = LPFilter(LocalVar%PitComIPC(K), LocalVar%DT, CntrPar%IPC_CornerFreqAct, LocalVar%iStatus, .FALSE., objInst%instLPF) + PitComIPCF(K) = LPFilter(LocalVar%PitComIPC(K), LocalVar%DT, CntrPar%IPC_CornerFreqAct, LocalVar%iStatus, .FALSE., objInst%instLPF) ELSE - LocalVar%PitComIPCF(K) = LocalVar%PitComIPC(K) + PitComIPCF(K) = LocalVar%PitComIPC(K) END IF LocalVar%IPC_PitComF(K) = PitComIPCF(K)