Changeset 2300 for palm/trunk/SOURCE/temperton_fft_mod.f90
 Timestamp:
 Jun 29, 2017 1:31:14 PM (4 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/temperton_fft_mod.f90
r1851 r2300 9 9 !  10 10 ! $Id$ 11 ! NEC related CPP directives removed 12 ! 13 ! 1851 20160408 13:32:50Z maronga 11 14 ! 12 15 ! 1850 20160408 13:29:27Z maronga … … 51 54 52 55 53 INTEGER(iwp) :: nfax(10) !< array used by *fft991*. 56 INTEGER(iwp) :: nfax(10) !< array used by *fft991*. 57 INTEGER(iwp), PARAMETER :: nfft = 32 !< maximum length of calls to *fft 58 INTEGER(iwp), PARAMETER :: nout = 6 !< standard output stream 59 54 60 REAL(wp), ALLOCATABLE :: trig(:) !< array used by *fft991*. 55 56 !57 ! nfft: maximum length of calls to *fft.58 #if defined( __nec )59 INTEGER(iwp), PARAMETER :: nfft = 256 !<60 #else61 INTEGER(iwp), PARAMETER :: nfft = 32 !<62 #endif63 64 INTEGER(iwp), PARAMETER :: nout = 6 !< standard output stream65 61 66 62 CONTAINS
Note: See TracChangeset
for help on using the changeset viewer.