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

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

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