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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
|
#include "cctk.h"
module cctk_GroupsOnGH
implicit none
interface
subroutine CCTK_VarDataPtr (ptr, GH, timelevel, fullvarname)
implicit none
CCTK_POINTER ptr
CCTK_POINTER_TO_CONST GH
integer timelevel
character(*) fullvarname
end subroutine CCTK_VarDataPtr
subroutine CCTK_VarDataPtrI (ptr, GH, timelevel, varindex)
implicit none
CCTK_POINTER ptr
CCTK_POINTER_TO_CONST GH
integer timelevel
integer varindex
end subroutine CCTK_VarDataPtrI
subroutine CCTK_VarDataPtrB (ptr, GH, timelevel, varindex, fullvarname)
implicit none
CCTK_POINTER ptr
CCTK_POINTER_TO_CONST GH
integer timelevel
integer varindex
character(*) fullvarname
end subroutine CCTK_VarDataPtrB
subroutine CCTK_DisableGroupStorageI (ierr, GH, group)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer group
end subroutine CCTK_DisableGroupStorageI
subroutine CCTK_DisableGroupCommI (ierr, GH, group)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer group
end subroutine CCTK_DisableGroupCommI
subroutine CCTK_EnableGroupStorageI (ierr, GH, group)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer group
end subroutine CCTK_EnableGroupStorageI
subroutine CCTK_EnableGroupCommI (ierr, GH, group)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer group
end subroutine CCTK_EnableGroupCommI
subroutine CCTK_GrouplbndGN (ierr, GH, dim, lbnd, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lbnd(dim)
character(*) groupname
end subroutine CCTK_GrouplbndGN
subroutine CCTK_GrouplbndVN (ierr, GH, dim, lbnd, varname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lbnd(dim)
character(*) varname
end subroutine CCTK_GrouplbndVN
subroutine CCTK_GrouplbndGI (ierr, GH, dim, lbnd, groupindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lbnd(dim)
integer groupindex
end subroutine CCTK_GrouplbndGI
subroutine CCTK_GrouplbndVI (ierr, GH, dim, lbnd, varindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lbnd(dim)
integer varindex
end subroutine CCTK_GrouplbndVI
subroutine CCTK_GroupubndGN (ierr, GH, dim, ubnd, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer ubnd(dim)
character(*) groupname
end subroutine CCTK_GroupubndGN
subroutine CCTK_GroupubndVN (ierr, GH, dim, ubnd, varname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer ubnd(dim)
character(*) varname
end subroutine CCTK_GroupubndVN
subroutine CCTK_GroupubndGI (ierr, GH, dim, ubnd, groupindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer ubnd(dim)
integer groupindex
end subroutine CCTK_GroupubndGI
subroutine CCTK_GroupubndVI (ierr, GH, dim, ubnd, varindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer ubnd(dim)
integer varindex
end subroutine CCTK_GroupubndVI
subroutine CCTK_GrouplshGN (ierr, GH, dim, lsh, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lsh(dim)
character(*) groupname
end subroutine CCTK_GrouplshGN
subroutine CCTK_GrouplshVN (ierr, GH, dim, lsh, varname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lsh(dim)
character(*) varname
end subroutine CCTK_GrouplshVN
subroutine CCTK_GrouplshGI (ierr, GH, dim, lsh, groupindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lsh(dim)
integer groupindex
end subroutine CCTK_GrouplshGI
subroutine CCTK_GrouplshVI (ierr, GH, dim, lsh, varindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer lsh(dim)
integer varindex
end subroutine CCTK_GrouplshVI
subroutine CCTK_GroupgshGN (ierr, GH, dim, gsh, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer gsh(dim)
character(*) groupname
end subroutine CCTK_GroupgshGN
subroutine CCTK_GroupgshVN (ierr, GH, dim, gsh, varname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer gsh(dim)
character(*) varname
end subroutine CCTK_GroupgshVN
subroutine CCTK_GroupgshGI (ierr, GH, dim, gsh, groupindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer gsh(dim)
integer groupindex
end subroutine CCTK_GroupgshGI
subroutine CCTK_GroupgshVI (ierr, GH, dim, gsh, varindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer gsh(dim)
integer varindex
end subroutine CCTK_GroupgshVI
subroutine CCTK_GroupbboxGN (ierr, GH, size, bbox, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer size
integer bbox(size)
character(*) groupname
end subroutine CCTK_GroupbboxGN
subroutine CCTK_GroupbboxVN (ierr, GH, size, bbox, varname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer size
integer bbox(size)
character(*) varname
end subroutine CCTK_GroupbboxVN
subroutine CCTK_GroupbboxGI (ierr, GH, size, bbox, groupindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer size
integer bbox(size)
integer groupindex
end subroutine CCTK_GroupbboxGI
subroutine CCTK_GroupbboxVI (ierr, GH, size, bbox, varindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer size
integer bbox(size)
integer varindex
end subroutine CCTK_GroupbboxVI
subroutine CCTK_GroupnghostzonesGN (ierr, GH, dim, nghostzones, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer nghostzones(dim)
character(*) groupname
end subroutine CCTK_GroupnghostzonesGN
subroutine CCTK_GroupnghostzonesVN (ierr, GH, dim, nghostzones, varname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer nghostzones(dim)
character(*) varname
end subroutine CCTK_GroupnghostzonesVN
subroutine CCTK_GroupnghostzonesGI (ierr, GH, dim, nghostzones, groupindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer nghostzones(dim)
integer groupindex
end subroutine CCTK_GroupnghostzonesGI
subroutine CCTK_GroupnghostzonesVI (ierr, GH, dim, nghostzones, varindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer dim
integer nghostzones(dim)
integer varindex
end subroutine CCTK_GroupnghostzonesVI
subroutine CCTK_ActiveTimeLevels (ierr, GH, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
character(*) groupname
end subroutine CCTK_ActiveTimeLevels
subroutine CCTK_ActiveTimeLevelsGN (ierr, GH, groupname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
character(*) groupname
end subroutine CCTK_ActiveTimeLevelsGN
subroutine CCTK_ActiveTimeLevelsGI (ierr, GH, groupindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer groupindex
end subroutine CCTK_ActiveTimeLevelsGI
subroutine CCTK_ActiveTimeLevelsVN (ierr, GH, varname)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
character(*) varname
end subroutine CCTK_ActiveTimeLevelsVN
subroutine CCTK_ActiveTimeLevelsVI (ierr, GH, varindex)
implicit none
integer ierr
CCTK_POINTER_TO_CONST GH
integer varindex
end subroutine CCTK_ActiveTimeLevelsVI
end interface
end module cctk_GroupsOnGH
|