From 115eaef5522b79393771474f761edb8044154a75 Mon Sep 17 00:00:00 2001
From: cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45>
Date: Wed, 22 Dec 2010 06:52:38 +0000
Subject: * fix warn level in hot c2p routine

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@197 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
---
 src/GRHydro_Con2Prim.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GRHydro_Con2Prim.F90')

diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90
index df4a133..971471b 100644
--- a/src/GRHydro_Con2Prim.F90
+++ b/src/GRHydro_Con2Prim.F90
@@ -496,8 +496,9 @@ subroutine Con2Prim_pt_hot(ii,jj,kk,handle, dens, sx, sy, sz, tau, rho, velx, ve
   temp0 = 0.0d0;xpress = 0.0d0
 ! end EOS Omni vars
   
+  failinfomode = 1
   failwarnmode = 0
-  failinfomode = 0
+
 
 ! set pmin and epsmin to something sensible:
   pminl = 1.0d-28
-- 
cgit v1.2.3