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