source: XIOS3/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 2616

Last change on this file since 2616 was 2616, checked in by jderouillat, 4 months ago

Add XIOS3 fortran interfaces (resources management, chunking, compression)
  • 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: 39.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxisgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axisgroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_axisgroup_attr)  &
14    ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
15    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
16    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
17    , unit, value )
18
19    IMPLICIT NONE
20      TYPE(txios(axisgroup))  :: axisgroup_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
24      INTEGER  , OPTIONAL, INTENT(IN) :: begin
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
38      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
39      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
41      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
42      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
43      INTEGER  , OPTIONAL, INTENT(IN) :: n
44      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
45      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
48      INTEGER  , OPTIONAL, INTENT(IN) :: prec
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
52
53      CALL xios(get_axisgroup_handle) &
54      (axisgroup_id,axisgroup_hdl)
55      CALL xios(set_axisgroup_attr_hdl_)   &
56      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
57      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
58      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
59      , unit, value )
60
61  END SUBROUTINE xios(set_axisgroup_attr)
62
63  SUBROUTINE xios(set_axisgroup_attr_hdl)  &
64    ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
65    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
66    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
67    , unit, value )
68
69    IMPLICIT NONE
70      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
73      INTEGER  , OPTIONAL, INTENT(IN) :: begin
74      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
76      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
78      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
79      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
80      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
87      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
88      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
90      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
91      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
92      INTEGER  , OPTIONAL, INTENT(IN) :: n
93      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
94      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
97      INTEGER  , OPTIONAL, INTENT(IN) :: prec
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
101
102      CALL xios(set_axisgroup_attr_hdl_)  &
103      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
104      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
105      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
106      , unit, value )
107
108  END SUBROUTINE xios(set_axisgroup_attr_hdl)
109
110  SUBROUTINE xios(set_axisgroup_attr_hdl_)   &
111    ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  &
112    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  &
113    , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_  &
114    , positive_, prec_, standard_name_, unit_, value_ )
115
116    IMPLICIT NONE
117      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
120      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
123      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_
124      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
125      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
126      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
127      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name_
129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_
130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds_
131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds_
133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
134      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
135      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:)
136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
137      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
138      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
139      INTEGER  , OPTIONAL, INTENT(IN) :: n_
140      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition_
141      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_
142      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
144      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
147      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
148
149      IF (PRESENT(axis_ref_)) THEN
150        CALL cxios_set_axisgroup_axis_ref &
151      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
152      ENDIF
153
154      IF (PRESENT(axis_type_)) THEN
155        CALL cxios_set_axisgroup_axis_type &
156      (axisgroup_hdl%daddr, axis_type_, len(axis_type_))
157      ENDIF
158
159      IF (PRESENT(begin_)) THEN
160        CALL cxios_set_axisgroup_begin &
161      (axisgroup_hdl%daddr, begin_)
162      ENDIF
163
164      IF (PRESENT(bounds_)) THEN
165        CALL cxios_set_axisgroup_bounds &
166      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
167      ENDIF
168
169      IF (PRESENT(bounds_name_)) THEN
170        CALL cxios_set_axisgroup_bounds_name &
171      (axisgroup_hdl%daddr, bounds_name_, len(bounds_name_))
172      ENDIF
173
174      IF (PRESENT(chunking_weight_)) THEN
175        CALL cxios_set_axisgroup_chunking_weight &
176      (axisgroup_hdl%daddr, chunking_weight_)
177      ENDIF
178
179      IF (PRESENT(comment_)) THEN
180        CALL cxios_set_axisgroup_comment &
181      (axisgroup_hdl%daddr, comment_, len(comment_))
182      ENDIF
183
184      IF (PRESENT(data_begin_)) THEN
185        CALL cxios_set_axisgroup_data_begin &
186      (axisgroup_hdl%daddr, data_begin_)
187      ENDIF
188
189      IF (PRESENT(data_index_)) THEN
190        CALL cxios_set_axisgroup_data_index &
191      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
192      ENDIF
193
194      IF (PRESENT(data_n_)) THEN
195        CALL cxios_set_axisgroup_data_n &
196      (axisgroup_hdl%daddr, data_n_)
197      ENDIF
198
199      IF (PRESENT(dim_name_)) THEN
200        CALL cxios_set_axisgroup_dim_name &
201      (axisgroup_hdl%daddr, dim_name_, len(dim_name_))
202      ENDIF
203
204      IF (PRESENT(formula_)) THEN
205        CALL cxios_set_axisgroup_formula &
206      (axisgroup_hdl%daddr, formula_, len(formula_))
207      ENDIF
208
209      IF (PRESENT(formula_bounds_)) THEN
210        CALL cxios_set_axisgroup_formula_bounds &
211      (axisgroup_hdl%daddr, formula_bounds_, len(formula_bounds_))
212      ENDIF
213
214      IF (PRESENT(formula_term_)) THEN
215        CALL cxios_set_axisgroup_formula_term &
216      (axisgroup_hdl%daddr, formula_term_, len(formula_term_))
217      ENDIF
218
219      IF (PRESENT(formula_term_bounds_)) THEN
220        CALL cxios_set_axisgroup_formula_term_bounds &
221      (axisgroup_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_))
222      ENDIF
223
224      IF (PRESENT(group_ref_)) THEN
225        CALL cxios_set_axisgroup_group_ref &
226      (axisgroup_hdl%daddr, group_ref_, len(group_ref_))
227      ENDIF
228
229      IF (PRESENT(index_)) THEN
230        CALL cxios_set_axisgroup_index &
231      (axisgroup_hdl%daddr, index_, SHAPE(index_))
232      ENDIF
233
234      IF (PRESENT(label_)) THEN
235        CALL cxios_set_axisgroup_label &
236      (axisgroup_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_))
237      ENDIF
238
239      IF (PRESENT(long_name_)) THEN
240        CALL cxios_set_axisgroup_long_name &
241      (axisgroup_hdl%daddr, long_name_, len(long_name_))
242      ENDIF
243
244      IF (PRESENT(mask_)) THEN
245        ALLOCATE(mask__tmp(SIZE(mask_,1)))
246        mask__tmp = mask_
247        CALL cxios_set_axisgroup_mask &
248      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
249      ENDIF
250
251      IF (PRESENT(n_)) THEN
252        CALL cxios_set_axisgroup_n &
253      (axisgroup_hdl%daddr, n_)
254      ENDIF
255
256      IF (PRESENT(n_distributed_partition_)) THEN
257        CALL cxios_set_axisgroup_n_distributed_partition &
258      (axisgroup_hdl%daddr, n_distributed_partition_)
259      ENDIF
260
261      IF (PRESENT(n_glo_)) THEN
262        CALL cxios_set_axisgroup_n_glo &
263      (axisgroup_hdl%daddr, n_glo_)
264      ENDIF
265
266      IF (PRESENT(name_)) THEN
267        CALL cxios_set_axisgroup_name &
268      (axisgroup_hdl%daddr, name_, len(name_))
269      ENDIF
270
271      IF (PRESENT(positive_)) THEN
272        CALL cxios_set_axisgroup_positive &
273      (axisgroup_hdl%daddr, positive_, len(positive_))
274      ENDIF
275
276      IF (PRESENT(prec_)) THEN
277        CALL cxios_set_axisgroup_prec &
278      (axisgroup_hdl%daddr, prec_)
279      ENDIF
280
281      IF (PRESENT(standard_name_)) THEN
282        CALL cxios_set_axisgroup_standard_name &
283      (axisgroup_hdl%daddr, standard_name_, len(standard_name_))
284      ENDIF
285
286      IF (PRESENT(unit_)) THEN
287        CALL cxios_set_axisgroup_unit &
288      (axisgroup_hdl%daddr, unit_, len(unit_))
289      ENDIF
290
291      IF (PRESENT(value_)) THEN
292        CALL cxios_set_axisgroup_value &
293      (axisgroup_hdl%daddr, value_, SHAPE(value_))
294      ENDIF
295
296  END SUBROUTINE xios(set_axisgroup_attr_hdl_)
297
298  SUBROUTINE xios(get_axisgroup_attr)  &
299    ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
300    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
301    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
302    , unit, value )
303
304    IMPLICIT NONE
305      TYPE(txios(axisgroup))  :: axisgroup_hdl
306      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
308      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
309      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
310      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
311      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
312      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight
313      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
314      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
315      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
316      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
317      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name
318      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula
319      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds
320      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term
321      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds
322      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
323      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
324      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
325      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
326      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
327      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
328      INTEGER  , OPTIONAL, INTENT(OUT) :: n
329      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
330      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
331      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
333      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
334      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
335      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
336      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
337
338      CALL xios(get_axisgroup_handle) &
339      (axisgroup_id,axisgroup_hdl)
340      CALL xios(get_axisgroup_attr_hdl_)   &
341      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
342      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
343      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
344      , unit, value )
345
346  END SUBROUTINE xios(get_axisgroup_attr)
347
348  SUBROUTINE xios(get_axisgroup_attr_hdl)  &
349    ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
350    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
351    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
352    , unit, value )
353
354    IMPLICIT NONE
355      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
356      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
357      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
358      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
359      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
360      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
361      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight
362      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
363      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
364      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
365      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name
367      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula
368      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds
369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term
370      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds
371      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
372      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
373      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
374      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
375      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
376      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
377      INTEGER  , OPTIONAL, INTENT(OUT) :: n
378      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
379      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
382      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
383      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
385      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
386
387      CALL xios(get_axisgroup_attr_hdl_)  &
388      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
389      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
390      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
391      , unit, value )
392
393  END SUBROUTINE xios(get_axisgroup_attr_hdl)
394
395  SUBROUTINE xios(get_axisgroup_attr_hdl_)   &
396    ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  &
397    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  &
398    , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_  &
399    , positive_, prec_, standard_name_, unit_, value_ )
400
401    IMPLICIT NONE
402      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
403      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
404      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
405      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
406      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
407      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
408      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_
409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
410      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
411      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
412      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
413      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name_
414      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_
415      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds_
416      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_
417      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds_
418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
419      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
420      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:)
421      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
422      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
423      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
424      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
425      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
426      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo_
427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
428      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
429      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
431      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
432      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
433
434      IF (PRESENT(axis_ref_)) THEN
435        CALL cxios_get_axisgroup_axis_ref &
436      (axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
437      ENDIF
438
439      IF (PRESENT(axis_type_)) THEN
440        CALL cxios_get_axisgroup_axis_type &
441      (axisgroup_hdl%daddr, axis_type_, len(axis_type_))
442      ENDIF
443
444      IF (PRESENT(begin_)) THEN
445        CALL cxios_get_axisgroup_begin &
446      (axisgroup_hdl%daddr, begin_)
447      ENDIF
448
449      IF (PRESENT(bounds_)) THEN
450        CALL cxios_get_axisgroup_bounds &
451      (axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
452      ENDIF
453
454      IF (PRESENT(bounds_name_)) THEN
455        CALL cxios_get_axisgroup_bounds_name &
456      (axisgroup_hdl%daddr, bounds_name_, len(bounds_name_))
457      ENDIF
458
459      IF (PRESENT(chunking_weight_)) THEN
460        CALL cxios_get_axisgroup_chunking_weight &
461      (axisgroup_hdl%daddr, chunking_weight_)
462      ENDIF
463
464      IF (PRESENT(comment_)) THEN
465        CALL cxios_get_axisgroup_comment &
466      (axisgroup_hdl%daddr, comment_, len(comment_))
467      ENDIF
468
469      IF (PRESENT(data_begin_)) THEN
470        CALL cxios_get_axisgroup_data_begin &
471      (axisgroup_hdl%daddr, data_begin_)
472      ENDIF
473
474      IF (PRESENT(data_index_)) THEN
475        CALL cxios_get_axisgroup_data_index &
476      (axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
477      ENDIF
478
479      IF (PRESENT(data_n_)) THEN
480        CALL cxios_get_axisgroup_data_n &
481      (axisgroup_hdl%daddr, data_n_)
482      ENDIF
483
484      IF (PRESENT(dim_name_)) THEN
485        CALL cxios_get_axisgroup_dim_name &
486      (axisgroup_hdl%daddr, dim_name_, len(dim_name_))
487      ENDIF
488
489      IF (PRESENT(formula_)) THEN
490        CALL cxios_get_axisgroup_formula &
491      (axisgroup_hdl%daddr, formula_, len(formula_))
492      ENDIF
493
494      IF (PRESENT(formula_bounds_)) THEN
495        CALL cxios_get_axisgroup_formula_bounds &
496      (axisgroup_hdl%daddr, formula_bounds_, len(formula_bounds_))
497      ENDIF
498
499      IF (PRESENT(formula_term_)) THEN
500        CALL cxios_get_axisgroup_formula_term &
501      (axisgroup_hdl%daddr, formula_term_, len(formula_term_))
502      ENDIF
503
504      IF (PRESENT(formula_term_bounds_)) THEN
505        CALL cxios_get_axisgroup_formula_term_bounds &
506      (axisgroup_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_))
507      ENDIF
508
509      IF (PRESENT(group_ref_)) THEN
510        CALL cxios_get_axisgroup_group_ref &
511      (axisgroup_hdl%daddr, group_ref_, len(group_ref_))
512      ENDIF
513
514      IF (PRESENT(index_)) THEN
515        CALL cxios_get_axisgroup_index &
516      (axisgroup_hdl%daddr, index_, SHAPE(index_))
517      ENDIF
518
519      IF (PRESENT(label_)) THEN
520        CALL cxios_get_axisgroup_label &
521      (axisgroup_hdl%daddr, label_, LEN(label_), SHAPE(label_))
522      ENDIF
523
524      IF (PRESENT(long_name_)) THEN
525        CALL cxios_get_axisgroup_long_name &
526      (axisgroup_hdl%daddr, long_name_, len(long_name_))
527      ENDIF
528
529      IF (PRESENT(mask_)) THEN
530        ALLOCATE(mask__tmp(SIZE(mask_,1)))
531        CALL cxios_get_axisgroup_mask &
532      (axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
533        mask_ = mask__tmp
534      ENDIF
535
536      IF (PRESENT(n_)) THEN
537        CALL cxios_get_axisgroup_n &
538      (axisgroup_hdl%daddr, n_)
539      ENDIF
540
541      IF (PRESENT(n_distributed_partition_)) THEN
542        CALL cxios_get_axisgroup_n_distributed_partition &
543      (axisgroup_hdl%daddr, n_distributed_partition_)
544      ENDIF
545
546      IF (PRESENT(n_glo_)) THEN
547        CALL cxios_get_axisgroup_n_glo &
548      (axisgroup_hdl%daddr, n_glo_)
549      ENDIF
550
551      IF (PRESENT(name_)) THEN
552        CALL cxios_get_axisgroup_name &
553      (axisgroup_hdl%daddr, name_, len(name_))
554      ENDIF
555
556      IF (PRESENT(positive_)) THEN
557        CALL cxios_get_axisgroup_positive &
558      (axisgroup_hdl%daddr, positive_, len(positive_))
559      ENDIF
560
561      IF (PRESENT(prec_)) THEN
562        CALL cxios_get_axisgroup_prec &
563      (axisgroup_hdl%daddr, prec_)
564      ENDIF
565
566      IF (PRESENT(standard_name_)) THEN
567        CALL cxios_get_axisgroup_standard_name &
568      (axisgroup_hdl%daddr, standard_name_, len(standard_name_))
569      ENDIF
570
571      IF (PRESENT(unit_)) THEN
572        CALL cxios_get_axisgroup_unit &
573      (axisgroup_hdl%daddr, unit_, len(unit_))
574      ENDIF
575
576      IF (PRESENT(value_)) THEN
577        CALL cxios_get_axisgroup_value &
578      (axisgroup_hdl%daddr, value_, SHAPE(value_))
579      ENDIF
580
581  END SUBROUTINE xios(get_axisgroup_attr_hdl_)
582
583  SUBROUTINE xios(is_defined_axisgroup_attr)  &
584    ( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
585    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
586    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
587    , unit, value )
588
589    IMPLICIT NONE
590      TYPE(txios(axisgroup))  :: axisgroup_hdl
591      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
592      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
593      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
594      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
595      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
596      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
597      LOGICAL(KIND=C_BOOL) :: begin_tmp
598      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
599      LOGICAL(KIND=C_BOOL) :: bounds_tmp
600      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
601      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
602      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight
603      LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp
604      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
605      LOGICAL(KIND=C_BOOL) :: comment_tmp
606      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
607      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
608      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
609      LOGICAL(KIND=C_BOOL) :: data_index_tmp
610      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
611      LOGICAL(KIND=C_BOOL) :: data_n_tmp
612      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name
613      LOGICAL(KIND=C_BOOL) :: dim_name_tmp
614      LOGICAL, OPTIONAL, INTENT(OUT) :: formula
615      LOGICAL(KIND=C_BOOL) :: formula_tmp
616      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds
617      LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp
618      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term
619      LOGICAL(KIND=C_BOOL) :: formula_term_tmp
620      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds
621      LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp
622      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
623      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
624      LOGICAL, OPTIONAL, INTENT(OUT) :: index
625      LOGICAL(KIND=C_BOOL) :: index_tmp
626      LOGICAL, OPTIONAL, INTENT(OUT) :: label
627      LOGICAL(KIND=C_BOOL) :: label_tmp
628      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
629      LOGICAL(KIND=C_BOOL) :: long_name_tmp
630      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
631      LOGICAL(KIND=C_BOOL) :: mask_tmp
632      LOGICAL, OPTIONAL, INTENT(OUT) :: n
633      LOGICAL(KIND=C_BOOL) :: n_tmp
634      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
635      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
636      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
637      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
638      LOGICAL, OPTIONAL, INTENT(OUT) :: name
639      LOGICAL(KIND=C_BOOL) :: name_tmp
640      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
641      LOGICAL(KIND=C_BOOL) :: positive_tmp
642      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
643      LOGICAL(KIND=C_BOOL) :: prec_tmp
644      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
645      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
646      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
647      LOGICAL(KIND=C_BOOL) :: unit_tmp
648      LOGICAL, OPTIONAL, INTENT(OUT) :: value
649      LOGICAL(KIND=C_BOOL) :: value_tmp
650
651      CALL xios(get_axisgroup_handle) &
652      (axisgroup_id,axisgroup_hdl)
653      CALL xios(is_defined_axisgroup_attr_hdl_)   &
654      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
655      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
656      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
657      , unit, value )
658
659  END SUBROUTINE xios(is_defined_axisgroup_attr)
660
661  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  &
662    ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
663    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
664    , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
665    , unit, value )
666
667    IMPLICIT NONE
668      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
669      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
670      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
671      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
672      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
673      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
674      LOGICAL(KIND=C_BOOL) :: begin_tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
676      LOGICAL(KIND=C_BOOL) :: bounds_tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
678      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
679      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight
680      LOGICAL(KIND=C_BOOL) :: chunking_weight_tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
682      LOGICAL(KIND=C_BOOL) :: comment_tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
684      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
686      LOGICAL(KIND=C_BOOL) :: data_index_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
688      LOGICAL(KIND=C_BOOL) :: data_n_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name
690      LOGICAL(KIND=C_BOOL) :: dim_name_tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: formula
692      LOGICAL(KIND=C_BOOL) :: formula_tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds
694      LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term
696      LOGICAL(KIND=C_BOOL) :: formula_term_tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds
698      LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
700      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: index
702      LOGICAL(KIND=C_BOOL) :: index_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: label
704      LOGICAL(KIND=C_BOOL) :: label_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
706      LOGICAL(KIND=C_BOOL) :: long_name_tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
708      LOGICAL(KIND=C_BOOL) :: mask_tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: n
710      LOGICAL(KIND=C_BOOL) :: n_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
712      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
714      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: name
716      LOGICAL(KIND=C_BOOL) :: name_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
718      LOGICAL(KIND=C_BOOL) :: positive_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
720      LOGICAL(KIND=C_BOOL) :: prec_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
722      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
724      LOGICAL(KIND=C_BOOL) :: unit_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: value
726      LOGICAL(KIND=C_BOOL) :: value_tmp
727
728      CALL xios(is_defined_axisgroup_attr_hdl_)  &
729      ( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, chunking_weight, comment, data_begin  &
730      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref  &
731      , index, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
732      , unit, value )
733
734  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
735
736  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   &
737    ( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, chunking_weight_, comment_  &
738    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  &
739    , group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_  &
740    , positive_, prec_, standard_name_, unit_, value_ )
741
742    IMPLICIT NONE
743      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
744      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
745      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
746      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
747      LOGICAL(KIND=C_BOOL) :: axis_type__tmp
748      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
749      LOGICAL(KIND=C_BOOL) :: begin__tmp
750      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
751      LOGICAL(KIND=C_BOOL) :: bounds__tmp
752      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_
753      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp
754      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_
755      LOGICAL(KIND=C_BOOL) :: chunking_weight__tmp
756      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
757      LOGICAL(KIND=C_BOOL) :: comment__tmp
758      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
759      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
760      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
761      LOGICAL(KIND=C_BOOL) :: data_index__tmp
762      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
763      LOGICAL(KIND=C_BOOL) :: data_n__tmp
764      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name_
765      LOGICAL(KIND=C_BOOL) :: dim_name__tmp
766      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_
767      LOGICAL(KIND=C_BOOL) :: formula__tmp
768      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds_
769      LOGICAL(KIND=C_BOOL) :: formula_bounds__tmp
770      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_
771      LOGICAL(KIND=C_BOOL) :: formula_term__tmp
772      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds_
773      LOGICAL(KIND=C_BOOL) :: formula_term_bounds__tmp
774      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
775      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
776      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
777      LOGICAL(KIND=C_BOOL) :: index__tmp
778      LOGICAL, OPTIONAL, INTENT(OUT) :: label_
779      LOGICAL(KIND=C_BOOL) :: label__tmp
780      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
781      LOGICAL(KIND=C_BOOL) :: long_name__tmp
782      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
783      LOGICAL(KIND=C_BOOL) :: mask__tmp
784      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
785      LOGICAL(KIND=C_BOOL) :: n__tmp
786      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
787      LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
788      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
789      LOGICAL(KIND=C_BOOL) :: n_glo__tmp
790      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
791      LOGICAL(KIND=C_BOOL) :: name__tmp
792      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
793      LOGICAL(KIND=C_BOOL) :: positive__tmp
794      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
795      LOGICAL(KIND=C_BOOL) :: prec__tmp
796      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
797      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
798      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
799      LOGICAL(KIND=C_BOOL) :: unit__tmp
800      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
801      LOGICAL(KIND=C_BOOL) :: value__tmp
802
803      IF (PRESENT(axis_ref_)) THEN
804        axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref &
805      (axisgroup_hdl%daddr)
806        axis_ref_ = axis_ref__tmp
807      ENDIF
808
809      IF (PRESENT(axis_type_)) THEN
810        axis_type__tmp = cxios_is_defined_axisgroup_axis_type &
811      (axisgroup_hdl%daddr)
812        axis_type_ = axis_type__tmp
813      ENDIF
814
815      IF (PRESENT(begin_)) THEN
816        begin__tmp = cxios_is_defined_axisgroup_begin &
817      (axisgroup_hdl%daddr)
818        begin_ = begin__tmp
819      ENDIF
820
821      IF (PRESENT(bounds_)) THEN
822        bounds__tmp = cxios_is_defined_axisgroup_bounds &
823      (axisgroup_hdl%daddr)
824        bounds_ = bounds__tmp
825      ENDIF
826
827      IF (PRESENT(bounds_name_)) THEN
828        bounds_name__tmp = cxios_is_defined_axisgroup_bounds_name &
829      (axisgroup_hdl%daddr)
830        bounds_name_ = bounds_name__tmp
831      ENDIF
832
833      IF (PRESENT(chunking_weight_)) THEN
834        chunking_weight__tmp = cxios_is_defined_axisgroup_chunking_weight &
835      (axisgroup_hdl%daddr)
836        chunking_weight_ = chunking_weight__tmp
837      ENDIF
838
839      IF (PRESENT(comment_)) THEN
840        comment__tmp = cxios_is_defined_axisgroup_comment &
841      (axisgroup_hdl%daddr)
842        comment_ = comment__tmp
843      ENDIF
844
845      IF (PRESENT(data_begin_)) THEN
846        data_begin__tmp = cxios_is_defined_axisgroup_data_begin &
847      (axisgroup_hdl%daddr)
848        data_begin_ = data_begin__tmp
849      ENDIF
850
851      IF (PRESENT(data_index_)) THEN
852        data_index__tmp = cxios_is_defined_axisgroup_data_index &
853      (axisgroup_hdl%daddr)
854        data_index_ = data_index__tmp
855      ENDIF
856
857      IF (PRESENT(data_n_)) THEN
858        data_n__tmp = cxios_is_defined_axisgroup_data_n &
859      (axisgroup_hdl%daddr)
860        data_n_ = data_n__tmp
861      ENDIF
862
863      IF (PRESENT(dim_name_)) THEN
864        dim_name__tmp = cxios_is_defined_axisgroup_dim_name &
865      (axisgroup_hdl%daddr)
866        dim_name_ = dim_name__tmp
867      ENDIF
868
869      IF (PRESENT(formula_)) THEN
870        formula__tmp = cxios_is_defined_axisgroup_formula &
871      (axisgroup_hdl%daddr)
872        formula_ = formula__tmp
873      ENDIF
874
875      IF (PRESENT(formula_bounds_)) THEN
876        formula_bounds__tmp = cxios_is_defined_axisgroup_formula_bounds &
877      (axisgroup_hdl%daddr)
878        formula_bounds_ = formula_bounds__tmp
879      ENDIF
880
881      IF (PRESENT(formula_term_)) THEN
882        formula_term__tmp = cxios_is_defined_axisgroup_formula_term &
883      (axisgroup_hdl%daddr)
884        formula_term_ = formula_term__tmp
885      ENDIF
886
887      IF (PRESENT(formula_term_bounds_)) THEN
888        formula_term_bounds__tmp = cxios_is_defined_axisgroup_formula_term_bounds &
889      (axisgroup_hdl%daddr)
890        formula_term_bounds_ = formula_term_bounds__tmp
891      ENDIF
892
893      IF (PRESENT(group_ref_)) THEN
894        group_ref__tmp = cxios_is_defined_axisgroup_group_ref &
895      (axisgroup_hdl%daddr)
896        group_ref_ = group_ref__tmp
897      ENDIF
898
899      IF (PRESENT(index_)) THEN
900        index__tmp = cxios_is_defined_axisgroup_index &
901      (axisgroup_hdl%daddr)
902        index_ = index__tmp
903      ENDIF
904
905      IF (PRESENT(label_)) THEN
906        label__tmp = cxios_is_defined_axisgroup_label &
907      (axisgroup_hdl%daddr)
908        label_ = label__tmp
909      ENDIF
910
911      IF (PRESENT(long_name_)) THEN
912        long_name__tmp = cxios_is_defined_axisgroup_long_name &
913      (axisgroup_hdl%daddr)
914        long_name_ = long_name__tmp
915      ENDIF
916
917      IF (PRESENT(mask_)) THEN
918        mask__tmp = cxios_is_defined_axisgroup_mask &
919      (axisgroup_hdl%daddr)
920        mask_ = mask__tmp
921      ENDIF
922
923      IF (PRESENT(n_)) THEN
924        n__tmp = cxios_is_defined_axisgroup_n &
925      (axisgroup_hdl%daddr)
926        n_ = n__tmp
927      ENDIF
928
929      IF (PRESENT(n_distributed_partition_)) THEN
930        n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition &
931      (axisgroup_hdl%daddr)
932        n_distributed_partition_ = n_distributed_partition__tmp
933      ENDIF
934
935      IF (PRESENT(n_glo_)) THEN
936        n_glo__tmp = cxios_is_defined_axisgroup_n_glo &
937      (axisgroup_hdl%daddr)
938        n_glo_ = n_glo__tmp
939      ENDIF
940
941      IF (PRESENT(name_)) THEN
942        name__tmp = cxios_is_defined_axisgroup_name &
943      (axisgroup_hdl%daddr)
944        name_ = name__tmp
945      ENDIF
946
947      IF (PRESENT(positive_)) THEN
948        positive__tmp = cxios_is_defined_axisgroup_positive &
949      (axisgroup_hdl%daddr)
950        positive_ = positive__tmp
951      ENDIF
952
953      IF (PRESENT(prec_)) THEN
954        prec__tmp = cxios_is_defined_axisgroup_prec &
955      (axisgroup_hdl%daddr)
956        prec_ = prec__tmp
957      ENDIF
958
959      IF (PRESENT(standard_name_)) THEN
960        standard_name__tmp = cxios_is_defined_axisgroup_standard_name &
961      (axisgroup_hdl%daddr)
962        standard_name_ = standard_name__tmp
963      ENDIF
964
965      IF (PRESENT(unit_)) THEN
966        unit__tmp = cxios_is_defined_axisgroup_unit &
967      (axisgroup_hdl%daddr)
968        unit_ = unit__tmp
969      ENDIF
970
971      IF (PRESENT(value_)) THEN
972        value__tmp = cxios_is_defined_axisgroup_value &
973      (axisgroup_hdl%daddr)
974        value_ = value__tmp
975      ENDIF
976
977  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
978
979END MODULE iaxisgroup_attr
Note: See TracBrowser for help on using the repository browser.