diff options
Diffstat (limited to 'interface.ccl')
-rwxr-xr-x | interface.ccl | 80 |
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 |