source: XIOS/trunk/src/interface/fortran_attr/file_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: 18.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_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_cyclic(file_hdl, cyclic) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
53      LOGICAL (KIND=C_BOOL)      , VALUE :: cyclic
54    END SUBROUTINE cxios_set_file_cyclic
55
56    SUBROUTINE cxios_get_file_cyclic(file_hdl, cyclic) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
59      LOGICAL (KIND=C_BOOL)             :: cyclic
60    END SUBROUTINE cxios_get_file_cyclic
61
62    FUNCTION cxios_is_defined_file_cyclic(file_hdl) BIND(C)
63      USE ISO_C_BINDING
64      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_cyclic
65      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
66    END FUNCTION cxios_is_defined_file_cyclic
67
68
69    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C)
70      USE ISO_C_BINDING
71      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
72      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
73      INTEGER  (kind = C_INT)     , VALUE        :: description_size
74    END SUBROUTINE cxios_set_file_description
75
76    SUBROUTINE cxios_get_file_description(file_hdl, description, description_size) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
79      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
80      INTEGER  (kind = C_INT)     , VALUE        :: description_size
81    END SUBROUTINE cxios_get_file_description
82
83    FUNCTION cxios_is_defined_file_description(file_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description
86      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
87    END FUNCTION cxios_is_defined_file_description
88
89
90    SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
93      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
94    END SUBROUTINE cxios_set_file_enabled
95
96    SUBROUTINE cxios_get_file_enabled(file_hdl, enabled) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
99      LOGICAL (KIND=C_BOOL)             :: enabled
100    END SUBROUTINE cxios_get_file_enabled
101
102    FUNCTION cxios_is_defined_file_enabled(file_hdl) BIND(C)
103      USE ISO_C_BINDING
104      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled
105      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
106    END FUNCTION cxios_is_defined_file_enabled
107
108
109    SUBROUTINE cxios_set_file_format(file_hdl, format, format_size) BIND(C)
110      USE ISO_C_BINDING
111      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
112      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
113      INTEGER  (kind = C_INT)     , VALUE        :: format_size
114    END SUBROUTINE cxios_set_file_format
115
116    SUBROUTINE cxios_get_file_format(file_hdl, format, format_size) BIND(C)
117      USE ISO_C_BINDING
118      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
119      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
120      INTEGER  (kind = C_INT)     , VALUE        :: format_size
121    END SUBROUTINE cxios_get_file_format
122
123    FUNCTION cxios_is_defined_file_format(file_hdl) BIND(C)
124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_format
126      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
127    END FUNCTION cxios_is_defined_file_format
128
129
130    SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
133      INTEGER (KIND=C_INT)      , VALUE :: min_digits
134    END SUBROUTINE cxios_set_file_min_digits
135
136    SUBROUTINE cxios_get_file_min_digits(file_hdl, min_digits) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
139      INTEGER (KIND=C_INT)             :: min_digits
140    END SUBROUTINE cxios_get_file_min_digits
141
142    FUNCTION cxios_is_defined_file_min_digits(file_hdl) BIND(C)
143      USE ISO_C_BINDING
144      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits
145      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
146    END FUNCTION cxios_is_defined_file_min_digits
147
148
149    SUBROUTINE cxios_set_file_mode(file_hdl, mode, mode_size) BIND(C)
150      USE ISO_C_BINDING
151      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
152      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
153      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
154    END SUBROUTINE cxios_set_file_mode
155
156    SUBROUTINE cxios_get_file_mode(file_hdl, mode, mode_size) BIND(C)
157      USE ISO_C_BINDING
158      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
159      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
160      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
161    END SUBROUTINE cxios_get_file_mode
162
163    FUNCTION cxios_is_defined_file_mode(file_hdl) BIND(C)
164      USE ISO_C_BINDING
165      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_mode
166      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
167    END FUNCTION cxios_is_defined_file_mode
168
169
170    SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C)
171      USE ISO_C_BINDING
172      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
173      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
174      INTEGER  (kind = C_INT)     , VALUE        :: name_size
175    END SUBROUTINE cxios_set_file_name
176
177    SUBROUTINE cxios_get_file_name(file_hdl, name, name_size) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
180      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
181      INTEGER  (kind = C_INT)     , VALUE        :: name_size
182    END SUBROUTINE cxios_get_file_name
183
184    FUNCTION cxios_is_defined_file_name(file_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name
187      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
188    END FUNCTION cxios_is_defined_file_name
189
190
191    SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
192      USE ISO_C_BINDING
193      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
194      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
195      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
196    END SUBROUTINE cxios_set_file_name_suffix
197
198    SUBROUTINE cxios_get_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
201      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
202      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
203    END SUBROUTINE cxios_get_file_name_suffix
204
205    FUNCTION cxios_is_defined_file_name_suffix(file_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix
208      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
209    END FUNCTION cxios_is_defined_file_name_suffix
210
211
212    SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq) BIND(C)
213      USE ISO_C_BINDING
214      USE IDURATION
215      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
216      TYPE(txios(duration)), VALUE :: output_freq
217    END SUBROUTINE cxios_set_file_output_freq
218
219    SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq) BIND(C)
220      USE ISO_C_BINDING
221      USE IDURATION
222      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
223      TYPE(txios(duration)) :: output_freq
224    END SUBROUTINE cxios_get_file_output_freq
225
226    FUNCTION cxios_is_defined_file_output_freq(file_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq
229      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
230    END FUNCTION cxios_is_defined_file_output_freq
231
232
233    SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
236      INTEGER (KIND=C_INT)      , VALUE :: output_level
237    END SUBROUTINE cxios_set_file_output_level
238
239    SUBROUTINE cxios_get_file_output_level(file_hdl, output_level) BIND(C)
240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
242      INTEGER (KIND=C_INT)             :: output_level
243    END SUBROUTINE cxios_get_file_output_level
244
245    FUNCTION cxios_is_defined_file_output_level(file_hdl) BIND(C)
246      USE ISO_C_BINDING
247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level
248      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
249    END FUNCTION cxios_is_defined_file_output_level
250
251
252    SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
253      USE ISO_C_BINDING
254      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
255      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
256      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
257    END SUBROUTINE cxios_set_file_par_access
258
259    SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
260      USE ISO_C_BINDING
261      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
262      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
263      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
264    END SUBROUTINE cxios_get_file_par_access
265
266    FUNCTION cxios_is_defined_file_par_access(file_hdl) BIND(C)
267      USE ISO_C_BINDING
268      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access
269      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
270    END FUNCTION cxios_is_defined_file_par_access
271
272
273    SUBROUTINE cxios_set_file_record_offset(file_hdl, record_offset) BIND(C)
274      USE ISO_C_BINDING
275      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
276      INTEGER (KIND=C_INT)      , VALUE :: record_offset
277    END SUBROUTINE cxios_set_file_record_offset
278
279    SUBROUTINE cxios_get_file_record_offset(file_hdl, record_offset) BIND(C)
280      USE ISO_C_BINDING
281      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
282      INTEGER (KIND=C_INT)             :: record_offset
283    END SUBROUTINE cxios_get_file_record_offset
284
285    FUNCTION cxios_is_defined_file_record_offset(file_hdl) BIND(C)
286      USE ISO_C_BINDING
287      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_record_offset
288      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
289    END FUNCTION cxios_is_defined_file_record_offset
290
291
292    SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq) BIND(C)
293      USE ISO_C_BINDING
294      USE IDURATION
295      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
296      TYPE(txios(duration)), VALUE :: split_freq
297    END SUBROUTINE cxios_set_file_split_freq
298
299    SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq) BIND(C)
300      USE ISO_C_BINDING
301      USE IDURATION
302      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
303      TYPE(txios(duration)) :: split_freq
304    END SUBROUTINE cxios_get_file_split_freq
305
306    FUNCTION cxios_is_defined_file_split_freq(file_hdl) BIND(C)
307      USE ISO_C_BINDING
308      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq
309      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
310    END FUNCTION cxios_is_defined_file_split_freq
311
312
313    SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
314      USE ISO_C_BINDING
315      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
316      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
317      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
318    END SUBROUTINE cxios_set_file_split_freq_format
319
320    SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
321      USE ISO_C_BINDING
322      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
323      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
324      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
325    END SUBROUTINE cxios_get_file_split_freq_format
326
327    FUNCTION cxios_is_defined_file_split_freq_format(file_hdl) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format
330      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
331    END FUNCTION cxios_is_defined_file_split_freq_format
332
333
334    SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_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 :: sync_freq
339    END SUBROUTINE cxios_set_file_sync_freq
340
341    SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq) BIND(C)
342      USE ISO_C_BINDING
343      USE IDURATION
344      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
345      TYPE(txios(duration)) :: sync_freq
346    END SUBROUTINE cxios_get_file_sync_freq
347
348    FUNCTION cxios_is_defined_file_sync_freq(file_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq
351      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
352    END FUNCTION cxios_is_defined_file_sync_freq
353
354
355    SUBROUTINE cxios_set_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
358      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
359      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
360    END SUBROUTINE cxios_set_file_time_counter
361
362    SUBROUTINE cxios_get_file_time_counter(file_hdl, time_counter, time_counter_size) BIND(C)
363      USE ISO_C_BINDING
364      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
365      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter
366      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_size
367    END SUBROUTINE cxios_get_file_time_counter
368
369    FUNCTION cxios_is_defined_file_time_counter(file_hdl) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_counter
372      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
373    END FUNCTION cxios_is_defined_file_time_counter
374
375
376    SUBROUTINE cxios_set_file_time_counter_name(file_hdl, time_counter_name, time_counter_name_size) BIND(C)
377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
379      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
380      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
381    END SUBROUTINE cxios_set_file_time_counter_name
382
383    SUBROUTINE cxios_get_file_time_counter_name(file_hdl, time_counter_name, time_counter_name_size) BIND(C)
384      USE ISO_C_BINDING
385      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
386      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: time_counter_name
387      INTEGER  (kind = C_INT)     , VALUE        :: time_counter_name_size
388    END SUBROUTINE cxios_get_file_time_counter_name
389
390    FUNCTION cxios_is_defined_file_time_counter_name(file_hdl) BIND(C)
391      USE ISO_C_BINDING
392      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_time_counter_name
393      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
394    END FUNCTION cxios_is_defined_file_time_counter_name
395
396
397    SUBROUTINE cxios_set_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
398      USE ISO_C_BINDING
399      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
400      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
401      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
402    END SUBROUTINE cxios_set_file_timeseries
403
404    SUBROUTINE cxios_get_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
405      USE ISO_C_BINDING
406      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
407      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
408      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
409    END SUBROUTINE cxios_get_file_timeseries
410
411    FUNCTION cxios_is_defined_file_timeseries(file_hdl) BIND(C)
412      USE ISO_C_BINDING
413      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_timeseries
414      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
415    END FUNCTION cxios_is_defined_file_timeseries
416
417
418    SUBROUTINE cxios_set_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
419      USE ISO_C_BINDING
420      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
421      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
422      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
423    END SUBROUTINE cxios_set_file_ts_prefix
424
425    SUBROUTINE cxios_get_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
426      USE ISO_C_BINDING
427      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
428      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
429      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
430    END SUBROUTINE cxios_get_file_ts_prefix
431
432    FUNCTION cxios_is_defined_file_ts_prefix(file_hdl) BIND(C)
433      USE ISO_C_BINDING
434      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_ts_prefix
435      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
436    END FUNCTION cxios_is_defined_file_ts_prefix
437
438
439    SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
440      USE ISO_C_BINDING
441      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
442      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
443      INTEGER  (kind = C_INT)     , VALUE        :: type_size
444    END SUBROUTINE cxios_set_file_type
445
446    SUBROUTINE cxios_get_file_type(file_hdl, type, type_size) BIND(C)
447      USE ISO_C_BINDING
448      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
449      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
450      INTEGER  (kind = C_INT)     , VALUE        :: type_size
451    END SUBROUTINE cxios_get_file_type
452
453    FUNCTION cxios_is_defined_file_type(file_hdl) BIND(C)
454      USE ISO_C_BINDING
455      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type
456      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
457    END FUNCTION cxios_is_defined_file_type
458
459  END INTERFACE
460
461END MODULE file_interface_attr
Note: See TracBrowser for help on using the repository browser.