[svn:einsteintoolkit] EOS_Omni/trunk/src/nuc_eos/ (Rev. 38) - Commits

20 Mar 2011

User: cott
Date: 2011/03/20 02:46 PM
Modified:
 /trunk/src/nuc_eos/
  nuc_eos.F90
Log:
 * improve error handling in nuc_eos a bit.
File Changes:
Directory: /trunk/src/nuc_eos/
==============================
File [modified]: nuc_eos.F90
Delta lines: +10 -5
===================================================================

--- trunk/src/nuc_eos/nuc_eos.F90	2011-02-07 05:36:36 UTC (rev 37)
+++ trunk/src/nuc_eos/nuc_eos.F90	2011-03-20 19:46:09 UTC (rev 38)
@@ -48,11 +48,13 @@
   keyerrr = 0
if(xrho.gt.eos_rhomax) then
-     call CCTK_WARN(0, "nuc_eos: rho > rhomax")
+     keyerr = 103
+     return
   endif
if(xrho.lt.eos_rhomin) then
-     call CCTK_WARN (0, "nuc_eos: rho < rhomin")
+     keyerr = 104
+     return
   endif
if(xye.gt.eos_yemax) then
@@ -228,7 +230,8 @@
   keyerrr = 0
if(xrho.gt.eos_rhomax) then
-     call CCTK_WARN (0, "nuc_eos: rho > rhomax")
+     keyerr = 103
+     return
   endif
if(xrho.lt.eos_rhomin*1.126d0) then
@@ -351,7 +354,8 @@
   keyerrt = 0
if(xrho.gt.eos_rhomax) then
-     call CCTK_WARN (0, "nuc_eos: rho > rhomax")
+     keyerr = 103
+     return
   endif
if(xrho.lt.eos_rhomin*1.126d0) then
@@ -430,7 +434,8 @@
   keyerrt = 0
if(xrho.gt.eos_rhomax) then
-     call CCTK_WARN (0, "nuc_eos: rho > rhomax")
+     keyerr = 103
+     return
   endif
if(xrho.lt.eos_rhomin*1.126d0) then

    