source: XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.F90 @ 891

Last change on this file since 891 was 891, checked in by mhnguyen, 8 years ago

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation
  • 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: 21.2 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_compression_level(filegroup_hdl, compression_level) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
34      INTEGER (KIND=C_INT)      , VALUE :: compression_level
35    END SUBROUTINE cxios_set_filegroup_compression_level
36
37    SUBROUTINE cxios_get_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
40      INTEGER (KIND=C_INT)             :: compression_level
41    END SUBROUTINE cxios_get_filegroup_compression_level
42
43    FUNCTION cxios_is_defined_filegroup_compression_level(filegroup_hdl) BIND(C)
44      USE ISO_C_BINDING
45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_compression_level
46      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
47    END FUNCTION cxios_is_defined_filegroup_compression_level
48
49
50    SUBROUTINE cxios_set_filegroup_cyclic(filegroup_hdl, cyclic) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
53      LOGICAL (KIND=C_BOOL)      , VALUE :: cyclic
54    END SUBROUTINE cxios_set_filegroup_cyclic
55
56    SUBROUTINE cxios_get_filegroup_cyclic(filegroup_hdl, cyclic) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
59      LOGICAL (KIND=C_BOOL)             :: cyclic
60    END SUBROUTINE cxios_get_filegroup_cyclic
61
62    FUNCTION cxios_is_defined_filegroup_cyclic(filegroup_hdl) BIND(C)
63      USE ISO_C_BINDING
64      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_cyclic
65      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
66    END FUNCTION cxios_is_defined_filegroup_cyclic
67
68
69    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
72      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
73      INTEGER  (kind = C_INT)     , VALUE        :: description_size
74    END SUBROUTINE cxios_set_filegroup_description
75
76    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
79      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
80      INTEGER  (kind = C_INT)     , VALUE        :: description_size
81    END SUBROUTINE cxios_get_filegroup_description
82
83    FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description
86      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
87    END FUNCTION cxios_is_defined_filegroup_description
88
89
90    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
93      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
94    END SUBROUTINE cxios_set_filegroup_enabled
95
96    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
99      LOGICAL (KIND=C_BOOL)             :: enabled
100    END SUBROUTINE cxios_get_filegroup_enabled
101
102    FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl) BIND(C)
103      USE ISO_C_BINDING
104      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled
105      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
106    END FUNCTION cxios_is_defined_filegroup_enabled
107
108
109    SUBROUTINE cxios_set_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
110      USE ISO_C_BINDING
111      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
112      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
113      INTEGER  (kind = C_INT)     , VALUE        :: format_size
114    END SUBROUTINE cxios_set_filegroup_format
115
116    SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
117      USE ISO_C_BINDING
118      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
119      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
120      INTEGER  (kind = C_INT)     , VALUE        :: format_size
121    END SUBROUTINE cxios_get_filegroup_format
122
123    FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl) BIND(C)
124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format
126      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
127    END FUNCTION cxios_is_defined_filegroup_format
128
129
130    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
133      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
134      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
135    END SUBROUTINE cxios_set_filegroup_group_ref
136
137    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
140      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
141      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
142    END SUBROUTINE cxios_get_filegroup_group_ref
143
144    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref
147      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
148    END FUNCTION cxios_is_defined_filegroup_group_ref
149
150
151    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
154      INTEGER (KIND=C_INT)      , VALUE :: min_digits
155    END SUBROUTINE cxios_set_filegroup_min_digits
156
157    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
158      USE ISO_C_BINDING
159      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
160      INTEGER (KIND=C_INT)             :: min_digits
161    END SUBROUTINE cxios_get_filegroup_min_digits
162
163    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl) BIND(C)
164      USE ISO_C_BINDING
165      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits
166      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
167    END FUNCTION cxios_is_defined_filegroup_min_digits
168
169
170    SUBROUTINE cxios_set_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
171      USE ISO_C_BINDING
172      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
173      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
174      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
175    END SUBROUTINE cxios_set_filegroup_mode
176
177    SUBROUTINE cxios_get_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
180      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
181      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
182    END SUBROUTINE cxios_get_filegroup_mode
183
184    FUNCTION cxios_is_defined_filegroup_mode(filegroup_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_mode
187      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
188    END FUNCTION cxios_is_defined_filegroup_mode
189
190
191    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
192      USE ISO_C_BINDING
193      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
194      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
195      INTEGER  (kind = C_INT)     , VALUE        :: name_size
196    END SUBROUTINE cxios_set_filegroup_name
197
198    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
201      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
202      INTEGER  (kind = C_INT)     , VALUE        :: name_size
203    END SUBROUTINE cxios_get_filegroup_name
204
205    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name
208      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
209    END FUNCTION cxios_is_defined_filegroup_name
210
211
212    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
216      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
217    END SUBROUTINE cxios_set_filegroup_name_suffix
218
219    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
223      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
224    END SUBROUTINE cxios_get_filegroup_name_suffix
225
226    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix
229      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
230    END FUNCTION cxios_is_defined_filegroup_name_suffix
231
232
233    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
234      USE ISO_C_BINDING
235      USE IDURATION
236      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
237      TYPE(txios(duration)), VALUE :: output_freq
238    END SUBROUTINE cxios_set_filegroup_output_freq
239
240    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
241      USE ISO_C_BINDING
242      USE IDURATION
243      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
244      TYPE(txios(duration)) :: output_freq
245    END SUBROUTINE cxios_get_filegroup_output_freq
246
247    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq
250      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
251    END FUNCTION cxios_is_defined_filegroup_output_freq
252
253
254    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
257      INTEGER (KIND=C_INT)      , VALUE :: output_level
258    END SUBROUTINE cxios_set_filegroup_output_level
259
260    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
261      USE ISO_C_BINDING
262      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
263      INTEGER (KIND=C_INT)             :: output_level
264    END SUBROUTINE cxios_get_filegroup_output_level
265
266    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl) BIND(C)
267      USE ISO_C_BINDING
268      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level
269      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
270    END FUNCTION cxios_is_defined_filegroup_output_level
271
272
273    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
274      USE ISO_C_BINDING
275      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
276      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
277      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
278    END SUBROUTINE cxios_set_filegroup_par_access
279
280    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
281      USE ISO_C_BINDING
282      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
283      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
284      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
285    END SUBROUTINE cxios_get_filegroup_par_access
286
287    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl) BIND(C)
288      USE ISO_C_BINDING
289      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access
290      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
291    END FUNCTION cxios_is_defined_filegroup_par_access
292
293
294    SUBROUTINE cxios_set_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
297      INTEGER (KIND=C_INT)      , VALUE :: record_offset
298    END SUBROUTINE cxios_set_filegroup_record_offset
299
300    SUBROUTINE cxios_get_filegroup_record_offset(filegroup_hdl, record_offset) BIND(C)
301      USE ISO_C_BINDING
302      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
303      INTEGER (KIND=C_INT)             :: record_offset
304    END SUBROUTINE cxios_get_filegroup_record_offset
305
306    FUNCTION cxios_is_defined_filegroup_record_offset(filegroup_hdl) BIND(C)
307      USE ISO_C_BINDING
308      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_record_offset
309      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
310    END FUNCTION cxios_is_defined_filegroup_record_offset
311
312
313    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
314      USE ISO_C_BINDING
315      USE IDURATION
316      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
317      TYPE(txios(duration)), VALUE :: split_freq
318    END SUBROUTINE cxios_set_filegroup_split_freq
319
320    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
321      USE ISO_C_BINDING
322      USE IDURATION
323      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
324      TYPE(txios(duration)) :: split_freq
325    END SUBROUTINE cxios_get_filegroup_split_freq
326
327    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq
330      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
331    END FUNCTION cxios_is_defined_filegroup_split_freq
332
333
334    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
335      USE ISO_C_BINDING
336      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
337      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
338      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
339    END SUBROUTINE cxios_set_filegroup_split_freq_format
340
341    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
342      USE ISO_C_BINDING
343      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
344      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
345      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
346    END SUBROUTINE cxios_get_filegroup_split_freq_format
347
348    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format
351      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
352    END FUNCTION cxios_is_defined_filegroup_split_freq_format
353
354
355    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C)
356      USE ISO_C_BINDING
357      USE IDURATION
358      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
359      TYPE(txios(duration)), VALUE :: sync_freq
360    END SUBROUTINE cxios_set_filegroup_sync_freq
361
362    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C)
363      USE ISO_C_BINDING
364      USE IDURATION
365      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
366      TYPE(txios(duration)) :: sync_freq
367    END SUBROUTINE cxios_get_filegroup_sync_freq
368
369    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq
372      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
373    END FUNCTION cxios_is_defined_filegroup_sync_freq
374
375
376    SUBROUTINE cxios_set_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C)
377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
379      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
380      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
381    END SUBROUTINE cxios_set_filegroup_time_counter
382
383    SUBROUTINE cxios_get_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C)
384      USE ISO_C_BINDING
385      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
386      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
387      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
388    END SUBROUTINE cxios_get_filegroup_time_counter
389
390    FUNCTION cxios_is_defined_filegroup_time_counter(filegroup_hdl) BIND(C)
391      USE ISO_C_BINDING
392      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_counter
393      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
394    END FUNCTION cxios_is_defined_filegroup_time_counter
395
396
397    SUBROUTINE cxios_set_filegroup_time_counter_name(filegroup_hdl, time_counter_name, time_counter_name_size) BIND(C)
398      USE ISO_C_BINDING
399      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
400      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
401      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
402    END SUBROUTINE cxios_set_filegroup_time_counter_name
403
404    SUBROUTINE cxios_get_filegroup_time_counter_name(filegroup_hdl, time_counter_name, time_counter_name_size) BIND(C)
405      USE ISO_C_BINDING
406      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
407      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
408      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
409    END SUBROUTINE cxios_get_filegroup_time_counter_name
410
411    FUNCTION cxios_is_defined_filegroup_time_counter_name(filegroup_hdl) BIND(C)
412      USE ISO_C_BINDING
413      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_counter_name
414      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
415    END FUNCTION cxios_is_defined_filegroup_time_counter_name
416
417
418    SUBROUTINE cxios_set_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C)
419      USE ISO_C_BINDING
420      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
421      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
422      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
423    END SUBROUTINE cxios_set_filegroup_timeseries
424
425    SUBROUTINE cxios_get_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C)
426      USE ISO_C_BINDING
427      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
428      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
429      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
430    END SUBROUTINE cxios_get_filegroup_timeseries
431
432    FUNCTION cxios_is_defined_filegroup_timeseries(filegroup_hdl) BIND(C)
433      USE ISO_C_BINDING
434      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_timeseries
435      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
436    END FUNCTION cxios_is_defined_filegroup_timeseries
437
438
439    SUBROUTINE cxios_set_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C)
440      USE ISO_C_BINDING
441      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
442      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
443      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
444    END SUBROUTINE cxios_set_filegroup_ts_prefix
445
446    SUBROUTINE cxios_get_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C)
447      USE ISO_C_BINDING
448      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
449      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
450      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
451    END SUBROUTINE cxios_get_filegroup_ts_prefix
452
453    FUNCTION cxios_is_defined_filegroup_ts_prefix(filegroup_hdl) BIND(C)
454      USE ISO_C_BINDING
455      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_ts_prefix
456      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
457    END FUNCTION cxios_is_defined_filegroup_ts_prefix
458
459
460    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
463      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
464      INTEGER  (kind = C_INT)     , VALUE        :: type_size
465    END SUBROUTINE cxios_set_filegroup_type
466
467    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
468      USE ISO_C_BINDING
469      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
470      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
471      INTEGER  (kind = C_INT)     , VALUE        :: type_size
472    END SUBROUTINE cxios_get_filegroup_type
473
474    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl) BIND(C)
475      USE ISO_C_BINDING
476      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type
477      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
478    END FUNCTION cxios_is_defined_filegroup_type
479
480  END INTERFACE
481
482END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.