[Commits] [svn:einsteintoolkit] Exact/trunk/src/metrics/ (Rev. 281)

[schnetter at cct.lsu.edu]

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