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 CDXCDK_declare.h
@date Aug 98
@author Gabrielle Allen
@desc
Declarations for macro to compute first conformal
derivatives of the extrinsic curvature with respect to x
@enddesc
@@*/
#ifndef CDXCDK_DECLARE
#define CDXCDK_DECLARE
#include "CactusEinstein/Einstein/src/macro/DXDK_declare.h"
#include "CactusEinstein/Einstein/src/macro/CHR2_declare.h"
#ifdef FCODE
/* Input variables */
#undef CDXCDK_KXX
#define CDXCDK_KXX kxx(i,j,k)
#undef CDXCDK_KXY
#define CDXCDK_KXY kxy(i,j,k)
#undef CDXCDK_KXZ
#define CDXCDK_KXZ kxz(i,j,k)
#undef CDXCDK_KYY
#define CDXCDK_KYY kyy(i,j,k)
#undef CDXCDK_KYZ
#define CDXCDK_KYZ kyz(i,j,k)
#undef CDXCDK_KZZ
#define CDXCDK_KZZ kzz(i,j,k)
/* Output variables */
#undef CDXCDK_CDXCDKXX
#define CDXCDK_CDXCDKXX cdxcdk_cdxcdkxx
#undef CDXCDK_CDXCDKXY
#define CDXCDK_CDXCDKXY cdxcdk_cdxcdkxy
#undef CDXCDK_CDXCDKXZ
#define CDXCDK_CDXCDKXZ cdxcdk_cdxcdkxz
#undef CDXCDK_CDXCDKYY
#define CDXCDK_CDXCDKYY cdxcdk_cdxcdkyy
#undef CDXCDK_CDXCDKYZ
#define CDXCDK_CDXCDKYZ cdxcdk_cdxcdkyz
#undef CDXCDK_CDXCDKZZ
#define CDXCDK_CDXCDKZZ cdxcdk_cdxcdkzz
/* Declare output variables */
CCTK_REAL CDXCDK_CDXCDKXX
CCTK_REAL CDXCDK_CDXCDKXY
CCTK_REAL CDXCDK_CDXCDKXZ
CCTK_REAL CDXCDK_CDXCDKYY
CCTK_REAL CDXCDK_CDXCDKYZ
CCTK_REAL CDXCDK_CDXCDKZZ
#endif
#ifdef CCODE
/* Input variables */
#undef CDXCDK_KXX
#define CDXCDK_KXX kxx[ijk]
#undef CDXCDK_KXY
#define CDXCDK_KXY kxy[ijk]
#undef CDXCDK_KXZ
#define CDXCDK_KXZ kxz[ijk]
#undef CDXCDK_KYY
#define CDXCDK_KYY kyy[ijk]
#undef CDXCDK_KYZ
#define CDXCDK_KYZ kyz[ijk]
#undef CDXCDK_KZZ
#define CDXCDK_KZZ kzz[ijk]
/* Output variables */
#undef CDXCDK_CDXCDKXX
#define CDXCDK_CDXCDKXX cdxcdk_cdxcdkxx
#undef CDXCDK_CDXCDKXY
#define CDXCDK_CDXCDKXY cdxcdk_cdxcdkxy
#undef CDXCDK_CDXCDKXZ
#define CDXCDK_CDXCDKXZ cdxcdk_cdxcdkxz
#undef CDXCDK_CDXCDKYY
#define CDXCDK_CDXCDKYY cdxcdk_cdxcdkyy
#undef CDXCDK_CDXCDKYZ
#define CDXCDK_CDXCDKYZ cdxcdk_cdxcdkyz
#undef CDXCDK_CDXCDKZZ
#define CDXCDK_CDXCDKZZ cdxcdk_cdxcdkzz
/* Declare output variables */
double CDXCDK_CDXCDKXX;
double CDXCDK_CDXCDKXY;
double CDXCDK_CDXCDKXZ;
double CDXCDK_CDXCDKYY;
double CDXCDK_CDXCDKYZ;
double CDXCDK_CDXCDKZZ;
#endif
#endif
|