User: eschnett Date: 2012/10/13 08:18 AM

Modified: /trunk/src/metrics/ bowl.F77

Log: Declare variable type before declaring it threadprivate

File Changes:

Directory: /trunk/src/metrics/ ==============================

File [modified]: bowl.F77 Delta lines: +1 -1 =================================================================== --- trunk/src/metrics/bowl.F77 2012-10-13 02:53:45 UTC (rev 280) +++ trunk/src/metrics/bowl.F77 2012-10-13 13:18:40 UTC (rev 281) @@ -82,6 +82,7 @@

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$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