diff options
author | tbode <tbode@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-04-28 17:55:57 +0000 |
---|---|---|
committer | tbode <tbode@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-04-28 17:55:57 +0000 |
commit | e0baa8110196356ee96faa0788d950126fddd8ee (patch) | |
tree | b1d6b50cc3728ab696edcf304f767d92e88ee9a9 /src/GRHydro_InterfacesM.h | |
parent | 4adfcb611a12689096a604e2a510b7ff12c145f1 (diff) |
MERGE divergence cleaning feature into trunk.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@244 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_InterfacesM.h')
-rw-r--r-- | src/GRHydro_InterfacesM.h | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/GRHydro_InterfacesM.h b/src/GRHydro_InterfacesM.h index c6b49af..8cd85fa 100644 --- a/src/GRHydro_InterfacesM.h +++ b/src/GRHydro_InterfacesM.h @@ -7,17 +7,18 @@ module Con2PrimM_fortran_interfaces local_gam, dens, & sx, sy, sz, & tau, & + Bconsx, Bconsy, Bconsz, & rho, & velx, vely, velz,& epsilon, pressure,& + Bx, By, Bz, & + bsq,& w_lorentz, & gxx, gxy, gxz, & gyy, gyz, gzz, & uxx, uxy, uxz,& uyy, uyz, uzz,& det,& - Bx, By, Bz, & - bsq,& epsnegative, & retval) @@ -27,17 +28,18 @@ module Con2PrimM_fortran_interfaces CCTK_REAL dens CCTK_REAL sx, sy, sz CCTK_REAL tau + CCTK_REAL Bconsx, Bconsy, Bconsz CCTK_REAL rho CCTK_REAL velx, vely, velz CCTK_REAL epsilon, pressure + CCTK_REAL Bx, By, Bz + CCTK_REAL bsq CCTK_REAL w_lorentz CCTK_REAL gxx, gxy, gxz CCTK_REAL gyy, gyz, gzz CCTK_REAL uxx, uxy, uxz CCTK_REAL uyy, uyz, uzz CCTK_REAL det - CCTK_REAL Bx, By, Bz - CCTK_REAL bsq CCTK_INT epsnegative CCTK_REAL retval end subroutine GRHydro_Con2PrimM_pt @@ -46,17 +48,18 @@ module Con2PrimM_fortran_interfaces dens, & sx, sy, sz, & sc, & + Bconsx, Bconsy, Bconsz, & rho, & velx, vely, velz,& epsilon, pressure,& + Bx, By, Bz, & + bsq,& w_lorentz, & gxx, gxy, gxz, & gyy, gyz, gzz, & uxx, uxy, uxz,& uyy, uyz, uzz,& det,& - Bx, By, Bz, & - bsq,& epsnegative, & retval) @@ -66,17 +69,18 @@ module Con2PrimM_fortran_interfaces CCTK_REAL dens CCTK_REAL sx, sy, sz CCTK_REAL sc + CCTK_REAL Bconsx, Bconsy, Bconsz CCTK_REAL rho CCTK_REAL velx, vely, velz CCTK_REAL epsilon, pressure + CCTK_REAL Bx, By, Bz + CCTK_REAL bsq CCTK_REAL w_lorentz CCTK_REAL gxx, gxy, gxz CCTK_REAL gyy, gyz, gzz CCTK_REAL uxx, uxy, uxz CCTK_REAL uyy, uyz, uzz CCTK_REAL det - CCTK_REAL Bx, By, Bz - CCTK_REAL bsq CCTK_INT epsnegative CCTK_REAL retval end subroutine GRHydro_Con2PrimM_Polytype_pt |