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