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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
/*@@
@header cctk.h
@date Tue Jan 26 17:29:34 1999
@author Tom Goodale
@desc
Main include file for the CCTK. All thorns should include this...
@enddesc
@version $Id$
@@*/
#ifndef _CCTK_H_
#define _CCTK_H_
/* Grab the main configuration info. */
#include "config.h"
/* The thorn definitions #define <PACKAGE>_<THORN> */
#include "definethorn.h"
/* Define which thorn the file is in */
#include "definethisthorn.h"
/* Define some stuff */
#ifdef FCODE
#define CCTK_PRINTSEPARATOR\
print *,"----------------------------------------------------------------"
#define _CCTK_FARGUMENTS cctk_dim, cctk_gsh, cctk_lsh, cctk_lbnd, cctk_ubnd, cctk_from, cctk_to, cctk_bbox, cctk_delta_time, cctk_time, cctk_delta_space, cctk_origin_space, cctk_levfac, cctk_convlevel, cctk_nghostzones, cctk_iteration, cctkGH
#define _DECLARE_CCTK_FARGUMENTS INTEGER cctk_dim&&\
INTEGER cctk_gsh(cctk_dim),cctk_lsh(cctk_dim)&&\
INTEGER cctk_lbnd(cctk_dim),cctk_ubnd(cctk_dim)&&\
INTEGER cctk_from(cctk_dim),cctk_to(cctk_dim)&&\
INTEGER cctk_bbox(2*cctk_dim)&&\
CCTK_REAL cctk_delta_time, cctk_time&&\
CCTK_REAL cctk_delta_space(cctk_dim)&&\
CCTK_REAL cctk_origin_space(cctk_dim)&&\
INTEGER cctk_levfac(cctk_dim)&&\
INTEGER cctk_convlevel&&\
INTEGER cctk_nghostzones(cctk_dim)&&\
INTEGER cctk_iteration&&\
CCTK_POINTER cctkGH&&\
#define CCTK_WARN(a,b) CCTK_Warn(a,__LINE__,__FORTRANFILE__,CCTK_THORNSTRING,b)
#endif /*FCODE*/
#ifdef CCODE
#include "cGH.h"
#define CCTK_PRINTSEPARATOR \
printf("----------------------------------------------------------------\n");
#define _DECLARE_CCTK_CARGUMENTS \
int cctk_dim=cctkGH->cctk_dim;\
int *cctk_gsh=cctkGH->cctk_gsh;\
int *cctk_lsh=cctkGH->cctk_lsh;\
int *cctk_lbnd=cctkGH->cctk_lbnd;\
int *cctk_ubnd=cctkGH->cctk_ubnd;\
int *cctk_from=cctkGH->cctk_from;\
int *cctk_to=cctkGH->cctk_to;\
int *cctk_bbox=cctkGH->cctk_bbox;\
CCTK_REAL cctk_delta_time=cctkGH->cctk_delta_time;\
CCTK_REAL cctk_time=cctkGH->cctk_time;\
CCTK_REAL *cctk_delta_space=cctkGH->cctk_delta_space;\
CCTK_REAL *cctk_origin_space=cctkGH->cctk_origin_space;\
int *cctk_levfac=cctkGH->cctk_levfac;\
int cctk_convlevel=cctkGH->cctk_convlevel;\
int *cctk_nghostzones=cctkGH->cctk_nghostzones;\
int cctk_iteration=cctkGH->cctk_iteration;
#define _INITIALISE_CCTK_C2F
#define _DECLARE_CCTK_C2F
#define _PASS_CCTK_C2F(xGH) &((xGH)->cctk_dim),\
(xGH)->cctk_gsh,(xGH)->cctk_lsh, \
(xGH)->cctk_lbnd,(xGH)->cctk_ubnd, \
(xGH)->cctk_from,(xGH)->cctk_to, \
(xGH)->cctk_bbox,\
&((xGH)->cctk_delta_time), \
&((xGH)->cctk_time), (xGH)->cctk_delta_space,\
(xGH)->cctk_origin_space,\
(xGH)->cctk_levfac,\
&((xGH)->cctk_convlevel),\
(xGH)->cctk_nghostzones,\
&((xGH)->cctk_iteration),\
(xGH)
#define _CCTK_C2F_PROTO int *,\
int *,\
int *,int *, int *, int *,int *,int *,\
CCTK_REAL *, CCTK_REAL *, CCTK_REAL *,\
CCTK_REAL *,\
int *,\
int *,\
int *,\
int *,\
cGH *
#define CCTK_STORAGESIZE(xGH, group, cctk_dim) \
(CCTK_QueryGroupStorage(xGH,group) ?\
(CCTK_ArrayGroupSize(xGH, group, cctk_dim)) : &(_cctk_one))
extern int _cctk_one;
#define CCTK_WARN(a,b) CCTK_Warn(a,__LINE__,__FILE__,CCTK_THORNSTRING,b)
#endif /*CCODE*/
#define CCTK_VARIABLE_CHAR 1
#define CCTK_VARIABLE_INT 2
#define CCTK_VARIABLE_REAL 3
#define CCTK_VARIABLE_COMPLEX 4
/*#define CCTK_MAKESTRING(x) CCTK_REALSTRING(x)
#define CCTK_REALSTRING(x) #x
#define CCTK_WARN(a,b) CCTK_Warn(a,CCTK_MAKESTRING(CCTK_THORN),b,__LINE__,__FILE__)
*/
#define CCTK_INFO(a) CCTK_Info(CCTK_THORNSTRING,a)
#define CCTK_PARAMWARN(a) CCTK_ParamWarn(CCTK_THORNSTRING,a)
#endif
|
