From bdf875745ae407bf4f8ffbfdccfaf803e0e64101 Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87>
Date: Wed, 4 Jul 2012 01:30:11 +0000
Subject: Modify syntax for disabling OpenMP statements

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@277 e296648e-0e4f-0410-bd07-d597d9acff87
---
 src/gauge.F77      | 38 +++++++++++++++++++-------------------
 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
-- 
cgit v1.2.3