Ignore:
Timestamp:
Jun 29, 2017 1:31:14 PM (4 years ago)
Author:
raasch
Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/temperton_fft_mod.f90

    r1851 r2300  
    99! -----------------
    1010! $Id$
     11! NEC related CPP directives removed
     12!
     13! 1851 2016-04-08 13:32:50Z maronga
    1114!
    1215! 1850 2016-04-08 13:29:27Z maronga
     
    5154
    5255
    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
    5460    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 #else
    61     INTEGER(iwp), PARAMETER ::  nfft =  32  !<
    62 #endif
    63 
    64     INTEGER(iwp), PARAMETER ::  nout =   6  !< standard output stream
    6561
    6662CONTAINS
Note: See TracChangeset for help on using the changeset viewer.