blob: fcfb0aaf175fd23e846079e4cc6d70c191767564 (
plain)
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
|
/*@@
@header CDZCDK_guts.h
@date August 98
@author Gabrielle Allen
@desc
Macro to calculate the first covariant derivatives of the
extrinsic curvature with respect to y
@enddesc
@@*/
#ifndef CDZCDK_GUTS
#define CDZCDK_GUTS
#include "DZDK_guts.h"
#include "CHR2_guts.h"
#ifdef FCODE
CDZCDK_CDZCDKXX = DZDK_DZDKXX - 2D0*(CHR2_XXZ*CDZCDK_KXX + \
CHR2_YXZ*CDZCDK_KXY + CHR2_ZXZ*CDZCDK_KXZ)
CDZCDK_CDZCDKYY = DZDK_DZDKYY - 2D0*(CHR2_XYZ*CDZCDK_KXY + \
CHR2_YYZ*CDZCDK_KYY + CHR2_ZYZ*CDZCDK_KYZ)
CDZCDK_CDZCDKZZ = DZDK_DZDKZZ - 2D0*(CHR2_XZZ*CDZCDK_KXZ + \
CHR2_YZZ*CDZCDK_KYZ + CHR2_ZZZ*CDZCDK_KZZ)
CDZCDK_CDZCDKXY = DZDK_DZDKXY-(CHR2_XYZ*CDZCDK_KXX) - \
(CHR2_XXZ + CHR2_YYZ)*CDZCDK_KXY - CHR2_ZYZ*CDZCDK_KXZ - \
CHR2_YXZ*CDZCDK_KYY - CHR2_ZXZ*CDZCDK_KYZ
CDZCDK_CDZCDKXZ = DZDK_DZDKXZ-(CHR2_XZZ*CDZCDK_KXX) - \
CHR2_YZZ*CDZCDK_KXY - (CHR2_XXZ + CHR2_ZZZ)*CDZCDK_KXZ \
- CHR2_YXZ*CDZCDK_KYZ - CHR2_ZXZ*CDZCDK_KZZ
CDZCDK_CDZCDKYZ = DZDK_DZDKYZ-(CHR2_XZZ*CDZCDK_KXY) - \
CHR2_XYZ*CDZCDK_KXZ - CHR2_YZZ*CDZCDK_KYY - \
(CHR2_YYZ + CHR2_ZZZ)*CDZCDK_KYZ - CHR2_ZYZ*CDZCDK_KZZ
#endif
#ifdef CCODE
CDZCDK_CDZCDKXX = DZDK_DZDKXX - 2D0*(CHR2_XXZ*CDZCDK_KXX +
CHR2_YXZ*CDZCDK_KXY + CHR2_ZXZ*CDZCDK_KXZ);
CDZCDK_CDZCDKYY = DZDK_DZDKYY - 2D0*(CHR2_XYZ*CDZCDK_KXY +
CHR2_YYZ*CDZCDK_KYY + CHR2_ZYZ*CDZCDK_KYZ);
CDZCDK_CDZCDKZZ = DZDK_DZDKZZ - 2D0*(CHR2_XZZ*CDZCDK_KXZ +
CHR2_YZZ*CDZCDK_KYZ + CHR2_ZZZ*CDZCDK_KZZ);
CDZCDK_CDZCDKXY = DZDK_DZDKXY-(CHR2_XYZ*CDZCDK_KXX) -
(CHR2_XXZ + CHR2_YYZ)*CDZCDK_KXY - CHR2_ZYZ*CDZCDK_KXZ -
CHR2_YXZ*CDZCDK_KYY - CHR2_ZXZ*CDZCDK_KYZ;
CDZCDK_CDZCDKXZ = DZDK_DZDKXZ-(CHR2_XZZ*CDZCDK_KXX) -
CHR2_YZZ*CDZCDK_KXY - (CHR2_XXZ + CHR2_ZZZ)*CDZCDK_KXZ
- CHR2_YXZ*CDZCDK_KYZ - CHR2_ZXZ*CDZCDK_KZZ;
CDZCDK_CDZCDKYZ = DZDK_DZDKYZ-(CHR2_XZZ*CDZCDK_KXY) -
CHR2_XYZ*CDZCDK_KXZ - CHR2_YZZ*CDZCDK_KYY -
(CHR2_YYZ + CHR2_ZZZ)*CDZCDK_KYZ - CHR2_ZYZ*CDZCDK_KZZ;
#endif
#endif
|
