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,&