Changeset 5322 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Nov 11, 2024, 12:44:25 PM (5 weeks ago)
Author:
abarral
Message:

Fix broken #include

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/filtrez/mod_fft_fftw.F90

    r5271 r5322  
    1818  SUBROUTINE Init_fft(iim,nvectmax)
    1919  IMPLICIT NONE
    20 INCLUDE <fftw3.f>
     20#include <fftw3.f>
    2121    INTEGER :: iim
    2222    INTEGER :: nvectmax
    … …  
    8686  SUBROUTINE fft_forward(vect,TF_vect,nb_vect)
    8787    IMPLICIT NONE
    88 INCLUDE <fftw3.f>
     88#include <fftw3.f>
    8989    INTEGER,INTENT(IN)     :: nb_vect
    9090    REAL,INTENT(IN)        :: vect(vsize+inc,nb_vect)
    … …  
    9999  SUBROUTINE fft_backward(TF_vect,vect,nb_vect)
    100100    IMPLICIT NONE
    101 INCLUDE <fftw3.f>
     101#include <fftw3.f>
    102102    INTEGER,INTENT(IN)     :: nb_vect
    103103    REAL,INTENT(OUT)       :: vect(vsize+inc,nb_vect)
Note: See TracChangeset for help on using the changeset viewer.