blob: 705072287ac2f816fc87be0ab4d175f3dcb5cd0e (
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
|
/*@@
@header WAVEG_declare.h
@date Nov 98
@author Gabrielle Allen
@desc
Macro to calculate wave operator acting on the metric
That is g^lm g_ij,lm
@enddesc
@@*/
#ifndef WAVEG_DECLARE
#define WAVEG_DECLARE
#include "UPPERMET_declare.h"
#include "DDG_declare.h"
/* Output variables */
#undef WAVEG_DDGXX
#define WAVEG_DDGXX waveg_ddgxx
#undef WAVEG_DDGXY
#define WAVEG_DDGXY waveg_ddgxy
#undef WAVEG_DDGXZ
#define WAVEG_DDGXZ waveg_ddgxz
#undef WAVEG_DDGYY
#define WAVEG_DDGYY waveg_ddgyy
#undef WAVEG_DDGYZ
#define WAVEG_DDGYZ waveg_ddgyz
#undef WAVEG_DDGZZ
#define WAVEG_DDGZZ waveg_ddgzz
#ifdef FCODE
CCTK_REAL WAVEG_DDGXX
CCTK_REAL WAVEG_DDGXY
CCTK_REAL WAVEG_DDGXZ
CCTK_REAL WAVEG_DDGYY
CCTK_REAL WAVEG_DDGYZ
CCTK_REAL WAVEG_DDGZZ
#endif
#ifdef CCODE
double WAVEG_DDGXX
double WAVEG_DDGXY
double WAVEG_DDGXZ
double WAVEG_DDGYY
double WAVEG_DDGYZ
double WAVEG_DDGZZ
#endif
#endif
|
