blob: 00d5f35d04ea594e6a6606045c6e17fb3ebf4260 (
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
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
|
/*@@
@header TRT_guts.h
@date Jun 98
@author Gabrielle Allen
@desc
Declarations for macro to calculate the trace of the
(4-)stress-energy tensor
@enddesc
@@*/
#ifndef TRT_DECLARE
#define TRT_DECLARE
#include "UPPERMET_declare.h"
#ifdef FCODE
/* Input variables */
#undef TRT_TTT
#define TRT_TTT Ttt
#undef TRT_TTX
#define TRT_TTX Ttx
#undef TRT_TTY
#define TRT_TTY Tty
#undef TRT_TTZ
#define TRT_TTZ Ttz
#undef TRT_TXX
#define TRT_TXX Txx
#undef TRT_TXY
#define TRT_TXY Txy
#undef TRT_TXZ
#define TRT_TXZ Txz
#undef TRT_TYY
#define TRT_TYY Tyy
#undef TRT_TYZ
#define TRT_TYZ Tyz
#undef TRT_TZZ
#define TRT_TZZ Tzz
#undef TRT_ALP
#define TRT_ALP alp(i,j,k)
#undef TRT_BX
#define TRT_BX betax(i,j,k)
#undef TRT_BY
#define TRT_BY betay(i,j,k)
#undef TRT_BZ
#define TRT_BZ betaz(i,j,k)
/* Temporary variables */
#undef TRT_IALP2
#define TRT_IALP2 trt_ialp2
/* Output variables */
#undef TRT_TRT
#define TRT_TRT trt_trt
/* Declare temporary variables */
CCTK_REAL TRT_IALP2
/* Declare output variables */
CCTK_REAL TRT_TRT
#endif
#ifdef CCODE
/* Input variables */
#undef TRT_TTT
#define TRT_TTT Ttt
#undef TRT_TTX
#define TRT_TTX Ttx
#undef TRT_TTY
#define TRT_TTY Tty
#undef TRT_TTZ
#define TRT_TTZ Ttz
#undef TRT_TXX
#define TRT_TXX Txx
#undef TRT_TXY
#define TRT_TXY Txy
#undef TRT_TXZ
#define TRT_TXZ Txz
#undef TRT_TYY
#define TRT_TYY Tyy
#undef TRT_TYZ
#define TRT_TYZ Tyz
#undef TRT_TZZ
#define TRT_TZZ Tzz
#undef TRT_ALP
#define TRT_ALP alp[ijk]
#undef TRT_BX
#define TRT_BX betax[ijk]
#undef TRT_BY
#define TRT_BY betay[ijk]
#undef TRT_BZ
#define TRT_BZ betaz[ijk]
/* Temporary variables */
#undef TRT_IALP2
#define TRT_IALP2 trt_ialp2
/* Output variables */
#undef TRT_TRT
#define TRT_TRT trt_trt
/* Declare temporary variables */
double TRT_IALP2;
/* Declare output variables */
double TRT_TR;
#endif
#endif
|
