source: XIOS3/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90 @ 2620

Last change on this file since 2620 was 2616, checked in by jderouillat, 4 months ago

Add XIOS3 fortran interfaces (resources management, chunking, compression)
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 39.6 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE filegroup_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_filegroup_append(filegroup_hdl, append) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
15      LOGICAL (KIND=C_BOOL)      , VALUE :: append
16    END SUBROUTINE cxios_set_filegroup_append
17
18    SUBROUTINE cxios_get_filegroup_append(filegroup_hdl, append) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
21      LOGICAL (KIND=C_BOOL)             :: append
22    END SUBROUTINE cxios_get_filegroup_append
23
24    FUNCTION cxios_is_defined_filegroup_append(filegroup_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_append
27      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
28    END FUNCTION cxios_is_defined_filegroup_append
29
30
31    SUBROUTINE cxios_set_filegroup_comment(filegroup_hdl, comment, comment_size) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
35      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
36    END SUBROUTINE cxios_set_filegroup_comment
37
38    SUBROUTINE cxios_get_filegroup_comment(filegroup_hdl, comment, comment_size) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
42      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
43    END SUBROUTINE cxios_get_filegroup_comment
44
45    FUNCTION cxios_is_defined_filegroup_comment(filegroup_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_comment
48      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
49    END FUNCTION cxios_is_defined_filegroup_comment
50
51
52    SUBROUTINE cxios_set_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
55      INTEGER (KIND=C_INT)      , VALUE :: compression_level
56    END SUBROUTINE cxios_set_filegroup_compression_level
57
58    SUBROUTINE cxios_get_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
61      INTEGER (KIND=C_INT)             :: compression_level
62    END SUBROUTINE cxios_get_filegroup_compression_level
63
64    FUNCTION cxios_is_defined_filegroup_compression_level(filegroup_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_compression_level
67      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
68    END FUNCTION cxios_is_defined_filegroup_compression_level
69
70
71    SUBROUTINE cxios_set_filegroup_convention(filegroup_hdl, convention, convention_size) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
74      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention
75      INTEGER  (kind = C_INT)     , VALUE        :: convention_size
76    END SUBROUTINE cxios_set_filegroup_convention
77
78    SUBROUTINE cxios_get_filegroup_convention(filegroup_hdl, convention, convention_size) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
81      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention
82      INTEGER  (kind = C_INT)     , VALUE        :: convention_size
83    END SUBROUTINE cxios_get_filegroup_convention
84
85    FUNCTION cxios_is_defined_filegroup_convention(filegroup_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_convention
88      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
89    END FUNCTION cxios_is_defined_filegroup_convention
90
91
92    SUBROUTINE cxios_set_filegroup_convention_str(filegroup_hdl, convention_str, convention_str_size) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
95      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention_str
96      INTEGER  (kind = C_INT)     , VALUE        :: convention_str_size
97    END SUBROUTINE cxios_set_filegroup_convention_str
98
99    SUBROUTINE cxios_get_filegroup_convention_str(filegroup_hdl, convention_str, convention_str_size) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
102      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention_str
103      INTEGER  (kind = C_INT)     , VALUE        :: convention_str_size
104    END SUBROUTINE cxios_get_filegroup_convention_str
105
106    FUNCTION cxios_is_defined_filegroup_convention_str(filegroup_hdl) BIND(C)
107      USE ISO_C_BINDING
108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_convention_str
109      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
110    END FUNCTION cxios_is_defined_filegroup_convention_str
111
112
113    SUBROUTINE cxios_set_filegroup_cyclic(filegroup_hdl, cyclic) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
116      LOGICAL (KIND=C_BOOL)      , VALUE :: cyclic
117    END SUBROUTINE cxios_set_filegroup_cyclic
118
119    SUBROUTINE cxios_get_filegroup_cyclic(filegroup_hdl, cyclic) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
122      LOGICAL (KIND=C_BOOL)             :: cyclic
123    END SUBROUTINE cxios_get_filegroup_cyclic
124
125    FUNCTION cxios_is_defined_filegroup_cyclic(filegroup_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_cyclic
128      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
129    END FUNCTION cxios_is_defined_filegroup_cyclic
130
131
132    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
135      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
136      INTEGER  (kind = C_INT)     , VALUE        :: description_size
137    END SUBROUTINE cxios_set_filegroup_description
138
139    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
140      USE ISO_C_BINDING
141      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
142      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
143      INTEGER  (kind = C_INT)     , VALUE        :: description_size
144    END SUBROUTINE cxios_get_filegroup_description
145
146    FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl) BIND(C)
147      USE ISO_C_BINDING
148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description
149      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
150    END FUNCTION cxios_is_defined_filegroup_description
151
152
153    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
156      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
157    END SUBROUTINE cxios_set_filegroup_enabled
158
159    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
160      USE ISO_C_BINDING
161      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
162      LOGICAL (KIND=C_BOOL)             :: enabled
163    END SUBROUTINE cxios_get_filegroup_enabled
164
165    FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled
168      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
169    END FUNCTION cxios_is_defined_filegroup_enabled
170
171
172    SUBROUTINE cxios_set_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
175      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
176      INTEGER  (kind = C_INT)     , VALUE        :: format_size
177    END SUBROUTINE cxios_set_filegroup_format
178
179    SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
182      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
183      INTEGER  (kind = C_INT)     , VALUE        :: format_size
184    END SUBROUTINE cxios_get_filegroup_format
185
186    FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl) BIND(C)
187      USE ISO_C_BINDING
188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format
189      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
190    END FUNCTION cxios_is_defined_filegroup_format
191
192
193    SUBROUTINE cxios_set_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C)
194      USE ISO_C_BINDING
195      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer
197      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size
198    END SUBROUTINE cxios_set_filegroup_gatherer
199
200    SUBROUTINE cxios_get_filegroup_gatherer(filegroup_hdl, gatherer, gatherer_size) BIND(C)
201      USE ISO_C_BINDING
202      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: gatherer
204      INTEGER  (kind = C_INT)     , VALUE        :: gatherer_size
205    END SUBROUTINE cxios_get_filegroup_gatherer
206
207    FUNCTION cxios_is_defined_filegroup_gatherer(filegroup_hdl) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_gatherer
210      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
211    END FUNCTION cxios_is_defined_filegroup_gatherer
212
213
214    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
215      USE ISO_C_BINDING
216      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
217      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
218      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
219    END SUBROUTINE cxios_set_filegroup_group_ref
220
221    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
222      USE ISO_C_BINDING
223      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
224      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
225      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
226    END SUBROUTINE cxios_get_filegroup_group_ref
227
228    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref
231      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
232    END FUNCTION cxios_is_defined_filegroup_group_ref
233
234
235    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
238      INTEGER (KIND=C_INT)      , VALUE :: min_digits
239    END SUBROUTINE cxios_set_filegroup_min_digits
240
241    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
244      INTEGER (KIND=C_INT)             :: min_digits
245    END SUBROUTINE cxios_get_filegroup_min_digits
246
247    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits
250      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
251    END FUNCTION cxios_is_defined_filegroup_min_digits
252
253
254    SUBROUTINE cxios_set_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
258      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
259    END SUBROUTINE cxios_set_filegroup_mode
260
261    SUBROUTINE cxios_get_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
265      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
266    END SUBROUTINE cxios_get_filegroup_mode
267
268    FUNCTION cxios_is_defined_filegroup_mode(filegroup_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_mode
271      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
272    END FUNCTION cxios_is_defined_filegroup_mode
273
274
275    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
278      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
279      INTEGER  (kind = C_INT)     , VALUE        :: name_size
280    END SUBROUTINE cxios_set_filegroup_name
281
282    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
283      USE ISO_C_BINDING
284      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
285      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
286      INTEGER  (kind = C_INT)     , VALUE        :: name_size
287    END SUBROUTINE cxios_get_filegroup_name
288
289    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl) BIND(C)
290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name
292      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
293    END FUNCTION cxios_is_defined_filegroup_name
294
295
296    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
300      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
301    END SUBROUTINE cxios_set_filegroup_name_suffix
302
303    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
304      USE ISO_C_BINDING
305      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
306      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
307      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
308    END SUBROUTINE cxios_get_filegroup_name_suffix
309
310    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl) BIND(C)
311      USE ISO_C_BINDING
312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix
313      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
314    END FUNCTION cxios_is_defined_filegroup_name_suffix
315
316
317    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
318      USE ISO_C_BINDING
319      USE IDURATION
320      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
321      TYPE(txios(duration)), VALUE :: output_freq
322    END SUBROUTINE cxios_set_filegroup_output_freq
323
324    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
325      USE ISO_C_BINDING
326      USE IDURATION
327      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
328      TYPE(txios(duration)) :: output_freq
329    END SUBROUTINE cxios_get_filegroup_output_freq
330
331    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl) BIND(C)
332      USE ISO_C_BINDING
333      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq
334      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
335    END FUNCTION cxios_is_defined_filegroup_output_freq
336
337
338    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
341      INTEGER (KIND=C_INT)      , VALUE :: output_level
342    END SUBROUTINE cxios_set_filegroup_output_level
343
344    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
345      USE ISO_C_BINDING
346      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
347      INTEGER (KIND=C_INT)             :: output_level
348    END SUBROUTINE cxios_get_filegroup_output_level
349
350    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl) BIND(C)
351      USE ISO_C_BINDING
352      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level
353      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
354    END FUNCTION cxios_is_defined_filegroup_output_level
355
356
357    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
358      USE ISO_C_BINDING
359      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
360      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
361      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
362    END SUBROUTINE cxios_set_filegroup_par_access
363
364    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
365      USE ISO_C_BINDING
366      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
367      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
368      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
369    END SUBROUTINE cxios_get_filegroup_par_access
370
371    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl) BIND(C)
372      USE ISO_C_BINDING
373      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access
374      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
375    END FUNCTION cxios_is_defined_filegroup_par_access
376
377
378    SUBROUTINE cxios_set_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C)
379      USE ISO_C_BINDING
380      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
381      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer
382      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size
383    END SUBROUTINE cxios_set_filegroup_pool_gatherer
384
385    SUBROUTINE cxios_get_filegroup_pool_gatherer(filegroup_hdl, pool_gatherer, pool_gatherer_size) BIND(C)
386      USE ISO_C_BINDING
387      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
388      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_gatherer
389      INTEGER  (kind = C_INT)     , VALUE        :: pool_gatherer_size
390    END SUBROUTINE cxios_get_filegroup_pool_gatherer
391
392    FUNCTION cxios_is_defined_filegroup_pool_gatherer(filegroup_hdl) BIND(C)
393      USE ISO_C_BINDING
394      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_gatherer
395      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
396    END FUNCTION cxios_is_defined_filegroup_pool_gatherer
397
398
399    SUBROUTINE cxios_set_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C)
400      USE ISO_C_BINDING
401      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
402      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader
403      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size
404    END SUBROUTINE cxios_set_filegroup_pool_reader
405
406    SUBROUTINE cxios_get_filegroup_pool_reader(filegroup_hdl, pool_reader, pool_reader_size) BIND(C)
407      USE ISO_C_BINDING
408      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
409      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_reader
410      INTEGER  (kind = C_INT)     , VALUE        :: pool_reader_size
411    END SUBROUTINE cxios_get_filegroup_pool_reader
412
413    FUNCTION cxios_is_defined_filegroup_pool_reader(filegroup_hdl) BIND(C)
414      USE ISO_C_BINDING
415      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_reader
416      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
417    END FUNCTION cxios_is_defined_filegroup_pool_reader
418
419
420    SUBROUTINE cxios_set_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C)
421      USE ISO_C_BINDING
422      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
423      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer
424      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size
425    END SUBROUTINE cxios_set_filegroup_pool_writer
426
427    SUBROUTINE cxios_get_filegroup_pool_writer(filegroup_hdl, pool_writer, pool_writer_size) BIND(C)
428      USE ISO_C_BINDING
429      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
430      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: pool_writer
431      INTEGER  (kind = C_INT)     , VALUE        :: pool_writer_size
432    END SUBROUTINE cxios_get_filegroup_pool_writer
433
434    FUNCTION cxios_is_defined_filegroup_pool_writer(filegroup_hdl) BIND(C)
435      USE ISO_C_BINDING
436      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_pool_writer
437      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
438    END FUNCTION cxios_is_defined_filegroup_pool_writer
439
440
441    SUBROUTINE cxios_set_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C)
442      USE ISO_C_BINDING
443      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
444      LOGICAL (KIND=C_BOOL)      , VALUE :: read_metadata_par
445    END SUBROUTINE cxios_set_filegroup_read_metadata_par
446
447    SUBROUTINE cxios_get_filegroup_read_metadata_par(filegroup_hdl, read_metadata_par) BIND(C)
448      USE ISO_C_BINDING
449      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
450      LOGICAL (KIND=C_BOOL)             :: read_metadata_par
451    END SUBROUTINE cxios_get_filegroup_read_metadata_par
452
453    FUNCTION cxios_is_defined_filegroup_read_metadata_par(filegroup_hdl) BIND(C)
454      USE ISO_C_BINDING
455      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_read_metadata_par
456      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
457    END FUNCTION cxios_is_defined_filegroup_read_metadata_par
458
459
460    SUBROUTINE cxios_set_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C)
461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
463      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader
464      INTEGER  (kind = C_INT)     , VALUE        :: reader_size
465    END SUBROUTINE cxios_set_filegroup_reader
466
467    SUBROUTINE cxios_get_filegroup_reader(filegroup_hdl, reader, reader_size) BIND(C)
468      USE ISO_C_BINDING
469      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
470      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: reader
471      INTEGER  (kind = C_INT)     , VALUE        :: reader_size
472    END SUBROUTINE cxios_get_filegroup_reader
473
474    FUNCTION cxios_is_defined_filegroup_reader(filegroup_hdl) BIND(C)
475      USE ISO_C_BINDING
476      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_reader
477      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
478    END FUNCTION cxios_is_defined_filegroup_reader
479
480
481    SUBROUTINE cxios_set_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C)
482      USE ISO_C_BINDING
483      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
484      INTEGER (KIND=C_INT)      , VALUE :: record_offset
485    END SUBROUTINE cxios_set_filegroup_record_offset
486
487    SUBROUTINE cxios_get_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C)
488      USE ISO_C_BINDING
489      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
490      INTEGER (KIND=C_INT)             :: record_offset
491    END SUBROUTINE cxios_get_filegroup_record_offset
492
493    FUNCTION cxios_is_defined_filegroup_record_offset(filegroup_hdl) BIND(C)
494      USE ISO_C_BINDING
495      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_record_offset
496      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
497    END FUNCTION cxios_is_defined_filegroup_record_offset
498
499
500    SUBROUTINE cxios_set_filegroup_split_end_offset(filegroup_hdl, split_end_offset) BIND(C)
501      USE ISO_C_BINDING
502      USE IDURATION
503      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
504      TYPE(txios(duration)), VALUE :: split_end_offset
505    END SUBROUTINE cxios_set_filegroup_split_end_offset
506
507    SUBROUTINE cxios_get_filegroup_split_end_offset(filegroup_hdl, split_end_offset) BIND(C)
508      USE ISO_C_BINDING
509      USE IDURATION
510      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
511      TYPE(txios(duration)) :: split_end_offset
512    END SUBROUTINE cxios_get_filegroup_split_end_offset
513
514    FUNCTION cxios_is_defined_filegroup_split_end_offset(filegroup_hdl) BIND(C)
515      USE ISO_C_BINDING
516      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_end_offset
517      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
518    END FUNCTION cxios_is_defined_filegroup_split_end_offset
519
520
521    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
522      USE ISO_C_BINDING
523      USE IDURATION
524      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
525      TYPE(txios(duration)), VALUE :: split_freq
526    END SUBROUTINE cxios_set_filegroup_split_freq
527
528    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
529      USE ISO_C_BINDING
530      USE IDURATION
531      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
532      TYPE(txios(duration)) :: split_freq
533    END SUBROUTINE cxios_get_filegroup_split_freq
534
535    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl) BIND(C)
536      USE ISO_C_BINDING
537      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq
538      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
539    END FUNCTION cxios_is_defined_filegroup_split_freq
540
541
542    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
543      USE ISO_C_BINDING
544      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
545      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
546      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
547    END SUBROUTINE cxios_set_filegroup_split_freq_format
548
549    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
550      USE ISO_C_BINDING
551      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
552      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
553      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
554    END SUBROUTINE cxios_get_filegroup_split_freq_format
555
556    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl) BIND(C)
557      USE ISO_C_BINDING
558      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format
559      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
560    END FUNCTION cxios_is_defined_filegroup_split_freq_format
561
562
563    SUBROUTINE cxios_set_filegroup_split_last_date(filegroup_hdl, split_last_date, split_last_date_size) BIND(C)
564      USE ISO_C_BINDING
565      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
566      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_last_date
567      INTEGER  (kind = C_INT)     , VALUE        :: split_last_date_size
568    END SUBROUTINE cxios_set_filegroup_split_last_date
569
570    SUBROUTINE cxios_get_filegroup_split_last_date(filegroup_hdl, split_last_date, split_last_date_size) BIND(C)
571      USE ISO_C_BINDING
572      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
573      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_last_date
574      INTEGER  (kind = C_INT)     , VALUE        :: split_last_date_size
575    END SUBROUTINE cxios_get_filegroup_split_last_date
576
577    FUNCTION cxios_is_defined_filegroup_split_last_date(filegroup_hdl) BIND(C)
578      USE ISO_C_BINDING
579      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_last_date
580      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
581    END FUNCTION cxios_is_defined_filegroup_split_last_date
582
583
584    SUBROUTINE cxios_set_filegroup_split_start_offset(filegroup_hdl, split_start_offset) BIND(C)
585      USE ISO_C_BINDING
586      USE IDURATION
587      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
588      TYPE(txios(duration)), VALUE :: split_start_offset
589    END SUBROUTINE cxios_set_filegroup_split_start_offset
590
591    SUBROUTINE cxios_get_filegroup_split_start_offset(filegroup_hdl, split_start_offset) BIND(C)
592      USE ISO_C_BINDING
593      USE IDURATION
594      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
595      TYPE(txios(duration)) :: split_start_offset
596    END SUBROUTINE cxios_get_filegroup_split_start_offset
597
598    FUNCTION cxios_is_defined_filegroup_split_start_offset(filegroup_hdl) BIND(C)
599      USE ISO_C_BINDING
600      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_start_offset
601      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
602    END FUNCTION cxios_is_defined_filegroup_split_start_offset
603
604
605    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C)
606      USE ISO_C_BINDING
607      USE IDURATION
608      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
609      TYPE(txios(duration)), VALUE :: sync_freq
610    END SUBROUTINE cxios_set_filegroup_sync_freq
611
612    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C)
613      USE ISO_C_BINDING
614      USE IDURATION
615      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
616      TYPE(txios(duration)) :: sync_freq
617    END SUBROUTINE cxios_get_filegroup_sync_freq
618
619    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl) BIND(C)
620      USE ISO_C_BINDING
621      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq
622      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
623    END FUNCTION cxios_is_defined_filegroup_sync_freq
624
625
626    SUBROUTINE cxios_set_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C)
627      USE ISO_C_BINDING
628      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
629      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
630      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
631    END SUBROUTINE cxios_set_filegroup_time_counter
632
633    SUBROUTINE cxios_get_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C)
634      USE ISO_C_BINDING
635      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
636      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
637      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
638    END SUBROUTINE cxios_get_filegroup_time_counter
639
640    FUNCTION cxios_is_defined_filegroup_time_counter(filegroup_hdl) BIND(C)
641      USE ISO_C_BINDING
642      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_counter
643      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
644    END FUNCTION cxios_is_defined_filegroup_time_counter
645
646
647    SUBROUTINE cxios_set_filegroup_time_counter_name(filegroup_hdl, time_counter_name, time_counter_name_size) BIND(C)
648      USE ISO_C_BINDING
649      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
650      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
651      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
652    END SUBROUTINE cxios_set_filegroup_time_counter_name
653
654    SUBROUTINE cxios_get_filegroup_time_counter_name(filegroup_hdl, time_counter_name, time_counter_name_size) BIND(C)
655      USE ISO_C_BINDING
656      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
657      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
658      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
659    END SUBROUTINE cxios_get_filegroup_time_counter_name
660
661    FUNCTION cxios_is_defined_filegroup_time_counter_name(filegroup_hdl) BIND(C)
662      USE ISO_C_BINDING
663      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_counter_name
664      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
665    END FUNCTION cxios_is_defined_filegroup_time_counter_name
666
667
668    SUBROUTINE cxios_set_filegroup_time_stamp_format(filegroup_hdl, time_stamp_format, time_stamp_format_size) BIND(C)
669      USE ISO_C_BINDING
670      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
671      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_format
672      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_format_size
673    END SUBROUTINE cxios_set_filegroup_time_stamp_format
674
675    SUBROUTINE cxios_get_filegroup_time_stamp_format(filegroup_hdl, time_stamp_format, time_stamp_format_size) BIND(C)
676      USE ISO_C_BINDING
677      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
678      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_format
679      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_format_size
680    END SUBROUTINE cxios_get_filegroup_time_stamp_format
681
682    FUNCTION cxios_is_defined_filegroup_time_stamp_format(filegroup_hdl) BIND(C)
683      USE ISO_C_BINDING
684      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_stamp_format
685      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
686    END FUNCTION cxios_is_defined_filegroup_time_stamp_format
687
688
689    SUBROUTINE cxios_set_filegroup_time_stamp_name(filegroup_hdl, time_stamp_name, time_stamp_name_size) BIND(C)
690      USE ISO_C_BINDING
691      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
692      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_name
693      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_name_size
694    END SUBROUTINE cxios_set_filegroup_time_stamp_name
695
696    SUBROUTINE cxios_get_filegroup_time_stamp_name(filegroup_hdl, time_stamp_name, time_stamp_name_size) BIND(C)
697      USE ISO_C_BINDING
698      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
699      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_name
700      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_name_size
701    END SUBROUTINE cxios_get_filegroup_time_stamp_name
702
703    FUNCTION cxios_is_defined_filegroup_time_stamp_name(filegroup_hdl) BIND(C)
704      USE ISO_C_BINDING
705      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_stamp_name
706      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
707    END FUNCTION cxios_is_defined_filegroup_time_stamp_name
708
709
710    SUBROUTINE cxios_set_filegroup_time_units(filegroup_hdl, time_units, time_units_size) BIND(C)
711      USE ISO_C_BINDING
712      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
713      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_units
714      INTEGER  (kind = C_INT)     , VALUE        :: time_units_size
715    END SUBROUTINE cxios_set_filegroup_time_units
716
717    SUBROUTINE cxios_get_filegroup_time_units(filegroup_hdl, time_units, time_units_size) BIND(C)
718      USE ISO_C_BINDING
719      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
720      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_units
721      INTEGER  (kind = C_INT)     , VALUE        :: time_units_size
722    END SUBROUTINE cxios_get_filegroup_time_units
723
724    FUNCTION cxios_is_defined_filegroup_time_units(filegroup_hdl) BIND(C)
725      USE ISO_C_BINDING
726      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_units
727      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
728    END FUNCTION cxios_is_defined_filegroup_time_units
729
730
731    SUBROUTINE cxios_set_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C)
732      USE ISO_C_BINDING
733      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
734      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
735      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
736    END SUBROUTINE cxios_set_filegroup_timeseries
737
738    SUBROUTINE cxios_get_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C)
739      USE ISO_C_BINDING
740      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
741      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
742      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
743    END SUBROUTINE cxios_get_filegroup_timeseries
744
745    FUNCTION cxios_is_defined_filegroup_timeseries(filegroup_hdl) BIND(C)
746      USE ISO_C_BINDING
747      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_timeseries
748      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
749    END FUNCTION cxios_is_defined_filegroup_timeseries
750
751
752    SUBROUTINE cxios_set_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C)
753      USE ISO_C_BINDING
754      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
755      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
756      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
757    END SUBROUTINE cxios_set_filegroup_ts_prefix
758
759    SUBROUTINE cxios_get_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C)
760      USE ISO_C_BINDING
761      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
762      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
763      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
764    END SUBROUTINE cxios_get_filegroup_ts_prefix
765
766    FUNCTION cxios_is_defined_filegroup_ts_prefix(filegroup_hdl) BIND(C)
767      USE ISO_C_BINDING
768      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_ts_prefix
769      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
770    END FUNCTION cxios_is_defined_filegroup_ts_prefix
771
772
773    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
774      USE ISO_C_BINDING
775      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
776      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
777      INTEGER  (kind = C_INT)     , VALUE        :: type_size
778    END SUBROUTINE cxios_set_filegroup_type
779
780    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
781      USE ISO_C_BINDING
782      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
783      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
784      INTEGER  (kind = C_INT)     , VALUE        :: type_size
785    END SUBROUTINE cxios_get_filegroup_type
786
787    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl) BIND(C)
788      USE ISO_C_BINDING
789      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type
790      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
791    END FUNCTION cxios_is_defined_filegroup_type
792
793
794    SUBROUTINE cxios_set_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C)
795      USE ISO_C_BINDING
796      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
797      LOGICAL (KIND=C_BOOL)      , VALUE :: using_server2
798    END SUBROUTINE cxios_set_filegroup_using_server2
799
800    SUBROUTINE cxios_get_filegroup_using_server2(filegroup_hdl, using_server2) BIND(C)
801      USE ISO_C_BINDING
802      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
803      LOGICAL (KIND=C_BOOL)             :: using_server2
804    END SUBROUTINE cxios_get_filegroup_using_server2
805
806    FUNCTION cxios_is_defined_filegroup_using_server2(filegroup_hdl) BIND(C)
807      USE ISO_C_BINDING
808      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_using_server2
809      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
810    END FUNCTION cxios_is_defined_filegroup_using_server2
811
812
813    SUBROUTINE cxios_set_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C)
814      USE ISO_C_BINDING
815      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
816      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_format
817      INTEGER  (kind = C_INT)     , VALUE        :: uuid_format_size
818    END SUBROUTINE cxios_set_filegroup_uuid_format
819
820    SUBROUTINE cxios_get_filegroup_uuid_format(filegroup_hdl, uuid_format, uuid_format_size) BIND(C)
821      USE ISO_C_BINDING
822      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
823      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_format
824      INTEGER  (kind = C_INT)     , VALUE        :: uuid_format_size
825    END SUBROUTINE cxios_get_filegroup_uuid_format
826
827    FUNCTION cxios_is_defined_filegroup_uuid_format(filegroup_hdl) BIND(C)
828      USE ISO_C_BINDING
829      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_uuid_format
830      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
831    END FUNCTION cxios_is_defined_filegroup_uuid_format
832
833
834    SUBROUTINE cxios_set_filegroup_uuid_name(filegroup_hdl, uuid_name, uuid_name_size) BIND(C)
835      USE ISO_C_BINDING
836      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
837      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_name
838      INTEGER  (kind = C_INT)     , VALUE        :: uuid_name_size
839    END SUBROUTINE cxios_set_filegroup_uuid_name
840
841    SUBROUTINE cxios_get_filegroup_uuid_name(filegroup_hdl, uuid_name, uuid_name_size) BIND(C)
842      USE ISO_C_BINDING
843      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
844      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_name
845      INTEGER  (kind = C_INT)     , VALUE        :: uuid_name_size
846    END SUBROUTINE cxios_get_filegroup_uuid_name
847
848    FUNCTION cxios_is_defined_filegroup_uuid_name(filegroup_hdl) BIND(C)
849      USE ISO_C_BINDING
850      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_uuid_name
851      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
852    END FUNCTION cxios_is_defined_filegroup_uuid_name
853
854
855    SUBROUTINE cxios_set_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C)
856      USE ISO_C_BINDING
857      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
858      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer
859      INTEGER  (kind = C_INT)     , VALUE        :: writer_size
860    END SUBROUTINE cxios_set_filegroup_writer
861
862    SUBROUTINE cxios_get_filegroup_writer(filegroup_hdl, writer, writer_size) BIND(C)
863      USE ISO_C_BINDING
864      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
865      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: writer
866      INTEGER  (kind = C_INT)     , VALUE        :: writer_size
867    END SUBROUTINE cxios_get_filegroup_writer
868
869    FUNCTION cxios_is_defined_filegroup_writer(filegroup_hdl) BIND(C)
870      USE ISO_C_BINDING
871      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_writer
872      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
873    END FUNCTION cxios_is_defined_filegroup_writer
874
875  END INTERFACE
876
877END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.