Ignore:
Timestamp:
May 11, 2007 9:35:14 AM (14 years ago)
Author:
raasch
Message:

openmp bugfixes found by NEC benchmarker

File:
1 edited

Legend:

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

    r82 r85  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: work_fft*_vec removed from some PRIVATE-declarations
    77!
    88! Former revisions:
     
    641641!
    642642!--       Code optimized for vector processors
    643 !$OMP     PARALLEL PRIVATE ( i, j, k, work_ffty_vec )
     643!$OMP     PARALLEL PRIVATE ( i, j, k )
    644644!$OMP     DO
    645645          DO  i = nxl, nxr
     
    763763!
    764764!--       Code optimized for vector processors
    765 !$OMP     PARALLEL PRIVATE ( i, j, k, work_ffty_vec )
     765!$OMP     PARALLEL PRIVATE ( i, j, k )
    766766!$OMP     DO
    767767          DO  k = 1, nz
     
    10031003!
    10041004!--       Code for vector processors
    1005 !$OMP     PARALLEL PRIVATE ( i, j, k, work_fftx )
     1005!$OMP     PARALLEL PRIVATE ( i, j, k )
    10061006!$OMP     DO
    10071007          DO  i = 0, nx
     
    11141114!
    11151115!--       Code optimized for vector processors
    1116 !$OMP     PARALLEL PRIVATE ( i, j, k, work_fftx )
     1116!$OMP     PARALLEL PRIVATE ( i, j, k )
    11171117!$OMP     DO
    11181118          DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.