diff options
author | eschnett <eschnett@850bcc8b-0e4f-0410-8c26-8d28fbf1eda9> | 2011-06-07 18:10:40 +0000 |
---|---|---|
committer | eschnett <eschnett@850bcc8b-0e4f-0410-8c26-8d28fbf1eda9> | 2011-06-07 18:10:40 +0000 |
commit | e53def3ca02742aa9022dd738bf3775a45945af9 (patch) | |
tree | 4855e96d7ec4400855f93be09ec37f71bbca2663 | |
parent | f70f428d505309df1a13a1bfa63dcc9238b8b51f (diff) |
Correct private variable declarations for OpenMP parallelisation
git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Dissipation/trunk@42 850bcc8b-0e4f-0410-8c26-8d28fbf1eda9
-rw-r--r-- | src/apply_dissipation.F77 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/apply_dissipation.F77 b/src/apply_dissipation.F77 index b4e3545..d4a9519 100644 --- a/src/apply_dissipation.F77 +++ b/src/apply_dissipation.F77 @@ -15,7 +15,7 @@ c $Header$ if (order .eq. 1) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 2, nk-1 do j = 2, nj-1 do i = 2, ni-1 @@ -30,7 +30,7 @@ c$omp parallel do else if (order .eq. 3) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 3, nk-2 do j = 3, nj-2 do i = 3, ni-2 @@ -46,7 +46,7 @@ c$omp parallel do else if (order .eq. 5) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 4, nk-3 do j = 4, nj-3 do i = 4, ni-3 @@ -62,7 +62,7 @@ c$omp parallel do else if (order .eq. 7) then -c$omp parallel do +c$omp parallel do private(i,j,k) do k = 5, nk-4 do j = 5, nj-4 do i = 5, ni-4 |