source: XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 817

Last change on this file since 817 was 817, checked in by mhnguyen, 6 years ago

Adding some attributes for axis and grid (ticket 71, 78)

+) Add index attribute for axis
+) Change mask?d to mask_?d for grid

Test
+) On Curie
+) Test passes

  • 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: 24.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxisgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axisgroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_axisgroup_attr)  &
14    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
15    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
16
17    IMPLICIT NONE
18      TYPE(txios(axisgroup))  :: axisgroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
21      INTEGER  , OPTIONAL, INTENT(IN) :: begin
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
23      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
24      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
25      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
27      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
29      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
30      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
31      INTEGER  , OPTIONAL, INTENT(IN) :: n
32      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
33      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
38      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
39
40      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
41      CALL xios(set_axisgroup_attr_hdl_)   &
42      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
43      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
44
45  END SUBROUTINE xios(set_axisgroup_attr)
46
47  SUBROUTINE xios(set_axisgroup_attr_hdl)  &
48    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
49    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
50
51    IMPLICIT NONE
52      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
54      INTEGER  , OPTIONAL, INTENT(IN) :: begin
55      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
56      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
57      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
58      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
60      INTEGER  , OPTIONAL, INTENT(IN) :: index(:)
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
62      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
63      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
64      INTEGER  , OPTIONAL, INTENT(IN) :: n
65      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
66      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
71      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
72
73      CALL xios(set_axisgroup_attr_hdl_)  &
74      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
75      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
76
77  END SUBROUTINE xios(set_axisgroup_attr_hdl)
78
79  SUBROUTINE xios(set_axisgroup_attr_hdl_)   &
80    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_  &
81    , long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_  &
82    , unit_, value_ )
83
84    IMPLICIT NONE
85      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
87      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
88      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
90      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
91      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
93      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:)
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
95      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
96      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
97      INTEGER  , OPTIONAL, INTENT(IN) :: n_
98      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition_
99      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
104      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
105
106      IF (PRESENT(axis_ref_)) THEN
107        CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
108      ENDIF
109
110      IF (PRESENT(begin_)) THEN
111        CALL cxios_set_axisgroup_begin(axisgroup_hdl%daddr, begin_)
112      ENDIF
113
114      IF (PRESENT(bounds_)) THEN
115        CALL cxios_set_axisgroup_bounds(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
116      ENDIF
117
118      IF (PRESENT(data_begin_)) THEN
119        CALL cxios_set_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_)
120      ENDIF
121
122      IF (PRESENT(data_index_)) THEN
123        CALL cxios_set_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
124      ENDIF
125
126      IF (PRESENT(data_n_)) THEN
127        CALL cxios_set_axisgroup_data_n(axisgroup_hdl%daddr, data_n_)
128      ENDIF
129
130      IF (PRESENT(group_ref_)) THEN
131        CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
132      ENDIF
133
134      IF (PRESENT(index_)) THEN
135        CALL cxios_set_axisgroup_index(axisgroup_hdl%daddr, index_, SHAPE(index_))
136      ENDIF
137
138      IF (PRESENT(long_name_)) THEN
139        CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
140      ENDIF
141
142      IF (PRESENT(mask_)) THEN
143        ALLOCATE(mask__tmp(SIZE(mask_,1)))
144        mask__tmp = mask_
145        CALL cxios_set_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
146      ENDIF
147
148      IF (PRESENT(n_)) THEN
149        CALL cxios_set_axisgroup_n(axisgroup_hdl%daddr, n_)
150      ENDIF
151
152      IF (PRESENT(n_distributed_partition_)) THEN
153        CALL cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_)
154      ENDIF
155
156      IF (PRESENT(n_glo_)) THEN
157        CALL cxios_set_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_)
158      ENDIF
159
160      IF (PRESENT(name_)) THEN
161        CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
162      ENDIF
163
164      IF (PRESENT(positive_)) THEN
165        CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
166      ENDIF
167
168      IF (PRESENT(standard_name_)) THEN
169        CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
170      ENDIF
171
172      IF (PRESENT(unit_)) THEN
173        CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
174      ENDIF
175
176      IF (PRESENT(value_)) THEN
177        CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_, SHAPE(value_))
178      ENDIF
179
180  END SUBROUTINE xios(set_axisgroup_attr_hdl_)
181
182  SUBROUTINE xios(get_axisgroup_attr)  &
183    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
184    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
185
186    IMPLICIT NONE
187      TYPE(txios(axisgroup))  :: axisgroup_hdl
188      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
190      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
191      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
192      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
193      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
194      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
196      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
198      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
199      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
200      INTEGER  , OPTIONAL, INTENT(OUT) :: n
201      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
202      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
207      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
208
209      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
210      CALL xios(get_axisgroup_attr_hdl_)   &
211      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
212      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
213
214  END SUBROUTINE xios(get_axisgroup_attr)
215
216  SUBROUTINE xios(get_axisgroup_attr_hdl)  &
217    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
218    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
219
220    IMPLICIT NONE
221      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
223      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
224      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
225      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
226      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
227      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
229      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:)
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
231      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
232      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
233      INTEGER  , OPTIONAL, INTENT(OUT) :: n
234      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
235      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
240      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
241
242      CALL xios(get_axisgroup_attr_hdl_)  &
243      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
244      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
245
246  END SUBROUTINE xios(get_axisgroup_attr_hdl)
247
248  SUBROUTINE xios(get_axisgroup_attr_hdl_)   &
249    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_  &
250    , long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_  &
251    , unit_, value_ )
252
253    IMPLICIT NONE
254      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
255      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
256      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
257      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
258      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
259      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
260      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
261      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
262      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:)
263      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
264      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
265      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
266      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
267      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
268      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo_
269      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
270      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
271      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
273      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
274
275      IF (PRESENT(axis_ref_)) THEN
276        CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
277      ENDIF
278
279      IF (PRESENT(begin_)) THEN
280        CALL cxios_get_axisgroup_begin(axisgroup_hdl%daddr, begin_)
281      ENDIF
282
283      IF (PRESENT(bounds_)) THEN
284        CALL cxios_get_axisgroup_bounds(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
285      ENDIF
286
287      IF (PRESENT(data_begin_)) THEN
288        CALL cxios_get_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_)
289      ENDIF
290
291      IF (PRESENT(data_index_)) THEN
292        CALL cxios_get_axisgroup_data_index(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
293      ENDIF
294
295      IF (PRESENT(data_n_)) THEN
296        CALL cxios_get_axisgroup_data_n(axisgroup_hdl%daddr, data_n_)
297      ENDIF
298
299      IF (PRESENT(group_ref_)) THEN
300        CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
301      ENDIF
302
303      IF (PRESENT(index_)) THEN
304        CALL cxios_get_axisgroup_index(axisgroup_hdl%daddr, index_, SHAPE(index_))
305      ENDIF
306
307      IF (PRESENT(long_name_)) THEN
308        CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
309      ENDIF
310
311      IF (PRESENT(mask_)) THEN
312        ALLOCATE(mask__tmp(SIZE(mask_,1)))
313        CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
314        mask_ = mask__tmp
315      ENDIF
316
317      IF (PRESENT(n_)) THEN
318        CALL cxios_get_axisgroup_n(axisgroup_hdl%daddr, n_)
319      ENDIF
320
321      IF (PRESENT(n_distributed_partition_)) THEN
322        CALL cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl%daddr, n_distributed_partition_)
323      ENDIF
324
325      IF (PRESENT(n_glo_)) THEN
326        CALL cxios_get_axisgroup_n_glo(axisgroup_hdl%daddr, n_glo_)
327      ENDIF
328
329      IF (PRESENT(name_)) THEN
330        CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
331      ENDIF
332
333      IF (PRESENT(positive_)) THEN
334        CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
335      ENDIF
336
337      IF (PRESENT(standard_name_)) THEN
338        CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
339      ENDIF
340
341      IF (PRESENT(unit_)) THEN
342        CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
343      ENDIF
344
345      IF (PRESENT(value_)) THEN
346        CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_, SHAPE(value_))
347      ENDIF
348
349  END SUBROUTINE xios(get_axisgroup_attr_hdl_)
350
351  SUBROUTINE xios(is_defined_axisgroup_attr)  &
352    ( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
353    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
354
355    IMPLICIT NONE
356      TYPE(txios(axisgroup))  :: axisgroup_hdl
357      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
358      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
359      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
361      LOGICAL(KIND=C_BOOL) :: begin_tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
363      LOGICAL(KIND=C_BOOL) :: bounds_tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
365      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
367      LOGICAL(KIND=C_BOOL) :: data_index_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
369      LOGICAL(KIND=C_BOOL) :: data_n_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
371      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: index
373      LOGICAL(KIND=C_BOOL) :: index_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
375      LOGICAL(KIND=C_BOOL) :: long_name_tmp
376      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
377      LOGICAL(KIND=C_BOOL) :: mask_tmp
378      LOGICAL, OPTIONAL, INTENT(OUT) :: n
379      LOGICAL(KIND=C_BOOL) :: n_tmp
380      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
381      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
382      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
383      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
384      LOGICAL, OPTIONAL, INTENT(OUT) :: name
385      LOGICAL(KIND=C_BOOL) :: name_tmp
386      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
387      LOGICAL(KIND=C_BOOL) :: positive_tmp
388      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
389      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
390      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
391      LOGICAL(KIND=C_BOOL) :: unit_tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: value
393      LOGICAL(KIND=C_BOOL) :: value_tmp
394
395      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
396      CALL xios(is_defined_axisgroup_attr_hdl_)   &
397      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
398      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
399
400  END SUBROUTINE xios(is_defined_axisgroup_attr)
401
402  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  &
403    ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
404    , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
405
406    IMPLICIT NONE
407      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
408      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
409      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
410      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
411      LOGICAL(KIND=C_BOOL) :: begin_tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
413      LOGICAL(KIND=C_BOOL) :: bounds_tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
415      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
417      LOGICAL(KIND=C_BOOL) :: data_index_tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
419      LOGICAL(KIND=C_BOOL) :: data_n_tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
421      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: index
423      LOGICAL(KIND=C_BOOL) :: index_tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
425      LOGICAL(KIND=C_BOOL) :: long_name_tmp
426      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
427      LOGICAL(KIND=C_BOOL) :: mask_tmp
428      LOGICAL, OPTIONAL, INTENT(OUT) :: n
429      LOGICAL(KIND=C_BOOL) :: n_tmp
430      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
431      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
432      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
433      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
434      LOGICAL, OPTIONAL, INTENT(OUT) :: name
435      LOGICAL(KIND=C_BOOL) :: name_tmp
436      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
437      LOGICAL(KIND=C_BOOL) :: positive_tmp
438      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
439      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
440      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
441      LOGICAL(KIND=C_BOOL) :: unit_tmp
442      LOGICAL, OPTIONAL, INTENT(OUT) :: value
443      LOGICAL(KIND=C_BOOL) :: value_tmp
444
445      CALL xios(is_defined_axisgroup_attr_hdl_)  &
446      ( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name  &
447      , mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
448
449  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
450
451  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   &
452    ( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_  &
453    , long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_  &
454    , unit_, value_ )
455
456    IMPLICIT NONE
457      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
458      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
459      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
460      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
461      LOGICAL(KIND=C_BOOL) :: begin__tmp
462      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
463      LOGICAL(KIND=C_BOOL) :: bounds__tmp
464      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
465      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
466      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
467      LOGICAL(KIND=C_BOOL) :: data_index__tmp
468      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
469      LOGICAL(KIND=C_BOOL) :: data_n__tmp
470      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
471      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
472      LOGICAL, OPTIONAL, INTENT(OUT) :: index_
473      LOGICAL(KIND=C_BOOL) :: index__tmp
474      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
475      LOGICAL(KIND=C_BOOL) :: long_name__tmp
476      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
477      LOGICAL(KIND=C_BOOL) :: mask__tmp
478      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
479      LOGICAL(KIND=C_BOOL) :: n__tmp
480      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
481      LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
482      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
483      LOGICAL(KIND=C_BOOL) :: n_glo__tmp
484      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
485      LOGICAL(KIND=C_BOOL) :: name__tmp
486      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
487      LOGICAL(KIND=C_BOOL) :: positive__tmp
488      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
489      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
490      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
491      LOGICAL(KIND=C_BOOL) :: unit__tmp
492      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
493      LOGICAL(KIND=C_BOOL) :: value__tmp
494
495      IF (PRESENT(axis_ref_)) THEN
496        axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr)
497        axis_ref_ = axis_ref__tmp
498      ENDIF
499
500      IF (PRESENT(begin_)) THEN
501        begin__tmp = cxios_is_defined_axisgroup_begin(axisgroup_hdl%daddr)
502        begin_ = begin__tmp
503      ENDIF
504
505      IF (PRESENT(bounds_)) THEN
506        bounds__tmp = cxios_is_defined_axisgroup_bounds(axisgroup_hdl%daddr)
507        bounds_ = bounds__tmp
508      ENDIF
509
510      IF (PRESENT(data_begin_)) THEN
511        data_begin__tmp = cxios_is_defined_axisgroup_data_begin(axisgroup_hdl%daddr)
512        data_begin_ = data_begin__tmp
513      ENDIF
514
515      IF (PRESENT(data_index_)) THEN
516        data_index__tmp = cxios_is_defined_axisgroup_data_index(axisgroup_hdl%daddr)
517        data_index_ = data_index__tmp
518      ENDIF
519
520      IF (PRESENT(data_n_)) THEN
521        data_n__tmp = cxios_is_defined_axisgroup_data_n(axisgroup_hdl%daddr)
522        data_n_ = data_n__tmp
523      ENDIF
524
525      IF (PRESENT(group_ref_)) THEN
526        group_ref__tmp = cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr)
527        group_ref_ = group_ref__tmp
528      ENDIF
529
530      IF (PRESENT(index_)) THEN
531        index__tmp = cxios_is_defined_axisgroup_index(axisgroup_hdl%daddr)
532        index_ = index__tmp
533      ENDIF
534
535      IF (PRESENT(long_name_)) THEN
536        long_name__tmp = cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr)
537        long_name_ = long_name__tmp
538      ENDIF
539
540      IF (PRESENT(mask_)) THEN
541        mask__tmp = cxios_is_defined_axisgroup_mask(axisgroup_hdl%daddr)
542        mask_ = mask__tmp
543      ENDIF
544
545      IF (PRESENT(n_)) THEN
546        n__tmp = cxios_is_defined_axisgroup_n(axisgroup_hdl%daddr)
547        n_ = n__tmp
548      ENDIF
549
550      IF (PRESENT(n_distributed_partition_)) THEN
551        n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl%daddr)
552        n_distributed_partition_ = n_distributed_partition__tmp
553      ENDIF
554
555      IF (PRESENT(n_glo_)) THEN
556        n_glo__tmp = cxios_is_defined_axisgroup_n_glo(axisgroup_hdl%daddr)
557        n_glo_ = n_glo__tmp
558      ENDIF
559
560      IF (PRESENT(name_)) THEN
561        name__tmp = cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr)
562        name_ = name__tmp
563      ENDIF
564
565      IF (PRESENT(positive_)) THEN
566        positive__tmp = cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr)
567        positive_ = positive__tmp
568      ENDIF
569
570      IF (PRESENT(standard_name_)) THEN
571        standard_name__tmp = cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr)
572        standard_name_ = standard_name__tmp
573      ENDIF
574
575      IF (PRESENT(unit_)) THEN
576        unit__tmp = cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr)
577        unit_ = unit__tmp
578      ENDIF
579
580      IF (PRESENT(value_)) THEN
581        value__tmp = cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr)
582        value_ = value__tmp
583      ENDIF
584
585  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
586
587END MODULE iaxisgroup_attr
Note: See TracBrowser for help on using the repository browser.