Philippe 22/05/2023: FFT: remove unnecessary dummy arguments for RPASSM and QPASSM

src/MNH/fft.f90

@@ -203,17 +203,11 @@ SUBROUTINE FFT991( PA, PWORK, PTRIGS, PFAX, KJUMP, KN, KLOT, KSIGN )
         IFAC=PFAX(IK+1)
         IERR=-1
         IF ( IGO == 1 ) THEN
-          CALL RPASSM(PA(IA:),PA(IA+ILA:),PWORK(1:),PWORK(IFAC*ILA+1:), &
-              PTRIGS(:),                                             &
-              KJUMP,INX,INVEX,KN,IFAC,ILA,IERR,                         &
-              SIZE(PA(IA:)),SIZE(PA(IA+ILA:)),SIZE(PWORK(1:)),         &
-              SIZE(PWORK(IFAC*ILA+1:)),SIZE(PTRIGS(:)))
+          CALL RPASSM( PA(IA:), PA(IA+ILA:), PWORK(:), PWORK(IFAC*ILA+1:), PTRIGS(:), &
+                       KJUMP, INX, INVEX, KN, IFAC, ILA, IERR )
         ELSE
-          CALL RPASSM(PWORK(1:),PWORK(ILA+1:),PA(IA:),PA(IA+IFAC*ILA:), &
-             PTRIGS(:),                                              &
-             INX,KJUMP,INVEX,KN,IFAC,ILA,IERR,                          &
-             SIZE(PWORK(1:)),SIZE(PWORK(ILA+1:)),SIZE(PA(IA:)),        &
-             SIZE(PA(IA+IFAC*ILA:)),SIZE(PTRIGS(:)))
+          CALL RPASSM( PWORK(:), PWORK(ILA+1:), PA(IA:), PA(IA+IFAC*ILA:), PTRIGS(:), &
+                       INX, KJUMP, INVEX, KN, IFAC, ILA, IERR )
         END IF
         IF (IERR.NE.0) GO TO 500
         ILA=IFAC*ILA
@@ -262,17 +256,11 @@ SUBROUTINE FFT991( PA, PWORK, PTRIGS, PFAX, KJUMP, KN, KLOT, KSIGN )
         ILA=ILA/IFAC
         IERR=-1
         IF ( IGO == 1 ) THEN
-          CALL QPASSM(PA(IA:),PA(IA+IFAC*ILA:),PWORK(1:),PWORK(ILA+1:), &
-              PTRIGS(:),                                             &
-              KJUMP,INX,INVEX,KN,IFAC,ILA,IERR,                         &
-              SIZE(PA(IA:)),SIZE(PA(IA+IFAC*ILA:)),SIZE(PWORK(1:)),    &
-              SIZE(PWORK(ILA+1:)),SIZE(PTRIGS(:)))
+          CALL QPASSM( PA(IA:), PA(IA+IFAC*ILA:), PWORK(:), PWORK(ILA+1:), PTRIGS(:), &
+                       KJUMP, INX, INVEX, KN, IFAC, ILA, IERR )
         ELSE
-          CALL QPASSM(PWORK(1:),PWORK(IFAC*ILA+1:),PA(IA:),PA(IA+ILA:), &
-              PTRIGS(:),                                             &
-              INX,KJUMP,INVEX,KN,IFAC,ILA,IERR,                         &
-              SIZE(PWORK(1:)),SIZE(PWORK(IFAC*ILA+1:)),SIZE(PA(IA:)),  &
-              SIZE(PA(IA+ILA:)),SIZE(PTRIGS(:)))
+          CALL QPASSM( PWORK(:), PWORK(IFAC*ILA+1:), PA(IA:), PA(IA+ILA:), PTRIGS(:), &
+                       INX, KJUMP, INVEX, KN, IFAC, ILA, IERR )
         END IF
         IF (IERR.NE.0) GO TO 500
         IGO=-IGO
@@ -344,18 +332,17 @@ END SUBROUTINE FFT991
 
 
 
-SUBROUTINE RPASSM(PA,PB,PC,PD,PTRIGS,KINC3,KINC4,KLOT,KN,KFAC,KLA,KERR,KSZ1,KSZ2,KSZ3,KSZ4,KSZ5)
+SUBROUTINE RPASSM( PA, PB, PC, PD, PTRIGS, KINC3, KINC4, KLOT, KN, KFAC, KLA, KERR )
 
   IMPLICIT NONE
 
-  REAL, DIMENSION(KSZ1), INTENT(IN)    :: PA
-  REAL, DIMENSION(KSZ2), INTENT(IN)    :: PB
-  REAL, DIMENSION(KSZ3), INTENT(INOUT) :: PC
-  REAL, DIMENSION(KSZ4), INTENT(INOUT) :: PD
-  REAL, DIMENSION(KSZ5), INTENT(IN)    :: PTRIGS
-  INTEGER,               INTENT(IN)    :: KINC3, KINC4, KLOT, KN, KFAC, KLA
-  INTEGER,               INTENT(OUT)   :: KERR
-  INTEGER,               INTENT(IN)    :: KSZ1,KSZ2,KSZ3,KSZ4,KSZ5
+  REAL, DIMENSION(:), INTENT(IN)    :: PA
+  REAL, DIMENSION(:), INTENT(IN)    :: PB
+  REAL, DIMENSION(:), INTENT(INOUT) :: PC
+  REAL, DIMENSION(:), INTENT(INOUT) :: PD
+  REAL, DIMENSION(:), INTENT(IN)    :: PTRIGS
+  INTEGER,            INTENT(IN)    :: KINC3, KINC4, KLOT, KN, KFAC, KLA
+  INTEGER,            INTENT(OUT)   :: KERR
 !
 !     SUBROUTINE 'RPASSM' - PERFORMS ONE PASS THROUGH DATA AS PART
 !     OF MULTIPLE REAL FFT (FOURIER SYNTHESIS) ROUTINE
@@ -1281,17 +1268,16 @@ END SUBROUTINE RPASSM
 
 
 
-SUBROUTINE QPASSM(PA,PB,PC,PD,PTRIGS,KINC3,KINC4,KLOT,KN,KFAC,KLA,KERR,KSZ1,KSZ2,KSZ3,KSZ4,KSZ5)
+SUBROUTINE QPASSM( PA, PB, PC, PD, PTRIGS, KINC3, KINC4, KLOT, KN, KFAC, KLA, KERR )
   IMPLICIT NONE
 
-  REAL, DIMENSION(KSZ1), INTENT(IN)    :: PA
-  REAL, DIMENSION(KSZ2), INTENT(IN)    :: PB
-  REAL, DIMENSION(KSZ3), INTENT(INOUT) :: PC
-  REAL, DIMENSION(KSZ4), INTENT(INOUT) :: PD
-  REAL, DIMENSION(KSZ5), INTENT(IN)    :: PTRIGS
-  INTEGER,               INTENT(IN)    :: KINC3, KINC4, KLOT, KN, KFAC, KLA
-  INTEGER,               INTENT(OUT)   :: KERR
-  INTEGER,               INTENT(IN)    :: KSZ1, KSZ2, KSZ3, KSZ4, KSZ5
+  REAL, DIMENSION(:), INTENT(IN)    :: PA
+  REAL, DIMENSION(:), INTENT(IN)    :: PB
+  REAL, DIMENSION(:), INTENT(INOUT) :: PC
+  REAL, DIMENSION(:), INTENT(INOUT) :: PD
+  REAL, DIMENSION(:), INTENT(IN)    :: PTRIGS
+  INTEGER,            INTENT(IN)    :: KINC3, KINC4, KLOT, KN, KFAC, KLA
+  INTEGER,            INTENT(OUT)   :: KERR
 !
 !     SUBROUTINE 'QPASSM' - PERFORMS ONE PASS THROUGH DATA AS PART
 !     OF MULTIPLE REAL FFT (FOURIER ANALYSIS) ROUTINE