Philippe 22/05/2023: FFT: fix for: remove unused dummy arguments for FFT991

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
 !              --------------