From e53def3ca02742aa9022dd738bf3775a45945af9 Mon Sep 17 00:00:00 2001 From: eschnett Date: Tue, 7 Jun 2011 18:10:40 +0000 Subject: Correct private variable declarations for OpenMP parallelisation git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Dissipation/trunk@42 850bcc8b-0e4f-0410-8c26-8d28fbf1eda9 --- src/apply_dissipation.F77 | 8 ++++---- 1 file 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 -- cgit v1.2.3