source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/file_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: 11.9 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_compression_level(file_hdl, compression_level) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
14      INTEGER (KIND=C_INT)      , VALUE :: compression_level
15    END SUBROUTINE cxios_set_file_compression_level
16   
17    SUBROUTINE cxios_get_file_compression_level(file_hdl, compression_level) BIND(C)
18      USE ISO_C_BINDING
19      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
20      INTEGER (KIND=C_INT)             :: compression_level
21    END SUBROUTINE cxios_get_file_compression_level
22   
23    FUNCTION cxios_is_defined_file_compression_level(file_hdl ) BIND(C)
24      USE ISO_C_BINDING
25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_compression_level
26      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
27    END FUNCTION cxios_is_defined_file_compression_level
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_min_digits(file_hdl, min_digits) BIND(C)
71      USE ISO_C_BINDING
72      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
73      INTEGER (KIND=C_INT)      , VALUE :: min_digits
74    END SUBROUTINE cxios_set_file_min_digits
75   
76    SUBROUTINE cxios_get_file_min_digits(file_hdl, min_digits) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
79      INTEGER (KIND=C_INT)             :: min_digits
80    END SUBROUTINE cxios_get_file_min_digits
81   
82    FUNCTION cxios_is_defined_file_min_digits(file_hdl ) BIND(C)
83      USE ISO_C_BINDING
84      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_min_digits
85      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
86    END FUNCTION cxios_is_defined_file_min_digits
87   
88   
89    SUBROUTINE cxios_set_file_name(file_hdl, name, name_size) BIND(C)
90      USE ISO_C_BINDING
91      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
92      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
93      INTEGER  (kind = C_INT)     , VALUE        :: name_size
94    END SUBROUTINE cxios_set_file_name
95   
96    SUBROUTINE cxios_get_file_name(file_hdl, name, name_size) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
99      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
100      INTEGER  (kind = C_INT)     , VALUE        :: name_size
101    END SUBROUTINE cxios_get_file_name
102   
103    FUNCTION cxios_is_defined_file_name(file_hdl ) BIND(C)
104      USE ISO_C_BINDING
105      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name
106      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
107    END FUNCTION cxios_is_defined_file_name
108   
109   
110    SUBROUTINE cxios_set_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
111      USE ISO_C_BINDING
112      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
113      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
114      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
115    END SUBROUTINE cxios_set_file_name_suffix
116   
117    SUBROUTINE cxios_get_file_name_suffix(file_hdl, name_suffix, name_suffix_size) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
120      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
121      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
122    END SUBROUTINE cxios_get_file_name_suffix
123   
124    FUNCTION cxios_is_defined_file_name_suffix(file_hdl ) BIND(C)
125      USE ISO_C_BINDING
126      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_name_suffix
127      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
128    END FUNCTION cxios_is_defined_file_name_suffix
129   
130   
131    SUBROUTINE cxios_set_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
132      USE ISO_C_BINDING
133      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
134      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
135      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
136    END SUBROUTINE cxios_set_file_output_freq
137   
138    SUBROUTINE cxios_get_file_output_freq(file_hdl, output_freq, output_freq_size) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
141      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
142      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
143    END SUBROUTINE cxios_get_file_output_freq
144   
145    FUNCTION cxios_is_defined_file_output_freq(file_hdl ) BIND(C)
146      USE ISO_C_BINDING
147      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_freq
148      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
149    END FUNCTION cxios_is_defined_file_output_freq
150   
151   
152    SUBROUTINE cxios_set_file_output_level(file_hdl, output_level) BIND(C)
153      USE ISO_C_BINDING
154      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
155      INTEGER (KIND=C_INT)      , VALUE :: output_level
156    END SUBROUTINE cxios_set_file_output_level
157   
158    SUBROUTINE cxios_get_file_output_level(file_hdl, output_level) BIND(C)
159      USE ISO_C_BINDING
160      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
161      INTEGER (KIND=C_INT)             :: output_level
162    END SUBROUTINE cxios_get_file_output_level
163   
164    FUNCTION cxios_is_defined_file_output_level(file_hdl ) BIND(C)
165      USE ISO_C_BINDING
166      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_output_level
167      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
168    END FUNCTION cxios_is_defined_file_output_level
169   
170   
171    SUBROUTINE cxios_set_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
172      USE ISO_C_BINDING
173      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
174      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
175      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
176    END SUBROUTINE cxios_set_file_par_access
177   
178    SUBROUTINE cxios_get_file_par_access(file_hdl, par_access, par_access_size) BIND(C)
179      USE ISO_C_BINDING
180      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
181      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
182      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
183    END SUBROUTINE cxios_get_file_par_access
184   
185    FUNCTION cxios_is_defined_file_par_access(file_hdl ) BIND(C)
186      USE ISO_C_BINDING
187      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_par_access
188      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
189    END FUNCTION cxios_is_defined_file_par_access
190   
191   
192    SUBROUTINE cxios_set_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C)
193      USE ISO_C_BINDING
194      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
195      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
196      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
197    END SUBROUTINE cxios_set_file_split_freq
198   
199    SUBROUTINE cxios_get_file_split_freq(file_hdl, split_freq, split_freq_size) BIND(C)
200      USE ISO_C_BINDING
201      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
202      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
203      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
204    END SUBROUTINE cxios_get_file_split_freq
205   
206    FUNCTION cxios_is_defined_file_split_freq(file_hdl ) BIND(C)
207      USE ISO_C_BINDING
208      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq
209      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
210    END FUNCTION cxios_is_defined_file_split_freq
211   
212   
213    SUBROUTINE cxios_set_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_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_format
217      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
218    END SUBROUTINE cxios_set_file_split_freq_format
219   
220    SUBROUTINE cxios_get_file_split_freq_format(file_hdl, split_freq_format, split_freq_format_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_format
224      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
225    END SUBROUTINE cxios_get_file_split_freq_format
226   
227    FUNCTION cxios_is_defined_file_split_freq_format(file_hdl ) BIND(C)
228      USE ISO_C_BINDING
229      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_split_freq_format
230      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
231    END FUNCTION cxios_is_defined_file_split_freq_format
232   
233   
234    SUBROUTINE cxios_set_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C)
235      USE ISO_C_BINDING
236      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
237      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
238      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
239    END SUBROUTINE cxios_set_file_sync_freq
240   
241    SUBROUTINE cxios_get_file_sync_freq(file_hdl, sync_freq, sync_freq_size) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
244      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
245      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
246    END SUBROUTINE cxios_get_file_sync_freq
247   
248    FUNCTION cxios_is_defined_file_sync_freq(file_hdl ) BIND(C)
249      USE ISO_C_BINDING
250      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_sync_freq
251      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
252    END FUNCTION cxios_is_defined_file_sync_freq
253   
254   
255    SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
256      USE ISO_C_BINDING
257      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
258      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
259      INTEGER  (kind = C_INT)     , VALUE        :: type_size
260    END SUBROUTINE cxios_set_file_type
261   
262    SUBROUTINE cxios_get_file_type(file_hdl, type, type_size) BIND(C)
263      USE ISO_C_BINDING
264      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
265      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
266      INTEGER  (kind = C_INT)     , VALUE        :: type_size
267    END SUBROUTINE cxios_get_file_type
268   
269    FUNCTION cxios_is_defined_file_type(file_hdl ) BIND(C)
270      USE ISO_C_BINDING
271      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_type
272      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
273    END FUNCTION cxios_is_defined_file_type
274   
275   
276    END INTERFACE
277 
278END MODULE file_interface_attr
Note: See TracBrowser for help on using the repository browser.