blob: ec1f8feb1b865540842c34dd9b5a03ff0a726d17 (
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
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/*@@
@header RICCI_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Macro to calculate the components of the Ricci tensor.
Requires: Second derivatives of physical metric
Christoffel symbols of first kind
Christoffel symbols of second kind
Upper physical metric
Provides: Components of the physical Ricci tensor
@enddesc
@@*/
#ifndef RICCI_DECLARE
#include "UPPERMET_declare.h"
#include "DDG_declare.h"
#include "CHR1_declare.h"
#include "CHR2_declare.h"
#ifdef FCODE
/* Output variables */
#undef RICCI_RXX
#define RICCI_RXX ricci_R11
#undef RICCI_RXY
#define RICCI_RXY ricci_R12
#undef RICCI_RXZ
#define RICCI_RXZ ricci_R13
#undef RICCI_RYY
#define RICCI_RYY ricci_R22
#undef RICCI_RYZ
#define RICCI_RYZ ricci_R23
#undef RICCI_RZZ
#define RICCI_RZZ ricci_R33
/* Declare output variables */
CCTK_REAL RICCI_RXX
CCTK_REAL RICCI_RXY
CCTK_REAL RICCI_RXZ
CCTK_REAL RICCI_RYY
CCTK_REAL RICCI_RYZ
CCTK_REAL RICCI_RZZ
#endif
#ifdef CCODE
/* Output variables */
#undef RICCI_RXX
#define RICCI_RXX ricci_R11
#undef RICCI_RXY
#define RICCI_RXY ricci_R12
#undef RICCI_RXZ
#define RICCI_RXZ ricci_R13
#undef RICCI_RYY
#define RICCI_RYY ricci_R22
#undef RICCI_RYZ
#define RICCI_RYZ ricci_R23
#undef RICCI_RZZ
#define RICCI_RZZ ricci_R33
/* Declare output variables */
CCTK_REAL RICCI_RXX;
CCTK_REAL RICCI_RXY;
CCTK_REAL RICCI_RXZ;
CCTK_REAL RICCI_RYY;
CCTK_REAL RICCI_RYZ;
CCTK_REAL RICCI_RZZ;
#endif
#define RICCI_DECLARE
#endif
|
