diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-20 16:16:52 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-06-20 16:16:52 +0000 |
| commit | d0f862c149c4f6dfab4bed30b5345d553dcd4001 (patch) | |
| tree | 23579dc56d8bbd41aca5d90dcb61a7b4206a7088 | |
| parent | 685cc86f58d28e5b270d346f4d19e8b26f6a9223 (diff) | |
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
| -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) |