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
|
# Interface definition for thorn SummationByParts
# $Header$
implements: SummationByParts
inherits: grid
#SUBROUTINE Diff_gf ( CCTK_REAL IN ARRAY var, \
# CCTK_INT IN ni, \
# CCTK_INT IN nj, \
# CCTK_INT IN nk, \
# CCTK_INT IN dir, \
# CCTK_REAL IN delta, \
# CCTK_REAL OUT ARRAY dvar )
#PROVIDES FUNCTION Diff_gf WITH deriv_gf LANGUAGE Fortran
SUBROUTINE Diff_gf ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_STRING IN var_name, \
CCTK_STRING IN dvar_name )
PROVIDES FUNCTION Diff_gf WITH DiffGf LANGUAGE C
SUBROUTINE Diff_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_REAL IN ARRAY var, \
CCTK_REAL OUT ARRAY dvar )
PROVIDES FUNCTION Diff_gv WITH DiffGv LANGUAGE C
CCTK_REAL FUNCTION GetScalProdCoeff ()
PROVIDES FUNCTION GetScalProdCoeff WITH GetCoeff LANGUAGE Fortran
CCTK_INT FUNCTION GetDomainSpecification \
(CCTK_INT IN size, \
CCTK_REAL OUT ARRAY physical_min, \
CCTK_REAL OUT ARRAY physical_max, \
CCTK_REAL OUT ARRAY interior_min, \
CCTK_REAL OUT ARRAY interior_max, \
CCTK_REAL OUT ARRAY exterior_min, \
CCTK_REAL OUT ARRAY exterior_max, \
CCTK_REAL OUT ARRAY spacing)
USES FUNCTION GetDomainSpecification
CCTK_INT FUNCTION \
SymmetryTableHandleForGrid (CCTK_POINTER_TO_CONST IN cctkGH)
REQUIRES FUNCTION SymmetryTableHandleForGrid
CCTK_INT FUNCTION SymmetryHandleOfName (CCTK_STRING IN sym_name)
REQUIRES FUNCTION SymmetryHandleOfName
public
CCTK_REAL normmask TYPE=gf TAGS='tensortypealias="scalar" Prolongation="None"'
{
nmask
} "Mask for the norm calculation"
|