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
|
#include "cctk.h"
module cctk_Groups
implicit none
interface
subroutine CCTK_DecomposeName (ierr, fullname, implementation, implementation_nchars, name, name_nchars)
implicit none
integer ierr
character(*) fullname
character(*) implementation
integer implementation_nchars
character(*) name
integer name_nchars
end subroutine CCTK_DecomposeName
subroutine CCTK_FirstVarIndex (index, group)
implicit none
integer index
character(*) group
end subroutine CCTK_FirstVarIndex
subroutine CCTK_FirstVarIndexI (index, group)
implicit none
integer index
integer group
end subroutine CCTK_FirstVarIndexI
subroutine CCTK_FullName (nchars, var, fullname)
implicit none
integer nchars
integer var
character(*) fullname
end subroutine CCTK_FullName
! CCTK_GroupData fills a structure and has no Fortran wrapper
subroutine CCTK_GroupDimI (dim, group)
implicit none
integer dim
integer group
end subroutine CCTK_GroupDimI
subroutine CCTK_GroupDimFromVarI (dim, var)
implicit none
integer dim
integer var
end subroutine CCTK_GroupDimFromVarI
subroutine CCTK_GroupDistribNumber (number, distrib)
implicit none
integer number
character(*) distrib
end subroutine CCTK_GroupDistribNumber
! CCTK_GroupGhostsizesI is a strange function and has no Fortran wrapper
subroutine CCTK_ImplementationI (nchars, group, implementation)
implicit none
integer nchars
integer group
character(*) implementation
end subroutine CCTK_ImplementationI
subroutine CCTK_GroupIndex (index, group)
implicit none
integer index
character(*) group
end subroutine CCTK_GroupIndex
subroutine CCTK_GroupIndexFromVar (index, var)
implicit none
integer index
character(*) var
end subroutine CCTK_GroupIndexFromVar
subroutine CCTK_GroupIndexFromVarI (index, var)
implicit none
integer index
integer var
end subroutine CCTK_GroupIndexFromVarI
subroutine CCTK_GroupName (nchars, group, groupname)
implicit none
integer nchars
integer group
character(*) groupname
end subroutine CCTK_GroupName
subroutine CCTK_GroupNameFromVarI (nchars, var, groupname)
implicit none
integer nchars
integer var
character(*) groupname
end subroutine CCTK_GroupNameFromVarI
subroutine CCTK_GroupScopeNumber (number, scope)
implicit none
integer number
character(*) scope
end subroutine CCTK_GroupScopeNumber
! CCTK_GroupSizesI is a strange function and has no Fortran wrapper
subroutine CCTK_GroupTypeFromVarI (type, var)
implicit none
integer type
integer var
end subroutine CCTK_GroupTypeFromVarI
subroutine CCTK_GroupTypeNumber (number, type)
implicit none
integer number
character(*) type
end subroutine CCTK_GroupTypeNumber
subroutine CCTK_GroupTypeI (type, group)
implicit none
integer type
integer group
end subroutine CCTK_GroupTypeI
subroutine CCTK_ImpFromVarI (nchars, var, imp)
implicit none
integer nchars
integer var
character(*) imp
end subroutine CCTK_ImpFromVarI
subroutine CCTK_MaxDim (maxdim)
implicit none
integer maxdim
end subroutine CCTK_MaxDim
subroutine CCTK_NumGroups (numgroups)
implicit none
integer numgroups
end subroutine CCTK_NumGroups
subroutine CCTK_NumTimeLevelsFromVar (numtimelevels, var)
implicit none
integer numtimelevels
character(*) var
end subroutine CCTK_NumTimeLevelsFromVar
subroutine CCTK_NumTimeLevelsFromVarI (numtimelevels, var)
implicit none
integer numtimelevels
integer var
end subroutine CCTK_NumTimeLevelsFromVarI
subroutine CCTK_NumTimeLevels (numtimelevels, var)
implicit none
integer numtimelevels
character(*) var
end subroutine CCTK_NumTimeLevels
subroutine CCTK_NumTimeLevelsI (numtimelevels, var)
implicit none
integer numtimelevels
integer var
end subroutine CCTK_NumTimeLevelsI
subroutine CCTK_MaxTimeLevels (maxtimelevels, group)
implicit none
integer maxtimelevels
character(*) group
end subroutine CCTK_MaxTimeLevels
subroutine CCTK_MaxTimeLevelsVN (maxtimelevels, var)
implicit none
integer maxtimelevels
character(*) var
end subroutine CCTK_MaxTimeLevelsVN
subroutine CCTK_MaxTimeLevelsVI (maxtimelevels, var)
implicit none
integer maxtimelevels
integer var
end subroutine CCTK_MaxTimeLevelsVI
subroutine CCTK_MaxTimeLevelsGN (maxtimelevels, group)
implicit none
integer maxtimelevels
character(*) group
end subroutine CCTK_MaxTimeLevelsGN
subroutine CCTK_MaxTimeLevelsGI (maxtimelevels, group)
implicit none
integer maxtimelevels
integer group
end subroutine CCTK_MaxTimeLevelsGI
subroutine CCTK_NumVars (numvars)
implicit none
integer numvars
end subroutine CCTK_NumVars
subroutine CCTK_NumVarsInGroup (numvars, group)
implicit none
integer numvars
character(*) group
end subroutine CCTK_NumVarsInGroup
subroutine CCTK_NumVarsInGroupI (numvars, group)
implicit none
integer numvars
integer group
end subroutine CCTK_NumVarsInGroupI
subroutine CCTK_VarIndex (index, var)
implicit none
integer index
character(*) var
end subroutine CCTK_VarIndex
subroutine CCTK_VarName (nchars, var, varname)
implicit none
integer nchars
integer var
character(*) varname
end subroutine CCTK_VarName
subroutine CCTK_VarTypeI (type, var)
implicit none
integer type
integer var
end subroutine CCTK_VarTypeI
subroutine CCTK_VarTypeNumber (number, type)
implicit none
integer number
character(*) type
end subroutine CCTK_VarTypeNumber
subroutine CCTK_VarTypeName (nchars, type, typename)
implicit none
integer nchars
integer type
character(*) typename
end subroutine CCTK_VarTypeName
subroutine CCTK_VarTypeSize (size, type)
implicit none
integer size
integer type
end subroutine CCTK_VarTypeSize
! CCTKi_GroupLengthAsPointer is a strange function and has no
! Fortran wrapper
! CCTK_TraverseString has no Fortran wrapper
subroutine CCTK_GroupTagsTable (table, group)
implicit none
integer table
character(*) group
end subroutine CCTK_GroupTagsTable
subroutine CCTK_GroupTagsTableI (table, group)
implicit none
integer table
integer group
end subroutine CCTK_GroupTagsTableI
end interface
end module cctk_Groups
|