diff options
author | bmundim <bmundim@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2011-01-01 00:05:34 +0000 |
---|---|---|
committer | bmundim <bmundim@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2011-01-01 00:05:34 +0000 |
commit | 65d7ff0b72a3ba683bbf92b54b3f1cf9a737fbdb (patch) | |
tree | 3ac2bf074e8a071b8a6f76b3b248d5ba494b4fea /interface.ccl | |
parent | e14b402798458759073298a0c31a7bd5f18e7774 (diff) |
Clean up a few routines and make them to conform to
EOS Omni interface.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@119 ac85fae7-cede-4708-beff-ae01c7fa1c26
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 4f3f7b5..a65ecb3 100644 --- a/interface.ccl +++ b/interface.ccl @@ -79,6 +79,23 @@ SUBROUTINE Con2PrimPoly(CCTK_INT IN handle, CCTK_REAL OUT dens, \ CCTK_INT IN GRHydro_reflevel, CCTK_REAL IN GRHydro_C2P_failed) +void FUNCTION Con2PrimGen(CCTK_INT INOUT handle, CCTK_REAL INOUT dens, \ + CCTK_REAL INOUT sx, CCTK_REAL INOUT sy, CCTK_REAL INOUT sz, \ + CCTK_REAL INOUT tau, CCTK_REAL INOUT rho, \ + CCTK_REAL INOUT velx, CCTK_REAL INOUT vely, CCTK_REAL INOUT velz, \ + CCTK_REAL INOUT epsilon, CCTK_REAL INOUT pressure, \ + CCTK_REAL INOUT w_lorentz, \ + CCTK_REAL INOUT uxx, CCTK_REAL INOUT uxy, CCTK_REAL INOUT uxz, \ + CCTK_REAL INOUT uyy, CCTK_REAL INOUT uyz, CCTK_REAL INOUT uzz, \ + CCTK_REAL INOUT det, \ + CCTK_REAL INOUT x, CCTK_REAL INOUT y, CCTK_REAL INOUT z, \ + CCTK_REAL INOUT r, \ + CCTK_INT OUT epsnegative, \ + CCTK_REAL INOUT GRHydro_rho_min, CCTK_REAL INOUT pmin, \ + CCTK_REAL INOUT epsmin, \ + CCTK_INT INOUT GRHydro_reflevel, \ + CCTK_REAL OUT retval) + void FUNCTION Con2PrimGenM(CCTK_INT INOUT handle, CCTK_REAL INOUT gamma_eos, CCTK_REAL INOUT dens, \ CCTK_REAL INOUT sx, CCTK_REAL INOUT sy, CCTK_REAL INOUT sz, \ CCTK_REAL INOUT tau, CCTK_REAL INOUT rho, \ @@ -101,6 +118,7 @@ USES FUNCTION Prim2ConGen USES FUNCTION Prim2ConPolyM USES FUNCTION Prim2ConGenM USES FUNCTION Con2PrimPoly +USES FUNCTION Con2PrimGen USES FUNCTION Con2PrimGenM CCTK_INT FUNCTION EOS_Omni_GetHandle(CCTK_STRING IN name) |