blob: 7d59d68eb3f3da9b326dd3ef59938f8a36949abe (
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
|
/*@@
@header GAMMA_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Macro to calculate Gauge Source Functions (Gammas)
That is GAMMA_a = g^bc CHR2_abc
@enddesc
@@*/
#ifndef GAMMA_DECLARE
#define GAMMA_DECLARE
#include "CactusEinstein/Einstein/src/macro/CHR2_declare.h"
#include "CactusEinstein/Einstein/src/macro/UPPERMET_declare.h"
#ifdef FCODE
/* Output variables */
#undef GAMMA_GAMMAX
#define GAMMA_GAMMAX gamma_gammax
#undef GAMMA_GAMMAY
#define GAMMA_GAMMAY gamma_gammay
#undef GAMMA_GAMMAZ
#define GAMMA_GAMMAZ gamma_gammaz
/* Declare output variables */
CCTK_REAL GAMMA_GAMMAX
CCTK_REAL GAMMA_GAMMAY
CCTK_REAL GAMMA_GAMMAZ
#endif
#ifdef CCODE
/* Output variables */
#undef GAMMA_GAMMAX
#define GAMMA_GAMMAX gamma_gammax
#undef GAMMA_GAMMAY
#define GAMMA_GAMMAY gamma_gammay
#undef GAMMA_GAMMAZ
#define GAMMA_GAMMAZ gamma_gammaz
/* Declare output variables */
double GAMMA_GAMMAX;
double GAMMA_GAMMAY;
double GAMMA_GAMMAZ;
#endif
#endif
|