blob: fd94c08b300b3bfe6e180012532423b59b79fea5 (
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
|
/*@@
@header DZZDG_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 z
The macro uses @seefile DZDG_guts.h and @seefile DZDG_declare.h
@enddesc
@@*/
#ifndef DZZDG_DECLARE
#define DZZDG_DECLARE
#include "DZDG_declare.h"
#ifdef FCODE
/* Output variables */
#undef DZZDG_DZZDGXX
#define DZZDG_DZZDGXX dzzdgxx
#undef DZZDG_DZZDGXY
#define DZZDG_DZZDGXY dzzdgxy
#undef DZZDG_DZZDGXZ
#define DZZDG_DZZDGXZ dzzdgxz
#undef DZZDG_DZZDGYY
#define DZZDG_DZZDGYY dzzdgyy
#undef DZZDG_DZZDGYZ
#define DZZDG_DZZDGYZ dzzdgyz
#undef DZZDG_DZZDGZZ
#define DZZDG_DZZDGZZ dzzdgzz
/* Internal variables */
#undef DZZDG_FAC
#define DZZDG_FAC dzzdg_fac
#undef DZZDG_OODZ2
#define DZZDG_OODZ2 dzzdg_oodz2
#undef DZZDG_DZZDPSI_O_PSI
#define DZZDG_DZZDPSI_O_PSI psizz(i,j,k)
/* Declare internal variables */
CCTK_REAL DZZDG_FAC
CCTK_REAL DZZDG_OODZ2
/* Declare output variables */
CCTK_REAL DZZDG_DZZDGXX
CCTK_REAL DZZDG_DZZDGXY
CCTK_REAL DZZDG_DZZDGXZ
CCTK_REAL DZZDG_DZZDGYY
CCTK_REAL DZZDG_DZZDGYZ
CCTK_REAL DZZDG_DZZDGZZ
#endif
#ifdef CCODE
/* Output variables */
#undef DZZDG_DZZDGXX
#define DZZDG_DZZDGXX deldelg3311
#undef DZZDG_DZZDGXY
#define DZZDG_DZZDGXY deldelg3312
#undef DZZDG_DZZDGXZ
#define DZZDG_DZZDGXZ deldelg3313
#undef DZZDG_DZZDGYY
#define DZZDG_DZZDGYY deldelg3322
#undef DZZDG_DZZDGYZ
#define DZZDG_DZZDGYZ deldelg3323
#undef DZZDG_DZZDGZZ
#define DZZDG_DZZDGZZ deldelg3333
/* Internal variables */
#undef DZZDG_FAC
#define DZZDG_FAC dzzdg_fac
#undef DZZDG_OODZ2
#define DZZDG_OODZ2 dzzdg_oodz2
#undef DZZDG_DZZDPSI_O_PSI
#define DZZDG_DZZDPSI_O_PSI psizz[ijk]
/* Declare internal variables */
CCTK_REAL DZZDG_FAC;
CCTK_REAL DZZDG_OODZ2 = 1/(cctkGH->cctk_delta_space[2]*cctkGH->cctk_delta_space[2]);
/* Declare output variables */
CCTK_REAL DZZDG_DZZDGXX;
CCTK_REAL DZZDG_DZZDGXY;
CCTK_REAL DZZDG_DZZDGXZ;
CCTK_REAL DZZDG_DZZDGYY;
CCTK_REAL DZZDG_DZZDGYZ;
CCTK_REAL DZZDG_DZZDGZZ;
#endif
#endif
|