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

Last change on this file since 432 was 432, checked in by ymipsl, 9 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: 13.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE field_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_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
15      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
16    END SUBROUTINE cxios_set_field_axis_ref
17   
18    SUBROUTINE cxios_get_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
22      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
23    END SUBROUTINE cxios_get_field_axis_ref
24   
25    FUNCTION cxios_is_defined_field_axis_ref(field_hdl ) BIND(C)
26      USE ISO_C_BINDING
27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref
28      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
29    END FUNCTION cxios_is_defined_field_axis_ref
30   
31   
32    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
35      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
36    END SUBROUTINE cxios_set_field_default_value
37   
38    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
41      REAL (KIND=C_DOUBLE)             :: default_value
42    END SUBROUTINE cxios_get_field_default_value
43   
44    FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C)
45      USE ISO_C_BINDING
46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value
47      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
48    END FUNCTION cxios_is_defined_field_default_value
49   
50   
51    SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
52      USE ISO_C_BINDING
53      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
54      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
55      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
56    END SUBROUTINE cxios_set_field_domain_ref
57   
58    SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
61      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
62      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
63    END SUBROUTINE cxios_get_field_domain_ref
64   
65    FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C)
66      USE ISO_C_BINDING
67      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref
68      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
69    END FUNCTION cxios_is_defined_field_domain_ref
70   
71   
72    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
73      USE ISO_C_BINDING
74      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
75      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
76    END SUBROUTINE cxios_set_field_enabled
77   
78    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
81      LOGICAL (KIND=C_BOOL)             :: enabled
82    END SUBROUTINE cxios_get_field_enabled
83   
84    FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C)
85      USE ISO_C_BINDING
86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled
87      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
88    END FUNCTION cxios_is_defined_field_enabled
89   
90   
91    SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
94      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
95      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
96    END SUBROUTINE cxios_set_field_field_ref
97   
98    SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
99      USE ISO_C_BINDING
100      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
101      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
102      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
103    END SUBROUTINE cxios_get_field_field_ref
104   
105    FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C)
106      USE ISO_C_BINDING
107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref
108      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
109    END FUNCTION cxios_is_defined_field_field_ref
110   
111   
112    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
115      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
116      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
117    END SUBROUTINE cxios_set_field_freq_offset
118   
119    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
123      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
124    END SUBROUTINE cxios_get_field_freq_offset
125   
126    FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C)
127      USE ISO_C_BINDING
128      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset
129      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
130    END FUNCTION cxios_is_defined_field_freq_offset
131   
132   
133    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
134      USE ISO_C_BINDING
135      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
136      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
137      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
138    END SUBROUTINE cxios_set_field_freq_op
139   
140    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
143      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
144      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
145    END SUBROUTINE cxios_get_field_freq_op
146   
147    FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C)
148      USE ISO_C_BINDING
149      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op
150      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
151    END FUNCTION cxios_is_defined_field_freq_op
152   
153   
154    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
155      USE ISO_C_BINDING
156      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
157      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
158      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
159    END SUBROUTINE cxios_set_field_grid_ref
160   
161    SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
162      USE ISO_C_BINDING
163      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
164      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
165      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
166    END SUBROUTINE cxios_get_field_grid_ref
167   
168    FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C)
169      USE ISO_C_BINDING
170      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref
171      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
172    END FUNCTION cxios_is_defined_field_grid_ref
173   
174   
175    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
176      USE ISO_C_BINDING
177      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
178      INTEGER (KIND=C_INT)      , VALUE :: level
179    END SUBROUTINE cxios_set_field_level
180   
181    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C)
182      USE ISO_C_BINDING
183      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
184      INTEGER (KIND=C_INT)             :: level
185    END SUBROUTINE cxios_get_field_level
186   
187    FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C)
188      USE ISO_C_BINDING
189      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level
190      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
191    END FUNCTION cxios_is_defined_field_level
192   
193   
194    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
195      USE ISO_C_BINDING
196      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
197      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
198      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
199    END SUBROUTINE cxios_set_field_long_name
200   
201    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
202      USE ISO_C_BINDING
203      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
204      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
205      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
206    END SUBROUTINE cxios_get_field_long_name
207   
208    FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C)
209      USE ISO_C_BINDING
210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name
211      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
212    END FUNCTION cxios_is_defined_field_long_name
213   
214   
215    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
216      USE ISO_C_BINDING
217      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
218      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
219      INTEGER  (kind = C_INT)     , VALUE        :: name_size
220    END SUBROUTINE cxios_set_field_name
221   
222    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C)
223      USE ISO_C_BINDING
224      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
225      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
226      INTEGER  (kind = C_INT)     , VALUE        :: name_size
227    END SUBROUTINE cxios_get_field_name
228   
229    FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C)
230      USE ISO_C_BINDING
231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name
232      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
233    END FUNCTION cxios_is_defined_field_name
234   
235   
236    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
237      USE ISO_C_BINDING
238      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
239      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
240      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
241    END SUBROUTINE cxios_set_field_operation
242   
243    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C)
244      USE ISO_C_BINDING
245      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
246      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
247      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
248    END SUBROUTINE cxios_get_field_operation
249   
250    FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C)
251      USE ISO_C_BINDING
252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation
253      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
254    END FUNCTION cxios_is_defined_field_operation
255   
256   
257    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
258      USE ISO_C_BINDING
259      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
260      INTEGER (KIND=C_INT)      , VALUE :: prec
261    END SUBROUTINE cxios_set_field_prec
262   
263    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C)
264      USE ISO_C_BINDING
265      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
266      INTEGER (KIND=C_INT)             :: prec
267    END SUBROUTINE cxios_get_field_prec
268   
269    FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C)
270      USE ISO_C_BINDING
271      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec
272      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
273    END FUNCTION cxios_is_defined_field_prec
274   
275   
276    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
277      USE ISO_C_BINDING
278      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
279      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
280      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
281    END SUBROUTINE cxios_set_field_standard_name
282   
283    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
284      USE ISO_C_BINDING
285      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
286      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
287      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
288    END SUBROUTINE cxios_get_field_standard_name
289   
290    FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C)
291      USE ISO_C_BINDING
292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name
293      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
294    END FUNCTION cxios_is_defined_field_standard_name
295   
296   
297    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
300      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
301      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
302    END SUBROUTINE cxios_set_field_unit
303   
304    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C)
305      USE ISO_C_BINDING
306      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
307      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
308      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
309    END SUBROUTINE cxios_get_field_unit
310   
311    FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C)
312      USE ISO_C_BINDING
313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit
314      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
315    END FUNCTION cxios_is_defined_field_unit
316   
317   
318    END INTERFACE
319 
320END MODULE field_interface_attr
Note: See TracBrowser for help on using the repository browser.