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