diff options
Diffstat (limited to 'src')
| -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, |