source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/axisgroup_interface_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.
  • 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: 26.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE axisgroup_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
16      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
17    END SUBROUTINE cxios_set_axisgroup_axis_ref
18
19    SUBROUTINE cxios_get_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
23      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
24    END SUBROUTINE cxios_get_axisgroup_axis_ref
25
26    FUNCTION cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_axis_ref
29      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
30    END FUNCTION cxios_is_defined_axisgroup_axis_ref
31
32
33    SUBROUTINE cxios_set_axisgroup_axis_type(axisgroup_hdl, axis_type, axis_type_size) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_type
37      INTEGER  (kind = C_INT)     , VALUE        :: axis_type_size
38    END SUBROUTINE cxios_set_axisgroup_axis_type
39
40    SUBROUTINE cxios_get_axisgroup_axis_type(axisgroup_hdl, axis_type, axis_type_size) BIND(C)
41      USE ISO_C_BINDING
42      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
43      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_type
44      INTEGER  (kind = C_INT)     , VALUE        :: axis_type_size
45    END SUBROUTINE cxios_get_axisgroup_axis_type
46
47    FUNCTION cxios_is_defined_axisgroup_axis_type(axisgroup_hdl) BIND(C)
48      USE ISO_C_BINDING
49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_axis_type
50      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
51    END FUNCTION cxios_is_defined_axisgroup_axis_type
52
53
54    SUBROUTINE cxios_set_axisgroup_begin(axisgroup_hdl, begin) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
57      INTEGER (KIND=C_INT)      , VALUE :: begin
58    END SUBROUTINE cxios_set_axisgroup_begin
59
60    SUBROUTINE cxios_get_axisgroup_begin(axisgroup_hdl, begin) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
63      INTEGER (KIND=C_INT)             :: begin
64    END SUBROUTINE cxios_get_axisgroup_begin
65
66    FUNCTION cxios_is_defined_axisgroup_begin(axisgroup_hdl) BIND(C)
67      USE ISO_C_BINDING
68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_begin
69      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
70    END FUNCTION cxios_is_defined_axisgroup_begin
71
72
73    SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
76      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
77      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
78    END SUBROUTINE cxios_set_axisgroup_bounds
79
80    SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
83      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
84      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
85    END SUBROUTINE cxios_get_axisgroup_bounds
86
87    FUNCTION cxios_is_defined_axisgroup_bounds(axisgroup_hdl) BIND(C)
88      USE ISO_C_BINDING
89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_bounds
90      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
91    END FUNCTION cxios_is_defined_axisgroup_bounds
92
93
94    SUBROUTINE cxios_set_axisgroup_bounds_name(axisgroup_hdl, bounds_name, bounds_name_size) BIND(C)
95      USE ISO_C_BINDING
96      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
97      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: bounds_name
98      INTEGER  (kind = C_INT)     , VALUE        :: bounds_name_size
99    END SUBROUTINE cxios_set_axisgroup_bounds_name
100
101    SUBROUTINE cxios_get_axisgroup_bounds_name(axisgroup_hdl, bounds_name, bounds_name_size) BIND(C)
102      USE ISO_C_BINDING
103      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
104      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: bounds_name
105      INTEGER  (kind = C_INT)     , VALUE        :: bounds_name_size
106    END SUBROUTINE cxios_get_axisgroup_bounds_name
107
108    FUNCTION cxios_is_defined_axisgroup_bounds_name(axisgroup_hdl) BIND(C)
109      USE ISO_C_BINDING
110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_bounds_name
111      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
112    END FUNCTION cxios_is_defined_axisgroup_bounds_name
113
114
115    SUBROUTINE cxios_set_axisgroup_comment(axisgroup_hdl, comment, comment_size) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
118      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
119      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
120    END SUBROUTINE cxios_set_axisgroup_comment
121
122    SUBROUTINE cxios_get_axisgroup_comment(axisgroup_hdl, comment, comment_size) BIND(C)
123      USE ISO_C_BINDING
124      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
125      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
126      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
127    END SUBROUTINE cxios_get_axisgroup_comment
128
129    FUNCTION cxios_is_defined_axisgroup_comment(axisgroup_hdl) BIND(C)
130      USE ISO_C_BINDING
131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_comment
132      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
133    END FUNCTION cxios_is_defined_axisgroup_comment
134
135
136    SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
139      INTEGER (KIND=C_INT)      , VALUE :: data_begin
140    END SUBROUTINE cxios_set_axisgroup_data_begin
141
142    SUBROUTINE cxios_get_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
145      INTEGER (KIND=C_INT)             :: data_begin
146    END SUBROUTINE cxios_get_axisgroup_data_begin
147
148    FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl) BIND(C)
149      USE ISO_C_BINDING
150      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_begin
151      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
152    END FUNCTION cxios_is_defined_axisgroup_data_begin
153
154
155    SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
158      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
159      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
160    END SUBROUTINE cxios_set_axisgroup_data_index
161
162    SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
165      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
166      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
167    END SUBROUTINE cxios_get_axisgroup_data_index
168
169    FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_index
172      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
173    END FUNCTION cxios_is_defined_axisgroup_data_index
174
175
176    SUBROUTINE cxios_set_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
179      INTEGER (KIND=C_INT)      , VALUE :: data_n
180    END SUBROUTINE cxios_set_axisgroup_data_n
181
182    SUBROUTINE cxios_get_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
183      USE ISO_C_BINDING
184      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
185      INTEGER (KIND=C_INT)             :: data_n
186    END SUBROUTINE cxios_get_axisgroup_data_n
187
188    FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl) BIND(C)
189      USE ISO_C_BINDING
190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_n
191      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
192    END FUNCTION cxios_is_defined_axisgroup_data_n
193
194
195    SUBROUTINE cxios_set_axisgroup_dim_name(axisgroup_hdl, dim_name, dim_name_size) BIND(C)
196      USE ISO_C_BINDING
197      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
198      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: dim_name
199      INTEGER  (kind = C_INT)     , VALUE        :: dim_name_size
200    END SUBROUTINE cxios_set_axisgroup_dim_name
201
202    SUBROUTINE cxios_get_axisgroup_dim_name(axisgroup_hdl, dim_name, dim_name_size) BIND(C)
203      USE ISO_C_BINDING
204      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
205      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: dim_name
206      INTEGER  (kind = C_INT)     , VALUE        :: dim_name_size
207    END SUBROUTINE cxios_get_axisgroup_dim_name
208
209    FUNCTION cxios_is_defined_axisgroup_dim_name(axisgroup_hdl) BIND(C)
210      USE ISO_C_BINDING
211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_dim_name
212      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
213    END FUNCTION cxios_is_defined_axisgroup_dim_name
214
215
216    SUBROUTINE cxios_set_axisgroup_formula(axisgroup_hdl, formula, formula_size) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
219      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula
220      INTEGER  (kind = C_INT)     , VALUE        :: formula_size
221    END SUBROUTINE cxios_set_axisgroup_formula
222
223    SUBROUTINE cxios_get_axisgroup_formula(axisgroup_hdl, formula, formula_size) BIND(C)
224      USE ISO_C_BINDING
225      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
226      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula
227      INTEGER  (kind = C_INT)     , VALUE        :: formula_size
228    END SUBROUTINE cxios_get_axisgroup_formula
229
230    FUNCTION cxios_is_defined_axisgroup_formula(axisgroup_hdl) BIND(C)
231      USE ISO_C_BINDING
232      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula
233      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
234    END FUNCTION cxios_is_defined_axisgroup_formula
235
236
237    SUBROUTINE cxios_set_axisgroup_formula_bounds(axisgroup_hdl, formula_bounds, formula_bounds_size) BIND(C)
238      USE ISO_C_BINDING
239      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
240      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_bounds
241      INTEGER  (kind = C_INT)     , VALUE        :: formula_bounds_size
242    END SUBROUTINE cxios_set_axisgroup_formula_bounds
243
244    SUBROUTINE cxios_get_axisgroup_formula_bounds(axisgroup_hdl, formula_bounds, formula_bounds_size) BIND(C)
245      USE ISO_C_BINDING
246      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
247      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_bounds
248      INTEGER  (kind = C_INT)     , VALUE        :: formula_bounds_size
249    END SUBROUTINE cxios_get_axisgroup_formula_bounds
250
251    FUNCTION cxios_is_defined_axisgroup_formula_bounds(axisgroup_hdl) BIND(C)
252      USE ISO_C_BINDING
253      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula_bounds
254      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
255    END FUNCTION cxios_is_defined_axisgroup_formula_bounds
256
257
258    SUBROUTINE cxios_set_axisgroup_formula_term(axisgroup_hdl, formula_term, formula_term_size) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
261      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term
262      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_size
263    END SUBROUTINE cxios_set_axisgroup_formula_term
264
265    SUBROUTINE cxios_get_axisgroup_formula_term(axisgroup_hdl, formula_term, formula_term_size) BIND(C)
266      USE ISO_C_BINDING
267      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
268      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term
269      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_size
270    END SUBROUTINE cxios_get_axisgroup_formula_term
271
272    FUNCTION cxios_is_defined_axisgroup_formula_term(axisgroup_hdl) BIND(C)
273      USE ISO_C_BINDING
274      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula_term
275      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
276    END FUNCTION cxios_is_defined_axisgroup_formula_term
277
278
279    SUBROUTINE cxios_set_axisgroup_formula_term_bounds(axisgroup_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C)
280      USE ISO_C_BINDING
281      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
282      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term_bounds
283      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_bounds_size
284    END SUBROUTINE cxios_set_axisgroup_formula_term_bounds
285
286    SUBROUTINE cxios_get_axisgroup_formula_term_bounds(axisgroup_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C)
287      USE ISO_C_BINDING
288      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
289      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term_bounds
290      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_bounds_size
291    END SUBROUTINE cxios_get_axisgroup_formula_term_bounds
292
293    FUNCTION cxios_is_defined_axisgroup_formula_term_bounds(axisgroup_hdl) BIND(C)
294      USE ISO_C_BINDING
295      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_formula_term_bounds
296      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
297    END FUNCTION cxios_is_defined_axisgroup_formula_term_bounds
298
299
300    SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
301      USE ISO_C_BINDING
302      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
303      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
304      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
305    END SUBROUTINE cxios_set_axisgroup_group_ref
306
307    SUBROUTINE cxios_get_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
308      USE ISO_C_BINDING
309      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
310      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
311      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
312    END SUBROUTINE cxios_get_axisgroup_group_ref
313
314    FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl) BIND(C)
315      USE ISO_C_BINDING
316      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref
317      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
318    END FUNCTION cxios_is_defined_axisgroup_group_ref
319
320
321    SUBROUTINE cxios_set_axisgroup_index(axisgroup_hdl, index, extent) BIND(C)
322      USE ISO_C_BINDING
323      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
324      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
325      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
326    END SUBROUTINE cxios_set_axisgroup_index
327
328    SUBROUTINE cxios_get_axisgroup_index(axisgroup_hdl, index, extent) BIND(C)
329      USE ISO_C_BINDING
330      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
331      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
332      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
333    END SUBROUTINE cxios_get_axisgroup_index
334
335    FUNCTION cxios_is_defined_axisgroup_index(axisgroup_hdl) BIND(C)
336      USE ISO_C_BINDING
337      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_index
338      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
339    END FUNCTION cxios_is_defined_axisgroup_index
340
341
342    SUBROUTINE cxios_set_axisgroup_label(axisgroup_hdl, label, str_len, str_size, extent) BIND(C)
343      USE ISO_C_BINDING
344      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
345      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
346      INTEGER (kind = C_INT), VALUE            :: str_len
347      INTEGER (kind = C_INT), DIMENSION(*)     :: str_size
348      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
349    END SUBROUTINE cxios_set_axisgroup_label
350
351    SUBROUTINE cxios_get_axisgroup_label(axisgroup_hdl, label, str_size, extent) BIND(C)
352      USE ISO_C_BINDING
353      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
354      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
355      INTEGER (kind = C_INT), VALUE            :: str_size
356      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
357    END SUBROUTINE cxios_get_axisgroup_label
358
359    FUNCTION cxios_is_defined_axisgroup_label(axisgroup_hdl) BIND(C)
360      USE ISO_C_BINDING
361      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_label
362      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
363    END FUNCTION cxios_is_defined_axisgroup_label
364
365
366    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
367      USE ISO_C_BINDING
368      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
369      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
370      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
371    END SUBROUTINE cxios_set_axisgroup_long_name
372
373    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
374      USE ISO_C_BINDING
375      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
376      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
377      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
378    END SUBROUTINE cxios_get_axisgroup_long_name
379
380    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl) BIND(C)
381      USE ISO_C_BINDING
382      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name
383      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
384    END FUNCTION cxios_is_defined_axisgroup_long_name
385
386
387    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
388      USE ISO_C_BINDING
389      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
390      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
391      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
392    END SUBROUTINE cxios_set_axisgroup_mask
393
394    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
395      USE ISO_C_BINDING
396      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
397      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
398      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
399    END SUBROUTINE cxios_get_axisgroup_mask
400
401    FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl) BIND(C)
402      USE ISO_C_BINDING
403      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask
404      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
405    END FUNCTION cxios_is_defined_axisgroup_mask
406
407
408    SUBROUTINE cxios_set_axisgroup_n(axisgroup_hdl, n) BIND(C)
409      USE ISO_C_BINDING
410      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
411      INTEGER (KIND=C_INT)      , VALUE :: n
412    END SUBROUTINE cxios_set_axisgroup_n
413
414    SUBROUTINE cxios_get_axisgroup_n(axisgroup_hdl, n) BIND(C)
415      USE ISO_C_BINDING
416      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
417      INTEGER (KIND=C_INT)             :: n
418    END SUBROUTINE cxios_get_axisgroup_n
419
420    FUNCTION cxios_is_defined_axisgroup_n(axisgroup_hdl) BIND(C)
421      USE ISO_C_BINDING
422      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n
423      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
424    END FUNCTION cxios_is_defined_axisgroup_n
425
426
427    SUBROUTINE cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
428      USE ISO_C_BINDING
429      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
430      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
431    END SUBROUTINE cxios_set_axisgroup_n_distributed_partition
432
433    SUBROUTINE cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
434      USE ISO_C_BINDING
435      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
436      INTEGER (KIND=C_INT)             :: n_distributed_partition
437    END SUBROUTINE cxios_get_axisgroup_n_distributed_partition
438
439    FUNCTION cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl) BIND(C)
440      USE ISO_C_BINDING
441      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_distributed_partition
442      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
443    END FUNCTION cxios_is_defined_axisgroup_n_distributed_partition
444
445
446    SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
447      USE ISO_C_BINDING
448      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
449      INTEGER (KIND=C_INT)      , VALUE :: n_glo
450    END SUBROUTINE cxios_set_axisgroup_n_glo
451
452    SUBROUTINE cxios_get_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
453      USE ISO_C_BINDING
454      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
455      INTEGER (KIND=C_INT)             :: n_glo
456    END SUBROUTINE cxios_get_axisgroup_n_glo
457
458    FUNCTION cxios_is_defined_axisgroup_n_glo(axisgroup_hdl) BIND(C)
459      USE ISO_C_BINDING
460      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_glo
461      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
462    END FUNCTION cxios_is_defined_axisgroup_n_glo
463
464
465    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
466      USE ISO_C_BINDING
467      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
468      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
469      INTEGER  (kind = C_INT)     , VALUE        :: name_size
470    END SUBROUTINE cxios_set_axisgroup_name
471
472    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
473      USE ISO_C_BINDING
474      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
475      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
476      INTEGER  (kind = C_INT)     , VALUE        :: name_size
477    END SUBROUTINE cxios_get_axisgroup_name
478
479    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl) BIND(C)
480      USE ISO_C_BINDING
481      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name
482      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
483    END FUNCTION cxios_is_defined_axisgroup_name
484
485
486    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
487      USE ISO_C_BINDING
488      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
489      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
490      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
491    END SUBROUTINE cxios_set_axisgroup_positive
492
493    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
494      USE ISO_C_BINDING
495      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
496      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
497      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
498    END SUBROUTINE cxios_get_axisgroup_positive
499
500    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl) BIND(C)
501      USE ISO_C_BINDING
502      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive
503      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
504    END FUNCTION cxios_is_defined_axisgroup_positive
505
506
507    SUBROUTINE cxios_set_axisgroup_prec(axisgroup_hdl, prec) BIND(C)
508      USE ISO_C_BINDING
509      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
510      INTEGER (KIND=C_INT)      , VALUE :: prec
511    END SUBROUTINE cxios_set_axisgroup_prec
512
513    SUBROUTINE cxios_get_axisgroup_prec(axisgroup_hdl, prec) BIND(C)
514      USE ISO_C_BINDING
515      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
516      INTEGER (KIND=C_INT)             :: prec
517    END SUBROUTINE cxios_get_axisgroup_prec
518
519    FUNCTION cxios_is_defined_axisgroup_prec(axisgroup_hdl) BIND(C)
520      USE ISO_C_BINDING
521      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_prec
522      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
523    END FUNCTION cxios_is_defined_axisgroup_prec
524
525
526    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
527      USE ISO_C_BINDING
528      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
529      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
530      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
531    END SUBROUTINE cxios_set_axisgroup_standard_name
532
533    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
534      USE ISO_C_BINDING
535      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
536      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
537      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
538    END SUBROUTINE cxios_get_axisgroup_standard_name
539
540    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl) BIND(C)
541      USE ISO_C_BINDING
542      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name
543      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
544    END FUNCTION cxios_is_defined_axisgroup_standard_name
545
546
547    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
548      USE ISO_C_BINDING
549      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
550      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
551      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
552    END SUBROUTINE cxios_set_axisgroup_unit
553
554    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
555      USE ISO_C_BINDING
556      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
557      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
558      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
559    END SUBROUTINE cxios_get_axisgroup_unit
560
561    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl) BIND(C)
562      USE ISO_C_BINDING
563      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit
564      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
565    END FUNCTION cxios_is_defined_axisgroup_unit
566
567
568    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
569      USE ISO_C_BINDING
570      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
571      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
572      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
573    END SUBROUTINE cxios_set_axisgroup_value
574
575    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
576      USE ISO_C_BINDING
577      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
578      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
579      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
580    END SUBROUTINE cxios_get_axisgroup_value
581
582    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl) BIND(C)
583      USE ISO_C_BINDING
584      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value
585      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
586    END FUNCTION cxios_is_defined_axisgroup_value
587
588  END INTERFACE
589
590END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.