From cef4cc9bdbe84dca35260f6f02c2249b4cc99856 Mon Sep 17 00:00:00 2001 From: knarf Date: Thu, 10 Feb 2011 15:28:55 +0000 Subject: fix type of C2P_failed git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@121 ac85fae7-cede-4708-beff-ae01c7fa1c26 --- src/GRHydro_Con2Prim.F90 | 4 ++-- 1 file 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,& -- cgit v1.2.3