From c16b69c8789baabd6f2fc3a9263c5e009b99a908 Mon Sep 17 00:00:00 2001 From: cott Date: Sat, 23 Mar 2013 20:27:23 +0000 Subject: * fix an issue with coldEOS+gamma-law (thermal pressure was not added) * improve a multi-var EOS call for dpdrho and dpdeps git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@79 8e189c6b-2ab8-4400-aa02-70a9cfce18b9 --- src/EOS_Omni_MultiVarCalls.F90 | 4 ++-- src/EOS_Omni_SingleVarCalls.F90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/EOS_Omni_MultiVarCalls.F90 b/src/EOS_Omni_MultiVarCalls.F90 index 417ae99..e6a37b3 100644 --- a/src/EOS_Omni_MultiVarCalls.F90 +++ b/src/EOS_Omni_MultiVarCalls.F90 @@ -179,8 +179,8 @@ subroutine EOS_Omni_EOS_dpderho_dpdrhoe(eoskey,keytemp,rf_precision,npoints,& xtemp = temp(i) xye = ye(i) xenr = eps(i) * inv_eps_gf - call nuc_eos_dpdr_dpde(xrho,xtemp,xye,xenr,xdpdrhoe,& - xdpderho,& + call nuc_eos_dpdr_dpde(xrho,xtemp,xye,xenr, & + xdpderho, xdpdrhoe,& keytemp,keyerr(i),rf_precision) if(keyerr(i).ne.0) then diff --git a/src/EOS_Omni_SingleVarCalls.F90 b/src/EOS_Omni_SingleVarCalls.F90 index f789806..fc7a90b 100644 --- a/src/EOS_Omni_SingleVarCalls.F90 +++ b/src/EOS_Omni_SingleVarCalls.F90 @@ -151,7 +151,7 @@ subroutine EOS_Omni_EOS_Press(eoskey,keytemp,rf_precision,npoints,& press_cold = coldeos_kappa * rho(i)**gamma press_th = coldeos_thfac*(coldeos_gammath - 1.0d0)*rho(i)*eps_th - press(i) = press_cold !+ press_th + press(i) = press_cold + press_th enddo case DEFAULT -- cgit v1.2.3