diff options
Diffstat (limited to 'src/metrics')
-rw-r--r-- | src/metrics/Alvi.F77 | 1 | ||||
-rw-r--r-- | src/metrics/Bertotti.F77 | 1 | ||||
-rw-r--r-- | src/metrics/Bianchi_I.F77 | 1 | ||||
-rw-r--r-- | src/metrics/Goedel.F77 | 1 | ||||
-rw-r--r-- | src/metrics/Gowdy_wave.F77 | 1 | ||||
-rw-r--r-- | src/metrics/bowl.F77 | 1 |
6 files changed, 6 insertions, 0 deletions
diff --git a/src/metrics/Alvi.F77 b/src/metrics/Alvi.F77 index cda692f..046602a 100644 --- a/src/metrics/Alvi.F77 +++ b/src/metrics/Alvi.F77 @@ -34,6 +34,7 @@ c static locals CCTK_REAL m1,m2,b data firstcall /.true./ save firstcall, m1,m2,b +c$omp threadprivate (firstcall, m1,m2,b) c locals CCTK_REAL rin1,rin2,rout,x1,x2, r1, r2, r3, results(10) diff --git a/src/metrics/Bertotti.F77 b/src/metrics/Bertotti.F77 index b6f6ab2..b1e6c8b 100644 --- a/src/metrics/Bertotti.F77 +++ b/src/metrics/Bertotti.F77 @@ -35,6 +35,7 @@ c static local variables logical firstcall data firstcall /.true./ save firstcall, baza +c$omp threadprivate (firstcall, baza) c local variables CCTK_REAL baza diff --git a/src/metrics/Bianchi_I.F77 b/src/metrics/Bianchi_I.F77 index 41eb14b..4775dbd 100644 --- a/src/metrics/Bianchi_I.F77 +++ b/src/metrics/Bianchi_I.F77 @@ -38,6 +38,7 @@ c local static variables CCTK_REAL arad data firstcall /.true./ save firstcall, arad +c$omp threadprivate (firstcall, arad) c local variables CCTK_REAL bx, by diff --git a/src/metrics/Goedel.F77 b/src/metrics/Goedel.F77 index 7663bc8..d69f43d 100644 --- a/src/metrics/Goedel.F77 +++ b/src/metrics/Goedel.F77 @@ -38,6 +38,7 @@ c local static variables CCTK_REAL arad data firstcall /.true./ save firstcall, arad +c$omp threadprivate (firstcall, arad) C This is a vacuum spacetime with no cosmological constant diff --git a/src/metrics/Gowdy_wave.F77 b/src/metrics/Gowdy_wave.F77 index cfb3354..efdb938 100644 --- a/src/metrics/Gowdy_wave.F77 +++ b/src/metrics/Gowdy_wave.F77 @@ -44,6 +44,7 @@ c local static variables CCTK_REAL Bessel_J0, Bessel_J1 data firstcall /.true./ save firstcall, amp, PI, twoPI, Bessel_J0, Bessel_J1 +c$omp threadprivate (firstcall, amp, PI, twoPI, Bessel_J0, Bessel_J1) c local variables CCTK_REAL Bessel_J0_t, Bessel_J1_t diff --git a/src/metrics/bowl.F77 b/src/metrics/bowl.F77 index d4b2da6..15ca326 100644 --- a/src/metrics/bowl.F77 +++ b/src/metrics/bowl.F77 @@ -87,6 +87,7 @@ c local static variables CCTK_REAL t0,st data firstcall /.true./ save firstcall,evolve,type,a,c,s,dx,dy,dz,t0,st +c$omp threadprivate (firstcall,evolve,type,a,c,s,dx,dy,dz,t0,st) c local variables integer type |