Changeset 5322 for LMDZ6/trunk/libf/filtrez

Timestamp:

Nov 11, 2024, 12:44:25 PM (5 weeks ago)

Author:

abarral

Message:

Fix broken #include

File:

• LMDZ6/trunk/libf/filtrez/mod_fft_fftw.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/filtrez/mod_fft_fftw.F90

@@ -18 +18 @@
   SUBROUTINE Init_fft(iim,nvectmax)
   IMPLICIT NONE
-INCLUDE <fftw3.f>
+#include <fftw3.f>
     INTEGER :: iim
     INTEGER :: nvectmax
@@ -86 +86 @@
   SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
     IMPLICIT NONE
-INCLUDE <fftw3.f>
+#include <fftw3.f>
     INTEGER,INTENT(IN)     :: nb_vect
     REAL,INTENT(IN)        :: vect(vsize+inc,nb_vect)
@@ -99 +99 @@
   SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
     IMPLICIT NONE
-INCLUDE <fftw3.f>
+#include <fftw3.f>
     INTEGER,INTENT(IN)     :: nb_vect
     REAL,INTENT(OUT)       :: vect(vsize+inc,nb_vect)