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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
/*@@
@header DZDG_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Declarations for macro @seefile DZDG_guts.h to compute first
derivatives of the conformal metric with respect to z
@enddesc
@@*/
#ifndef DZDK_DECLARE
#define DZDK_DECLARE
#ifdef FCODE
/* Input variables */
#undef DZDK_KXX_KP
#define DZDK_KXX_KP kxx(i,j,k+1)
#undef DZDK_KXX_KM
#define DZDK_KXX_KM kxx(i,j,k-1)
#undef DZDK_KXY_KP
#define DZDK_KXY_KP kxy(i,j,k+1)
#undef DZDK_KXY_KM
#define DZDK_KXY_KM kxy(i,j,k-1)
#undef DZDK_KXZ_KP
#define DZDK_KXZ_KP kxz(i,j,k+1)
#undef DZDK_KXZ_KM
#define DZDK_KXZ_KM kxz(i,j,k-1)
#undef DZDK_KYY_KP
#define DZDK_KYY_KP kyy(i,j,k+1)
#undef DZDK_KYY_KM
#define DZDK_KYY_KM kyy(i,j,k-1)
#undef DZDK_KYZ_KP
#define DZDK_KYZ_KP kyz(i,j,k+1)
#undef DZDK_KYZ_KM
#define DZDK_KYZ_KM kyz(i,j,k-1)
#undef DZDK_KZZ_KP
#define DZDK_KZZ_KP kzz(i,j,k+1)
#undef DZDK_KZZ_KM
#define DZDK_KZZ_KM kzz(i,j,k-1)
/* Output variables */
#undef DZDK_DZDKXX
#define DZDK_DZDKXX dzdk_dzdkxx
#undef DZDK_DZDKXY
#define DZDK_DZDKXY dzdk_dzdkxy
#undef DZDK_DZDKXZ
#define DZDK_DZDKXZ dzdk_dzdkxz
#undef DZDK_DZDKYY
#define DZDK_DZDKYY dzdk_dzdkyy
#undef DZDK_DZDKYZ
#define DZDK_DZDKYZ dzdk_dzdkyz
#undef DZDK_DZDKZZ
#define DZDK_DZDKZZ dzdk_dzdkzz
/* Internal variables */
#undef DZDK_DZ
#define DZDK_DZ dz
#undef DZDK_OO2DZ
#define DZDK_OO2DZ dzdk_oo2dz
/* Declare internal variables */
CCTK_REAL DZDK_OO2DZ
/* Declare output variables */
CCTK_REAL DZDK_DZDKXX
CCTK_REAL DZDK_DZDKXY
CCTK_REAL DZDK_DZDKXZ
CCTK_REAL DZDK_DZDKYY
CCTK_REAL DZDK_DZDKYZ
CCTK_REAL DZDK_DZDKZZ
#endif
#ifdef CCODE
/* Input variables */
#undef DZDK_KXX_KP
#define DZDK_KXX_KP kxx[ dk+ijk]
#undef DZDK_KXX_KM
#define DZDK_KXX_KM kxx[-dk+ijk]
#undef DZDK_KXY_KP
#define DZDK_KXY_KP kxy[ dk+ijk]
#undef DZDK_KXY_KM
#define DZDK_KXY_KM kxy[-dk+ijk]
#undef DZDK_KXZ_KP
#define DZDK_KXZ_KP kxz[ dk+ijk]
#undef DZDK_KXZ_KM
#define DZDK_KXZ_KM kxz[-dk+ijk]
#undef DZDK_KYY_KP
#define DZDK_KYY_KP kyy[ dk+ijk]
#undef DZDK_KYY_KM
#define DZDK_KYY_KM kyy[-dk+ijk]
#undef DZDK_KYZ_KP
#define DZDK_KYZ_KP kyz[ dk+ijk]
#undef DZDK_KYZ_KM
#define DZDK_KYZ_KM kyz[-dk+ijk]
#undef DZDK_KZZ_KP
#define DZDK_KZZ_KP kzz[ dk+ijk]
#undef DZDK_KZZ_KM
#define DZDK_KZZ_KM kzz[-dk+ijk]
/* Output variables */
#undef DZDK_DZDKXX
#define DZDK_DZDKXX dzdk_dzdkxx
#undef DZDK_DZDKXY
#define DZDK_DZDKXY dzdk_dzdkxy
#undef DZDK_DZDKXZ
#define DZDK_DZDKXZ dzdk_dzdkxz
#undef DZDK_DZDKYY
#define DZDK_DZDKYY dzdk_dzdkyy
#undef DZDK_DZDKYZ
#define DZDK_DZDKYZ dzdk_dzdkyz
#undef DZDK_DZDKZZ
#define DZDK_DZDKZZ dzdk_dzdkzz
/* Internal variables */
#undef DZDK_OO2DZ
#define DZDK_OO2DZ dzdk_oo2dz
/* Declare internal variables */
double DZDK_OO2DZ;
/* Declare output variables */
double DZDK_DZDKXX;
double DZDK_DZDKXY;
double DZDK_DZDKXZ;
double DZDK_DZDKYY;
double DZDK_DZDKYZ;
double DZDK_DZDKZZ;
#endif
#endif
|