From d0f862c149c4f6dfab4bed30b5345d553dcd4001 Mon Sep 17 00:00:00 2001 From: rhaas Date: Wed, 20 Jun 2012 16:16:52 +0000 Subject: GRHydro: do not use integers as booleans gfortran (and the Fortran standard I guess) does not allow this. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@357 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45 --- 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 3e47b72..801db2f 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -486,7 +486,7 @@ subroutine Con2Prim_pt(handle, dens, sx, sy, sz, tau, rho, velx, vely, & ! Check if Newton-Raphson resulted in something reasonable! - if (c2p_resort_to_bisection) then + if (c2p_resort_to_bisection.ne.0) then tmp = (utau + pnew + udens)**2 - s2 plow = max(pmin, sqrt(s2) - utau - udens) @@ -872,7 +872,7 @@ subroutine Con2Prim_pt_hot(cctk_iteration, ii,jj,kk,handle, dens, & ! Check if Newton-Raphson resulted in something reasonable! - if (c2p_resort_to_bisection) then + if (c2p_resort_to_bisection.ne.0) then tmp = (utau + pnew + udens)**2 - s2 plow = max(pminl, sqrt(s2) - utau - udens) -- cgit v1.2.3