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 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) |