source: XIOS/trunk/src/interface/fortran_attr/file_interface_attr.F90 @ 1542

Last change on this file since 1542 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.
  • 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: 29.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE file_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_file_append(file_hdl, append) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
15      LOGICAL (KIND=C_BOOL)      , VALUE :: append
16    END SUBROUTINE cxios_set_file_append
17
18    SUBROUTINE cxios_get_file_append(file_hdl, append) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
21      LOGICAL (KIND=C_BOOL)             :: append
22    END SUBROUTINE cxios_get_file_append
23
24    FUNCTION cxios_is_defined_file_append(file_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_append
27      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
28    END FUNCTION cxios_is_defined_file_append
29
30
31    SUBROUTINE cxios_set_file_comment(file_hdl, comment, comment_size) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
35      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
36    END SUBROUTINE cxios_set_file_comment
37
38    SUBROUTINE cxios_get_file_comment(file_hdl, comment, comment_size) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
42      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
43    END SUBROUTINE cxios_get_file_comment
44
45    FUNCTION cxios_is_defined_file_comment(file_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_comment
48      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
49    END FUNCTION cxios_is_defined_file_comment
50
51
52    SUBROUTINE cxios_set_file_compression_level(file_hdl, compression_level) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
55      INTEGER (KIND=C_INT)      , VALUE :: compression_level
56    END SUBROUTINE cxios_set_file_compression_level
57
58    SUBROUTINE cxios_get_file_compression_level(file_hdl, compression_level) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
61      INTEGER (KIND=C_INT)             :: compression_level
62    END SUBROUTINE cxios_get_file_compression_level
63
64    FUNCTION cxios_is_defined_file_compression_level(file_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_compression_level
67      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
68    END FUNCTION cxios_is_defined_file_compression_level
69
70
71    SUBROUTINE cxios_set_file_convention(file_hdl, convention, convention_size) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
74      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention
75      INTEGER  (kind = C_INT)     , VALUE        :: convention_size
76    END SUBROUTINE cxios_set_file_convention
77
78    SUBROUTINE cxios_get_file_convention(file_hdl, convention, convention_size) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
81      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention
82      INTEGER  (kind = C_INT)     , VALUE        :: convention_size
83    END SUBROUTINE cxios_get_file_convention
84
85    FUNCTION cxios_is_defined_file_convention(file_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_convention
88      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
89    END FUNCTION cxios_is_defined_file_convention
90
91
92    SUBROUTINE cxios_set_file_convention_str(file_hdl, convention_str, convention_str_size) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
95      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention_str
96      INTEGER  (kind = C_INT)     , VALUE        :: convention_str_size
97    END SUBROUTINE cxios_set_file_convention_str
98
99    SUBROUTINE cxios_get_file_convention_str(file_hdl, convention_str, convention_str_size) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
102      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention_str
103      INTEGER  (kind = C_INT)     , VALUE        :: convention_str_size
104    END SUBROUTINE cxios_get_file_convention_str
105
106    FUNCTION cxios_is_defined_file_convention_str(file_hdl) BIND(C)
107      USE ISO_C_BINDING
108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_convention_str
109      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
110    END FUNCTION cxios_is_defined_file_convention_str
111
112
113    SUBROUTINE cxios_set_file_cyclic(file_hdl, cyclic) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
116      LOGICAL (KIND=C_BOOL)      , VALUE :: cyclic
117    END SUBROUTINE cxios_set_file_cyclic
118
119    SUBROUTINE cxios_get_file_cyclic(file_hdl, cyclic) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
122      LOGICAL (KIND=C_BOOL)             :: cyclic
123    END SUBROUTINE cxios_get_file_cyclic
124
125    FUNCTION cxios_is_defined_file_cyclic(file_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_cyclic
128      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
129    END FUNCTION cxios_is_defined_file_cyclic
130
131
132    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
135      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
136      INTEGER  (kind = C_INT)     , VALUE        :: description_size
137    END SUBROUTINE cxios_set_file_description
138
139    SUBROUTINE cxios_get_file_description(file_hdl, description, description_size) BIND(C)
140      USE ISO_C_BINDING
141      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
142      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
143      INTEGER  (kind = C_INT)     , VALUE        :: description_size
144    END SUBROUTINE cxios_get_file_description
145
146    FUNCTION cxios_is_defined_file_description(file_hdl) BIND(C)
147      USE ISO_C_BINDING
148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description
149      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
150    END FUNCTION cxios_is_defined_file_description
151
152
153    SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
156      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
157    END SUBROUTINE cxios_set_file_enabled
158
159    SUBROUTINE cxios_get_file_enabled(file_hdl, enabled) BIND(C)
160      USE ISO_C_BINDING
161      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
162      LOGICAL (KIND=C_BOOL)             :: enabled
163    END SUBROUTINE cxios_get_file_enabled
164
165    FUNCTION cxios_is_defined_file_enabled(file_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled
168      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
169    END FUNCTION cxios_is_defined_file_enabled
170
171
172    SUBROUTINE cxios_set_file_format(file_hdl, format, format_size) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
175      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
176      INTEGER  (kind = C_INT)     , VALUE        :: format_size
177    END SUBROUTINE cxios_set_file_format
178
179    SUBROUTINE cxios_get_file_format(file_hdl, format, format_size) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
182      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
183      INTEGER  (kind = C_INT)     , VALUE        :: format_size
184    END SUBROUTINE cxios_get_file_format
185
186    FUNCTION cxios_is_defined_file_format(file_hdl) BIND(C)
187      USE ISO_C_BINDING
188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_format
189      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
190    END FUNCTION cxios_is_defined_file_format
191
192
193    SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C)
194      USE ISO_C_BINDING
195      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
196      INTEGER (KIND=C_INT)      , VALUE :: min_digits
197    END SUBROUTINE cxios_set_file_min_digits
198
199    SUBROUTINE cxios_get_file_min_digits(file_hdl, min_digits) BIND(C)
200      USE ISO_C_BINDING
201      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
202      INTEGER (KIND=C_INT)             :: min_digits
203    END SUBROUTINE cxios_get_file_min_digits
204
205    FUNCTION cxios_is_defined_file_min_digits(file_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits
208      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
209    END FUNCTION cxios_is_defined_file_min_digits
210
211
212    SUBROUTINE cxios_set_file_mode(file_hdl, mode, mode_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
216      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
217    END SUBROUTINE cxios_set_file_mode
218
219    SUBROUTINE cxios_get_file_mode(file_hdl, mode, mode_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
223      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
224    END SUBROUTINE cxios_get_file_mode
225
226    FUNCTION cxios_is_defined_file_mode(file_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_mode
229      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
230    END FUNCTION cxios_is_defined_file_mode
231
232
233    SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
236      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
237      INTEGER  (kind = C_INT)     , VALUE        :: name_size
238    END SUBROUTINE cxios_set_file_name
239
240    SUBROUTINE cxios_get_file_name(file_hdl, name, name_size) BIND(C)
241      USE ISO_C_BINDING
242      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
243      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
244      INTEGER  (kind = C_INT)     , VALUE        :: name_size
245    END SUBROUTINE cxios_get_file_name
246
247    FUNCTION cxios_is_defined_file_name(file_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name
250      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
251    END FUNCTION cxios_is_defined_file_name
252
253
254    SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
258      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
259    END SUBROUTINE cxios_set_file_name_suffix
260
261    SUBROUTINE cxios_get_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
265      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
266    END SUBROUTINE cxios_get_file_name_suffix
267
268    FUNCTION cxios_is_defined_file_name_suffix(file_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix
271      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
272    END FUNCTION cxios_is_defined_file_name_suffix
273
274
275    SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq) BIND(C)
276      USE ISO_C_BINDING
277      USE IDURATION
278      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
279      TYPE(txios(duration)), VALUE :: output_freq
280    END SUBROUTINE cxios_set_file_output_freq
281
282    SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq) BIND(C)
283      USE ISO_C_BINDING
284      USE IDURATION
285      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
286      TYPE(txios(duration)) :: output_freq
287    END SUBROUTINE cxios_get_file_output_freq
288
289    FUNCTION cxios_is_defined_file_output_freq(file_hdl) BIND(C)
290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq
292      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
293    END FUNCTION cxios_is_defined_file_output_freq
294
295
296    SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
299      INTEGER (KIND=C_INT)      , VALUE :: output_level
300    END SUBROUTINE cxios_set_file_output_level
301
302    SUBROUTINE cxios_get_file_output_level(file_hdl, output_level) BIND(C)
303      USE ISO_C_BINDING
304      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
305      INTEGER (KIND=C_INT)             :: output_level
306    END SUBROUTINE cxios_get_file_output_level
307
308    FUNCTION cxios_is_defined_file_output_level(file_hdl) BIND(C)
309      USE ISO_C_BINDING
310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level
311      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
312    END FUNCTION cxios_is_defined_file_output_level
313
314
315    SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
318      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
319      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
320    END SUBROUTINE cxios_set_file_par_access
321
322    SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
323      USE ISO_C_BINDING
324      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
325      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
326      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
327    END SUBROUTINE cxios_get_file_par_access
328
329    FUNCTION cxios_is_defined_file_par_access(file_hdl) BIND(C)
330      USE ISO_C_BINDING
331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access
332      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
333    END FUNCTION cxios_is_defined_file_par_access
334
335
336    SUBROUTINE cxios_set_file_read_metadata_par(file_hdl, read_metadata_par) BIND(C)
337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
339      LOGICAL (KIND=C_BOOL)      , VALUE :: read_metadata_par
340    END SUBROUTINE cxios_set_file_read_metadata_par
341
342    SUBROUTINE cxios_get_file_read_metadata_par(file_hdl, read_metadata_par) BIND(C)
343      USE ISO_C_BINDING
344      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
345      LOGICAL (KIND=C_BOOL)             :: read_metadata_par
346    END SUBROUTINE cxios_get_file_read_metadata_par
347
348    FUNCTION cxios_is_defined_file_read_metadata_par(file_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_read_metadata_par
351      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
352    END FUNCTION cxios_is_defined_file_read_metadata_par
353
354
355    SUBROUTINE cxios_set_file_record_offset(file_hdl, record_offset) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
358      INTEGER (KIND=C_INT)      , VALUE :: record_offset
359    END SUBROUTINE cxios_set_file_record_offset
360
361    SUBROUTINE cxios_get_file_record_offset(file_hdl, record_offset) BIND(C)
362      USE ISO_C_BINDING
363      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
364      INTEGER (KIND=C_INT)             :: record_offset
365    END SUBROUTINE cxios_get_file_record_offset
366
367    FUNCTION cxios_is_defined_file_record_offset(file_hdl) BIND(C)
368      USE ISO_C_BINDING
369      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_record_offset
370      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
371    END FUNCTION cxios_is_defined_file_record_offset
372
373
374    SUBROUTINE cxios_set_file_split_end_offset(file_hdl, split_end_offset) BIND(C)
375      USE ISO_C_BINDING
376      USE IDURATION
377      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
378      TYPE(txios(duration)), VALUE :: split_end_offset
379    END SUBROUTINE cxios_set_file_split_end_offset
380
381    SUBROUTINE cxios_get_file_split_end_offset(file_hdl, split_end_offset) BIND(C)
382      USE ISO_C_BINDING
383      USE IDURATION
384      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
385      TYPE(txios(duration)) :: split_end_offset
386    END SUBROUTINE cxios_get_file_split_end_offset
387
388    FUNCTION cxios_is_defined_file_split_end_offset(file_hdl) BIND(C)
389      USE ISO_C_BINDING
390      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_end_offset
391      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
392    END FUNCTION cxios_is_defined_file_split_end_offset
393
394
395    SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq) BIND(C)
396      USE ISO_C_BINDING
397      USE IDURATION
398      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
399      TYPE(txios(duration)), VALUE :: split_freq
400    END SUBROUTINE cxios_set_file_split_freq
401
402    SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq) BIND(C)
403      USE ISO_C_BINDING
404      USE IDURATION
405      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
406      TYPE(txios(duration)) :: split_freq
407    END SUBROUTINE cxios_get_file_split_freq
408
409    FUNCTION cxios_is_defined_file_split_freq(file_hdl) BIND(C)
410      USE ISO_C_BINDING
411      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq
412      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
413    END FUNCTION cxios_is_defined_file_split_freq
414
415
416    SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
417      USE ISO_C_BINDING
418      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
419      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
420      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
421    END SUBROUTINE cxios_set_file_split_freq_format
422
423    SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
424      USE ISO_C_BINDING
425      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
426      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
427      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
428    END SUBROUTINE cxios_get_file_split_freq_format
429
430    FUNCTION cxios_is_defined_file_split_freq_format(file_hdl) BIND(C)
431      USE ISO_C_BINDING
432      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format
433      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
434    END FUNCTION cxios_is_defined_file_split_freq_format
435
436
437    SUBROUTINE cxios_set_file_split_last_date(file_hdl, split_last_date, split_last_date_size) BIND(C)
438      USE ISO_C_BINDING
439      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
440      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_last_date
441      INTEGER  (kind = C_INT)     , VALUE        :: split_last_date_size
442    END SUBROUTINE cxios_set_file_split_last_date
443
444    SUBROUTINE cxios_get_file_split_last_date(file_hdl, split_last_date, split_last_date_size) BIND(C)
445      USE ISO_C_BINDING
446      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
447      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_last_date
448      INTEGER  (kind = C_INT)     , VALUE        :: split_last_date_size
449    END SUBROUTINE cxios_get_file_split_last_date
450
451    FUNCTION cxios_is_defined_file_split_last_date(file_hdl) BIND(C)
452      USE ISO_C_BINDING
453      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_last_date
454      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
455    END FUNCTION cxios_is_defined_file_split_last_date
456
457
458    SUBROUTINE cxios_set_file_split_start_offset(file_hdl, split_start_offset) BIND(C)
459      USE ISO_C_BINDING
460      USE IDURATION
461      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
462      TYPE(txios(duration)), VALUE :: split_start_offset
463    END SUBROUTINE cxios_set_file_split_start_offset
464
465    SUBROUTINE cxios_get_file_split_start_offset(file_hdl, split_start_offset) BIND(C)
466      USE ISO_C_BINDING
467      USE IDURATION
468      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
469      TYPE(txios(duration)) :: split_start_offset
470    END SUBROUTINE cxios_get_file_split_start_offset
471
472    FUNCTION cxios_is_defined_file_split_start_offset(file_hdl) BIND(C)
473      USE ISO_C_BINDING
474      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_start_offset
475      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
476    END FUNCTION cxios_is_defined_file_split_start_offset
477
478
479    SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq) BIND(C)
480      USE ISO_C_BINDING
481      USE IDURATION
482      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
483      TYPE(txios(duration)), VALUE :: sync_freq
484    END SUBROUTINE cxios_set_file_sync_freq
485
486    SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq) BIND(C)
487      USE ISO_C_BINDING
488      USE IDURATION
489      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
490      TYPE(txios(duration)) :: sync_freq
491    END SUBROUTINE cxios_get_file_sync_freq
492
493    FUNCTION cxios_is_defined_file_sync_freq(file_hdl) BIND(C)
494      USE ISO_C_BINDING
495      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq
496      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
497    END FUNCTION cxios_is_defined_file_sync_freq
498
499
500    SUBROUTINE cxios_set_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
501      USE ISO_C_BINDING
502      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
503      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
504      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
505    END SUBROUTINE cxios_set_file_time_counter
506
507    SUBROUTINE cxios_get_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
508      USE ISO_C_BINDING
509      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
510      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
511      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
512    END SUBROUTINE cxios_get_file_time_counter
513
514    FUNCTION cxios_is_defined_file_time_counter(file_hdl) BIND(C)
515      USE ISO_C_BINDING
516      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_counter
517      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
518    END FUNCTION cxios_is_defined_file_time_counter
519
520
521    SUBROUTINE cxios_set_file_time_counter_name(file_hdl, time_counter_name, time_counter_name_size) BIND(C)
522      USE ISO_C_BINDING
523      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
524      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
525      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
526    END SUBROUTINE cxios_set_file_time_counter_name
527
528    SUBROUTINE cxios_get_file_time_counter_name(file_hdl, time_counter_name, time_counter_name_size) BIND(C)
529      USE ISO_C_BINDING
530      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
531      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
532      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
533    END SUBROUTINE cxios_get_file_time_counter_name
534
535    FUNCTION cxios_is_defined_file_time_counter_name(file_hdl) BIND(C)
536      USE ISO_C_BINDING
537      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_counter_name
538      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
539    END FUNCTION cxios_is_defined_file_time_counter_name
540
541
542    SUBROUTINE cxios_set_file_time_stamp_format(file_hdl, time_stamp_format, time_stamp_format_size) BIND(C)
543      USE ISO_C_BINDING
544      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
545      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_format
546      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_format_size
547    END SUBROUTINE cxios_set_file_time_stamp_format
548
549    SUBROUTINE cxios_get_file_time_stamp_format(file_hdl, time_stamp_format, time_stamp_format_size) BIND(C)
550      USE ISO_C_BINDING
551      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
552      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_format
553      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_format_size
554    END SUBROUTINE cxios_get_file_time_stamp_format
555
556    FUNCTION cxios_is_defined_file_time_stamp_format(file_hdl) BIND(C)
557      USE ISO_C_BINDING
558      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_stamp_format
559      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
560    END FUNCTION cxios_is_defined_file_time_stamp_format
561
562
563    SUBROUTINE cxios_set_file_time_stamp_name(file_hdl, time_stamp_name, time_stamp_name_size) BIND(C)
564      USE ISO_C_BINDING
565      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
566      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_name
567      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_name_size
568    END SUBROUTINE cxios_set_file_time_stamp_name
569
570    SUBROUTINE cxios_get_file_time_stamp_name(file_hdl, time_stamp_name, time_stamp_name_size) BIND(C)
571      USE ISO_C_BINDING
572      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
573      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_name
574      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_name_size
575    END SUBROUTINE cxios_get_file_time_stamp_name
576
577    FUNCTION cxios_is_defined_file_time_stamp_name(file_hdl) BIND(C)
578      USE ISO_C_BINDING
579      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_stamp_name
580      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
581    END FUNCTION cxios_is_defined_file_time_stamp_name
582
583
584    SUBROUTINE cxios_set_file_time_units(file_hdl, time_units, time_units_size) BIND(C)
585      USE ISO_C_BINDING
586      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
587      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_units
588      INTEGER  (kind = C_INT)     , VALUE        :: time_units_size
589    END SUBROUTINE cxios_set_file_time_units
590
591    SUBROUTINE cxios_get_file_time_units(file_hdl, time_units, time_units_size) BIND(C)
592      USE ISO_C_BINDING
593      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
594      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_units
595      INTEGER  (kind = C_INT)     , VALUE        :: time_units_size
596    END SUBROUTINE cxios_get_file_time_units
597
598    FUNCTION cxios_is_defined_file_time_units(file_hdl) BIND(C)
599      USE ISO_C_BINDING
600      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_units
601      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
602    END FUNCTION cxios_is_defined_file_time_units
603
604
605    SUBROUTINE cxios_set_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
606      USE ISO_C_BINDING
607      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
608      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
609      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
610    END SUBROUTINE cxios_set_file_timeseries
611
612    SUBROUTINE cxios_get_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
613      USE ISO_C_BINDING
614      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
615      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
616      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
617    END SUBROUTINE cxios_get_file_timeseries
618
619    FUNCTION cxios_is_defined_file_timeseries(file_hdl) BIND(C)
620      USE ISO_C_BINDING
621      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_timeseries
622      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
623    END FUNCTION cxios_is_defined_file_timeseries
624
625
626    SUBROUTINE cxios_set_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
627      USE ISO_C_BINDING
628      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
629      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
630      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
631    END SUBROUTINE cxios_set_file_ts_prefix
632
633    SUBROUTINE cxios_get_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
634      USE ISO_C_BINDING
635      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
636      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
637      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
638    END SUBROUTINE cxios_get_file_ts_prefix
639
640    FUNCTION cxios_is_defined_file_ts_prefix(file_hdl) BIND(C)
641      USE ISO_C_BINDING
642      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_ts_prefix
643      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
644    END FUNCTION cxios_is_defined_file_ts_prefix
645
646
647    SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
648      USE ISO_C_BINDING
649      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
650      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
651      INTEGER  (kind = C_INT)     , VALUE        :: type_size
652    END SUBROUTINE cxios_set_file_type
653
654    SUBROUTINE cxios_get_file_type(file_hdl, type, type_size) BIND(C)
655      USE ISO_C_BINDING
656      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
657      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
658      INTEGER  (kind = C_INT)     , VALUE        :: type_size
659    END SUBROUTINE cxios_get_file_type
660
661    FUNCTION cxios_is_defined_file_type(file_hdl) BIND(C)
662      USE ISO_C_BINDING
663      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type
664      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
665    END FUNCTION cxios_is_defined_file_type
666
667
668    SUBROUTINE cxios_set_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C)
669      USE ISO_C_BINDING
670      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
671      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_format
672      INTEGER  (kind = C_INT)     , VALUE        :: uuid_format_size
673    END SUBROUTINE cxios_set_file_uuid_format
674
675    SUBROUTINE cxios_get_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C)
676      USE ISO_C_BINDING
677      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
678      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_format
679      INTEGER  (kind = C_INT)     , VALUE        :: uuid_format_size
680    END SUBROUTINE cxios_get_file_uuid_format
681
682    FUNCTION cxios_is_defined_file_uuid_format(file_hdl) BIND(C)
683      USE ISO_C_BINDING
684      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_uuid_format
685      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
686    END FUNCTION cxios_is_defined_file_uuid_format
687
688
689    SUBROUTINE cxios_set_file_uuid_name(file_hdl, uuid_name, uuid_name_size) BIND(C)
690      USE ISO_C_BINDING
691      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
692      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_name
693      INTEGER  (kind = C_INT)     , VALUE        :: uuid_name_size
694    END SUBROUTINE cxios_set_file_uuid_name
695
696    SUBROUTINE cxios_get_file_uuid_name(file_hdl, uuid_name, uuid_name_size) BIND(C)
697      USE ISO_C_BINDING
698      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
699      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_name
700      INTEGER  (kind = C_INT)     , VALUE        :: uuid_name_size
701    END SUBROUTINE cxios_get_file_uuid_name
702
703    FUNCTION cxios_is_defined_file_uuid_name(file_hdl) BIND(C)
704      USE ISO_C_BINDING
705      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_uuid_name
706      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
707    END FUNCTION cxios_is_defined_file_uuid_name
708
709  END INTERFACE
710
711END MODULE file_interface_attr
Note: See TracBrowser for help on using the repository browser.