source: XIOS/trunk/src/interface/fortran_attr/fieldgroup_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: 15.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE fieldgroup_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_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
15      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
16    END SUBROUTINE cxios_set_fieldgroup_axis_ref
17   
18    SUBROUTINE cxios_get_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
22      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
23    END SUBROUTINE cxios_get_fieldgroup_axis_ref
24   
25    FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl ) BIND(C)
26      USE ISO_C_BINDING
27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref
28      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
29    END FUNCTION cxios_is_defined_fieldgroup_axis_ref
30   
31   
32    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
35      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
36    END SUBROUTINE cxios_set_fieldgroup_default_value
37   
38    SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
41      REAL (KIND=C_DOUBLE)             :: default_value
42    END SUBROUTINE cxios_get_fieldgroup_default_value
43   
44    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl ) BIND(C)
45      USE ISO_C_BINDING
46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value
47      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
48    END FUNCTION cxios_is_defined_fieldgroup_default_value
49   
50   
51    SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
52      USE ISO_C_BINDING
53      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
54      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
55      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
56    END SUBROUTINE cxios_set_fieldgroup_domain_ref
57   
58    SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
61      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
62      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
63    END SUBROUTINE cxios_get_fieldgroup_domain_ref
64   
65    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl ) BIND(C)
66      USE ISO_C_BINDING
67      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref
68      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
69    END FUNCTION cxios_is_defined_fieldgroup_domain_ref
70   
71   
72    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
73      USE ISO_C_BINDING
74      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
75      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
76    END SUBROUTINE cxios_set_fieldgroup_enabled
77   
78    SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
81      LOGICAL (KIND=C_BOOL)             :: enabled
82    END SUBROUTINE cxios_get_fieldgroup_enabled
83   
84    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl ) BIND(C)
85      USE ISO_C_BINDING
86      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled
87      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
88    END FUNCTION cxios_is_defined_fieldgroup_enabled
89   
90   
91    SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
94      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
95      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
96    END SUBROUTINE cxios_set_fieldgroup_field_ref
97   
98    SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
99      USE ISO_C_BINDING
100      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
101      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
102      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
103    END SUBROUTINE cxios_get_fieldgroup_field_ref
104   
105    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl ) BIND(C)
106      USE ISO_C_BINDING
107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref
108      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
109    END FUNCTION cxios_is_defined_fieldgroup_field_ref
110   
111   
112    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset, freq_offset_size) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
115      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
116      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
117    END SUBROUTINE cxios_set_fieldgroup_freq_offset
118   
119    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset, freq_offset_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
123      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
124    END SUBROUTINE cxios_get_fieldgroup_freq_offset
125   
126    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl ) BIND(C)
127      USE ISO_C_BINDING
128      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset
129      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
130    END FUNCTION cxios_is_defined_fieldgroup_freq_offset
131   
132   
133    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op, freq_op_size) BIND(C)
134      USE ISO_C_BINDING
135      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
136      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
137      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
138    END SUBROUTINE cxios_set_fieldgroup_freq_op
139   
140    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op, freq_op_size) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
143      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
144      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
145    END SUBROUTINE cxios_get_fieldgroup_freq_op
146   
147    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl ) BIND(C)
148      USE ISO_C_BINDING
149      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op
150      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
151    END FUNCTION cxios_is_defined_fieldgroup_freq_op
152   
153   
154    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
155      USE ISO_C_BINDING
156      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
157      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
158      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
159    END SUBROUTINE cxios_set_fieldgroup_grid_ref
160   
161    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
162      USE ISO_C_BINDING
163      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
164      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
165      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
166    END SUBROUTINE cxios_get_fieldgroup_grid_ref
167   
168    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl ) BIND(C)
169      USE ISO_C_BINDING
170      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref
171      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
172    END FUNCTION cxios_is_defined_fieldgroup_grid_ref
173   
174   
175    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
176      USE ISO_C_BINDING
177      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
178      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
179      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
180    END SUBROUTINE cxios_set_fieldgroup_group_ref
181   
182    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
183      USE ISO_C_BINDING
184      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
185      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
186      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
187    END SUBROUTINE cxios_get_fieldgroup_group_ref
188   
189    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl ) BIND(C)
190      USE ISO_C_BINDING
191      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref
192      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
193    END FUNCTION cxios_is_defined_fieldgroup_group_ref
194   
195   
196    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
197      USE ISO_C_BINDING
198      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
199      INTEGER (KIND=C_INT)      , VALUE :: level
200    END SUBROUTINE cxios_set_fieldgroup_level
201   
202    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
203      USE ISO_C_BINDING
204      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
205      INTEGER (KIND=C_INT)             :: level
206    END SUBROUTINE cxios_get_fieldgroup_level
207   
208    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl ) BIND(C)
209      USE ISO_C_BINDING
210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level
211      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
212    END FUNCTION cxios_is_defined_fieldgroup_level
213   
214   
215    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
216      USE ISO_C_BINDING
217      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
218      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
219      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
220    END SUBROUTINE cxios_set_fieldgroup_long_name
221   
222    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
223      USE ISO_C_BINDING
224      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
225      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
226      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
227    END SUBROUTINE cxios_get_fieldgroup_long_name
228   
229    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl ) BIND(C)
230      USE ISO_C_BINDING
231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name
232      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
233    END FUNCTION cxios_is_defined_fieldgroup_long_name
234   
235   
236    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
237      USE ISO_C_BINDING
238      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
239      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
240      INTEGER  (kind = C_INT)     , VALUE        :: name_size
241    END SUBROUTINE cxios_set_fieldgroup_name
242   
243    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
244      USE ISO_C_BINDING
245      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
246      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
247      INTEGER  (kind = C_INT)     , VALUE        :: name_size
248    END SUBROUTINE cxios_get_fieldgroup_name
249   
250    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl ) BIND(C)
251      USE ISO_C_BINDING
252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name
253      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
254    END FUNCTION cxios_is_defined_fieldgroup_name
255   
256   
257    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
258      USE ISO_C_BINDING
259      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
260      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
261      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
262    END SUBROUTINE cxios_set_fieldgroup_operation
263   
264    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
265      USE ISO_C_BINDING
266      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
267      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
268      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
269    END SUBROUTINE cxios_get_fieldgroup_operation
270   
271    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl ) BIND(C)
272      USE ISO_C_BINDING
273      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation
274      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
275    END FUNCTION cxios_is_defined_fieldgroup_operation
276   
277   
278    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
279      USE ISO_C_BINDING
280      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
281      INTEGER (KIND=C_INT)      , VALUE :: prec
282    END SUBROUTINE cxios_set_fieldgroup_prec
283   
284    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
285      USE ISO_C_BINDING
286      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
287      INTEGER (KIND=C_INT)             :: prec
288    END SUBROUTINE cxios_get_fieldgroup_prec
289   
290    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl ) BIND(C)
291      USE ISO_C_BINDING
292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec
293      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
294    END FUNCTION cxios_is_defined_fieldgroup_prec
295   
296   
297    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
300      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
301      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
302    END SUBROUTINE cxios_set_fieldgroup_standard_name
303   
304    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
305      USE ISO_C_BINDING
306      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
307      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
308      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
309    END SUBROUTINE cxios_get_fieldgroup_standard_name
310   
311    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl ) BIND(C)
312      USE ISO_C_BINDING
313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name
314      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
315    END FUNCTION cxios_is_defined_fieldgroup_standard_name
316   
317   
318    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
319      USE ISO_C_BINDING
320      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
321      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
322      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
323    END SUBROUTINE cxios_set_fieldgroup_unit
324   
325    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
326      USE ISO_C_BINDING
327      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
328      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
329      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
330    END SUBROUTINE cxios_get_fieldgroup_unit
331   
332    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl ) BIND(C)
333      USE ISO_C_BINDING
334      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit
335      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
336    END FUNCTION cxios_is_defined_fieldgroup_unit
337   
338   
339    END INTERFACE
340 
341END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.