diff --git a/src/MNH/fft55.f90 b/src/MNH/fft55.f90
index cc156f8a007985db79d8cb4993a9a9b1ad5b79a1..5e677ef09ca6a9d18f173d922f5dc6d211eb2ed2 100644
--- a/src/MNH/fft55.f90
+++ b/src/MNH/fft55.f90
@@ -214,7 +214,7 @@ IF (KISIGN.EQ.1) THEN
 !
     IIS=-1
     IIA=ISTART
-    CALL FFT991(ZA(IIA:),ZWORK(:),PTRIGS,KIFAX,KJUMP,KN,INVEX,IIS,SIZE(ZA(IIA:)),SIZE(ZWORK(:)),SIZE(PTRIGS))
+    CALL FFT991( ZA(IIA:), ZWORK(:), PTRIGS, KIFAX, KJUMP, KN, INVEX, IIS )
 !
 !      2.3     postprocessing
 !              --------------
@@ -293,7 +293,7 @@ ELSE
 !
     IIA=ISTART
     IIS=1
-    CALL FFT991(ZA(IIA:),ZWORK(:),PTRIGS,KIFAX,KJUMP,KN,INVEX,IIS,SIZE(ZA(IIA:)),SIZE(ZWORK(:)),SIZE(PTRIGS))
+    CALL FFT991( ZA(IIA:), ZWORK(:), PTRIGS, KIFAX, KJUMP, KN, INVEX, IIS )
 !
 !      3.3     postprocessing
 !              --------------