diff options
-rw-r--r-- | src/GRHydro_Con2Prim.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index 6b9ba34..9830751 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -49,7 +49,7 @@ subroutine GRHydro_con2primtest(CCTK_ARGUMENTS) 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 @@ subroutine GRHydro_con2primtest(CCTK_ARGUMENTS) 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,& |