[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 138)
knarf at cct.lsu.edu
knarf at cct.lsu.edu
Wed Jul 21 10:36:31 CDT 2010
User: knarf
Date: 2010/07/21 10:36 AM
Added:
/trunk/src/
GRHydro_Interfaces.h
Modified:
/trunk/src/
GRHydro_Con2Prim.F90
Log:
put fortran module interfaces into separate file
File Changes:
Directory: /trunk/src/
======================
File [modified]: GRHydro_Con2Prim.F90
Delta lines: +1 -88
===================================================================
--- trunk/src/GRHydro_Con2Prim.F90 2010-07-12 14:50:27 UTC (rev 137)
+++ trunk/src/GRHydro_Con2Prim.F90 2010-07-21 15:36:31 UTC (rev 138)
@@ -12,95 +12,8 @@
#include "cctk_Arguments.h"
#include "cctk_Functions.h"
#include "SpaceMask.h"
+#include "GRHydro_Interfaces.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
-
-
-
/*@@
@routine Conservative2Primitive
@date Sat Jan 26 01:08:33 2002
File [added]: GRHydro_Interfaces.h
Delta lines: +107 -0
===================================================================
--- trunk/src/GRHydro_Interfaces.h (rev 0)
+++ trunk/src/GRHydro_Interfaces.h 2010-07-21 15:36:31 UTC (rev 138)
@@ -0,0 +1,107 @@
+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
+
More information about the Commits
mailing list