Ignore:
Timestamp:
Mar 7, 2023, 7:18:57 PM (16 months ago)
Author:
lguez
Message:

Stop with return code 1

So that a calling script may know that the program failed.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1907 r4456  
    1111    INTEGER :: nb
    1212   
    13     STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     13    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     14    stop 1
    1415  END SUBROUTINE Init_fft
    1516 
    … …  
    2122    COMPLEX,INTENT(INOUT) :: TF_vect(vsize/2+1,nb_vect)
    2223   
    23     STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     24    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     25    stop 1
    2426   
    2527  END SUBROUTINE fft_forward
    … …  
    3133    COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)
    3234 
    33     STOP "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     35    print *, "wrapper fft : une FFT doit etre specifiee a l'aide d'une clee CPP, sinon utiliser le filtre classique"
     36    stop 1
    3437   
    3538  END SUBROUTINE fft_backward
Note: See TracChangeset for help on using the changeset viewer.