User: cott Date: 2010/11/11 12:01 AM
Modified: /EOS_Omni/ interface.ccl /EOS_Omni/src/ make.code.defn
Log: * add a multi-var call
File Changes:
Directory: /EOS_Omni/ =====================
File [modified]: interface.ccl Delta lines: +25 -0 =================================================================== --- EOS_Omni/interface.ccl 2010-11-03 16:49:03 UTC (rev 12) +++ EOS_Omni/interface.ccl 2010-11-11 06:01:51 UTC (rev 13) @@ -99,6 +99,31 @@ PROVIDES FUNCTION EOS_Omni_RestMassDensityFromEpsPress WITH EOS_Omni_EOS_RestMassDensityFromEpsPress LANGUAGE Fortran
################################################################################ +# short and long and specific calls + +void FUNCTION EOS_Omni_short(CCTK_INT IN eoskey, \ + CCTK_INT IN havetemp, \ + CCTK_REAL IN rf_precision, \ + CCTK_INT IN npoints, \ + CCTK_REAL IN ARRAY rho, \ + CCTK_REAL INOUT ARRAY eps, \ + CCTK_REAL INOUT ARRAY temp, \ + CCTK_REAL IN ARRAY ye, \ + CCTK_REAL OUT ARRAY press, \ + CCTK_REAL OUT ARRAY entropy, \ + CCTK_REAL OUT ARRAY cs2, \ + CCTK_REAL OUT ARRAY dedt, \ + CCTK_REAL OUT ARRAY dpderho, \ + CCTK_REAL OUT ARRAY dpdrhoe, \ + CCTK_REAL OUT ARRAY munu, \ + CCTK_INT OUT ARRAY keyerr, \ + CCTK_INT OUT anyerr) + +PROVIDES FUNCTION EOS_Omni_cs2 WITH EOS_Omni_EOS_short LANGUAGE Fortran + + + +################################################################################ # the following routines are needed for MHD con2prim based on the Harm Code
void FUNCTION EOS_Omni_press_f_hrho_v2_rhoW(CCTK_INT IN eoskey, \
Directory: /EOS_Omni/src/ =========================
File [modified]: make.code.defn Delta lines: +2 -1 =================================================================== --- EOS_Omni/src/make.code.defn 2010-11-03 16:49:03 UTC (rev 12) +++ EOS_Omni/src/make.code.defn 2010-11-11 06:01:51 UTC (rev 13) @@ -2,7 +2,8 @@
# Source files in this directory SRCS = EOS_Omni_Module.F90 EOS_Omni_Startup.F90 EOS_Omni_SingleVarCalls.F90 \ - EOS_Omni_SingleVarCalls_harm.F90 EOS_Omni_Handles.c + EOS_Omni_SingleVarCalls_harm.F90 EOS_Omni_Handles.c \ + EOS_Omni_MultiVarCalls.F90
# Subdirectories containing source files SUBDIRS = nuc_eos