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
|
module Con2PrimAM_fortran_interfaces
implicit none
interface
subroutine GRHydro_Con2PrimM_pt( handle, keytemp, 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 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 Con2PrimAM_fortran_interfaces
|