diff options
| author | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2011-08-13 22:11:24 +0000 |
|---|---|---|
| committer | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2011-08-13 22:11:24 +0000 |
| commit | 2ada6e49481334424a00f66a945b107c3a755126 (patch) | |
| tree | ca29ceb6d0749a3e8f7134814cbcdf0116fb7ae2 | |
| parent | ad3ecddc82d88a40af3ca0393a00df8ce31c9e61 (diff) | |
OpenMP: make loop indices thread-private
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@269 e296648e-0e4f-0410-bd07-d597d9acff87
| -rw-r--r-- | src/gauge.F77 | 1 | ||||
| -rw-r--r-- | src/initialize.F77 | 1 |
2 files changed, 2 insertions, 0 deletions
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, |