diff options
Diffstat (limited to 'src/EOS_Omni_Startup.F90')
-rw-r--r-- | src/EOS_Omni_Startup.F90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/EOS_Omni_Startup.F90 b/src/EOS_Omni_Startup.F90 index 1c11d75..672b22e 100644 --- a/src/EOS_Omni_Startup.F90 +++ b/src/EOS_Omni_Startup.F90 @@ -27,3 +27,16 @@ subroutine EOS_Omni_Startup(CCTK_ARGUMENTS) (hybrid_rho_nuc * inv_rho_gf)**(hybrid_gamma1-hybrid_gamma2) end subroutine EOS_Omni_Startup + +subroutine EOS_Omni_Get_Energy_Shift(CCTK_ARGUMENTS) + + use EOS_Omni_Module + implicit none + + DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS + + call nuc_eos_c_get_energy_shift(energy_shift,eos_tempmin,eos_tempmax,& + eos_yemin,eos_yemax) + +end subroutine EOS_Omni_Get_Energy_Shift |