From 2ada6e49481334424a00f66a945b107c3a755126 Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87>
Date: Sat, 13 Aug 2011 22:11:24 +0000
Subject: OpenMP: make loop indices thread-private

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@269 e296648e-0e4f-0410-bd07-d597d9acff87
---
 src/gauge.F77      | 1 +
 src/initialize.F77 | 1 +
 2 files changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/gauge.F77 b/src/gauge.F77
index 1e6ffad..3735455 100644
--- a/src/gauge.F77
+++ b/src/gauge.F77
@@ -89,6 +89,7 @@ C
       if ( set_lapse .or. set_shift .or. set_dtlapse .or. set_dtshift) then
 
 C$omp    parallel do private (
+C$omp$     i, j, k,
 C$omp$     tt, xx, yy, zz,
 C$omp$     alptmp, dtalptmp, axtmp, aytmp, aztmp, 
 C$omp$     betaxtmp, betaytmp, betaztmp,
diff --git a/src/initialize.F77 b/src/initialize.F77
index 16a7be2..a6bc967 100644
--- a/src/initialize.F77
+++ b/src/initialize.F77
@@ -61,6 +61,7 @@ C     Set data pointwise.
       nz = cctk_lsh(3)
 
 C$omp parallel do private(
+C$omp$     i, j, k,
 C$omp$     tt, xx, yy, zz,
 C$omp$     alpjunk, dtalpjunk, axjunk, ayjunk, azjunk, 
 C$omp$     betaxjunk, betayjunk, betazjunk,
-- 
cgit v1.2.3