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
|
# Interface definition for thorn TwoPunctures
IMPLEMENTS: TwoPunctures
INHERITS: ADMBase StaticConformal grid
REAL puncture_u TYPE=gf tags='prolongation="none"'
CCTK_INT FUNCTION Set_Rho_ADM( \
CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN size, \
CCTK_REAL ARRAY OUT source, \
CCTK_REAL ARRAY IN x, \
CCTK_REAL ARRAY IN y, \
CCTK_REAL ARRAY IN z \
)
CCTK_INT FUNCTION Set_Initial_Guess_for_u( \
CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN size, \
CCTK_REAL ARRAY OUT u, \
CCTK_REAL ARRAY IN x, \
CCTK_REAL ARRAY IN y, \
CCTK_REAL ARRAY IN z \
)
CCTK_INT FUNCTION Rescale_Sources( \
CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN size, \
CCTK_REAL ARRAY IN x, \
CCTK_REAL ARRAY IN y, \
CCTK_REAL ARRAY IN z, \
CCTK_REAL ARRAY IN psi, \
CCTK_REAL ARRAY IN gxx, \
CCTK_REAL ARRAY IN gyy, \
CCTK_REAL ARRAY IN gzz, \
CCTK_REAL ARRAY IN gxy, \
CCTK_REAL ARRAY IN gxz, \
CCTK_REAL ARRAY IN gyz \
)
USES FUNCTION Set_Rho_ADM
USES FUNCTION Set_Initial_Guess_for_u
USES FUNCTION Rescale_Sources
PRIVATE:
CCTK_REAL energy TYPE=scalar
{
E
} "ADM energy of the Bowen-York spacetime"
CCTK_REAL angular_momentum TYPE=scalar
{
J1, J2, J3
} "Angular momentum of the Bowen-York spacetime"
PUBLIC:
CCTK_REAL bare_mass TYPE=scalar
{
mp mm
} "Bare masses of the punctures"
CCTK_REAL puncture_adm_mass TYPE=scalar
{
mp_adm mm_adm
} "ADM masses of the punctures (measured at the other spatial infinities)"
|
