Changeset 1600 for palm/trunk


Ignore:
Timestamp:
Jun 11, 2015 3:50:12 PM (9 years ago)
Author:
raasch
Message:

bugfix: openMP threadprivate statement moved after variable declaration

File:
1 edited

Legend:

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

    r1483 r1600  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix: openMP threadprivate statement moved after variable declaration
    2323!
    2424! Former revisions:
     
    186186    INTEGER(KIND=C_INT) ::  ny_c  !:
    187187   
    188     !$OMP THREADPRIVATE( x_out, y_out, x_in, y_in )
    189     COMPLEX(KIND=C_DOUBLE_COMPLEX), DIMENSION(:), ALLOCATABLE, SAVE ::         &
    190        x_out  !:
     188    COMPLEX(KIND=C_DOUBLE_COMPLEX), DIMENSION(:), ALLOCATABLE, SAVE ::  x_out  !:
    191189    COMPLEX(KIND=C_DOUBLE_COMPLEX), DIMENSION(:), ALLOCATABLE, SAVE ::         &
    192190       y_out  !:
     
    196194    REAL(KIND=C_DOUBLE), DIMENSION(:), ALLOCATABLE, SAVE ::                    &
    197195       y_in   !:
     196    !$OMP THREADPRIVATE( x_out, y_out, x_in, y_in )
    198197   
    199198   
Note: See TracChangeset for help on using the changeset viewer.