Ignore:
Timestamp:
Feb 25, 2019 3:31:42 PM (3 years ago)
Author:
raasch
Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:
1 edited

Legend:

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

    r2001 r3761  
    88! -----------------
    99! $Id$
     10! statement added to prevent compiler warning about unused variables
     11!
     12! 2001 2016-08-20 18:41:22Z knoop
    1013!
    1114! 2000 2016-08-20 18:09:15Z knoop
     
    210213    COMPLEX(wp), DIMENSION(SIZE(array, 1)):: ft
    211214
     215    INTEGER(iwp)::  idum
    212216    INTEGER(iwp)::  ishape(1)
    213217
     
    219223    ishape = SHAPE( array )
    220224    CALL fftn(ft, ishape, inv = inv,  stat = stat)
     225!
     226!-- Next statement to prevent compiler warning about unused variable
     227    IF ( PRESENT( dim ) )  idum = 1
    221228
    222229 END FUNCTION fft1d
Note: See TracChangeset for help on using the changeset viewer.