[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 210)

knarf at cct.lsu.edu knarf at cct.lsu.edu
Fri Jan 7 21:59:58 CST 2011


User: knarf
Date: 2011/01/07 09:59 PM

Modified:
 /trunk/src/
  GRHydro_Prim2Con.F90

Log:
 correct variable declaration

File Changes:

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

File [modified]: GRHydro_Prim2Con.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_Prim2Con.F90	2011-01-08 01:37:53 UTC (rev 209)
+++ trunk/src/GRHydro_Prim2Con.F90	2011-01-08 03:59:58 UTC (rev 210)
@@ -46,7 +46,7 @@
   integer :: i, j, k
   CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,&
        gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr
-  CCTK_REAL :: xtemp
+  CCTK_REAL :: xtemp(1)
 
   if(evolve_temper.ne.1) then
      !$OMP PARALLEL DO PRIVATE(i, j, avg_detl, avg_detr,&



More information about the Commits mailing list