- Timestamp:
- Dec 7, 2011, 8:05:43 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/filtrez/mod_fft_mathkeisan.F90
r986 r1601 15 15 INTEGER :: nb_vect_max 16 16 REAL :: rtmp=1. 17 COMPLEX *16:: ctmp17 COMPLEX :: ctmp 18 18 INTEGER :: itmp=1 19 19 INTEGER :: isign=0 … … 37 37 INTEGER,INTENT(IN) :: nb_vect 38 38 REAL,INTENT(IN) :: vect(vsize+inc,nb_vect) 39 COMPLEX *16,INTENT(OUT) :: TF_vect(vsize/2+1,nb_vect)39 COMPLEX,INTENT(OUT) :: TF_vect(vsize/2+1,nb_vect) 40 40 REAL :: work(4*vsize*nb_vect) 41 41 INTEGER :: ierr … … 51 51 INTEGER,INTENT(IN) :: nb_vect 52 52 REAL,INTENT(OUT) :: vect(vsize+inc,nb_vect) 53 COMPLEX *16,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect)53 COMPLEX,INTENT(IN ) :: TF_vect(vsize/2+1,nb_vect) 54 54 REAL :: work(4*vsize*nb_vect) 55 55 INTEGER :: ierr
Note: See TracChangeset
for help on using the changeset viewer.