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

[cott at tapir.caltech.edu]

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