blob: 1d79c0a5d498fc4f561551f85888b3a996a4d381 (
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 "../../packages/CactusEinstein/Einstein/src/macro/CHR2_declare.h"
#include "../../packages/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 */
REAL GAMMA_GAMMAX
REAL GAMMA_GAMMAY
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
|