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

Last change on this file since 620 was 608, checked in by rlacroix, 9 years ago

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.
  • 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: 15.6 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE filegroup_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_filegroup_append(filegroup_hdl, append) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
15      LOGICAL (KIND=C_BOOL)      , VALUE :: append
16    END SUBROUTINE cxios_set_filegroup_append
17
18    SUBROUTINE cxios_get_filegroup_append(filegroup_hdl, append) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
21      LOGICAL (KIND=C_BOOL)             :: append
22    END SUBROUTINE cxios_get_filegroup_append
23
24    FUNCTION cxios_is_defined_filegroup_append(filegroup_hdl) BIND(C)
25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_append
27      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
28    END FUNCTION cxios_is_defined_filegroup_append
29
30
31    SUBROUTINE cxios_set_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
34      INTEGER (KIND=C_INT)      , VALUE :: compression_level
35    END SUBROUTINE cxios_set_filegroup_compression_level
36
37    SUBROUTINE cxios_get_filegroup_compression_level(filegroup_hdl, compression_level) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
40      INTEGER (KIND=C_INT)             :: compression_level
41    END SUBROUTINE cxios_get_filegroup_compression_level
42
43    FUNCTION cxios_is_defined_filegroup_compression_level(filegroup_hdl) BIND(C)
44      USE ISO_C_BINDING
45      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_compression_level
46      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
47    END FUNCTION cxios_is_defined_filegroup_compression_level
48
49
50    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
51      USE ISO_C_BINDING
52      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
53      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
54      INTEGER  (kind = C_INT)     , VALUE        :: description_size
55    END SUBROUTINE cxios_set_filegroup_description
56
57    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
58      USE ISO_C_BINDING
59      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
60      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
61      INTEGER  (kind = C_INT)     , VALUE        :: description_size
62    END SUBROUTINE cxios_get_filegroup_description
63
64    FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description
67      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
68    END FUNCTION cxios_is_defined_filegroup_description
69
70
71    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
74      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
75    END SUBROUTINE cxios_set_filegroup_enabled
76
77    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
80      LOGICAL (KIND=C_BOOL)             :: enabled
81    END SUBROUTINE cxios_get_filegroup_enabled
82
83    FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled
86      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
87    END FUNCTION cxios_is_defined_filegroup_enabled
88
89
90    SUBROUTINE cxios_set_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
93      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
94      INTEGER  (kind = C_INT)     , VALUE        :: format_size
95    END SUBROUTINE cxios_set_filegroup_format
96
97    SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
101      INTEGER  (kind = C_INT)     , VALUE        :: format_size
102    END SUBROUTINE cxios_get_filegroup_format
103
104    FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl) BIND(C)
105      USE ISO_C_BINDING
106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format
107      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
108    END FUNCTION cxios_is_defined_filegroup_format
109
110
111    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
112      USE ISO_C_BINDING
113      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
114      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
115      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
116    END SUBROUTINE cxios_set_filegroup_group_ref
117
118    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
119      USE ISO_C_BINDING
120      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
121      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
122      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
123    END SUBROUTINE cxios_get_filegroup_group_ref
124
125    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref
128      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
129    END FUNCTION cxios_is_defined_filegroup_group_ref
130
131
132    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
135      INTEGER (KIND=C_INT)      , VALUE :: min_digits
136    END SUBROUTINE cxios_set_filegroup_min_digits
137
138    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
141      INTEGER (KIND=C_INT)             :: min_digits
142    END SUBROUTINE cxios_get_filegroup_min_digits
143
144    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits
147      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
148    END FUNCTION cxios_is_defined_filegroup_min_digits
149
150
151    SUBROUTINE cxios_set_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
154      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
155      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
156    END SUBROUTINE cxios_set_filegroup_mode
157
158    SUBROUTINE cxios_get_filegroup_mode(filegroup_hdl, mode, mode_size) BIND(C)
159      USE ISO_C_BINDING
160      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
161      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: mode
162      INTEGER  (kind = C_INT)     , VALUE        :: mode_size
163    END SUBROUTINE cxios_get_filegroup_mode
164
165    FUNCTION cxios_is_defined_filegroup_mode(filegroup_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_mode
168      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
169    END FUNCTION cxios_is_defined_filegroup_mode
170
171
172    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
175      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
176      INTEGER  (kind = C_INT)     , VALUE        :: name_size
177    END SUBROUTINE cxios_set_filegroup_name
178
179    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
182      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
183      INTEGER  (kind = C_INT)     , VALUE        :: name_size
184    END SUBROUTINE cxios_get_filegroup_name
185
186    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl) BIND(C)
187      USE ISO_C_BINDING
188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name
189      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
190    END FUNCTION cxios_is_defined_filegroup_name
191
192
193    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
194      USE ISO_C_BINDING
195      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
197      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
198    END SUBROUTINE cxios_set_filegroup_name_suffix
199
200    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
201      USE ISO_C_BINDING
202      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
204      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
205    END SUBROUTINE cxios_get_filegroup_name_suffix
206
207    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix
210      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
211    END FUNCTION cxios_is_defined_filegroup_name_suffix
212
213
214    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
215      USE ISO_C_BINDING
216      USE IDURATION
217      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
218      TYPE(txios(duration)), VALUE :: output_freq
219    END SUBROUTINE cxios_set_filegroup_output_freq
220
221    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq) BIND(C)
222      USE ISO_C_BINDING
223      USE IDURATION
224      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
225      TYPE(txios(duration)) :: output_freq
226    END SUBROUTINE cxios_get_filegroup_output_freq
227
228    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq
231      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
232    END FUNCTION cxios_is_defined_filegroup_output_freq
233
234
235    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
238      INTEGER (KIND=C_INT)      , VALUE :: output_level
239    END SUBROUTINE cxios_set_filegroup_output_level
240
241    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
244      INTEGER (KIND=C_INT)             :: output_level
245    END SUBROUTINE cxios_get_filegroup_output_level
246
247    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level
250      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
251    END FUNCTION cxios_is_defined_filegroup_output_level
252
253
254    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
258      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
259    END SUBROUTINE cxios_set_filegroup_par_access
260
261    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
265      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
266    END SUBROUTINE cxios_get_filegroup_par_access
267
268    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access
271      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
272    END FUNCTION cxios_is_defined_filegroup_par_access
273
274
275    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
276      USE ISO_C_BINDING
277      USE IDURATION
278      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
279      TYPE(txios(duration)), VALUE :: split_freq
280    END SUBROUTINE cxios_set_filegroup_split_freq
281
282    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq) BIND(C)
283      USE ISO_C_BINDING
284      USE IDURATION
285      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
286      TYPE(txios(duration)) :: split_freq
287    END SUBROUTINE cxios_get_filegroup_split_freq
288
289    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl) BIND(C)
290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq
292      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
293    END FUNCTION cxios_is_defined_filegroup_split_freq
294
295
296    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
300      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
301    END SUBROUTINE cxios_set_filegroup_split_freq_format
302
303    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
304      USE ISO_C_BINDING
305      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
306      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
307      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
308    END SUBROUTINE cxios_get_filegroup_split_freq_format
309
310    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl) BIND(C)
311      USE ISO_C_BINDING
312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format
313      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
314    END FUNCTION cxios_is_defined_filegroup_split_freq_format
315
316
317    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C)
318      USE ISO_C_BINDING
319      USE IDURATION
320      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
321      TYPE(txios(duration)), VALUE :: sync_freq
322    END SUBROUTINE cxios_set_filegroup_sync_freq
323
324    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq) BIND(C)
325      USE ISO_C_BINDING
326      USE IDURATION
327      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
328      TYPE(txios(duration)) :: sync_freq
329    END SUBROUTINE cxios_get_filegroup_sync_freq
330
331    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl) BIND(C)
332      USE ISO_C_BINDING
333      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq
334      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
335    END FUNCTION cxios_is_defined_filegroup_sync_freq
336
337
338    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
341      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
342      INTEGER  (kind = C_INT)     , VALUE        :: type_size
343    END SUBROUTINE cxios_set_filegroup_type
344
345    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
346      USE ISO_C_BINDING
347      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
348      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
349      INTEGER  (kind = C_INT)     , VALUE        :: type_size
350    END SUBROUTINE cxios_get_filegroup_type
351
352    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl) BIND(C)
353      USE ISO_C_BINDING
354      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type
355      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
356    END FUNCTION cxios_is_defined_filegroup_type
357
358  END INTERFACE
359
360END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.