source: XIOS/trunk/src/interface/fortran_attr/file_interface_attr.f90 @ 432

Last change on this file since 432 was 432, checked in by ymipsl, 11 years ago

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

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