[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/util/ (Rev. 153)

knarf at cct.lsu.edu knarf at cct.lsu.edu
Wed Sep 8 14:04:46 CDT 2010


User: knarf
Date: 2010/09/08 02:04 PM

Modified:
 /trunk/src/util/
  Riemann1d.f90

Log:
 get rid of deleted Fortran statement 'pause'

File Changes:

Directory: /trunk/src/util/
===========================

File [modified]: Riemann1d.f90
Delta lines: +8 -2
===================================================================
--- trunk/src/util/Riemann1d.f90	2010-08-27 20:30:51 UTC (rev 152)
+++ trunk/src/util/Riemann1d.f90	2010-09-08 19:04:46 UTC (rev 153)
@@ -429,7 +429,10 @@
       b = 1.d0 - a
       c = ha * (known(3) - guess(3)) / known(1) - ha * ha
       
-      if (c > b * b / 4.d0 / a) pause "unphysical enthalpy"
+      if (c > b * b / 4.d0 / a) then
+        write (*,*) "unphysical enthalpy"
+        stop
+      endif
       
       h = (-b + sqrt(b * b - 4.d0 * a * c)) / 2.d0 / a
       
@@ -727,7 +730,10 @@
       b = 1.d0 - a
       c = ha * (known(3) - guess(3)) / known(1) - ha * ha
 
-      if (c > b * b / 4.d0 / a) pause "unphysical enthalpy"
+      if (c > b * b / 4.d0 / a) then
+        write(*,*) "unphysical enthalpy"
+        stop
+      endif
 
       h = (-b + sqrt(b * b - 4.d0 * a * c)) / 2.d0 / a
 



More information about the Commits mailing list