source: XIOS/trunk/src/interface/fortran_attr/file_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: 12.6 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE file_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_file_append(file_hdl, append) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
14      LOGICAL (KIND=C_BOOL)      , VALUE :: append
15    END SUBROUTINE cxios_set_file_append
16   
17    SUBROUTINE cxios_get_file_append(file_hdl, append) BIND(C)
18      USE ISO_C_BINDING
19      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
20      LOGICAL (KIND=C_BOOL)             :: append
21    END SUBROUTINE cxios_get_file_append
22   
23    FUNCTION cxios_is_defined_file_append(file_hdl ) BIND(C)
24      USE ISO_C_BINDING
25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_append
26      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
27    END FUNCTION cxios_is_defined_file_append
28   
29   
30    SUBROUTINE cxios_set_file_description(file_hdl, description, description_size) BIND(C)
31      USE ISO_C_BINDING
32      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
33      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
34      INTEGER  (kind = C_INT)     , VALUE        :: description_size
35    END SUBROUTINE cxios_set_file_description
36   
37    SUBROUTINE cxios_get_file_description(file_hdl, description, description_size) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
40      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
41      INTEGER  (kind = C_INT)     , VALUE        :: description_size
42    END SUBROUTINE cxios_get_file_description
43   
44    FUNCTION cxios_is_defined_file_description(file_hdl ) BIND(C)
45      USE ISO_C_BINDING
46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_description
47      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
48    END FUNCTION cxios_is_defined_file_description
49   
50   
51    SUBROUTINE cxios_set_file_enabled(file_hdl, enabled) BIND(C)
52      USE ISO_C_BINDING
53      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
54      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
55    END SUBROUTINE cxios_set_file_enabled
56   
57    SUBROUTINE cxios_get_file_enabled(file_hdl, enabled) BIND(C)
58      USE ISO_C_BINDING
59      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
60      LOGICAL (KIND=C_BOOL)             :: enabled
61    END SUBROUTINE cxios_get_file_enabled
62   
63    FUNCTION cxios_is_defined_file_enabled(file_hdl ) BIND(C)
64      USE ISO_C_BINDING
65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_enabled
66      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
67    END FUNCTION cxios_is_defined_file_enabled
68   
69   
70    SUBROUTINE cxios_set_file_format(file_hdl, format, format_size) BIND(C)
71      USE ISO_C_BINDING
72      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
73      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
74      INTEGER  (kind = C_INT)     , VALUE        :: format_size
75    END SUBROUTINE cxios_set_file_format
76   
77    SUBROUTINE cxios_get_file_format(file_hdl, format, format_size) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
80      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
81      INTEGER  (kind = C_INT)     , VALUE        :: format_size
82    END SUBROUTINE cxios_get_file_format
83   
84    FUNCTION cxios_is_defined_file_format(file_hdl ) BIND(C)
85      USE ISO_C_BINDING
86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_format
87      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
88    END FUNCTION cxios_is_defined_file_format
89   
90   
91    SUBROUTINE cxios_set_file_min_digits(file_hdl, min_digits) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
94      INTEGER (KIND=C_INT)      , VALUE :: min_digits
95    END SUBROUTINE cxios_set_file_min_digits
96   
97    SUBROUTINE cxios_get_file_min_digits(file_hdl, min_digits) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
100      INTEGER (KIND=C_INT)             :: min_digits
101    END SUBROUTINE cxios_get_file_min_digits
102   
103    FUNCTION cxios_is_defined_file_min_digits(file_hdl ) BIND(C)
104      USE ISO_C_BINDING
105      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits
106      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
107    END FUNCTION cxios_is_defined_file_min_digits
108   
109   
110    SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C)
111      USE ISO_C_BINDING
112      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
113      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
114      INTEGER  (kind = C_INT)     , VALUE        :: name_size
115    END SUBROUTINE cxios_set_file_name
116   
117    SUBROUTINE cxios_get_file_name(file_hdl, name, name_size) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
120      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
121      INTEGER  (kind = C_INT)     , VALUE        :: name_size
122    END SUBROUTINE cxios_get_file_name
123   
124    FUNCTION cxios_is_defined_file_name(file_hdl ) BIND(C)
125      USE ISO_C_BINDING
126      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name
127      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
128    END FUNCTION cxios_is_defined_file_name
129   
130   
131    SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
132      USE ISO_C_BINDING
133      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
134      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
135      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
136    END SUBROUTINE cxios_set_file_name_suffix
137   
138    SUBROUTINE cxios_get_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
141      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
142      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
143    END SUBROUTINE cxios_get_file_name_suffix
144   
145    FUNCTION cxios_is_defined_file_name_suffix(file_hdl ) BIND(C)
146      USE ISO_C_BINDING
147      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix
148      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
149    END FUNCTION cxios_is_defined_file_name_suffix
150   
151   
152    SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
153      USE ISO_C_BINDING
154      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
155      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
156      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
157    END SUBROUTINE cxios_set_file_output_freq
158   
159    SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
160      USE ISO_C_BINDING
161      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
162      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
163      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
164    END SUBROUTINE cxios_get_file_output_freq
165   
166    FUNCTION cxios_is_defined_file_output_freq(file_hdl ) BIND(C)
167      USE ISO_C_BINDING
168      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq
169      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
170    END FUNCTION cxios_is_defined_file_output_freq
171   
172   
173    SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)
174      USE ISO_C_BINDING
175      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
176      INTEGER (KIND=C_INT)      , VALUE :: output_level
177    END SUBROUTINE cxios_set_file_output_level
178   
179    SUBROUTINE cxios_get_file_output_level(file_hdl, output_level) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
182      INTEGER (KIND=C_INT)             :: output_level
183    END SUBROUTINE cxios_get_file_output_level
184   
185    FUNCTION cxios_is_defined_file_output_level(file_hdl ) BIND(C)
186      USE ISO_C_BINDING
187      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level
188      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
189    END FUNCTION cxios_is_defined_file_output_level
190   
191   
192    SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
193      USE ISO_C_BINDING
194      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
195      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
196      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
197    END SUBROUTINE cxios_set_file_par_access
198   
199    SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
200      USE ISO_C_BINDING
201      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
202      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
203      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
204    END SUBROUTINE cxios_get_file_par_access
205   
206    FUNCTION cxios_is_defined_file_par_access(file_hdl ) BIND(C)
207      USE ISO_C_BINDING
208      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access
209      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
210    END FUNCTION cxios_is_defined_file_par_access
211   
212   
213    SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C)
214      USE ISO_C_BINDING
215      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
216      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
217      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
218    END SUBROUTINE cxios_set_file_split_freq
219   
220    SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C)
221      USE ISO_C_BINDING
222      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
223      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
224      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
225    END SUBROUTINE cxios_get_file_split_freq
226   
227    FUNCTION cxios_is_defined_file_split_freq(file_hdl ) BIND(C)
228      USE ISO_C_BINDING
229      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq
230      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
231    END FUNCTION cxios_is_defined_file_split_freq
232   
233   
234    SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
235      USE ISO_C_BINDING
236      INTEGER (kind = C_INTPTR_T), VALUE :: file_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_file_split_freq_format
240   
241    SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_size) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: file_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_file_split_freq_format
247   
248    FUNCTION cxios_is_defined_file_split_freq_format(file_hdl ) BIND(C)
249      USE ISO_C_BINDING
250      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format
251      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
252    END FUNCTION cxios_is_defined_file_split_freq_format
253   
254   
255    SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
258      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
259      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
260    END SUBROUTINE cxios_set_file_sync_freq
261   
262    SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C)
263      USE ISO_C_BINDING
264      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
265      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
266      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
267    END SUBROUTINE cxios_get_file_sync_freq
268   
269    FUNCTION cxios_is_defined_file_sync_freq(file_hdl ) BIND(C)
270      USE ISO_C_BINDING
271      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq
272      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
273    END FUNCTION cxios_is_defined_file_sync_freq
274   
275   
276    SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
277      USE ISO_C_BINDING
278      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
279      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
280      INTEGER  (kind = C_INT)     , VALUE        :: type_size
281    END SUBROUTINE cxios_set_file_type
282   
283    SUBROUTINE cxios_get_file_type(file_hdl, type, type_size) BIND(C)
284      USE ISO_C_BINDING
285      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
286      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
287      INTEGER  (kind = C_INT)     , VALUE        :: type_size
288    END SUBROUTINE cxios_get_file_type
289   
290    FUNCTION cxios_is_defined_file_type(file_hdl ) BIND(C)
291      USE ISO_C_BINDING
292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type
293      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
294    END FUNCTION cxios_is_defined_file_type
295   
296   
297    END INTERFACE
298 
299END MODULE file_interface_attr
Note: See TracBrowser for help on using the repository browser.