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

Last change on this file since 778 was 711, checked in by rlacroix, 9 years ago

Support creating the timeseries automatically.

Fields which should be outputted as timeseries must have the ts_enabled attribute set to true.

Files have a new attribute timeseries which must be one of:

  • none: no timeseries are outputted, only the regular file (default behavior when the attribute is ommited).
  • only: only the timeseries are outputted, the regular file is not created.
  • both: both the timeseries and the regular files are outputted.
  • exclusive: the timeseries are outputted and a regular file is created with only the fields which were not marked for output as a timeserie (if any).

The name of the files created for the timeseries is composed of a prefix followed by the name of the variable. The file attribute ts_prefix can be used to control the prefix used (by default, the name of the regular file is used).

All the attributes of the regular file are inherited by the files created for the timeseries. The field attribute ts_split_freq can be used to configure the splitting for each timeseries (by default, the splitting frequency of the regular file is used).
  • 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: 18.5 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_description(filegroup_hdl, description, description_size) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
53      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
54      INTEGER  (kind = C_INT)     , VALUE        :: description_size
55    END SUBROUTINE cxios_set_filegroup_description
56
57    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
58      USE ISO_C_BINDING
59      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
60      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
61      INTEGER  (kind = C_INT)     , VALUE        :: description_size
62    END SUBROUTINE cxios_get_filegroup_description
63
64    FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description
67      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
68    END FUNCTION cxios_is_defined_filegroup_description
69
70
71    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
74      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
75    END SUBROUTINE cxios_set_filegroup_enabled
76
77    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
80      LOGICAL (KIND=C_BOOL)             :: enabled
81    END SUBROUTINE cxios_get_filegroup_enabled
82
83    FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled
86      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
87    END FUNCTION cxios_is_defined_filegroup_enabled
88
89
90    SUBROUTINE cxios_set_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
93      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
94      INTEGER  (kind = C_INT)     , VALUE        :: format_size
95    END SUBROUTINE cxios_set_filegroup_format
96
97    SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
101      INTEGER  (kind = C_INT)     , VALUE        :: format_size
102    END SUBROUTINE cxios_get_filegroup_format
103
104    FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl) BIND(C)
105      USE ISO_C_BINDING
106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format
107      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
108    END FUNCTION cxios_is_defined_filegroup_format
109
110
111    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
112      USE ISO_C_BINDING
113      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
114      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
115      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
116    END SUBROUTINE cxios_set_filegroup_group_ref
117
118    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
119      USE ISO_C_BINDING
120      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
121      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
122      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
123    END SUBROUTINE cxios_get_filegroup_group_ref
124
125    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref
128      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
129    END FUNCTION cxios_is_defined_filegroup_group_ref
130
131
132    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
135      INTEGER (KIND=C_INT)      , VALUE :: min_digits
136    END SUBROUTINE cxios_set_filegroup_min_digits
137
138    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
141      INTEGER (KIND=C_INT)             :: min_digits
142    END SUBROUTINE cxios_get_filegroup_min_digits
143
144    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits
147      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
148    END FUNCTION cxios_is_defined_filegroup_min_digits
149
150
151    SUBROUTINE cxios_set_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
154      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
155      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
156    END SUBROUTINE cxios_set_filegroup_mode
157
158    SUBROUTINE cxios_get_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
159      USE ISO_C_BINDING
160      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
161      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
162      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
163    END SUBROUTINE cxios_get_filegroup_mode
164
165    FUNCTION cxios_is_defined_filegroup_mode(filegroup_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_mode
168      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
169    END FUNCTION cxios_is_defined_filegroup_mode
170
171
172    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
175      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
176      INTEGER  (kind = C_INT)     , VALUE        :: name_size
177    END SUBROUTINE cxios_set_filegroup_name
178
179    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
182      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
183      INTEGER  (kind = C_INT)     , VALUE        :: name_size
184    END SUBROUTINE cxios_get_filegroup_name
185
186    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl) BIND(C)
187      USE ISO_C_BINDING
188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name
189      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
190    END FUNCTION cxios_is_defined_filegroup_name
191
192
193    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
194      USE ISO_C_BINDING
195      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
197      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
198    END SUBROUTINE cxios_set_filegroup_name_suffix
199
200    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
201      USE ISO_C_BINDING
202      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
204      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
205    END SUBROUTINE cxios_get_filegroup_name_suffix
206
207    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix
210      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
211    END FUNCTION cxios_is_defined_filegroup_name_suffix
212
213
214    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
215      USE ISO_C_BINDING
216      USE IDURATION
217      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
218      TYPE(txios(duration)), VALUE :: output_freq
219    END SUBROUTINE cxios_set_filegroup_output_freq
220
221    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
222      USE ISO_C_BINDING
223      USE IDURATION
224      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
225      TYPE(txios(duration)) :: output_freq
226    END SUBROUTINE cxios_get_filegroup_output_freq
227
228    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq
231      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
232    END FUNCTION cxios_is_defined_filegroup_output_freq
233
234
235    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
238      INTEGER (KIND=C_INT)      , VALUE :: output_level
239    END SUBROUTINE cxios_set_filegroup_output_level
240
241    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
244      INTEGER (KIND=C_INT)             :: output_level
245    END SUBROUTINE cxios_get_filegroup_output_level
246
247    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level
250      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
251    END FUNCTION cxios_is_defined_filegroup_output_level
252
253
254    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
258      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
259    END SUBROUTINE cxios_set_filegroup_par_access
260
261    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
265      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
266    END SUBROUTINE cxios_get_filegroup_par_access
267
268    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access
271      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
272    END FUNCTION cxios_is_defined_filegroup_par_access
273
274
275    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
276      USE ISO_C_BINDING
277      USE IDURATION
278      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
279      TYPE(txios(duration)), VALUE :: split_freq
280    END SUBROUTINE cxios_set_filegroup_split_freq
281
282    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
283      USE ISO_C_BINDING
284      USE IDURATION
285      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
286      TYPE(txios(duration)) :: split_freq
287    END SUBROUTINE cxios_get_filegroup_split_freq
288
289    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl) BIND(C)
290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq
292      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
293    END FUNCTION cxios_is_defined_filegroup_split_freq
294
295
296    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
300      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
301    END SUBROUTINE cxios_set_filegroup_split_freq_format
302
303    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
304      USE ISO_C_BINDING
305      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
306      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
307      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
308    END SUBROUTINE cxios_get_filegroup_split_freq_format
309
310    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl) BIND(C)
311      USE ISO_C_BINDING
312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format
313      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
314    END FUNCTION cxios_is_defined_filegroup_split_freq_format
315
316
317    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_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 :: sync_freq
322    END SUBROUTINE cxios_set_filegroup_sync_freq
323
324    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C)
325      USE ISO_C_BINDING
326      USE IDURATION
327      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
328      TYPE(txios(duration)) :: sync_freq
329    END SUBROUTINE cxios_get_filegroup_sync_freq
330
331    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl) BIND(C)
332      USE ISO_C_BINDING
333      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq
334      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
335    END FUNCTION cxios_is_defined_filegroup_sync_freq
336
337
338    SUBROUTINE cxios_set_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
341      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
342      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
343    END SUBROUTINE cxios_set_filegroup_time_counter
344
345    SUBROUTINE cxios_get_filegroup_time_counter(filegroup_hdl, time_counter, time_counter_size) BIND(C)
346      USE ISO_C_BINDING
347      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
348      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
349      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
350    END SUBROUTINE cxios_get_filegroup_time_counter
351
352    FUNCTION cxios_is_defined_filegroup_time_counter(filegroup_hdl) BIND(C)
353      USE ISO_C_BINDING
354      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_time_counter
355      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
356    END FUNCTION cxios_is_defined_filegroup_time_counter
357
358
359    SUBROUTINE cxios_set_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C)
360      USE ISO_C_BINDING
361      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
362      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
363      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
364    END SUBROUTINE cxios_set_filegroup_timeseries
365
366    SUBROUTINE cxios_get_filegroup_timeseries(filegroup_hdl, timeseries, timeseries_size) BIND(C)
367      USE ISO_C_BINDING
368      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
369      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
370      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
371    END SUBROUTINE cxios_get_filegroup_timeseries
372
373    FUNCTION cxios_is_defined_filegroup_timeseries(filegroup_hdl) BIND(C)
374      USE ISO_C_BINDING
375      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_timeseries
376      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
377    END FUNCTION cxios_is_defined_filegroup_timeseries
378
379
380    SUBROUTINE cxios_set_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C)
381      USE ISO_C_BINDING
382      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
383      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
384      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
385    END SUBROUTINE cxios_set_filegroup_ts_prefix
386
387    SUBROUTINE cxios_get_filegroup_ts_prefix(filegroup_hdl, ts_prefix, ts_prefix_size) BIND(C)
388      USE ISO_C_BINDING
389      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
390      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
391      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
392    END SUBROUTINE cxios_get_filegroup_ts_prefix
393
394    FUNCTION cxios_is_defined_filegroup_ts_prefix(filegroup_hdl) BIND(C)
395      USE ISO_C_BINDING
396      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_ts_prefix
397      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
398    END FUNCTION cxios_is_defined_filegroup_ts_prefix
399
400
401    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
402      USE ISO_C_BINDING
403      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
404      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
405      INTEGER  (kind = C_INT)     , VALUE        :: type_size
406    END SUBROUTINE cxios_set_filegroup_type
407
408    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
409      USE ISO_C_BINDING
410      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
411      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
412      INTEGER  (kind = C_INT)     , VALUE        :: type_size
413    END SUBROUTINE cxios_get_filegroup_type
414
415    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl) BIND(C)
416      USE ISO_C_BINDING
417      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type
418      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
419    END FUNCTION cxios_is_defined_filegroup_type
420
421  END INTERFACE
422
423END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.