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
|
/*@@
@header CDZCDK_declare.h
@date Aug 98
@author Gabrielle Allen
@desc
Declarations for macro to compute first conformal
derivatives of the extrinsic curvature with respect to z
@enddesc
@@*/
#ifndef CDZCDK_DECLARE
#define CDZCDK_DECLARE
#include "../../packages/CactusEinstein/Einstein/src/macro/DZDK_declare.h"
#include "../../packages/CactusEinstein/Einstein/src/macro/CHR2_declare.h"
#ifdef FCODE
/* Input variables */
#undef CDZCDK_KXX
#define CDZCDK_KXX hxx(i,j,k)
#undef CDZCDK_KXY
#define CDZCDK_KXY hxy(i,j,k)
#undef CDZCDK_KXZ
#define CDZCDK_KXZ hxz(i,j,k)
#undef CDZCDK_KYY
#define CDZCDK_KYY hyy(i,j,k)
#undef CDZCDK_KYZ
#define CDZCDK_KYZ hyz(i,j,k)
#undef CDZCDK_KZZ
#define CDZCDK_KZZ hzz(i,j,k)
/* Output variables */
#undef CDZCDK_CDZCDKXX
#define CDZCDK_CDZCDKXX cdzcdk_cdzcdkxx
#undef CDZCDK_CDZCDKXY
#define CDZCDK_CDZCDKXY cdzcdk_cdzcdkxy
#undef CDZCDK_CDZCDKXZ
#define CDZCDK_CDZCDKXZ cdzcdk_cdzcdkxz
#undef CDZCDK_CDZCDKYY
#define CDZCDK_CDZCDKYY cdzcdk_cdzcdkyy
#undef CDZCDK_CDZCDKYZ
#define CDZCDK_CDZCDKYZ cdzcdk_cdzcdkyz
#undef CDZCDK_CDZCDKZZ
#define CDZCDK_CDZCDKZZ cdzcdk_cdzcdkzz
/* Declare output variables */
REAL CDZCDK_CDZCDKXX
REAL CDZCDK_CDZCDKXY
REAL CDZCDK_CDZCDKXZ
REAL CDZCDK_CDZCDKYY
REAL CDZCDK_CDZCDKYZ
REAL CDZCDK_CDZCDKZZ
#endif
#ifdef CCODE
/* Input variables */
#undef CDZCDK_KXX
#define CDZCDK_KXX hxx[ijk]
#undef CDZCDK_KXY
#define CDZCDK_KXY hxy[ijk]
#undef CDZCDK_KXZ
#define CDZCDK_KXZ hxz[ijk]
#undef CDZCDK_KYY
#define CDZCDK_KYY hyy[ijk]
#undef CDZCDK_KYZ
#define CDZCDK_KYZ hyz[ijk]
#undef CDZCDK_KZZ
#define CDZCDK_KZZ hzz[ijk]
/* Output variables */
#undef CDZCDK_CDZCDKXX
#define CDZCDK_CDZCDKXX cdzcdk_cdzcdkxx
#undef CDZCDK_CDZCDKXY
#define CDZCDK_CDZCDKXY cdzcdk_cdzcdkxy
#undef CDZCDK_CDZCDKXZ
#define CDZCDK_CDZCDKXZ cdzcdk_cdzcdkxz
#undef CDZCDK_CDZCDKYY
#define CDZCDK_CDZCDKYY cdzcdk_cdzcdkyy
#undef CDZCDK_CDZCDKYZ
#define CDZCDK_CDZCDKYZ cdzcdk_cdzcdkyz
#undef CDZCDK_CDZCDKZZ
#define CDZCDK_CDZCDKZZ cdzcdk_cdzcdkzz
/* Declare output variables */
double CDZCDK_CDZCDKXX;
double CDZCDK_CDZCDKXY;
double CDZCDK_CDZCDKXZ;
double CDZCDK_CDZCDKYY;
double CDZCDK_CDZCDKYZ;
double CDZCDK_CDZCDKZZ;
#endif
#endif
|
