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
136
|
/*@@
@header DZDCG_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Declarations for macro @seefile DZDCG_guts.h to compute first
derivatives of the conformal metric with respect to z
@enddesc
@@*/
#ifndef DZDCG_DECLARE
#ifdef FCODE
/* Input variables */
#undef DZDCG_GXX_KP
#define DZDCG_GXX_KP gxx(i,j,k+1)
#undef DZDCG_GXX_KM
#define DZDCG_GXX_KM gxx(i,j,k-1)
#undef DZDCG_GXY_KP
#define DZDCG_GXY_KP gxy(i,j,k+1)
#undef DZDCG_GXY_KM
#define DZDCG_GXY_KM gxy(i,j,k-1)
#undef DZDCG_GXZ_KP
#define DZDCG_GXZ_KP gxz(i,j,k+1)
#undef DZDCG_GXZ_KM
#define DZDCG_GXZ_KM gxz(i,j,k-1)
#undef DZDCG_GYY_KP
#define DZDCG_GYY_KP gyy(i,j,k+1)
#undef DZDCG_GYY_KM
#define DZDCG_GYY_KM gyy(i,j,k-1)
#undef DZDCG_GYZ_KP
#define DZDCG_GYZ_KP gyz(i,j,k+1)
#undef DZDCG_GYZ_KM
#define DZDCG_GYZ_KM gyz(i,j,k-1)
#undef DZDCG_GZZ_KP
#define DZDCG_GZZ_KP gzz(i,j,k+1)
#undef DZDCG_GZZ_KM
#define DZDCG_GZZ_KM gzz(i,j,k-1)
/* Output variables */
#undef DZDCG_DZDCGXX
#define DZDCG_DZDCGXX delgb311
#undef DZDCG_DZDCGXY
#define DZDCG_DZDCGXY delgb312
#undef DZDCG_DZDCGXZ
#define DZDCG_DZDCGXZ delgb313
#undef DZDCG_DZDCGYY
#define DZDCG_DZDCGYY delgb322
#undef DZDCG_DZDCGYZ
#define DZDCG_DZDCGYZ delgb323
#undef DZDCG_DZDCGZZ
#define DZDCG_DZDCGZZ delgb333
/* Internal variables */
#undef DZDCG_DZ
#define DZDCG_DZ dz
#undef DZDCG_OO2DZ
#define DZDCG_OO2DZ cdzdg_oo2dz
/* Declare internal variables */
CCTK_REAL DZDCG_OO2DZ
/* Declare output variables */
CCTK_REAL DZDCG_DZDCGXX
CCTK_REAL DZDCG_DZDCGXY
CCTK_REAL DZDCG_DZDCGXZ
CCTK_REAL DZDCG_DZDCGYY
CCTK_REAL DZDCG_DZDCGYZ
CCTK_REAL DZDCG_DZDCGZZ
#endif
#ifdef CCODE
/* Input variables */
#undef DZDCG_GXX_KP
#define DZDCG_GXX_KP gxx[ dk+ijk]
#undef DZDCG_GXX_KM
#define DZDCG_GXX_KM gxx[-dk+ijk]
#undef DZDCG_GXY_KP
#define DZDCG_GXY_KP gxy[ dk+ijk]
#undef DZDCG_GXY_KM
#define DZDCG_GXY_KM gxy[-dk+ijk]
#undef DZDCG_GXZ_KP
#define DZDCG_GXZ_KP gxz[ dk+ijk]
#undef DZDCG_GXZ_KM
#define DZDCG_GXZ_KM gxz[-dk+ijk]
#undef DZDCG_GYY_KP
#define DZDCG_GYY_KP gyy[ dk+ijk]
#undef DZDCG_GYY_KM
#define DZDCG_GYY_KM gyy[-dk+ijk]
#undef DZDCG_GYZ_KP
#define DZDCG_GYZ_KP gyz[ dk+ijk]
#undef DZDCG_GYZ_KM
#define DZDCG_GYZ_KM gyz[-dk+ijk]
#undef DZDCG_GZZ_KP
#define DZDCG_GZZ_KP gzz[ dk+ijk]
#undef DZDCG_GZZ_KM
#define DZDCG_GZZ_KM gzz[-dk+ijk]
/* Output variables */
#undef DZDCG_DZDCGXX
#define DZDCG_DZDCGXX delgb311
#undef DZDCG_DZDCGXY
#define DZDCG_DZDCGXY delgb312
#undef DZDCG_DZDCGXZ
#define DZDCG_DZDCGXZ delgb313
#undef DZDCG_DZDCGYY
#define DZDCG_DZDCGYY delgb322
#undef DZDCG_DZDCGYZ
#define DZDCG_DZDCGYZ delgb323
#undef DZDCG_DZDCGZZ
#define DZDCG_DZDCGZZ delgb333
/* Internal variables */
#undef DZDCG_OO2DZ
#define DZDCG_OO2DZ cdzdg_oo2dz
/* Declare internal variables */
double DZDCG_OO2DZ;
/* Declare output variables */
double DZDCG_DZDCGXX;
double DZDCG_DZDCGXY;
double DZDCG_DZDCGXZ;
double DZDCG_DZDCGYY;
double DZDCG_DZDCGYZ;
double DZDCG_DZDCGZZ;
#endif
#define DZDCG_DECLARE
#endif
|