source: XIOS2/trunk/src/interface/fortran_attr/iaxis_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: 37.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axis_interface_attr
10  USE LOGICAL_BOOL_CONVERSION
11
12CONTAINS
13
14  SUBROUTINE xios(set_axis_attr)  &
15    ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
16    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
17    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
18    , unit, value )
19
20    IMPLICIT NONE
21      TYPE(txios(axis))  :: axis_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::axis_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      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_axis_handle) &
54      (axis_id,axis_hdl)
55      CALL xios(set_axis_attr_hdl_)   &
56      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
57      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
58      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
59      , unit, value )
60
61  END SUBROUTINE xios(set_axis_attr)
62
63  SUBROUTINE xios(set_axis_attr_hdl)  &
64    ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
65    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
66    , 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(axis)) , INTENT(IN) :: axis_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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
77      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: convert_from_factor
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      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
87      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
89      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
90      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
91      INTEGER  , OPTIONAL, INTENT(IN) :: n
92      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
93      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
96      INTEGER  , OPTIONAL, INTENT(IN) :: prec
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
99      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
100
101      CALL xios(set_axis_attr_hdl_)  &
102      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
103      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
104      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
105      , unit, value )
106
107  END SUBROUTINE xios(set_axis_attr_hdl)
108
109  SUBROUTINE xios(set_axis_attr_hdl_)   &
110    ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, convert_from_factor_  &
111    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  &
112    , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_  &
113    , prec_, standard_name_, unit_, value_ )
114
115    IMPLICIT NONE
116      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
119      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
120      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
123      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: convert_from_factor_
124      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
125      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
126      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
127      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name_
128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_
129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds_
130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_
131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds_
132      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
133      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:)
134      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
135      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
136      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
137      INTEGER  , OPTIONAL, INTENT(IN) :: n_
138      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition_
139      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_
140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
142      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
145      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
146
147      IF (PRESENT(axis_ref_)) THEN
148        CALL cxios_set_axis_axis_ref &
149      (axis_hdl%daddr, axis_ref_, len(axis_ref_))
150      ENDIF
151
152      IF (PRESENT(axis_type_)) THEN
153        CALL cxios_set_axis_axis_type &
154      (axis_hdl%daddr, axis_type_, len(axis_type_))
155      ENDIF
156
157      IF (PRESENT(begin_)) THEN
158        CALL cxios_set_axis_begin &
159      (axis_hdl%daddr, begin_)
160      ENDIF
161
162      IF (PRESENT(bounds_)) THEN
163        CALL cxios_set_axis_bounds &
164      (axis_hdl%daddr, bounds_, SHAPE(bounds_))
165      ENDIF
166
167      IF (PRESENT(bounds_name_)) THEN
168        CALL cxios_set_axis_bounds_name &
169      (axis_hdl%daddr, bounds_name_, len(bounds_name_))
170      ENDIF
171
172      IF (PRESENT(comment_)) THEN
173        CALL cxios_set_axis_comment &
174      (axis_hdl%daddr, comment_, len(comment_))
175      ENDIF
176
177      IF (PRESENT(convert_from_factor_)) THEN
178        CALL cxios_set_axis_convert_from_factor &
179      (axis_hdl%daddr, convert_from_factor_)
180      ENDIF
181
182      IF (PRESENT(data_begin_)) THEN
183        CALL cxios_set_axis_data_begin &
184      (axis_hdl%daddr, data_begin_)
185      ENDIF
186
187      IF (PRESENT(data_index_)) THEN
188        CALL cxios_set_axis_data_index &
189      (axis_hdl%daddr, data_index_, SHAPE(data_index_))
190      ENDIF
191
192      IF (PRESENT(data_n_)) THEN
193        CALL cxios_set_axis_data_n &
194      (axis_hdl%daddr, data_n_)
195      ENDIF
196
197      IF (PRESENT(dim_name_)) THEN
198        CALL cxios_set_axis_dim_name &
199      (axis_hdl%daddr, dim_name_, len(dim_name_))
200      ENDIF
201
202      IF (PRESENT(formula_)) THEN
203        CALL cxios_set_axis_formula &
204      (axis_hdl%daddr, formula_, len(formula_))
205      ENDIF
206
207      IF (PRESENT(formula_bounds_)) THEN
208        CALL cxios_set_axis_formula_bounds &
209      (axis_hdl%daddr, formula_bounds_, len(formula_bounds_))
210      ENDIF
211
212      IF (PRESENT(formula_term_)) THEN
213        CALL cxios_set_axis_formula_term &
214      (axis_hdl%daddr, formula_term_, len(formula_term_))
215      ENDIF
216
217      IF (PRESENT(formula_term_bounds_)) THEN
218        CALL cxios_set_axis_formula_term_bounds &
219      (axis_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_))
220      ENDIF
221
222      IF (PRESENT(index_)) THEN
223        CALL cxios_set_axis_index &
224      (axis_hdl%daddr, index_, SHAPE(index_))
225      ENDIF
226
227      IF (PRESENT(label_)) THEN
228        CALL cxios_set_axis_label &
229      (axis_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_))
230      ENDIF
231
232      IF (PRESENT(long_name_)) THEN
233        CALL cxios_set_axis_long_name &
234      (axis_hdl%daddr, long_name_, len(long_name_))
235      ENDIF
236
237      IF (PRESENT(mask_)) THEN
238        ALLOCATE(mask__tmp(SIZE(mask_,1)))
239        mask__tmp = mask_
240        CALL xios_logical_to_bool_1d(mask__tmp, SHAPE(mask__tmp))
241        CALL cxios_set_axis_mask &
242      (axis_hdl%daddr, mask__tmp, SHAPE(mask_))
243      ENDIF
244
245      IF (PRESENT(n_)) THEN
246        CALL cxios_set_axis_n &
247      (axis_hdl%daddr, n_)
248      ENDIF
249
250      IF (PRESENT(n_distributed_partition_)) THEN
251        CALL cxios_set_axis_n_distributed_partition &
252      (axis_hdl%daddr, n_distributed_partition_)
253      ENDIF
254
255      IF (PRESENT(n_glo_)) THEN
256        CALL cxios_set_axis_n_glo &
257      (axis_hdl%daddr, n_glo_)
258      ENDIF
259
260      IF (PRESENT(name_)) THEN
261        CALL cxios_set_axis_name &
262      (axis_hdl%daddr, name_, len(name_))
263      ENDIF
264
265      IF (PRESENT(positive_)) THEN
266        CALL cxios_set_axis_positive &
267      (axis_hdl%daddr, positive_, len(positive_))
268      ENDIF
269
270      IF (PRESENT(prec_)) THEN
271        CALL cxios_set_axis_prec &
272      (axis_hdl%daddr, prec_)
273      ENDIF
274
275      IF (PRESENT(standard_name_)) THEN
276        CALL cxios_set_axis_standard_name &
277      (axis_hdl%daddr, standard_name_, len(standard_name_))
278      ENDIF
279
280      IF (PRESENT(unit_)) THEN
281        CALL cxios_set_axis_unit &
282      (axis_hdl%daddr, unit_, len(unit_))
283      ENDIF
284
285      IF (PRESENT(value_)) THEN
286        CALL cxios_set_axis_value &
287      (axis_hdl%daddr, value_, SHAPE(value_))
288      ENDIF
289
290  END SUBROUTINE xios(set_axis_attr_hdl_)
291
292  SUBROUTINE xios(get_axis_attr)  &
293    ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
294    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
295    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
296    , unit, value )
297
298    IMPLICIT NONE
299      TYPE(txios(axis))  :: axis_hdl
300      CHARACTER(LEN=*), INTENT(IN) ::axis_id
301      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
302      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
303      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
304      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
306      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
307      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: convert_from_factor
308      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
309      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
310      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
311      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name
312      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula
313      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds
314      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term
315      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds
316      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
317      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
318      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
319      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
320      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
321      INTEGER  , OPTIONAL, INTENT(OUT) :: n
322      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
323      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
324      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
325      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
326      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
327      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
328      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
329      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
330
331      CALL xios(get_axis_handle) &
332      (axis_id,axis_hdl)
333      CALL xios(get_axis_attr_hdl_)   &
334      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
335      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
336      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
337      , unit, value )
338
339  END SUBROUTINE xios(get_axis_attr)
340
341  SUBROUTINE xios(get_axis_attr_hdl)  &
342    ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
343    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
344    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
345    , unit, value )
346
347    IMPLICIT NONE
348      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
349      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
350      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
351      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
352      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
353      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
354      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
355      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: convert_from_factor
356      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
357      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
358      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
359      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name
360      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula
361      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds
362      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term
363      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds
364      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
365      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
367      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
368      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
369      INTEGER  , OPTIONAL, INTENT(OUT) :: n
370      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
371      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
372      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
373      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
374      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
375      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
376      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
377      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
378
379      CALL xios(get_axis_attr_hdl_)  &
380      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
381      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
382      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
383      , unit, value )
384
385  END SUBROUTINE xios(get_axis_attr_hdl)
386
387  SUBROUTINE xios(get_axis_attr_hdl_)   &
388    ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, convert_from_factor_  &
389    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  &
390    , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_  &
391    , prec_, standard_name_, unit_, value_ )
392
393    IMPLICIT NONE
394      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
395      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
397      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
398      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
399      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
401      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: convert_from_factor_
402      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
403      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
404      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
405      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name_
406      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_
407      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds_
408      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_
409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds_
410      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
411      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:)
412      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
413      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
414      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
415      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
416      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
417      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo_
418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
419      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
420      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
421      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
423      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
424
425      IF (PRESENT(axis_ref_)) THEN
426        CALL cxios_get_axis_axis_ref &
427      (axis_hdl%daddr, axis_ref_, len(axis_ref_))
428      ENDIF
429
430      IF (PRESENT(axis_type_)) THEN
431        CALL cxios_get_axis_axis_type &
432      (axis_hdl%daddr, axis_type_, len(axis_type_))
433      ENDIF
434
435      IF (PRESENT(begin_)) THEN
436        CALL cxios_get_axis_begin &
437      (axis_hdl%daddr, begin_)
438      ENDIF
439
440      IF (PRESENT(bounds_)) THEN
441        CALL cxios_get_axis_bounds &
442      (axis_hdl%daddr, bounds_, SHAPE(bounds_))
443      ENDIF
444
445      IF (PRESENT(bounds_name_)) THEN
446        CALL cxios_get_axis_bounds_name &
447      (axis_hdl%daddr, bounds_name_, len(bounds_name_))
448      ENDIF
449
450      IF (PRESENT(comment_)) THEN
451        CALL cxios_get_axis_comment &
452      (axis_hdl%daddr, comment_, len(comment_))
453      ENDIF
454
455      IF (PRESENT(convert_from_factor_)) THEN
456        CALL cxios_get_axis_convert_from_factor &
457      (axis_hdl%daddr, convert_from_factor_)
458      ENDIF
459
460      IF (PRESENT(data_begin_)) THEN
461        CALL cxios_get_axis_data_begin &
462      (axis_hdl%daddr, data_begin_)
463      ENDIF
464
465      IF (PRESENT(data_index_)) THEN
466        CALL cxios_get_axis_data_index &
467      (axis_hdl%daddr, data_index_, SHAPE(data_index_))
468      ENDIF
469
470      IF (PRESENT(data_n_)) THEN
471        CALL cxios_get_axis_data_n &
472      (axis_hdl%daddr, data_n_)
473      ENDIF
474
475      IF (PRESENT(dim_name_)) THEN
476        CALL cxios_get_axis_dim_name &
477      (axis_hdl%daddr, dim_name_, len(dim_name_))
478      ENDIF
479
480      IF (PRESENT(formula_)) THEN
481        CALL cxios_get_axis_formula &
482      (axis_hdl%daddr, formula_, len(formula_))
483      ENDIF
484
485      IF (PRESENT(formula_bounds_)) THEN
486        CALL cxios_get_axis_formula_bounds &
487      (axis_hdl%daddr, formula_bounds_, len(formula_bounds_))
488      ENDIF
489
490      IF (PRESENT(formula_term_)) THEN
491        CALL cxios_get_axis_formula_term &
492      (axis_hdl%daddr, formula_term_, len(formula_term_))
493      ENDIF
494
495      IF (PRESENT(formula_term_bounds_)) THEN
496        CALL cxios_get_axis_formula_term_bounds &
497      (axis_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_))
498      ENDIF
499
500      IF (PRESENT(index_)) THEN
501        CALL cxios_get_axis_index &
502      (axis_hdl%daddr, index_, SHAPE(index_))
503      ENDIF
504
505      IF (PRESENT(label_)) THEN
506        CALL cxios_get_axis_label &
507      (axis_hdl%daddr, label_, LEN(label_), SHAPE(label_))
508      ENDIF
509
510      IF (PRESENT(long_name_)) THEN
511        CALL cxios_get_axis_long_name &
512      (axis_hdl%daddr, long_name_, len(long_name_))
513      ENDIF
514
515      IF (PRESENT(mask_)) THEN
516        ALLOCATE(mask__tmp(SIZE(mask_,1)))
517        CALL cxios_get_axis_mask &
518      (axis_hdl%daddr, mask__tmp, SHAPE(mask_))
519        CALL xios_bool_to_logical_1d(mask__tmp, SHAPE(mask__tmp))
520        mask_ = mask__tmp
521      ENDIF
522
523      IF (PRESENT(n_)) THEN
524        CALL cxios_get_axis_n &
525      (axis_hdl%daddr, n_)
526      ENDIF
527
528      IF (PRESENT(n_distributed_partition_)) THEN
529        CALL cxios_get_axis_n_distributed_partition &
530      (axis_hdl%daddr, n_distributed_partition_)
531      ENDIF
532
533      IF (PRESENT(n_glo_)) THEN
534        CALL cxios_get_axis_n_glo &
535      (axis_hdl%daddr, n_glo_)
536      ENDIF
537
538      IF (PRESENT(name_)) THEN
539        CALL cxios_get_axis_name &
540      (axis_hdl%daddr, name_, len(name_))
541      ENDIF
542
543      IF (PRESENT(positive_)) THEN
544        CALL cxios_get_axis_positive &
545      (axis_hdl%daddr, positive_, len(positive_))
546      ENDIF
547
548      IF (PRESENT(prec_)) THEN
549        CALL cxios_get_axis_prec &
550      (axis_hdl%daddr, prec_)
551      ENDIF
552
553      IF (PRESENT(standard_name_)) THEN
554        CALL cxios_get_axis_standard_name &
555      (axis_hdl%daddr, standard_name_, len(standard_name_))
556      ENDIF
557
558      IF (PRESENT(unit_)) THEN
559        CALL cxios_get_axis_unit &
560      (axis_hdl%daddr, unit_, len(unit_))
561      ENDIF
562
563      IF (PRESENT(value_)) THEN
564        CALL cxios_get_axis_value &
565      (axis_hdl%daddr, value_, SHAPE(value_))
566      ENDIF
567
568  END SUBROUTINE xios(get_axis_attr_hdl_)
569
570  SUBROUTINE xios(is_defined_axis_attr)  &
571    ( axis_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
572    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
573    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
574    , unit, value )
575
576    IMPLICIT NONE
577      TYPE(txios(axis))  :: axis_hdl
578      CHARACTER(LEN=*), INTENT(IN) ::axis_id
579      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
580      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
581      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
582      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
583      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
584      LOGICAL(KIND=C_BOOL) :: begin_tmp
585      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
586      LOGICAL(KIND=C_BOOL) :: bounds_tmp
587      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
588      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
589      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
590      LOGICAL(KIND=C_BOOL) :: comment_tmp
591      LOGICAL, OPTIONAL, INTENT(OUT) :: convert_from_factor
592      LOGICAL(KIND=C_BOOL) :: convert_from_factor_tmp
593      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
594      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
595      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
596      LOGICAL(KIND=C_BOOL) :: data_index_tmp
597      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
598      LOGICAL(KIND=C_BOOL) :: data_n_tmp
599      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name
600      LOGICAL(KIND=C_BOOL) :: dim_name_tmp
601      LOGICAL, OPTIONAL, INTENT(OUT) :: formula
602      LOGICAL(KIND=C_BOOL) :: formula_tmp
603      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds
604      LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp
605      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term
606      LOGICAL(KIND=C_BOOL) :: formula_term_tmp
607      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds
608      LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp
609      LOGICAL, OPTIONAL, INTENT(OUT) :: index
610      LOGICAL(KIND=C_BOOL) :: index_tmp
611      LOGICAL, OPTIONAL, INTENT(OUT) :: label
612      LOGICAL(KIND=C_BOOL) :: label_tmp
613      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
614      LOGICAL(KIND=C_BOOL) :: long_name_tmp
615      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
616      LOGICAL(KIND=C_BOOL) :: mask_tmp
617      LOGICAL, OPTIONAL, INTENT(OUT) :: n
618      LOGICAL(KIND=C_BOOL) :: n_tmp
619      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
620      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
621      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
622      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
623      LOGICAL, OPTIONAL, INTENT(OUT) :: name
624      LOGICAL(KIND=C_BOOL) :: name_tmp
625      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
626      LOGICAL(KIND=C_BOOL) :: positive_tmp
627      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
628      LOGICAL(KIND=C_BOOL) :: prec_tmp
629      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
630      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
631      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
632      LOGICAL(KIND=C_BOOL) :: unit_tmp
633      LOGICAL, OPTIONAL, INTENT(OUT) :: value
634      LOGICAL(KIND=C_BOOL) :: value_tmp
635
636      CALL xios(get_axis_handle) &
637      (axis_id,axis_hdl)
638      CALL xios(is_defined_axis_attr_hdl_)   &
639      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
640      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
641      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
642      , unit, value )
643
644  END SUBROUTINE xios(is_defined_axis_attr)
645
646  SUBROUTINE xios(is_defined_axis_attr_hdl)  &
647    ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
648    , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
649    , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
650    , unit, value )
651
652    IMPLICIT NONE
653      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
654      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
655      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
656      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
657      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
658      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
659      LOGICAL(KIND=C_BOOL) :: begin_tmp
660      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
661      LOGICAL(KIND=C_BOOL) :: bounds_tmp
662      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
663      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
664      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
665      LOGICAL(KIND=C_BOOL) :: comment_tmp
666      LOGICAL, OPTIONAL, INTENT(OUT) :: convert_from_factor
667      LOGICAL(KIND=C_BOOL) :: convert_from_factor_tmp
668      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
669      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
670      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
671      LOGICAL(KIND=C_BOOL) :: data_index_tmp
672      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
673      LOGICAL(KIND=C_BOOL) :: data_n_tmp
674      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name
675      LOGICAL(KIND=C_BOOL) :: dim_name_tmp
676      LOGICAL, OPTIONAL, INTENT(OUT) :: formula
677      LOGICAL(KIND=C_BOOL) :: formula_tmp
678      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds
679      LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp
680      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term
681      LOGICAL(KIND=C_BOOL) :: formula_term_tmp
682      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds
683      LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp
684      LOGICAL, OPTIONAL, INTENT(OUT) :: index
685      LOGICAL(KIND=C_BOOL) :: index_tmp
686      LOGICAL, OPTIONAL, INTENT(OUT) :: label
687      LOGICAL(KIND=C_BOOL) :: label_tmp
688      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
689      LOGICAL(KIND=C_BOOL) :: long_name_tmp
690      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
691      LOGICAL(KIND=C_BOOL) :: mask_tmp
692      LOGICAL, OPTIONAL, INTENT(OUT) :: n
693      LOGICAL(KIND=C_BOOL) :: n_tmp
694      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
695      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
696      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
697      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
698      LOGICAL, OPTIONAL, INTENT(OUT) :: name
699      LOGICAL(KIND=C_BOOL) :: name_tmp
700      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
701      LOGICAL(KIND=C_BOOL) :: positive_tmp
702      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
703      LOGICAL(KIND=C_BOOL) :: prec_tmp
704      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
705      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
706      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
707      LOGICAL(KIND=C_BOOL) :: unit_tmp
708      LOGICAL, OPTIONAL, INTENT(OUT) :: value
709      LOGICAL(KIND=C_BOOL) :: value_tmp
710
711      CALL xios(is_defined_axis_attr_hdl_)  &
712      ( axis_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, convert_from_factor, data_begin  &
713      , data_index, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, index  &
714      , label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name  &
715      , unit, value )
716
717  END SUBROUTINE xios(is_defined_axis_attr_hdl)
718
719  SUBROUTINE xios(is_defined_axis_attr_hdl_)   &
720    ( axis_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, convert_from_factor_  &
721    , data_begin_, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_  &
722    , index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_  &
723    , prec_, standard_name_, unit_, value_ )
724
725    IMPLICIT NONE
726      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
727      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
728      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
730      LOGICAL(KIND=C_BOOL) :: axis_type__tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
732      LOGICAL(KIND=C_BOOL) :: begin__tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
734      LOGICAL(KIND=C_BOOL) :: bounds__tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_
736      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
738      LOGICAL(KIND=C_BOOL) :: comment__tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: convert_from_factor_
740      LOGICAL(KIND=C_BOOL) :: convert_from_factor__tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
742      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
743      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
744      LOGICAL(KIND=C_BOOL) :: data_index__tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
746      LOGICAL(KIND=C_BOOL) :: data_n__tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name_
748      LOGICAL(KIND=C_BOOL) :: dim_name__tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_
750      LOGICAL(KIND=C_BOOL) :: formula__tmp
751      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds_
752      LOGICAL(KIND=C_BOOL) :: formula_bounds__tmp
753      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_
754      LOGICAL(KIND=C_BOOL) :: formula_term__tmp
755      LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds_
756      LOGICAL(KIND=C_BOOL) :: formula_term_bounds__tmp
757      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
758      LOGICAL(KIND=C_BOOL) :: index__tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: label_
760      LOGICAL(KIND=C_BOOL) :: label__tmp
761      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
762      LOGICAL(KIND=C_BOOL) :: long_name__tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
764      LOGICAL(KIND=C_BOOL) :: mask__tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
766      LOGICAL(KIND=C_BOOL) :: n__tmp
767      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
768      LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
770      LOGICAL(KIND=C_BOOL) :: n_glo__tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
772      LOGICAL(KIND=C_BOOL) :: name__tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
774      LOGICAL(KIND=C_BOOL) :: positive__tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
776      LOGICAL(KIND=C_BOOL) :: prec__tmp
777      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
778      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
779      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
780      LOGICAL(KIND=C_BOOL) :: unit__tmp
781      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
782      LOGICAL(KIND=C_BOOL) :: value__tmp
783
784      IF (PRESENT(axis_ref_)) THEN
785        axis_ref__tmp = cxios_is_defined_axis_axis_ref &
786      (axis_hdl%daddr)
787        axis_ref_ = axis_ref__tmp
788      ENDIF
789
790      IF (PRESENT(axis_type_)) THEN
791        axis_type__tmp = cxios_is_defined_axis_axis_type &
792      (axis_hdl%daddr)
793        axis_type_ = axis_type__tmp
794      ENDIF
795
796      IF (PRESENT(begin_)) THEN
797        begin__tmp = cxios_is_defined_axis_begin &
798      (axis_hdl%daddr)
799        begin_ = begin__tmp
800      ENDIF
801
802      IF (PRESENT(bounds_)) THEN
803        bounds__tmp = cxios_is_defined_axis_bounds &
804      (axis_hdl%daddr)
805        bounds_ = bounds__tmp
806      ENDIF
807
808      IF (PRESENT(bounds_name_)) THEN
809        bounds_name__tmp = cxios_is_defined_axis_bounds_name &
810      (axis_hdl%daddr)
811        bounds_name_ = bounds_name__tmp
812      ENDIF
813
814      IF (PRESENT(comment_)) THEN
815        comment__tmp = cxios_is_defined_axis_comment &
816      (axis_hdl%daddr)
817        comment_ = comment__tmp
818      ENDIF
819
820      IF (PRESENT(convert_from_factor_)) THEN
821        convert_from_factor__tmp = cxios_is_defined_axis_convert_from_factor &
822      (axis_hdl%daddr)
823        convert_from_factor_ = convert_from_factor__tmp
824      ENDIF
825
826      IF (PRESENT(data_begin_)) THEN
827        data_begin__tmp = cxios_is_defined_axis_data_begin &
828      (axis_hdl%daddr)
829        data_begin_ = data_begin__tmp
830      ENDIF
831
832      IF (PRESENT(data_index_)) THEN
833        data_index__tmp = cxios_is_defined_axis_data_index &
834      (axis_hdl%daddr)
835        data_index_ = data_index__tmp
836      ENDIF
837
838      IF (PRESENT(data_n_)) THEN
839        data_n__tmp = cxios_is_defined_axis_data_n &
840      (axis_hdl%daddr)
841        data_n_ = data_n__tmp
842      ENDIF
843
844      IF (PRESENT(dim_name_)) THEN
845        dim_name__tmp = cxios_is_defined_axis_dim_name &
846      (axis_hdl%daddr)
847        dim_name_ = dim_name__tmp
848      ENDIF
849
850      IF (PRESENT(formula_)) THEN
851        formula__tmp = cxios_is_defined_axis_formula &
852      (axis_hdl%daddr)
853        formula_ = formula__tmp
854      ENDIF
855
856      IF (PRESENT(formula_bounds_)) THEN
857        formula_bounds__tmp = cxios_is_defined_axis_formula_bounds &
858      (axis_hdl%daddr)
859        formula_bounds_ = formula_bounds__tmp
860      ENDIF
861
862      IF (PRESENT(formula_term_)) THEN
863        formula_term__tmp = cxios_is_defined_axis_formula_term &
864      (axis_hdl%daddr)
865        formula_term_ = formula_term__tmp
866      ENDIF
867
868      IF (PRESENT(formula_term_bounds_)) THEN
869        formula_term_bounds__tmp = cxios_is_defined_axis_formula_term_bounds &
870      (axis_hdl%daddr)
871        formula_term_bounds_ = formula_term_bounds__tmp
872      ENDIF
873
874      IF (PRESENT(index_)) THEN
875        index__tmp = cxios_is_defined_axis_index &
876      (axis_hdl%daddr)
877        index_ = index__tmp
878      ENDIF
879
880      IF (PRESENT(label_)) THEN
881        label__tmp = cxios_is_defined_axis_label &
882      (axis_hdl%daddr)
883        label_ = label__tmp
884      ENDIF
885
886      IF (PRESENT(long_name_)) THEN
887        long_name__tmp = cxios_is_defined_axis_long_name &
888      (axis_hdl%daddr)
889        long_name_ = long_name__tmp
890      ENDIF
891
892      IF (PRESENT(mask_)) THEN
893        mask__tmp = cxios_is_defined_axis_mask &
894      (axis_hdl%daddr)
895        mask_ = mask__tmp
896      ENDIF
897
898      IF (PRESENT(n_)) THEN
899        n__tmp = cxios_is_defined_axis_n &
900      (axis_hdl%daddr)
901        n_ = n__tmp
902      ENDIF
903
904      IF (PRESENT(n_distributed_partition_)) THEN
905        n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition &
906      (axis_hdl%daddr)
907        n_distributed_partition_ = n_distributed_partition__tmp
908      ENDIF
909
910      IF (PRESENT(n_glo_)) THEN
911        n_glo__tmp = cxios_is_defined_axis_n_glo &
912      (axis_hdl%daddr)
913        n_glo_ = n_glo__tmp
914      ENDIF
915
916      IF (PRESENT(name_)) THEN
917        name__tmp = cxios_is_defined_axis_name &
918      (axis_hdl%daddr)
919        name_ = name__tmp
920      ENDIF
921
922      IF (PRESENT(positive_)) THEN
923        positive__tmp = cxios_is_defined_axis_positive &
924      (axis_hdl%daddr)
925        positive_ = positive__tmp
926      ENDIF
927
928      IF (PRESENT(prec_)) THEN
929        prec__tmp = cxios_is_defined_axis_prec &
930      (axis_hdl%daddr)
931        prec_ = prec__tmp
932      ENDIF
933
934      IF (PRESENT(standard_name_)) THEN
935        standard_name__tmp = cxios_is_defined_axis_standard_name &
936      (axis_hdl%daddr)
937        standard_name_ = standard_name__tmp
938      ENDIF
939
940      IF (PRESENT(unit_)) THEN
941        unit__tmp = cxios_is_defined_axis_unit &
942      (axis_hdl%daddr)
943        unit_ = unit__tmp
944      ENDIF
945
946      IF (PRESENT(value_)) THEN
947        value__tmp = cxios_is_defined_axis_value &
948      (axis_hdl%daddr)
949        value_ = value__tmp
950      ENDIF
951
952  END SUBROUTINE xios(is_defined_axis_attr_hdl_)
953
954END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.