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