diff options
| author | eschnett <eschnett@4ec1db94-0e4f-0410-ada3-8bed251432c9> | 2012-05-05 13:52:50 +0000 |
|---|---|---|
| committer | eschnett <eschnett@4ec1db94-0e4f-0410-ada3-8bed251432c9> | 2012-05-05 13:52:50 +0000 |
| commit | 1919f9b1fa320fd60d69f648612d00262ca30420 (patch) | |
| tree | 83a1b71ed2602d34b953ed0e35cc8aac7a0cfff3 | |
| parent | 3483dfd01b26c4c496486f5019e0c8bba8a9df78 (diff) | |
Declare all loop variables private
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/NoExcision/trunk@33 4ec1db94-0e4f-0410-ada3-8bed251432c9
| -rw-r--r-- | src/NoExcision_mod.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/NoExcision_mod.F90 b/src/NoExcision_mod.F90 index 7cf0a5a..f352678 100644 --- a/src/NoExcision_mod.F90 +++ b/src/NoExcision_mod.F90 @@ -67,7 +67,7 @@ module NoExcision_mod select case (order) case (2) -!$OMP PARALLEL DO PRIVATE(j,i) SCHEDULE(GUIDED) +!$OMP PARALLEL DO PRIVATE(k,j,i) SCHEDULE(GUIDED) do k = 2, nz-1 do j = 2, ny-1 do i = 2, nx-1 @@ -88,7 +88,7 @@ module NoExcision_mod case (4) -!$OMP PARALLEL DO PRIVATE(j,i) SCHEDULE(GUIDED) +!$OMP PARALLEL DO PRIVATE(k,j,i) SCHEDULE(GUIDED) do k = 3, nz-2 do j = 3, ny-2 do i = 3, nx-2 @@ -113,7 +113,7 @@ module NoExcision_mod case (6) -!$OMP PARALLEL DO PRIVATE(j,i) SCHEDULE(GUIDED) +!$OMP PARALLEL DO PRIVATE(k,j,i) SCHEDULE(GUIDED) do k = 4, nz-3 do j = 4, ny-3 do i = 4, nx-3 @@ -220,7 +220,7 @@ module NoExcision_mod if (do_inf_reduction) linfred = 0.0 -!$OMP PARALLEL DO SCHEDULE(guided) PRIVATE(j,i) REDUCTION(+:lsumred) & +!$OMP PARALLEL DO SCHEDULE(guided) PRIVATE(k,j,i) REDUCTION(+:lsumred) & !$OMP REDUCTION(max:linfred) do k = 1 + offset, nz - offset do j = 1 + offset, ny - offset |