[Commits] [svn:einsteintoolkit] incoming/EOS_Omni/ (Rev. 13)

[cott at tapir.caltech.edu]

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