Ignore:
Timestamp:
Aug 3, 2024, 2:56:58 PM (3 months ago)
Author:
abarral
Message:

Put .h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_fft_wrapper.f90

    r5120 r5160  
    1313    INTEGER :: nb
    1414   
    15     print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     15    PRINT *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
    1616    stop 1
    1717  END SUBROUTINE init_fft
    … …  
    2424    COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
    2525   
    26     print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     26    PRINT *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
    2727    stop 1
    2828   
    … …  
    3535    COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
    3636 
    37     print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     37    PRINT *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
    3838    stop 1
    3939   
Note: See TracChangeset for help on using the changeset viewer.