blob: 18f7f8a6ad47d0f328902be62f18cba16e607299 (
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
|
/*@@
@header UPPERMET_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Declarations for macro to calculate the components of the upper
physical metric.
@enddesc
@@*/
#ifndef UPPERMET_DECLARE
#define UPPERMET_DECLARE
#include "DETG_declare.h"
#ifdef FCODE
/* Output variables */
#undef UPPERMET_UXX
#define UPPERMET_UXX uppermet_uxx
#undef UPPERMET_UXY
#define UPPERMET_UXY uppermet_uxy
#undef UPPERMET_UXZ
#define UPPERMET_UXZ uppermet_uxz
#undef UPPERMET_UYY
#define UPPERMET_UYY uppermet_uyy
#undef UPPERMET_UYZ
#define UPPERMET_UYZ uppermet_uyz
#undef UPPERMET_UZZ
#define UPPERMET_UZZ uppermet_uzz
/* Temporary variables */
#undef UPPERMET_PSI4DET
#define UPPERMET_PSI4DET uppermet_fdet
/* Declare internal variables */
CCTK_REAL UPPERMET_PSI4DET
/* Declare output variables */
CCTK_REAL UPPERMET_UXX, UPPERMET_UXY, UPPERMET_UXZ
CCTK_REAL UPPERMET_UYY, UPPERMET_UYZ, UPPERMET_UZZ
#endif
#ifdef CCODE
/* Output variables */
#undef UPPERMET_UXX
#define UPPERMET_UXX uppermet_uxx
#undef UPPERMET_UXY
#define UPPERMET_UXY uppermet_uxy
#undef UPPERMET_UXZ
#define UPPERMET_UXZ uppermet_uxz
#undef UPPERMET_UYY
#define UPPERMET_UYY uppermet_uyy
#undef UPPERMET_UYZ
#define UPPERMET_UYZ uppermet_uyz
#undef UPPERMET_UZZ
#define UPPERMET_UZZ uppermet_uzz
/* Internal variables */
#undef UPPERMET_PSI4DET
#define UPPERMET_PSI4DET uppermet_psi4detg
/* Declare internal variables */
CCTK_REAL UPPERMET_PSI4DET;
/* Declare output variables */
CCTK_REAL UPPERMET_UXX;
CCTK_REAL UPPERMET_UXY;
CCTK_REAL UPPERMET_UXZ;
CCTK_REAL UPPERMET_UYY;
CCTK_REAL UPPERMET_UYZ;
CCTK_REAL UPPERMET_UZZ;
#endif
/* Symmetries */
#undef UPPERMET_UYX
#define UPPERMET_UYX UPPERMET_UXY
#undef UPPERMET_UZX
#define UPPERMET_UZX UPPERMET_UXZ
#undef UPPERMET_UZY
#define UPPERMET_UZY UPPERMET_UYZ
#endif
|
