source: XIOS2/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 2623

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

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