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
|
#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
|
