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
|
/*@@
@header DETG_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Determinants of physical and conformal 3-metric
@enddesc
@@*/
#ifndef DETG_DECLARE
#define DETG_DECLARE
#ifdef FCODE
/* Input variables */
#undef DETG_PSI
#define DETG_PSI psi(i,j,k)
#undef DETG_GXX
#define DETG_GXX gxx(i,j,k)
#undef DETG_GXY
#define DETG_GXY gxy(i,j,k)
#undef DETG_GXZ
#define DETG_GXZ gxz(i,j,k)
#undef DETG_GYY
#define DETG_GYY gyy(i,j,k)
#undef DETG_GYZ
#define DETG_GYZ gyz(i,j,k)
#undef DETG_GZZ
#define DETG_GZZ gzz(i,j,k)
/* Output variables */
#undef DETG_DETG
#define DETG_DETG detg_detg
#undef DETG_DETCG
#define DETG_DETCG detg_detcg
/* Temporary variables */
#undef DETG_PSI4
#define DETG_PSI4 detg_psi4
#undef DETG_TEMPXX
#define DETG_TEMPXX detg_tempxx
#undef DETG_TEMPXY
#define DETG_TEMPXY detg_tempxy
#undef DETG_TEMPXZ
#define DETG_TEMPXZ detg_tempxz
#undef DETG_TEMPYY
#define DETG_TEMPYY detg_tempyy
#undef DETG_TEMPYZ
#define DETG_TEMPYZ detg_tempyz
#undef DETG_TEMPZZ
#define DETG_TEMPZZ detg_tempzz
/* Declare internal variables */
CCTK_REAL DETG_PSI4
CCTK_REAL DETG_TEMPXX,DETG_TEMPXY,DETG_TEMPXZ
CCTK_REAL DETG_TEMPYY,DETG_TEMPYZ,DETG_TEMPZZ
/* Declare output variables */
CCTK_REAL DETG_DETG, DETG_DETCG
#endif
#ifdef CCODE
/* Input variables */
#undef DETG_PSI
#define DETG_PSI psi[ijk]
#undef DETG_GXX
#define DETG_GXX gxx[ijk]
#undef DETG_GXY
#define DETG_GXY gxy[ijk]
#undef DETG_GXZ
#define DETG_GXZ gxz[ijk]
#undef DETG_GYY
#define DETG_GYY gyy[ijk]
#undef DETG_GYZ
#define DETG_GYZ gyz[ijk]
#undef DETG_GZZ
#define DETG_GZZ gzz[ijk]
/* Output variables */
#undef DETG_DETG
#define DETG_DETG detg_detg
#undef DETG_DETCG
#define DETG_DETCG detg_detcg
/* Internal variables */
#undef DETG_PSI4
#define DETG_PSI4 detg_psi4
#undef DETG_TEMPXX
#define DETG_TEMPXX detg_tempxx
#undef DETG_TEMPXY
#define DETG_TEMPXY detg_tempxy
#undef DETG_TEMPXZ
#define DETG_TEMPXZ detg_tempxz
#undef DETG_TEMPYY
#define DETG_TEMPYY detg_tempyy
#undef DETG_TEMPYZ
#define DETG_TEMPYZ detg_tempyz
#undef DETG_TEMPZZ
#define DETG_TEMPZZ detg_tempzz
/* Declare internal variables */
double DETG_PSI4;
double DETG_TEMPXX;
double DETG_TEMPXY;
double DETG_TEMPXZ;
double DETG_TEMPYY;
double DETG_TEMPYZ;
double DETG_TEMPZZ;
/* Declare output variables */
double DETG_DETG;
double DETG_DETCG;
#endif
#endif
|