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