Index: src/GRHydro_Prim2Con.F90
===================================================================
--- src/GRHydro_Prim2Con.F90	(revision 209)
+++ src/GRHydro_Prim2Con.F90	(working copy)
@@ -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,&