[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 357)
rhaas at tapir.caltech.edu
rhaas at tapir.caltech.edu
Wed Jun 20 11:16:52 CDT 2012
User: rhaas
Date: 2012/06/20 11:16 AM
Modified:
/trunk/src/
GRHydro_Con2Prim.F90
Log:
GRHydro: do not use integers as booleans
gfortran (and the Fortran standard I guess) does not allow this.
File Changes:
Directory: /trunk/src/
======================
File [modified]: GRHydro_Con2Prim.F90
Delta lines: +2 -2
===================================================================
--- trunk/src/GRHydro_Con2Prim.F90 2012-06-20 16:15:59 UTC (rev 356)
+++ trunk/src/GRHydro_Con2Prim.F90 2012-06-20 16:16:52 UTC (rev 357)
@@ -486,7 +486,7 @@
! 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 @@
! 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)
More information about the Commits
mailing list