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)