1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
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
|