[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