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
|
# Interface definition for thorn TwoPunctures
# $Header$
IMPLEMENTS: TwoPunctures
INHERITS: ADMBase StaticConformal grid
REAL puncture_u TYPE=gf
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
PUBLIC:
CCTK_REAL bare_mass TYPE=scalar
{
mp mm
} "Bare masses of the punctures"
|
