blob: 95eb7c0b02a32ccc6edaad7ab063e42650c80c8f (
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
|
/*@@
@header DXXDG_declare.h
@date Jun 98
@author Gabrielle Allen
@desc
Declarations for macro to calculate the (first and) second derivatives
of the physical metric with respect to x
The macro uses @seefile DXDG_guts.h and @seefile DXDG_declare.h
@enddesc
@@*/
#ifndef DXXDG_DECLARE
#define DXXDG_DECLARE
#include "DXDG_declare.h"
#ifdef FCODE
/* Output variables */
#undef DXXDG_DXXDGXX
#define DXXDG_DXXDGXX dxxdgxx
#undef DXXDG_DXXDGXY
#define DXXDG_DXXDGXY dxxdgxy
#undef DXXDG_DXXDGXZ
#define DXXDG_DXXDGXZ dxxdgxz
#undef DXXDG_DXXDGYY
#define DXXDG_DXXDGYY dxxdgyy
#undef DXXDG_DXXDGYZ
#define DXXDG_DXXDGYZ dxxdgyz
#undef DXXDG_DXXDGZZ
#define DXXDG_DXXDGZZ dxxdgzz
/* Internal variables */
#undef DXXDG_FAC
#define DXXDG_FAC dxxdg_fac
#undef DXXDG_OODX2
#define DXXDG_OODX2 dxxdg_oodx2
#undef DXXDG_DXXDPSI_O_PSI
#define DXXDG_DXXDPSI_O_PSI 0.
/* Declare internal variables */
CCTK_REAL DXXDG_FAC
CCTK_REAL DXXDG_OODX2
/* Declare output variables */
CCTK_REAL DXXDG_DXXDGXX
CCTK_REAL DXXDG_DXXDGXY
CCTK_REAL DXXDG_DXXDGXZ
CCTK_REAL DXXDG_DXXDGYY
CCTK_REAL DXXDG_DXXDGYZ
CCTK_REAL DXXDG_DXXDGZZ
#endif
#ifdef CCODE
/* Output variables */
#undef DXXDG_DXXDGXX
#define DXXDG_DXXDGXX deldelg1111
#undef DXXDG_DXXDGXY
#define DXXDG_DXXDGXY deldelg1112
#undef DXXDG_DXXDGXZ
#define DXXDG_DXXDGXZ deldelg1113
#undef DXXDG_DXXDGYY
#define DXXDG_DXXDGYY deldelg1122
#undef DXXDG_DXXDGYZ
#define DXXDG_DXXDGYZ deldelg1123
#undef DXXDG_DXXDGZZ
#define DXXDG_DXXDGZZ deldelg1133
/* Internal variables */
#undef DXXDG_FAC
#define DXXDG_FAC dxxdg_fac
#undef DXXDG_OODX2
#define DXXDG_OODX2 dxxdg_oodx2
#undef DXXDG_DXXDPSI_O_PSI
#define DXXDG_DXXDPSI_O_PSI 0.
/* Declare internal variables */
CCTK_REAL DXXDG_FAC;
CCTK_REAL DXXDG_OODX2 = 1/(cctkGH->cctk_delta_space[0]*cctkGH->cctk_delta_space[0]);
/*CCTK_REAL DXXDG_DXXDPSI_O_PSI;*/
/* Declare output variables */
CCTK_REAL DXXDG_DXXDGXX;
CCTK_REAL DXXDG_DXXDGXY;
CCTK_REAL DXXDG_DXXDGXZ;
CCTK_REAL DXXDG_DXXDGYY;
CCTK_REAL DXXDG_DXXDGYZ;
CCTK_REAL DXXDG_DXXDGZZ;
#endif
#endif
|
