[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 522)
rhaas at tapir.caltech.edu
rhaas at tapir.caltech.edu
Fri May 17 11:16:49 CDT 2013
User: rhaas
Date: 2013/05/17 11:16 AM
Added:
/trunk/src/
Con2PrimM_fortran_interfaces.F90, Con2Prim_fortran_interfaces.F90
Removed:
/trunk/src/
GRHydro_Interfaces.h, GRHydro_InterfacesM.h
Log:
GRHydro: add missing files
File Changes:
Directory: /trunk/src/
======================
File [added]: Con2PrimM_fortran_interfaces.F90
Delta lines: +189 -0
===================================================================
--- trunk/src/Con2PrimM_fortran_interfaces.F90 (rev 0)
+++ trunk/src/Con2PrimM_fortran_interfaces.F90 2013-05-17 16:16:49 UTC (rev 522)
@@ -0,0 +1,189 @@
+#include "cctk.h"
+
+module Con2PrimM_fortran_interfaces
+ implicit none
+
+ interface
+ subroutine GRHydro_Con2PrimM_ptold( handle, &
+ 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,&
+ epsnegative, &
+ retval)
+
+ implicit none
+ CCTK_INT handle
+ CCTK_REAL local_gam
+ 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_INT epsnegative
+ CCTK_REAL retval
+ end subroutine GRHydro_Con2PrimM_ptold
+
+ subroutine GRHydro_Con2PrimM_pt2( handle, keytemp, eos_prec, prec, &
+ local_gam, dens, &
+ sx, sy, sz, &
+ tau, &
+ Bconsx, Bconsy, Bconsz, &
+ xye, xtemp, &
+ 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,&
+ epsnegative, &
+ retval)
+
+ implicit none
+ CCTK_INT handle
+ CCTK_INT keytemp
+ CCTK_REAL eos_prec
+ CCTK_REAL prec
+ CCTK_REAL local_gam
+ CCTK_REAL dens
+ CCTK_REAL sx, sy, sz
+ CCTK_REAL tau
+ CCTK_REAL Bconsx, Bconsy, Bconsz
+ CCTK_REAL xye
+ CCTK_REAL xtemp
+ 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_INT epsnegative
+ CCTK_REAL retval
+ end subroutine GRHydro_Con2PrimM_pt2
+
+
+ subroutine GRHydro_Con2PrimM_pt( handle, GRHydro_reflevel, i, j, k, x, y, z, keytemp, eos_prec, prec, &
+ local_gam, dens, &
+ sx, sy, sz, &
+ tau, &
+ Bconsx, Bconsy, Bconsz, &
+ xye, xtemp, &
+ 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,&
+ epsnegative, &
+ retval)
+
+ implicit none
+ CCTK_INT handle
+ CCTK_INT GRHydro_reflevel
+ CCTK_INT i, j, k
+ CCTK_REAL x, y, z
+ CCTK_INT keytemp
+ CCTK_REAL eos_prec
+ CCTK_REAL prec
+ CCTK_REAL local_gam
+ CCTK_REAL dens
+ CCTK_REAL sx, sy, sz
+ CCTK_REAL tau
+ CCTK_REAL Bconsx, Bconsy, Bconsz
+ CCTK_REAL xye
+ CCTK_REAL xtemp
+ 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_INT epsnegative
+ CCTK_REAL retval
+ end subroutine GRHydro_Con2PrimM_pt
+
+ subroutine GRHydro_Con2PrimM_Polytype_pt( handle, local_gam,&
+ 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,&
+ epsnegative, &
+ retval)
+
+ implicit none
+ CCTK_INT handle
+ CCTK_REAL local_gam
+ 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_INT epsnegative
+ CCTK_REAL retval
+ end subroutine GRHydro_Con2PrimM_Polytype_pt
+
+ end interface
+
+end module Con2PrimM_fortran_interfaces
File [added]: Con2Prim_fortran_interfaces.F90
Delta lines: +88 -0
===================================================================
--- trunk/src/Con2Prim_fortran_interfaces.F90 (rev 0)
+++ trunk/src/Con2Prim_fortran_interfaces.F90 2013-05-17 16:16:49 UTC (rev 522)
@@ -0,0 +1,88 @@
+#include "cctk.h"
+
+module Con2Prim_fortran_interfaces
+ implicit none
+
+ interface
+
+ subroutine Con2Prim_pt(&
+ handle, &
+ dens, &
+ sx, sy, sz, &
+ tau, &
+ rho, &
+ velx, vely, velz, &
+ epsilon, press, &
+ w_lorentz, &
+ uxx, uxy, uxz, &
+ uyy, uyz, uzz, &
+ det, &
+ x, y, z, r, &
+ epsnegative, &
+ GRHydro_rho_min, pmin, epsmin, &
+ GRHydro_reflevel, GRHydro_C2P_failed)
+
+ implicit none
+ CCTK_INT handle
+ CCTK_REAL dens
+ CCTK_REAL sx, sy, sz
+ CCTK_REAL tau
+ CCTK_REAL rho
+ CCTK_REAL velx, vely, velz
+ CCTK_REAL epsilon, press
+ CCTK_REAL w_lorentz
+ CCTK_REAL uxx, uxy, uxz
+ CCTK_REAL uyy, uyz, uzz
+ CCTK_REAL det
+ CCTK_REAL x, y, z, r
+ logical epsnegative
+ CCTK_REAL GRHydro_rho_min, pmin, epsmin
+ CCTK_INT GRHydro_reflevel
+ CCTK_REAL GRHydro_C2P_failed
+ end subroutine Con2Prim_pt
+
+ subroutine Con2Prim_ptPolytype(GRHydro_polytrope_handle, &
+ dens, &
+ sx, sy, sz, &
+ tau, &
+ rho, &
+ velx, vely, velz, &
+ eps, press, &
+ w_lorentz, &
+ uxx, uxy, uxz, uyy, uyz, uzz, &
+ det, &
+ x, y, z, r, &
+ GRHydro_rho_min, &
+ GRHydro_reflevel, GRHydro_C2P_failed)
+
+ implicit none
+ CCTK_INT GRHydro_polytrope_handle
+ CCTK_REAL dens
+ CCTK_REAL sx, sy, sz
+ CCTK_REAL tau
+ CCTK_REAL rho
+ CCTK_REAL velx, vely, velz
+ CCTK_REAL eps, press
+ CCTK_REAL w_lorentz
+ CCTK_REAL uxx, uxy, uxz
+ CCTK_REAL uyy, uyz, uzz
+ CCTK_REAL det
+ CCTK_REAL x, y, z, r
+ CCTK_REAL GRHydro_rho_min
+ CCTK_INT GRHydro_reflevel
+ CCTK_REAL GRHydro_C2P_failed
+ end subroutine Con2Prim_ptPolytype
+
+ subroutine Con2Prim_ptTracer(cons_tracer, tracer, dens)
+ implicit none
+ CCTK_REAL cons_tracer, tracer, dens
+ end subroutine Con2Prim_ptTracer
+
+ subroutine Con2Prim_ptBoundsTracer(cons_tracer, tracer, rho, one_over_w_lorentz, det)
+ implicit none
+ CCTK_REAL cons_tracer, tracer, rho, one_over_w_lorentz, det
+ end subroutine Con2Prim_ptBoundsTracer
+
+ end interface
+
+end module Con2Prim_fortran_interfaces
File [removed]: GRHydro_Interfaces.h
Delta lines: +0 -107
===================================================================
--- trunk/src/GRHydro_Interfaces.h 2013-05-17 03:43:54 UTC (rev 521)
+++ trunk/src/GRHydro_Interfaces.h 2013-05-17 16:16:49 UTC (rev 522)
@@ -1,107 +0,0 @@
-module Con2Prim_fortran_interfaces
- implicit none
-
- interface
-
- subroutine Con2Prim_pt(handle, &
- dens, &
- sx, sy, sz, &
- tau, &
- rho, &
- velx, vely, velz, &
- epsilon, press, &
- w_lorentz, &
- uxx, uxy, uxz, &
- uyy, uyz, uzz, &
- det, &
- x, y, z, r, &
- epsnegative, &
- GRHydro_rho_min, pmin, epsmin, &
- GRHydro_reflevel, GRHydro_C2P_failed)
-
- implicit none
- CCTK_INT handle
- CCTK_REAL dens
- CCTK_REAL sx, sy, sz
- CCTK_REAL tau
- CCTK_REAL rho
- CCTK_REAL velx, vely, velz
- CCTK_REAL epsilon, press
- CCTK_REAL w_lorentz
- CCTK_REAL uxx, uxy, uxz
- CCTK_REAL uyy, uyz, uzz
- CCTK_REAL det
- CCTK_REAL x, y, z, r
- logical epsnegative
- CCTK_REAL GRHydro_rho_min, pmin, epsmin
- CCTK_INT GRHydro_reflevel
- CCTK_REAL GRHydro_C2P_failed
- end subroutine Con2Prim_pt
-
- subroutine Con2Prim_ptPolytype(GRHydro_polytrope_handle, &
- dens, &
- sx, sy, sz, &
- tau, &
- rho, &
- velx, vely, velz, &
- eps, press, &
- w_lorentz, &
- uxx, uxy, uxz, uyy, uyz, uzz, &
- det, &
- x, y, z, r, &
- GRHydro_rho_min, &
- GRHydro_reflevel, GRHydro_C2P_failed)
-
- implicit none
- CCTK_INT GRHydro_polytrope_handle
- CCTK_REAL dens
- CCTK_REAL sx, sy, sz
- CCTK_REAL tau
- CCTK_REAL rho
- CCTK_REAL velx, vely, velz
- CCTK_REAL eps, press
- CCTK_REAL w_lorentz
- CCTK_REAL uxx, uxy, uxz
- CCTK_REAL uyy, uyz, uzz
- CCTK_REAL det
- CCTK_REAL x, y, z, r
- CCTK_REAL GRHydro_rho_min
- CCTK_INT GRHydro_reflevel
- CCTK_REAL GRHydro_C2P_failed
- end subroutine Con2Prim_ptPolytype
-
- subroutine Con2Prim_ptTracer(cons_tracer, tracer, dens)
- implicit none
- CCTK_REAL cons_tracer, tracer, dens
- end subroutine Con2Prim_ptTracer
-
- subroutine Con2Prim_ptBoundsTracer(cons_tracer, tracer, rho, one_over_w_lorentz, det)
- implicit none
- CCTK_REAL cons_tracer, tracer, rho, one_over_w_lorentz, det
- end subroutine Con2Prim_ptBoundsTracer
-
- end interface
-
-end module Con2Prim_fortran_interfaces
-
-module Eigenproblem_interfaces
- implicit none
-
- interface
-
- subroutine eigenvalues(handle,rho,velx,vely,velz,eps,w_lorentz,&
- lam,gxx,gxy,gxz,gyy,gyz,gzz,u,alp,beta)
-
- implicit none
-
- CCTK_REAL rho,velx,vely,velz,eps,w_lorentz
- CCTK_REAL lam(5)
- CCTK_REAL gxx,gxy,gxz,gyy,gyz,gzz
- CCTK_REAL alp,beta,u
- CCTK_INT handle
- end subroutine
-
- end interface
-
-end module Eigenproblem_interfaces
-
File [removed]: GRHydro_InterfacesM.h
Delta lines: +0 -187
===================================================================
--- trunk/src/GRHydro_InterfacesM.h 2013-05-17 03:43:54 UTC (rev 521)
+++ trunk/src/GRHydro_InterfacesM.h 2013-05-17 16:16:49 UTC (rev 522)
@@ -1,187 +0,0 @@
-module Con2PrimM_fortran_interfaces
- implicit none
-
- interface
- subroutine GRHydro_Con2PrimM_ptold( handle, &
- 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,&
- epsnegative, &
- retval)
-
- implicit none
- CCTK_INT handle
- CCTK_REAL local_gam
- 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_INT epsnegative
- CCTK_REAL retval
- end subroutine GRHydro_Con2PrimM_ptold
-
- subroutine GRHydro_Con2PrimM_pt2( handle, keytemp, eos_prec, prec, &
- local_gam, dens, &
- sx, sy, sz, &
- tau, &
- Bconsx, Bconsy, Bconsz, &
- xye, xtemp, &
- 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,&
- epsnegative, &
- retval)
-
- implicit none
- CCTK_INT handle
- CCTK_INT keytemp
- CCTK_REAL eos_prec
- CCTK_REAL prec
- CCTK_REAL local_gam
- CCTK_REAL dens
- CCTK_REAL sx, sy, sz
- CCTK_REAL tau
- CCTK_REAL Bconsx, Bconsy, Bconsz
- CCTK_REAL xye
- CCTK_REAL xtemp
- 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_INT epsnegative
- CCTK_REAL retval
- end subroutine GRHydro_Con2PrimM_pt2
-
-
- subroutine GRHydro_Con2PrimM_pt( handle, GRHydro_reflevel, i, j, k, x, y, z, keytemp, eos_prec, prec, &
- local_gam, dens, &
- sx, sy, sz, &
- tau, &
- Bconsx, Bconsy, Bconsz, &
- xye, xtemp, &
- 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,&
- epsnegative, &
- retval)
-
- implicit none
- CCTK_INT handle
- CCTK_INT GRHydro_reflevel
- CCTK_INT i, j, k
- CCTK_REAL x, y, z
- CCTK_INT keytemp
- CCTK_REAL eos_prec
- CCTK_REAL prec
- CCTK_REAL local_gam
- CCTK_REAL dens
- CCTK_REAL sx, sy, sz
- CCTK_REAL tau
- CCTK_REAL Bconsx, Bconsy, Bconsz
- CCTK_REAL xye
- CCTK_REAL xtemp
- 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_INT epsnegative
- CCTK_REAL retval
- end subroutine GRHydro_Con2PrimM_pt
-
- subroutine GRHydro_Con2PrimM_Polytype_pt( handle, local_gam,&
- 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,&
- epsnegative, &
- retval)
-
- implicit none
- CCTK_INT handle
- CCTK_REAL local_gam
- 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_INT epsnegative
- CCTK_REAL retval
- end subroutine GRHydro_Con2PrimM_Polytype_pt
-
- end interface
-
-end module Con2PrimM_fortran_interfaces
More information about the Commits
mailing list