thorns for general eos interface (moved from Whisky_Dev repositories)

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOSG_Polytrope/trunk@2 a192deed-9f5d-41fb-bb60-7f59df5b1b8d

1 files changed, 80 insertions, 0 deletions

diff --git a/interface.ccl b/interface.ccl
new file mode 100755
index 0000000..8eb9f5c
--- /dev/null
+++ b/interface.ccl
@@ -0,0 +1,80 @@
+# Interface definition for thorn EOS_GeneralPolytrope
+# $Header$
+
+implements: EOS_GeneralPolytrope
+
+void FUNCTION EOS_Poly_Pressure(CCTK_INT IN nelemns, \
+                                    CCTK_POINTER ARRAY IN rho,\
+				    CCTK_POINTER ARRAY OUT press)
+
+PROVIDES FUNCTION EOS_Poly_Pressure WITH EOS_GP_Pressure LANGUAGE Fortran
+
+
+
+CCTK_INT FUNCTION EOS_RegisterCall(CCTK_INT IN table_handle, \
+                                   CCTK_INT IN CCTK_FPOINTER \
+                                     EOS_fn(CCTK_INT IN param_table, \
+                                            CCTK_INT IN n_elems, \
+                                            CCTK_POINTER ARRAY IN indeps, \
+                                            CCTK_INT ARRAY IN which_deps, \
+                                            CCTK_POINTER ARRAY OUT deps))
+USES FUNCTION EOS_RegisterCall
+
+
+void FUNCTION EOS_Poly_IntEn(CCTK_INT IN nelemns, \
+                                 CCTK_POINTER ARRAY IN rho,\
+				 CCTK_POINTER ARRAY OUT IntEn)
+
+PROVIDES FUNCTION EOS_Poly_IntEn WITH EOS_GP_IntEn LANGUAGE Fortran
+
+
+void FUNCTION EOS_Poly_DPDRho(CCTK_INT IN nelemns, \
+                                  CCTK_POINTER ARRAY IN rho,\
+				  CCTK_POINTER ARRAY OUT dpdrho)
+
+PROVIDES FUNCTION EOS_Poly_DPDrho WITH EOS_GP_DPDRho LANGUAGE Fortran
+
+
+void FUNCTION EOS_Poly_DPDIE(CCTK_INT IN nelemns, \
+                                 CCTK_POINTER ARRAY IN rho,\
+				 CCTK_POINTER ARRAY OUT dpdie)
+
+PROVIDES FUNCTION EOS_Poly_DPDIE WITH EOS_GP_DPDIE LANGUAGE Fortran
+
+void FUNCTION EOS_Poly_cs2(CCTK_INT IN nelemns, \
+                               CCTK_POINTER ARRAY IN rho,\
+			       CCTK_POINTER ARRAY OUT cs2)
+
+PROVIDES FUNCTION EOS_Poly_cs2 WITH EOS_GP_cs2 LANGUAGE Fortran
+
+void FUNCTION EOS_Poly_Inv_Rho(CCTK_INT IN nelemns, \
+                                   CCTK_POINTER ARRAY IN press,\
+			           CCTK_POINTER ARRAY OUT rho)
+
+PROVIDES FUNCTION EOS_Poly_Inv_Rho WITH EOS_GP_Inv_Rho LANGUAGE Fortran
+
+void FUNCTION EOS_Poly_Inv_IntEn(CCTK_INT IN nelemns, \
+                                     CCTK_POINTER ARRAY IN press,\
+			             CCTK_POINTER ARRAY OUT IntEn)
+
+PROVIDES FUNCTION EOS_Poly_Inv_IntEn WITH EOS_GP_Inv_IntEn LANGUAGE Fortran
+
+
+void FUNCTION EOS_Poly_Inv_DPDRho(CCTK_INT IN nelemns, \
+                                     CCTK_POINTER ARRAY IN press,\
+			             CCTK_POINTER ARRAY OUT DPDRho)
+
+PROVIDES FUNCTION EOS_Poly_Inv_DPDRho WITH EOS_GP_Inv_DPDRho LANGUAGE Fortran
+
+
+void FUNCTION EOS_Poly_Inv_DPDIE(CCTK_INT IN nelemns, \
+                                     CCTK_POINTER ARRAY IN press,\
+			             CCTK_POINTER ARRAY OUT DPDIE)
+
+PROVIDES FUNCTION EOS_Poly_Inv_DPDIE WITH EOS_GP_Inv_DPDIE LANGUAGE Fortran
+
+void FUNCTION EOS_Poly_Inv_cs2(CCTK_INT IN nelemns, \
+                                     CCTK_POINTER ARRAY IN press,\
+			             CCTK_POINTER ARRAY OUT cs2)
+
+PROVIDES FUNCTION EOS_Poly_Inv_cs2 WITH EOS_GP_Inv_cs2 LANGUAGE Fortran