diff options
author | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-07-04 01:30:11 +0000 |
---|---|---|
committer | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-07-04 01:30:11 +0000 |
commit | bdf875745ae407bf4f8ffbfdccfaf803e0e64101 (patch) | |
tree | 033faad540870e30c08ab3fef79660009d3d34fb | |
parent | 365492519b9f32ae7fb25e05b7de53abb2003d17 (diff) |
Modify syntax for disabling OpenMP statements
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@277 e296648e-0e4f-0410-bd07-d597d9acff87
-rw-r--r-- | src/gauge.F77 | 38 | ||||
-rw-r--r-- | src/initialize.F77 | 38 |
2 files changed, 38 insertions, 38 deletions
diff --git a/src/gauge.F77 b/src/gauge.F77 index 23615e6..361321a 100644 --- a/src/gauge.F77 +++ b/src/gauge.F77 @@ -88,25 +88,25 @@ C if ( set_lapse .or. set_shift .or. set_dtlapse .or. set_dtshift) then -C$o mp parallel do private ( -C$o mp$ i, j, k, -C$o mp$ tt, xx, yy, zz, -C$o mp$ alptmp, dtalptmp, axtmp, aytmp, aztmp, -C$o mp$ betaxtmp, betaytmp, betaztmp, -C$o mp$ dtbetaxtmp, dtbetaytmp, dtbetaztmp, -C$o mp$ bxxtmp, bxytmp, bxztmp, -C$o mp$ byxtmp, byytmp, byztmp, -C$o mp$ bzxtmp, bzytmp, bzztmp, -C$o mp$ dxgxxtmp, dxgyytmp, dxgzztmp, -C$o mp$ dxgxytmp, dxgyztmp, dxgxztmp, -C$o mp$ dygxxtmp, dygyytmp, dygzztmp, -C$o mp$ dygxytmp, dygyztmp, dygxztmp, -C$o mp$ dzgxxtmp, dzgyytmp, dzgzztmp, -C$o mp$ dzgxytmp, dzgyztmp, dzgxztmp, -C$o mp$ exact_psi, -C$o mp$ exact_psix, exact_psiy, exact_psiz, -C$o mp$ exact_psixx, exact_psiyy, exact_psizz, -C$o mp$ exact_psixy, exact_psiyz, exact_psixz) +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, +C.omp$ dtbetaxtmp, dtbetaytmp, dtbetaztmp, +C.omp$ bxxtmp, bxytmp, bxztmp, +C.omp$ byxtmp, byytmp, byztmp, +C.omp$ bzxtmp, bzytmp, bzztmp, +C.omp$ dxgxxtmp, dxgyytmp, dxgzztmp, +C.omp$ dxgxytmp, dxgyztmp, dxgxztmp, +C.omp$ dygxxtmp, dygyytmp, dygzztmp, +C.omp$ dygxytmp, dygyztmp, dygxztmp, +C.omp$ dzgxxtmp, dzgyytmp, dzgzztmp, +C.omp$ dzgxytmp, dzgyztmp, dzgxztmp, +C.omp$ exact_psi, +C.omp$ exact_psix, exact_psiy, exact_psiz, +C.omp$ exact_psixx, exact_psiyy, exact_psizz, +C.omp$ exact_psixy, exact_psiyz, exact_psixz) do k=1,nz do j=1,ny do i=1,nx diff --git a/src/initialize.F77 b/src/initialize.F77 index c7d9860..28022d7 100644 --- a/src/initialize.F77 +++ b/src/initialize.F77 @@ -60,25 +60,25 @@ C Set data pointwise. ny = cctk_lsh(2) nz = cctk_lsh(3) -C$o mp parallel do private( -C$o mp$ i, j, k, -C$o mp$ tt, xx, yy, zz, -C$o mp$ alpjunk, dtalpjunk, axjunk, ayjunk, azjunk, -C$o mp$ betaxjunk, betayjunk, betazjunk, -C$o mp$ dtbetaxjunk, dtbetayjunk, dtbetazjunk, -C$o mp$ bxxjunk, bxyjunk, bxzjunk, -C$o mp$ byxjunk, byyjunk, byzjunk, -C$o mp$ bzxjunk, bzyjunk, bzzjunk, -C$o mp$ dxgxxjunk, dxgyyjunk, dxgzzjunk, -C$o mp$ dxgxyjunk, dxgyzjunk, dxgxzjunk, -C$o mp$ dygxxjunk, dygyyjunk, dygzzjunk, -C$o mp$ dygxyjunk, dygyzjunk, dygxzjunk, -C$o mp$ dzgxxjunk, dzgyyjunk, dzgzzjunk, -C$o mp$ dzgxyjunk, dzgyzjunk, dzgxzjunk, -C$o mp$ exact_psi, -C$o mp$ exact_psix, exact_psiy, exact_psiz, -C$o mp$ exact_psixx, exact_psiyy, exact_psizz, -C$o mp$ exact_psixy, exact_psiyz, exact_psixz) +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, +C.omp$ dtbetaxjunk, dtbetayjunk, dtbetazjunk, +C.omp$ bxxjunk, bxyjunk, bxzjunk, +C.omp$ byxjunk, byyjunk, byzjunk, +C.omp$ bzxjunk, bzyjunk, bzzjunk, +C.omp$ dxgxxjunk, dxgyyjunk, dxgzzjunk, +C.omp$ dxgxyjunk, dxgyzjunk, dxgxzjunk, +C.omp$ dygxxjunk, dygyyjunk, dygzzjunk, +C.omp$ dygxyjunk, dygyzjunk, dygxzjunk, +C.omp$ dzgxxjunk, dzgyyjunk, dzgzzjunk, +C.omp$ dzgxyjunk, dzgyzjunk, dzgxzjunk, +C.omp$ exact_psi, +C.omp$ exact_psix, exact_psiy, exact_psiz, +C.omp$ exact_psixx, exact_psiyy, exact_psizz, +C.omp$ exact_psixy, exact_psiyz, exact_psixz) do k=1,nz do j=1,ny do i=1,nx |