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

Last change on this file since 609 was 609, checked in by rlacroix, 9 years ago

Improve CF compliance: add a new axis attribute "bounds".

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