diff options
author | knarf <knarf@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2011-02-10 15:28:55 +0000 |
---|---|---|
committer | knarf <knarf@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2011-02-10 15:28:55 +0000 |
commit | cef4cc9bdbe84dca35260f6f02c2249b4cc99856 (patch) | |
tree | 1c6fc32f0ed63939ccc764214519f32b3d49be72 | |
parent | 068b72916b36e67e3ba761d6abd1d11181eae7bf (diff) |
fix type of C2P_failed
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@121 ac85fae7-cede-4708-beff-ae01c7fa1c26
-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,& |