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 hxx(i,j,k+1)
#undef DZDK_KXX_KM
#define DZDK_KXX_KM hxx(i,j,k-1)
#undef DZDK_KXY_KP
#define DZDK_KXY_KP hxy(i,j,k+1)
#undef DZDK_KXY_KM
#define DZDK_KXY_KM hxy(i,j,k-1)
#undef DZDK_KXZ_KP
#define DZDK_KXZ_KP hxz(i,j,k+1)
#undef DZDK_KXZ_KM
#define DZDK_KXZ_KM hxz(i,j,k-1)
#undef DZDK_KYY_KP
#define DZDK_KYY_KP hyy(i,j,k+1)
#undef DZDK_KYY_KM
#define DZDK_KYY_KM hyy(i,j,k-1)
#undef DZDK_KYZ_KP
#define DZDK_KYZ_KP hyz(i,j,k+1)
#undef DZDK_KYZ_KM
#define DZDK_KYZ_KM hyz(i,j,k-1)
#undef DZDK_KZZ_KP
#define DZDK_KZZ_KP hzz(i,j,k+1)
#undef DZDK_KZZ_KM
#define DZDK_KZZ_KM hzz(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 */
REAL DZDK_OO2DZ
/* Declare output variables */
REAL DZDK_DZDKXX
REAL DZDK_DZDKXY
REAL DZDK_DZDKXZ
REAL DZDK_DZDKYY
REAL DZDK_DZDKYZ
REAL DZDK_DZDKZZ
#endif
#ifdef CCODE
/* Input variables */
#undef DZDK_KXX_KP
#define DZDK_KXX_KP hxx[ dk+ijk]
#undef DZDK_KXX_KM
#define DZDK_KXX_KM hxx[-dk+ijk]
#undef DZDK_KXY_KP
#define DZDK_KXY_KP hxy[ dk+ijk]
#undef DZDK_KXY_KM
#define DZDK_KXY_KM hxy[-dk+ijk]
#undef DZDK_KXZ_KP
#define DZDK_KXZ_KP hxz[ dk+ijk]
#undef DZDK_KXZ_KM
#define DZDK_KXZ_KM hxz[-dk+ijk]
#undef DZDK_KYY_KP
#define DZDK_KYY_KP hyy[ dk+ijk]
#undef DZDK_KYY_KM
#define DZDK_KYY_KM hyy[-dk+ijk]
#undef DZDK_KYZ_KP
#define DZDK_KYZ_KP hyz[ dk+ijk]
#undef DZDK_KYZ_KM
#define DZDK_KYZ_KM hyz[-dk+ijk]
#undef DZDK_KZZ_KP
#define DZDK_KZZ_KP hzz[ dk+ijk]
#undef DZDK_KZZ_KM
#define DZDK_KZZ_KM hzz[-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
|