Correct format specifier

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@421 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45

5 files changed, 5 insertions, 5 deletions

diff --git a/interface.ccl b/interface.ccl
index 7650be1..06d9a63 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -611,8 +611,8 @@ real fs_alpha TYPE=SCALAR
   fs_alpha5
 } "Maximum characteristic speeds for the flux splitting"
 
-real Y_e_con_rhs TYPE=GF tags='Prolongation="None" checkpoint="no"' "RHS for the electron fraction"
 public:
+real Y_e_con_rhs TYPE=GF tags='Prolongation="None" checkpoint="no"' "RHS for the electron fraction"
 real Y_e_con_flux TYPE=GF tags='Prolongation="None" checkpoint="no"' "Flux for the electron fraction"
 private:
 real Y_e_plus TYPE=GF tags='Prolongation="None" checkpoint="no"' "Plus state  for the electron fraction"
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90
index bb53c0a..5458320 100644
--- a/src/GRHydro_Con2Prim.F90
+++ b/src/GRHydro_Con2Prim.F90
@@ -859,7 +859,7 @@ subroutine Con2Prim_pt_hot(cctk_iteration, ii,jj,kk,handle, dens, &
            if(nf.gt.nfudgemax) then
               if(GRHydro_c2p_reset_eps_tau_hot_eos.ne.1) then
                  call CCTK_WARN(failinfomode,"EOS error in c2p 0: injected heat too many times")
-                 write(warnline,"(i8.4i5,1P10E15.6)") cctk_iteration,GRHydro_reflevel,ii,jj,kk,x,y,z
+                 write(warnline,"(i8,4i5,1P10E15.6)") cctk_iteration,GRHydro_reflevel,ii,jj,kk,x,y,z
                  call CCTK_WARN(failinfomode,warnline)
                  write(warnline,"(1P10E15.6)") rho,epsilon,temp,ye
                  call CCTK_WARN(failinfomode,warnline)
diff --git a/src/GRHydro_TVDReconstruct.F90 b/src/GRHydro_TVDReconstruct.F90
index 526999d..b2528c8 100644
--- a/src/GRHydro_TVDReconstruct.F90
+++ b/src/GRHydro_TVDReconstruct.F90
@@ -115,7 +115,7 @@ contains
     CCTK_REAL,intent(IN)::a_in,b_in
     CCTK_REAL::minmod_result
     
-    minmod_result=0.5D0*(sign(1.0D0,a_in)+sign(1.0D0,b_in))*min(abs(a_in),abs(b_in))
+    minmod_result=0.5D0*(sign(1.0d0,a_in)+sign(1.0d0,b_in))*min(abs(a_in),abs(b_in))
   end function minmod_func
 
 end subroutine tvdreconstruct
diff --git a/src/GRHydro_Tmunu.F90 b/src/GRHydro_Tmunu.F90
index 5f16fcc..bc7724c 100644
--- a/src/GRHydro_Tmunu.F90
+++ b/src/GRHydro_Tmunu.F90
@@ -105,7 +105,7 @@
 !!$       Calculate the specific relativistic enthalpy times rho times the
 !!$       square of the lorentz factor.
 
-         rhoenthalpy = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0D0 + eps(i,j,k)) + press(i,j,k))
+         rhoenthalpy = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0d0 + eps(i,j,k)) + press(i,j,k))
 
 !!$       Calculate lower components of 4-velocity (without the Lorent factor).
 
diff --git a/src/GRHydro_TmunuM.F90 b/src/GRHydro_TmunuM.F90
index 58906ca..841ff69 100644
--- a/src/GRHydro_TmunuM.F90
+++ b/src/GRHydro_TmunuM.F90
@@ -122,7 +122,7 @@
 !!$       Calculate the specific relativistic enthalpy times rho + the mag. field contribution times the
 !!$       square of the lorentz factor.
 
-         rhohstarw2 = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0D0 + eps(i,j,k)) + press(i,j,k) + b2)
+         rhohstarw2 = w_lorentz(i,j,k)**2*(rho(i,j,k)*(1.0d0 + eps(i,j,k)) + press(i,j,k) + b2)
          pstar =  press(i,j,k)+0.5d0*b2
 
 !!$       Calculate lower components of 4-velocity (without the Lorent factor).