source: XIOS/dev/dev_olga/src/interface/fortran_attr/file_interface_attr.F90 @ 1201

Last change on this file since 1201 was 1201, checked in by oabramkina, 7 years ago

Two server levels: merging trunk r1200 (except for non-contiguous zoom) into dev. Tested on Curie. Todo: non-contiguous zoom.
  • 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: 25.5 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_compression_level(file_hdl, compression_level) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
34      INTEGER (KIND=C_INT)      , VALUE :: compression_level
35    END SUBROUTINE cxios_set_file_compression_level
36
37    SUBROUTINE cxios_get_file_compression_level(file_hdl, compression_level) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
40      INTEGER (KIND=C_INT)             :: compression_level
41    END SUBROUTINE cxios_get_file_compression_level
42
43    FUNCTION cxios_is_defined_file_compression_level(file_hdl) BIND(C)
44      USE ISO_C_BINDING
45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_compression_level
46      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
47    END FUNCTION cxios_is_defined_file_compression_level
48
49
50    SUBROUTINE cxios_set_file_convention(file_hdl, convention, convention_size) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
53      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention
54      INTEGER  (kind = C_INT)     , VALUE        :: convention_size
55    END SUBROUTINE cxios_set_file_convention
56
57    SUBROUTINE cxios_get_file_convention(file_hdl, convention, convention_size) BIND(C)
58      USE ISO_C_BINDING
59      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
60      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention
61      INTEGER  (kind = C_INT)     , VALUE        :: convention_size
62    END SUBROUTINE cxios_get_file_convention
63
64    FUNCTION cxios_is_defined_file_convention(file_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_convention
67      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
68    END FUNCTION cxios_is_defined_file_convention
69
70
71    SUBROUTINE cxios_set_file_convention_str(file_hdl, convention_str, convention_str_size) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
74      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention_str
75      INTEGER  (kind = C_INT)     , VALUE        :: convention_str_size
76    END SUBROUTINE cxios_set_file_convention_str
77
78    SUBROUTINE cxios_get_file_convention_str(file_hdl, convention_str, convention_str_size) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
81      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: convention_str
82      INTEGER  (kind = C_INT)     , VALUE        :: convention_str_size
83    END SUBROUTINE cxios_get_file_convention_str
84
85    FUNCTION cxios_is_defined_file_convention_str(file_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_convention_str
88      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
89    END FUNCTION cxios_is_defined_file_convention_str
90
91
92    SUBROUTINE cxios_set_file_cyclic(file_hdl, cyclic) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
95      LOGICAL (KIND=C_BOOL)      , VALUE :: cyclic
96    END SUBROUTINE cxios_set_file_cyclic
97
98    SUBROUTINE cxios_get_file_cyclic(file_hdl, cyclic) BIND(C)
99      USE ISO_C_BINDING
100      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
101      LOGICAL (KIND=C_BOOL)             :: cyclic
102    END SUBROUTINE cxios_get_file_cyclic
103
104    FUNCTION cxios_is_defined_file_cyclic(file_hdl) BIND(C)
105      USE ISO_C_BINDING
106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_cyclic
107      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
108    END FUNCTION cxios_is_defined_file_cyclic
109
110
111    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C)
112      USE ISO_C_BINDING
113      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
114      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
115      INTEGER  (kind = C_INT)     , VALUE        :: description_size
116    END SUBROUTINE cxios_set_file_description
117
118    SUBROUTINE cxios_get_file_description(file_hdl, description, description_size) BIND(C)
119      USE ISO_C_BINDING
120      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
121      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
122      INTEGER  (kind = C_INT)     , VALUE        :: description_size
123    END SUBROUTINE cxios_get_file_description
124
125    FUNCTION cxios_is_defined_file_description(file_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description
128      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
129    END FUNCTION cxios_is_defined_file_description
130
131
132    SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
135      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
136    END SUBROUTINE cxios_set_file_enabled
137
138    SUBROUTINE cxios_get_file_enabled(file_hdl, enabled) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
141      LOGICAL (KIND=C_BOOL)             :: enabled
142    END SUBROUTINE cxios_get_file_enabled
143
144    FUNCTION cxios_is_defined_file_enabled(file_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled
147      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
148    END FUNCTION cxios_is_defined_file_enabled
149
150
151    SUBROUTINE cxios_set_file_format(file_hdl, format, format_size) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
154      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
155      INTEGER  (kind = C_INT)     , VALUE        :: format_size
156    END SUBROUTINE cxios_set_file_format
157
158    SUBROUTINE cxios_get_file_format(file_hdl, format, format_size) BIND(C)
159      USE ISO_C_BINDING
160      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
161      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
162      INTEGER  (kind = C_INT)     , VALUE        :: format_size
163    END SUBROUTINE cxios_get_file_format
164
165    FUNCTION cxios_is_defined_file_format(file_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_format
168      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
169    END FUNCTION cxios_is_defined_file_format
170
171
172    SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
175      INTEGER (KIND=C_INT)      , VALUE :: min_digits
176    END SUBROUTINE cxios_set_file_min_digits
177
178    SUBROUTINE cxios_get_file_min_digits(file_hdl, min_digits) BIND(C)
179      USE ISO_C_BINDING
180      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
181      INTEGER (KIND=C_INT)             :: min_digits
182    END SUBROUTINE cxios_get_file_min_digits
183
184    FUNCTION cxios_is_defined_file_min_digits(file_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits
187      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
188    END FUNCTION cxios_is_defined_file_min_digits
189
190
191    SUBROUTINE cxios_set_file_mode(file_hdl, mode, mode_size) BIND(C)
192      USE ISO_C_BINDING
193      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
194      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
195      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
196    END SUBROUTINE cxios_set_file_mode
197
198    SUBROUTINE cxios_get_file_mode(file_hdl, mode, mode_size) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
201      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
202      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
203    END SUBROUTINE cxios_get_file_mode
204
205    FUNCTION cxios_is_defined_file_mode(file_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_mode
208      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
209    END FUNCTION cxios_is_defined_file_mode
210
211
212    SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
216      INTEGER  (kind = C_INT)     , VALUE        :: name_size
217    END SUBROUTINE cxios_set_file_name
218
219    SUBROUTINE cxios_get_file_name(file_hdl, name, name_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
223      INTEGER  (kind = C_INT)     , VALUE        :: name_size
224    END SUBROUTINE cxios_get_file_name
225
226    FUNCTION cxios_is_defined_file_name(file_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name
229      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
230    END FUNCTION cxios_is_defined_file_name
231
232
233    SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
236      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
237      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
238    END SUBROUTINE cxios_set_file_name_suffix
239
240    SUBROUTINE cxios_get_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
241      USE ISO_C_BINDING
242      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
243      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
244      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
245    END SUBROUTINE cxios_get_file_name_suffix
246
247    FUNCTION cxios_is_defined_file_name_suffix(file_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix
250      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
251    END FUNCTION cxios_is_defined_file_name_suffix
252
253
254    SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq) BIND(C)
255      USE ISO_C_BINDING
256      USE IDURATION
257      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
258      TYPE(txios(duration)), VALUE :: output_freq
259    END SUBROUTINE cxios_set_file_output_freq
260
261    SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq) BIND(C)
262      USE ISO_C_BINDING
263      USE IDURATION
264      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
265      TYPE(txios(duration)) :: output_freq
266    END SUBROUTINE cxios_get_file_output_freq
267
268    FUNCTION cxios_is_defined_file_output_freq(file_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq
271      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
272    END FUNCTION cxios_is_defined_file_output_freq
273
274
275    SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
278      INTEGER (KIND=C_INT)      , VALUE :: output_level
279    END SUBROUTINE cxios_set_file_output_level
280
281    SUBROUTINE cxios_get_file_output_level(file_hdl, output_level) BIND(C)
282      USE ISO_C_BINDING
283      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
284      INTEGER (KIND=C_INT)             :: output_level
285    END SUBROUTINE cxios_get_file_output_level
286
287    FUNCTION cxios_is_defined_file_output_level(file_hdl) BIND(C)
288      USE ISO_C_BINDING
289      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level
290      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
291    END FUNCTION cxios_is_defined_file_output_level
292
293
294    SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
297      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
298      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
299    END SUBROUTINE cxios_set_file_par_access
300
301    SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
302      USE ISO_C_BINDING
303      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
304      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
305      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
306    END SUBROUTINE cxios_get_file_par_access
307
308    FUNCTION cxios_is_defined_file_par_access(file_hdl) BIND(C)
309      USE ISO_C_BINDING
310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access
311      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
312    END FUNCTION cxios_is_defined_file_par_access
313
314
315    SUBROUTINE cxios_set_file_record_offset(file_hdl, record_offset) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
318      INTEGER (KIND=C_INT)      , VALUE :: record_offset
319    END SUBROUTINE cxios_set_file_record_offset
320
321    SUBROUTINE cxios_get_file_record_offset(file_hdl, record_offset) BIND(C)
322      USE ISO_C_BINDING
323      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
324      INTEGER (KIND=C_INT)             :: record_offset
325    END SUBROUTINE cxios_get_file_record_offset
326
327    FUNCTION cxios_is_defined_file_record_offset(file_hdl) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_record_offset
330      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
331    END FUNCTION cxios_is_defined_file_record_offset
332
333
334    SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq) BIND(C)
335      USE ISO_C_BINDING
336      USE IDURATION
337      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
338      TYPE(txios(duration)), VALUE :: split_freq
339    END SUBROUTINE cxios_set_file_split_freq
340
341    SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq) BIND(C)
342      USE ISO_C_BINDING
343      USE IDURATION
344      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
345      TYPE(txios(duration)) :: split_freq
346    END SUBROUTINE cxios_get_file_split_freq
347
348    FUNCTION cxios_is_defined_file_split_freq(file_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq
351      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
352    END FUNCTION cxios_is_defined_file_split_freq
353
354
355    SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
358      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
359      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
360    END SUBROUTINE cxios_set_file_split_freq_format
361
362    SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
363      USE ISO_C_BINDING
364      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
365      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
366      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
367    END SUBROUTINE cxios_get_file_split_freq_format
368
369    FUNCTION cxios_is_defined_file_split_freq_format(file_hdl) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format
372      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
373    END FUNCTION cxios_is_defined_file_split_freq_format
374
375
376    SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq) BIND(C)
377      USE ISO_C_BINDING
378      USE IDURATION
379      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
380      TYPE(txios(duration)), VALUE :: sync_freq
381    END SUBROUTINE cxios_set_file_sync_freq
382
383    SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq) BIND(C)
384      USE ISO_C_BINDING
385      USE IDURATION
386      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
387      TYPE(txios(duration)) :: sync_freq
388    END SUBROUTINE cxios_get_file_sync_freq
389
390    FUNCTION cxios_is_defined_file_sync_freq(file_hdl) BIND(C)
391      USE ISO_C_BINDING
392      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq
393      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
394    END FUNCTION cxios_is_defined_file_sync_freq
395
396
397    SUBROUTINE cxios_set_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
398      USE ISO_C_BINDING
399      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
400      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
401      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
402    END SUBROUTINE cxios_set_file_time_counter
403
404    SUBROUTINE cxios_get_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
405      USE ISO_C_BINDING
406      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
407      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
408      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
409    END SUBROUTINE cxios_get_file_time_counter
410
411    FUNCTION cxios_is_defined_file_time_counter(file_hdl) BIND(C)
412      USE ISO_C_BINDING
413      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_counter
414      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
415    END FUNCTION cxios_is_defined_file_time_counter
416
417
418    SUBROUTINE cxios_set_file_time_counter_name(file_hdl, time_counter_name, time_counter_name_size) BIND(C)
419      USE ISO_C_BINDING
420      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
421      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
422      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
423    END SUBROUTINE cxios_set_file_time_counter_name
424
425    SUBROUTINE cxios_get_file_time_counter_name(file_hdl, time_counter_name, time_counter_name_size) BIND(C)
426      USE ISO_C_BINDING
427      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
428      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
429      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
430    END SUBROUTINE cxios_get_file_time_counter_name
431
432    FUNCTION cxios_is_defined_file_time_counter_name(file_hdl) BIND(C)
433      USE ISO_C_BINDING
434      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_counter_name
435      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
436    END FUNCTION cxios_is_defined_file_time_counter_name
437
438
439    SUBROUTINE cxios_set_file_time_stamp_format(file_hdl, time_stamp_format, time_stamp_format_size) BIND(C)
440      USE ISO_C_BINDING
441      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
442      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_format
443      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_format_size
444    END SUBROUTINE cxios_set_file_time_stamp_format
445
446    SUBROUTINE cxios_get_file_time_stamp_format(file_hdl, time_stamp_format, time_stamp_format_size) BIND(C)
447      USE ISO_C_BINDING
448      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
449      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_format
450      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_format_size
451    END SUBROUTINE cxios_get_file_time_stamp_format
452
453    FUNCTION cxios_is_defined_file_time_stamp_format(file_hdl) BIND(C)
454      USE ISO_C_BINDING
455      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_stamp_format
456      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
457    END FUNCTION cxios_is_defined_file_time_stamp_format
458
459
460    SUBROUTINE cxios_set_file_time_stamp_name(file_hdl, time_stamp_name, time_stamp_name_size) BIND(C)
461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
463      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_name
464      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_name_size
465    END SUBROUTINE cxios_set_file_time_stamp_name
466
467    SUBROUTINE cxios_get_file_time_stamp_name(file_hdl, time_stamp_name, time_stamp_name_size) BIND(C)
468      USE ISO_C_BINDING
469      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
470      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_stamp_name
471      INTEGER  (kind = C_INT)     , VALUE        :: time_stamp_name_size
472    END SUBROUTINE cxios_get_file_time_stamp_name
473
474    FUNCTION cxios_is_defined_file_time_stamp_name(file_hdl) BIND(C)
475      USE ISO_C_BINDING
476      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_stamp_name
477      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
478    END FUNCTION cxios_is_defined_file_time_stamp_name
479
480
481    SUBROUTINE cxios_set_file_time_units(file_hdl, time_units, time_units_size) BIND(C)
482      USE ISO_C_BINDING
483      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
484      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_units
485      INTEGER  (kind = C_INT)     , VALUE        :: time_units_size
486    END SUBROUTINE cxios_set_file_time_units
487
488    SUBROUTINE cxios_get_file_time_units(file_hdl, time_units, time_units_size) BIND(C)
489      USE ISO_C_BINDING
490      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
491      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_units
492      INTEGER  (kind = C_INT)     , VALUE        :: time_units_size
493    END SUBROUTINE cxios_get_file_time_units
494
495    FUNCTION cxios_is_defined_file_time_units(file_hdl) BIND(C)
496      USE ISO_C_BINDING
497      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_units
498      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
499    END FUNCTION cxios_is_defined_file_time_units
500
501
502    SUBROUTINE cxios_set_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
503      USE ISO_C_BINDING
504      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
505      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
506      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
507    END SUBROUTINE cxios_set_file_timeseries
508
509    SUBROUTINE cxios_get_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
510      USE ISO_C_BINDING
511      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
512      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
513      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
514    END SUBROUTINE cxios_get_file_timeseries
515
516    FUNCTION cxios_is_defined_file_timeseries(file_hdl) BIND(C)
517      USE ISO_C_BINDING
518      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_timeseries
519      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
520    END FUNCTION cxios_is_defined_file_timeseries
521
522
523    SUBROUTINE cxios_set_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
524      USE ISO_C_BINDING
525      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
526      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
527      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
528    END SUBROUTINE cxios_set_file_ts_prefix
529
530    SUBROUTINE cxios_get_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
531      USE ISO_C_BINDING
532      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
533      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
534      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
535    END SUBROUTINE cxios_get_file_ts_prefix
536
537    FUNCTION cxios_is_defined_file_ts_prefix(file_hdl) BIND(C)
538      USE ISO_C_BINDING
539      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_ts_prefix
540      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
541    END FUNCTION cxios_is_defined_file_ts_prefix
542
543
544    SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
545      USE ISO_C_BINDING
546      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
547      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
548      INTEGER  (kind = C_INT)     , VALUE        :: type_size
549    END SUBROUTINE cxios_set_file_type
550
551    SUBROUTINE cxios_get_file_type(file_hdl, type, type_size) BIND(C)
552      USE ISO_C_BINDING
553      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
554      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
555      INTEGER  (kind = C_INT)     , VALUE        :: type_size
556    END SUBROUTINE cxios_get_file_type
557
558    FUNCTION cxios_is_defined_file_type(file_hdl) BIND(C)
559      USE ISO_C_BINDING
560      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type
561      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
562    END FUNCTION cxios_is_defined_file_type
563
564
565    SUBROUTINE cxios_set_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C)
566      USE ISO_C_BINDING
567      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
568      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_format
569      INTEGER  (kind = C_INT)     , VALUE        :: uuid_format_size
570    END SUBROUTINE cxios_set_file_uuid_format
571
572    SUBROUTINE cxios_get_file_uuid_format(file_hdl, uuid_format, uuid_format_size) BIND(C)
573      USE ISO_C_BINDING
574      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
575      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_format
576      INTEGER  (kind = C_INT)     , VALUE        :: uuid_format_size
577    END SUBROUTINE cxios_get_file_uuid_format
578
579    FUNCTION cxios_is_defined_file_uuid_format(file_hdl) BIND(C)
580      USE ISO_C_BINDING
581      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_uuid_format
582      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
583    END FUNCTION cxios_is_defined_file_uuid_format
584
585
586    SUBROUTINE cxios_set_file_uuid_name(file_hdl, uuid_name, uuid_name_size) BIND(C)
587      USE ISO_C_BINDING
588      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
589      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_name
590      INTEGER  (kind = C_INT)     , VALUE        :: uuid_name_size
591    END SUBROUTINE cxios_set_file_uuid_name
592
593    SUBROUTINE cxios_get_file_uuid_name(file_hdl, uuid_name, uuid_name_size) BIND(C)
594      USE ISO_C_BINDING
595      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
596      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: uuid_name
597      INTEGER  (kind = C_INT)     , VALUE        :: uuid_name_size
598    END SUBROUTINE cxios_get_file_uuid_name
599
600    FUNCTION cxios_is_defined_file_uuid_name(file_hdl) BIND(C)
601      USE ISO_C_BINDING
602      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_uuid_name
603      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
604    END FUNCTION cxios_is_defined_file_uuid_name
605
606  END INTERFACE
607
608END MODULE file_interface_attr
Note: See TracBrowser for help on using the repository browser.