[Commits] [svn:einsteintoolkit] GRHydro/trunk/ (Rev. 205)

[bcmsma at astro.rit.edu]

User: bmundim
Date: 2010/12/31 06:04 PM

Modified:
 /trunk/
  interface.ccl

Log:
 Define alias function for Con2Prim_pt.

File Changes:

Directory: /trunk/
==================

File [modified]: interface.ccl
Delta lines: +18 -0
===================================================================
--- trunk/interface.ccl	2010-12-31 20:03:19 UTC (rev 204)
+++ trunk/interface.ccl	2011-01-01 00:04:02 UTC (rev 205)
@@ -54,6 +54,23 @@
 #		       CCTK_REAL IN GRHydro_rho_min, CCTK_REAL IN pmin, \
 #		       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, \
@@ -141,6 +158,7 @@
 #PROVIDES FUNCTION Con2Prim WITH Con2Prim_pt LANGUAGE Fortran
 PROVIDES FUNCTION Con2PrimPoly WITH Con2Prim_ptPolytype LANGUAGE Fortran
 PROVIDES FUNCTION Con2PrimGenM WITH GRHydro_Con2PrimM_pt LANGUAGE Fortran
+PROVIDES FUNCTION Con2PrimGen WITH Con2Prim_pt LANGUAGE Fortran
 PROVIDES FUNCTION Prim2ConGen WITH prim2con LANGUAGE Fortran
 PROVIDES FUNCTION Prim2ConPoly WITH prim2conpolytype LANGUAGE Fortran
 PROVIDES FUNCTION Prim2ConGenM WITH prim2conM LANGUAGE Fortran