From 42da92056c93da30be8fd4b8286f71aa92f345be Mon Sep 17 00:00:00 2001 From: cott Date: Sat, 11 Jun 2011 00:32:35 +0000 Subject: * fix dpdrho issue git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@48 8e189c6b-2ab8-4400-aa02-70a9cfce18b9 --- src/EOS_Omni_SingleVarCalls.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/EOS_Omni_SingleVarCalls.F90 b/src/EOS_Omni_SingleVarCalls.F90 index 7f1f825..783f2c1 100644 --- a/src/EOS_Omni_SingleVarCalls.F90 +++ b/src/EOS_Omni_SingleVarCalls.F90 @@ -203,7 +203,9 @@ subroutine EOS_Omni_EOS_DPressByDRho(eoskey,keytemp,rf_precision,npoints,& press_gf * hybrid_k1_cgs * inv_rho_gf**hybrid_gamma1 * & hybrid_rho_nuc**(hybrid_gamma1 - 1.d0) - dpdrhoe(i) = hybrid_dp_poly + hybrid_dp_th1 + hybrid_dp_th2 + dpdrhoe(i) = hybrid_dp_poly + max(0.0d0,hybrid_dp_th1 + hybrid_dp_th2) + + enddo -- cgit v1.2.3