source: XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90 @ 528

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

Add the ability to append data to existing output file(s).

By default existing file(s) will still be overwritten. Set the new file attribute "append" to true if you wish to append data to existing NetCDF file(s).

Note that the append mode is currently not supported when file splitting is used and that the structure of the output file cannot be changed.

  • 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: 14.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_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_format(filegroup_hdl, format, format_size) BIND(C)
71      USE ISO_C_BINDING
72      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
73      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
74      INTEGER  (kind = C_INT)     , VALUE        :: format_size
75    END SUBROUTINE cxios_set_filegroup_format
76   
77    SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
80      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
81      INTEGER  (kind = C_INT)     , VALUE        :: format_size
82    END SUBROUTINE cxios_get_filegroup_format
83   
84    FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl ) BIND(C)
85      USE ISO_C_BINDING
86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format
87      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
88    END FUNCTION cxios_is_defined_filegroup_format
89   
90   
91    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
94      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
95      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
96    END SUBROUTINE cxios_set_filegroup_group_ref
97   
98    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
99      USE ISO_C_BINDING
100      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
101      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
102      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
103    END SUBROUTINE cxios_get_filegroup_group_ref
104   
105    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl ) BIND(C)
106      USE ISO_C_BINDING
107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref
108      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
109    END FUNCTION cxios_is_defined_filegroup_group_ref
110   
111   
112    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
115      INTEGER (KIND=C_INT)      , VALUE :: min_digits
116    END SUBROUTINE cxios_set_filegroup_min_digits
117   
118    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
119      USE ISO_C_BINDING
120      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
121      INTEGER (KIND=C_INT)             :: min_digits
122    END SUBROUTINE cxios_get_filegroup_min_digits
123   
124    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl ) BIND(C)
125      USE ISO_C_BINDING
126      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits
127      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
128    END FUNCTION cxios_is_defined_filegroup_min_digits
129   
130   
131    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
132      USE ISO_C_BINDING
133      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
134      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
135      INTEGER  (kind = C_INT)     , VALUE        :: name_size
136    END SUBROUTINE cxios_set_filegroup_name
137   
138    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
141      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
142      INTEGER  (kind = C_INT)     , VALUE        :: name_size
143    END SUBROUTINE cxios_get_filegroup_name
144   
145    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl ) BIND(C)
146      USE ISO_C_BINDING
147      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name
148      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
149    END FUNCTION cxios_is_defined_filegroup_name
150   
151   
152    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
153      USE ISO_C_BINDING
154      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
155      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
156      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
157    END SUBROUTINE cxios_set_filegroup_name_suffix
158   
159    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
160      USE ISO_C_BINDING
161      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
162      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
163      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
164    END SUBROUTINE cxios_get_filegroup_name_suffix
165   
166    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl ) BIND(C)
167      USE ISO_C_BINDING
168      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix
169      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
170    END FUNCTION cxios_is_defined_filegroup_name_suffix
171   
172   
173    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
174      USE ISO_C_BINDING
175      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
176      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
177      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
178    END SUBROUTINE cxios_set_filegroup_output_freq
179   
180    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
181      USE ISO_C_BINDING
182      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
183      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
184      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
185    END SUBROUTINE cxios_get_filegroup_output_freq
186   
187    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl ) BIND(C)
188      USE ISO_C_BINDING
189      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq
190      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
191    END FUNCTION cxios_is_defined_filegroup_output_freq
192   
193   
194    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
195      USE ISO_C_BINDING
196      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
197      INTEGER (KIND=C_INT)      , VALUE :: output_level
198    END SUBROUTINE cxios_set_filegroup_output_level
199   
200    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
201      USE ISO_C_BINDING
202      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
203      INTEGER (KIND=C_INT)             :: output_level
204    END SUBROUTINE cxios_get_filegroup_output_level
205   
206    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl ) BIND(C)
207      USE ISO_C_BINDING
208      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level
209      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
210    END FUNCTION cxios_is_defined_filegroup_output_level
211   
212   
213    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
214      USE ISO_C_BINDING
215      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
216      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
217      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
218    END SUBROUTINE cxios_set_filegroup_par_access
219   
220    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
221      USE ISO_C_BINDING
222      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
223      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
224      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
225    END SUBROUTINE cxios_get_filegroup_par_access
226   
227    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl ) BIND(C)
228      USE ISO_C_BINDING
229      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access
230      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
231    END FUNCTION cxios_is_defined_filegroup_par_access
232   
233   
234    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_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
238      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
239    END SUBROUTINE cxios_set_filegroup_split_freq
240   
241    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_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
245      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
246    END SUBROUTINE cxios_get_filegroup_split_freq
247   
248    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl ) BIND(C)
249      USE ISO_C_BINDING
250      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq
251      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
252    END FUNCTION cxios_is_defined_filegroup_split_freq
253   
254   
255    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
258      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
259      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
260    END SUBROUTINE cxios_set_filegroup_split_freq_format
261   
262    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
263      USE ISO_C_BINDING
264      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
265      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
266      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
267    END SUBROUTINE cxios_get_filegroup_split_freq_format
268   
269    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl ) BIND(C)
270      USE ISO_C_BINDING
271      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format
272      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
273    END FUNCTION cxios_is_defined_filegroup_split_freq_format
274   
275   
276    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
277      USE ISO_C_BINDING
278      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
279      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
280      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
281    END SUBROUTINE cxios_set_filegroup_sync_freq
282   
283    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
284      USE ISO_C_BINDING
285      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
286      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
287      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
288    END SUBROUTINE cxios_get_filegroup_sync_freq
289   
290    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl ) BIND(C)
291      USE ISO_C_BINDING
292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq
293      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
294    END FUNCTION cxios_is_defined_filegroup_sync_freq
295   
296   
297    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
300      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
301      INTEGER  (kind = C_INT)     , VALUE        :: type_size
302    END SUBROUTINE cxios_set_filegroup_type
303   
304    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
305      USE ISO_C_BINDING
306      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
307      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
308      INTEGER  (kind = C_INT)     , VALUE        :: type_size
309    END SUBROUTINE cxios_get_filegroup_type
310   
311    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl ) BIND(C)
312      USE ISO_C_BINDING
313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type
314      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
315    END FUNCTION cxios_is_defined_filegroup_type
316   
317   
318    END INTERFACE
319 
320END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.