Changeset 696 for palm/trunk/SOURCE/poisfft.f90
- Timestamp:
- Mar 18, 2011 7:03:49 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft.f90
r684 r696 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! work_fftx removed from PRIVATE clauses in fftx_tr_xy and tr_yx_fftx 7 7 ! 8 8 ! Former revisions: … … 1070 1070 !-- Cache optimized code (there might be still a potential for better 1071 1071 !-- optimization). 1072 !$OMP PARALLEL PRIVATE (i,j,k ,work_fftx)1072 !$OMP PARALLEL PRIVATE (i,j,k) 1073 1073 !$OMP DO 1074 1074 DO i = 0, nx … … 1181 1181 !-- Cache optimized code (there might be still a potential for better 1182 1182 !-- optimization). 1183 !$OMP PARALLEL PRIVATE (i,j,k ,work_fftx)1183 !$OMP PARALLEL PRIVATE (i,j,k) 1184 1184 !$OMP DO 1185 1185 DO j = nys, nyn … … 1245 1245 1246 1246 tn = 0 ! Default thread number in case of one thread 1247 !$OMP PARALLEL PRIVATE ( i, j, k, m, n, tn, work_ffty, work_triy ) 1248 !$OMP DO 1247 !$OMP PARALLEL DO PRIVATE ( i, j, k, m, n, tn, work_ffty, work_triy ) 1249 1248 DO i = nxl_y, nxr_y 1250 1249 … … 1336 1335 1337 1336 ENDDO 1338 !$OMP END PARALLEL1339 1337 1340 1338 DEALLOCATE( tri )
Note: See TracChangeset
for help on using the changeset viewer.