fix some type mismatches in fftpack.F

AlexanderRichert-NOAA · Nov 3, 2023 · 7f9f5bf · 7f9f5bf
1 parent e888d2d
commit 7f9f5bf
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/fftpack.F b/src/fftpack.F
@@ -282,7 +282,7 @@ SUBROUTINE scfft(isign,n,scale,x,y,table,work,isys)
       SUBROUTINE RFFTF (N,R,WSAVE)
       DIMENSION       R(1)       ,WSAVE(1)
       IF (N .EQ. 1) RETURN
-      CALL RFFTF1 (N,R,WSAVE,WSAVE(N+1),WSAVE(2*N+1))
+      CALL RFFTF1 (N,R,WSAVE,WSAVE(N+1),INT(WSAVE(2*N+1)))
       RETURN
       END
 
@@ -296,7 +296,7 @@ SUBROUTINE RFFTF (N,R,WSAVE)
       SUBROUTINE RFFTB (N,R,WSAVE)
       DIMENSION       R(1)       ,WSAVE(1)
       IF (N .EQ. 1) RETURN
-      CALL RFFTB1 (N,R,WSAVE,WSAVE(N+1),WSAVE(2*N+1))
+      CALL RFFTB1 (N,R,WSAVE,WSAVE(N+1),INT(WSAVE(2*N+1)))
       RETURN
       END
 
@@ -307,7 +307,7 @@ SUBROUTINE RFFTB (N,R,WSAVE)
 C>
 C> @author Paul N. Swarztrauber, National Center for Atmospheric Research, Boulder, CO
       SUBROUTINE RFFTI (N,WSAVE)
-      DIMENSION       WSAVE(1)
+      INTEGER  ::     WSAVE(1)
       IF (N .EQ. 1) RETURN
       CALL RFFTI1 (N,WSAVE(N+1),WSAVE(2*N+1))
       RETURN