Changeset 85 for palm/trunk/SOURCE/poisfft.f90

Timestamp:

May 11, 2007 9:35:14 AM (17 years ago)

Author:

raasch

Message:

openmp bugfixes found by NEC benchmarker

File:

• palm/trunk/SOURCE/poisfft.f90 (modified) (5 diffs)

palm/trunk/SOURCE/poisfft.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: work_fft*_vec removed from some PRIVATE-declarations
 !
 ! Former revisions:
@@ -641 +641 @@
 !
 !--       Code optimized for vector processors
-!$OMP     PARALLEL PRIVATE ( i, j, k, work_ffty_vec )
+!$OMP     PARALLEL PRIVATE ( i, j, k )
 !$OMP     DO
           DO  i = nxl, nxr
@@ -763 +763 @@
 !
 !--       Code optimized for vector processors
-!$OMP     PARALLEL PRIVATE ( i, j, k, work_ffty_vec )
+!$OMP     PARALLEL PRIVATE ( i, j, k )
 !$OMP     DO
           DO  k = 1, nz
@@ -1003 +1003 @@
 !
 !--       Code for vector processors
-!$OMP     PARALLEL PRIVATE ( i, j, k, work_fftx )
+!$OMP     PARALLEL PRIVATE ( i, j, k )
 !$OMP     DO
           DO  i = 0, nx
@@ -1114 +1114 @@
 !
 !--       Code optimized for vector processors
-!$OMP     PARALLEL PRIVATE ( i, j, k, work_fftx )
+!$OMP     PARALLEL PRIVATE ( i, j, k )
 !$OMP     DO
           DO  j = nys, nyn