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

Last change on this file since 674 was 674, checked in by rlacroix, 6 years ago

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

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