[Commits] [svn:einsteintoolkit] GRHydro_InitData/trunk/src/ (Rev. 121)

[knarf at cct.lsu.edu]

User: knarf
Date: 2011/02/10 09:28 AM

Modified:
 /trunk/src/
  GRHydro_Con2Prim.F90

Log:
 fix type of C2P_failed

File Changes:

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

File [modified]: GRHydro_Con2Prim.F90
Delta lines: +2 -2
===================================================================
--- trunk/src/GRHydro_Con2Prim.F90	2011-01-01 00:10:16 UTC (rev 120)
+++ trunk/src/GRHydro_Con2Prim.F90	2011-02-10 15:28:55 UTC (rev 121)
@@ -49,7 +49,7 @@
   CCTK_REAL rho_send,velx_send,vely_send,velz_send,eps_send
   CCTK_REAL press_send,w_lorentz_send,x_send,y_send,z_send,r_send
   CCTK_REAL pmin, epsmin
-  CCTK_INT C2P_failed
+  CCTK_REAL C2P_failed
   logical epsnegative
 
 ! begin EOS Omni vars
@@ -104,7 +104,7 @@
   call EOS_Omni_EpsFromPress(GRHydro_eos_handle,keytemp,GRHydro_eos_rf_prec,n,&
        GRHydro_rho_min,xeps,xtemp,xye,pmin,epsmin,keyerr,anyerr)
 
-  C2P_failed = 0
+  C2P_failed = 0.d0
 
   write(*,*) 'Con2Prim test: converting to primitive variables'
   call Con2Prim_pt(GRHydro_eos_handle,dens_send,sx_send,sy_send,sz_send,&