diff options
| author | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 13:18:40 +0000 |
|---|---|---|
| committer | eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87> | 2012-10-13 13:18:40 +0000 |
| commit | cdf132a26751bbc6ad57e371cbc79f78f60b0cfc (patch) | |
| tree | 7dbd19a305009b34bcf1af87b74e841f83604861 | |
| parent | 7896b7882fe0095132b76a4096a708acce958b46 (diff) | |
Declare variable type before declaring it threadprivate
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@281 e296648e-0e4f-0410-bd07-d597d9acff87
| -rw-r--r-- | src/metrics/bowl.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/metrics/bowl.F77 b/src/metrics/bowl.F77 index 15ca326..5592dd1 100644 --- a/src/metrics/bowl.F77 +++ b/src/metrics/bowl.F77 @@ -82,6 +82,7 @@ c output arguments c local static variables logical firstcall,evolve + integer type CCTK_REAL a,c,s CCTK_REAL dx,dy,dz CCTK_REAL t0,st @@ -90,7 +91,6 @@ c local static variables c$omp threadprivate (firstcall,evolve,type,a,c,s,dx,dy,dz,t0,st) c local variables - integer type character*100 warn_buffer CCTK_REAL r,r2,rr2 |