[Commits] [svn:einsteintoolkit] GRHydro/branches/hot_and_MHD_temp_dev/src/ (Rev. 174)

[knarf at cct.lsu.edu]

User: knarf
Date: 2010/11/13 11:15 PM

Modified:
 /branches/hot_and_MHD_temp_dev/src/
  GRHydro_Con2Prim.F90

Log:
 fix type of GRHydro_C2P_failed: this is a CCTK_REAL

File Changes:

Directory: /branches/hot_and_MHD_temp_dev/src/
==============================================

File [modified]: GRHydro_Con2Prim.F90
Delta lines: +4 -2
===================================================================
--- branches/hot_and_MHD_temp_dev/src/GRHydro_Con2Prim.F90	2010-11-11 23:05:07 UTC (rev 173)
+++ branches/hot_and_MHD_temp_dev/src/GRHydro_Con2Prim.F90	2010-11-14 05:15:59 UTC (rev 174)
@@ -264,7 +264,8 @@
        y, z, r, GRHydro_rho_min
   
   CCTK_REAL s2, c0, c1, c2, c3, c4, f, df, ftol, v2, w, vlowx, vlowy, vlowz
-  CCTK_INT count, i, handle, GRHydro_reflevel, GRHydro_C2P_failed
+  CCTK_INT count, i, handle, GRHydro_reflevel
+  CCTK_REAL GRHydro_C2P_failed
   CCTK_REAL udens, usx, usy, usz, utau, pold, pnew, epsold, epsnew, w2, &
        w2mhalf, temp1, drhobydpress, depsbydpress, dpressbydeps, dpressbydrho, pmin, epsmin
   character(len=200) warnline
@@ -486,7 +487,8 @@
        y, z, r, GRHydro_rho_min
   CCTK_REAL temp, ye
   CCTK_REAL s2, c0, c1, c2, c3, c4, f, df, ftol, v2, w, vlowx, vlowy, vlowz
-  CCTK_INT ii,jj,kk,count, i, handle, GRHydro_reflevel, GRHydro_C2P_failed
+  CCTK_INT ii,jj,kk,count, i, handle, GRHydro_reflevel
+  CCTK_REAL GRHydro_C2P_failed
   CCTK_REAL udens, usx, usy, usz, utau, pold, pnew, epsold, epsnew, w2, &
        w2mhalf, temp1, drhobydpress, depsbydpress, dpressbydeps, dpressbydrho, pmin, epsmin
   character(len=200) warnline