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

Last change on this file since 779 was 779, checked in by rlacroix, 8 years ago

Update the Fortran API.

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