Changeset 4370 for palm/trunk/SOURCE/temperton_fft_mod.f90
 Timestamp:
 Jan 10, 2020 2:00:44 PM (18 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/temperton_fft_mod.f90
r4366 r4370 9 9 !  10 10 ! $Id$ 11 ! unused variables removed 12 ! 13 ! 4366 20200109 08:12:43Z raasch 11 14 ! vectorized routines added 12 15 ! … … 2245 2248 INTEGER(iwp) :: j !< 2246 2249 INTEGER(iwp) :: jbase !< 2247 INTEGER(iwp) :: jj !<2248 2250 INTEGER(iwp) :: k !< 2249 2251 INTEGER(iwp) :: la !< 2250 INTEGER(iwp) :: nb !<2251 INTEGER(iwp) :: nblox !<2252 2252 INTEGER(iwp) :: nfax !< 2253 2253 INTEGER(iwp) :: nvex !< 2254 2254 INTEGER(iwp) :: nx !< 2255 INTEGER(iwp) :: mm !<2256 2255 2257 2256 … … 2264 2263 nx = n + 1 2265 2264 IF ( MOD(n,2) == 1 ) nx = n 2266 nblox = 12267 2265 nvex = 1 2268 2266
Note: See TracChangeset
for help on using the changeset viewer.