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
|
/*@@
@header DZDG_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Declarations for macro @seefile DZDG_guts.h to compute first
derivatives of the physical metric with respect to y
@enddesc
@@*/
#ifndef DZDG_DECLARE
#define DZDG_DECLARE
#include "DZDCG_declare.h"
#ifdef FCODE
/* Input variables */
#undef DZDG_PSI
#define DZDG_PSI psi(i,j,k)
#undef DZDG_DZDPSI_O_PSI
#define DZDG_DZDPSI_O_PSI psiz(i,j,k)
#undef DZDG_GXX
#define DZDG_GXX gxx(i,j,k)
#undef DZDG_GXY
#define DZDG_GXY gxy(i,j,k)
#undef DZDG_GXZ
#define DZDG_GXZ gxz(i,j,k)
#undef DZDG_GYY
#define DZDG_GYY gyy(i,j,k)
#undef DZDG_GYZ
#define DZDG_GYZ gyz(i,j,k)
#undef DZDG_GZZ
#define DZDG_GZZ gzz(i,j,k)
/* Output variables */
#undef DZDG_DZDGXX
#define DZDG_DZDGXX dzdgxx
#undef DZDG_DZDGXY
#define DZDG_DZDGXY dzdgxy
#undef DZDG_DZDGXZ
#define DZDG_DZDGXZ dzdgxz
#undef DZDG_DZDGYY
#define DZDG_DZDGYY dzdgyy
#undef DZDG_DZDGYZ
#define DZDG_DZDGYZ dzdgyz
#undef DZDG_DZDGZZ
#define DZDG_DZDGZZ dzdgzz
/* Internal variables */
#undef DZDG_PSI4
#define DZDG_PSI4 dzdg_psi4
#undef DZDG_FAC
#define DZDG_FAC dzdg_fac
/* Declare internal variables */
CCTK_REAL DZDG_PSI4;
CCTK_REAL DZDG_FAC;
/* Declare output variables */
CCTK_REAL DZDG_DZDGXX;
CCTK_REAL DZDG_DZDGXY;
CCTK_REAL DZDG_DZDGXZ;
CCTK_REAL DZDG_DZDGYY;
CCTK_REAL DZDG_DZDGYZ;
CCTK_REAL DZDG_DZDGZZ;
#endif
#ifdef CCODE
/* Output variables */
#undef DZDG_DZDGXX
#define DZDG_DZDGXX delg311
#undef DZDG_DZDGXY
#define DZDG_DZDGXY delg312
#undef DZDG_DZDGXZ
#define DZDG_DZDGXZ delg313
#undef DZDG_DZDGYY
#define DZDG_DZDGYY delg322
#undef DZDG_DZDGYZ
#define DZDG_DZDGYZ delg323
#undef DZDG_DZDGZZ
#define DZDG_DZDGZZ delg333
/* Input variables */
#undef DZDG_PSI
#define DZDG_PSI psi[ijk]
#undef DZDG_DZDPSI_O_PSI
#define DZDG_DZDPSI_O_PSI psiz[ijk]
#undef DZDG_GXX
#define DZDG_GXX gxx[ijk]
#undef DZDG_GXY
#define DZDG_GXY gxy[ijk]
#undef DZDG_GXZ
#define DZDG_GXZ gxz[ijk]
#undef DZDG_GYY
#define DZDG_GYY gyy[ijk]
#undef DZDG_GYZ
#define DZDG_GYZ gyz[ijk]
#undef DZDG_GZZ
#define DZDG_GZZ gzz[ijk]
/* Internal variables */
#undef DZDG_PSI4
#define DZDG_PSI4 dzdg_psi4
#undef DZDG_FAC
#define DZDG_FAC dzdg_fac
/* Declare internal variables */
double DZDG_PSI4;
double DZDG_FAC;
/* Declare output variables */
double DZDG_DZDGXX;
double DZDG_DZDGXY;
double DZDG_DZDGXZ;
double DZDG_DZDGYY;
double DZDG_DZDGYZ;
double DZDG_DZDGZZ;
#endif
#endif
|
