source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/filegroup_interface_attr.f90 @ 609

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