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