diff options
-rw-r--r-- | src/EOS_Omni_MultiVarCalls.F90 | 4 | ||||
-rw-r--r-- | src/EOS_Omni_SingleVarCalls.F90 | 2 |
2 files changed, 3 insertions, 3 deletions
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 |