Changeset 5322
- Timestamp:
- Nov 11, 2024, 12:44:25 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/filtrez/mod_fft_fftw.F90
r5271 r5322 18 18 SUBROUTINE Init_fft(iim,nvectmax) 19 19 IMPLICIT NONE 20 INCLUDE<fftw3.f>20 #include <fftw3.f> 21 21 INTEGER :: iim 22 22 INTEGER :: nvectmax … … 86 86 SUBROUTINE fft_forward(vect,TF_vect,nb_vect) 87 87 IMPLICIT NONE 88 INCLUDE<fftw3.f>88 #include <fftw3.f> 89 89 INTEGER,INTENT(IN) :: nb_vect 90 90 REAL,INTENT(IN) :: vect(vsize+inc,nb_vect) … … 99 99 SUBROUTINE fft_backward(TF_vect,vect,nb_vect) 100 100 IMPLICIT NONE 101 INCLUDE<fftw3.f>101 #include <fftw3.f> 102 102 INTEGER,INTENT(IN) :: nb_vect 103 103 REAL,INTENT(OUT) :: vect(vsize+inc,nb_vect)
Note: See TracChangeset
for help on using the changeset viewer.