Changeset 85 for palm/trunk/SOURCE/poisfft.f90
- Timestamp:
- May 11, 2007 9:35:14 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft.f90
r82 r85 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix: work_fft*_vec removed from some PRIVATE-declarations 7 7 ! 8 8 ! Former revisions: … … 641 641 ! 642 642 !-- Code optimized for vector processors 643 !$OMP PARALLEL PRIVATE ( i, j, k , work_ffty_vec)643 !$OMP PARALLEL PRIVATE ( i, j, k ) 644 644 !$OMP DO 645 645 DO i = nxl, nxr … … 763 763 ! 764 764 !-- Code optimized for vector processors 765 !$OMP PARALLEL PRIVATE ( i, j, k , work_ffty_vec)765 !$OMP PARALLEL PRIVATE ( i, j, k ) 766 766 !$OMP DO 767 767 DO k = 1, nz … … 1003 1003 ! 1004 1004 !-- Code for vector processors 1005 !$OMP PARALLEL PRIVATE ( i, j, k , work_fftx)1005 !$OMP PARALLEL PRIVATE ( i, j, k ) 1006 1006 !$OMP DO 1007 1007 DO i = 0, nx … … 1114 1114 ! 1115 1115 !-- Code optimized for vector processors 1116 !$OMP PARALLEL PRIVATE ( i, j, k , work_fftx)1116 !$OMP PARALLEL PRIVATE ( i, j, k ) 1117 1117 !$OMP DO 1118 1118 DO j = nys, nyn
Note: See TracChangeset
for help on using the changeset viewer.