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

Last change on this file since 674 was 674, checked in by rlacroix, 9 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: 19.4 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, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
15    , name, positive, standard_name, unit, value )
16
17    IMPLICIT NONE
18      TYPE(txios(axis))  :: axis_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::axis_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) :: long_name
27      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
28      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
29      INTEGER  , OPTIONAL, INTENT(IN) :: n
30      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
35      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
36
37      CALL xios(get_axis_handle)(axis_id,axis_hdl)
38      CALL xios(set_axis_attr_hdl_)   &
39      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
40      , name, positive, standard_name, unit, value )
41
42  END SUBROUTINE xios(set_axis_attr)
43
44  SUBROUTINE xios(set_axis_attr_hdl)  &
45    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
46    , name, positive, standard_name, unit, value )
47
48    IMPLICIT NONE
49      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
51      INTEGER  , OPTIONAL, INTENT(IN) :: begin
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
53      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
54      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
55      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
57      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
58      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
59      INTEGER  , OPTIONAL, INTENT(IN) :: n
60      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
65      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
66
67      CALL xios(set_axis_attr_hdl_)  &
68      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
69      , name, positive, standard_name, unit, value )
70
71  END SUBROUTINE xios(set_axis_attr_hdl)
72
73  SUBROUTINE xios(set_axis_attr_hdl_)   &
74    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, long_name_, mask_  &
75    , n_, n_glo_, name_, positive_, standard_name_, unit_, value_ )
76
77    IMPLICIT NONE
78      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
80      INTEGER  , OPTIONAL, INTENT(IN) :: begin_
81      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
82      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
83      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
84      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
86      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
87      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
88      INTEGER  , OPTIONAL, INTENT(IN) :: n_
89      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
94      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
95
96      IF (PRESENT(axis_ref_)) THEN
97        CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
98      ENDIF
99
100      IF (PRESENT(begin_)) THEN
101        CALL cxios_set_axis_begin(axis_hdl%daddr, begin_)
102      ENDIF
103
104      IF (PRESENT(bounds_)) THEN
105        CALL cxios_set_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
106      ENDIF
107
108      IF (PRESENT(data_begin_)) THEN
109        CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_)
110      ENDIF
111
112      IF (PRESENT(data_index_)) THEN
113        CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
114      ENDIF
115
116      IF (PRESENT(data_n_)) THEN
117        CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_)
118      ENDIF
119
120      IF (PRESENT(long_name_)) THEN
121        CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
122      ENDIF
123
124      IF (PRESENT(mask_)) THEN
125        ALLOCATE(mask__tmp(SIZE(mask_,1)))
126        mask__tmp = mask_
127        CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
128      ENDIF
129
130      IF (PRESENT(n_)) THEN
131        CALL cxios_set_axis_n(axis_hdl%daddr, n_)
132      ENDIF
133
134      IF (PRESENT(n_glo_)) THEN
135        CALL cxios_set_axis_n_glo(axis_hdl%daddr, n_glo_)
136      ENDIF
137
138      IF (PRESENT(name_)) THEN
139        CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_))
140      ENDIF
141
142      IF (PRESENT(positive_)) THEN
143        CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_))
144      ENDIF
145
146      IF (PRESENT(standard_name_)) THEN
147        CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
148      ENDIF
149
150      IF (PRESENT(unit_)) THEN
151        CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
152      ENDIF
153
154      IF (PRESENT(value_)) THEN
155        CALL cxios_set_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
156      ENDIF
157
158  END SUBROUTINE xios(set_axis_attr_hdl_)
159
160  SUBROUTINE xios(get_axis_attr)  &
161    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
162    , name, positive, standard_name, unit, value )
163
164    IMPLICIT NONE
165      TYPE(txios(axis))  :: axis_hdl
166      CHARACTER(LEN=*), INTENT(IN) ::axis_id
167      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
168      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
169      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
170      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
171      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
172      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
173      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
174      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
175      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
176      INTEGER  , OPTIONAL, INTENT(OUT) :: n
177      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
182      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
183
184      CALL xios(get_axis_handle)(axis_id,axis_hdl)
185      CALL xios(get_axis_attr_hdl_)   &
186      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
187      , name, positive, standard_name, unit, value )
188
189  END SUBROUTINE xios(get_axis_attr)
190
191  SUBROUTINE xios(get_axis_attr_hdl)  &
192    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
193    , name, positive, standard_name, unit, value )
194
195    IMPLICIT NONE
196      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
198      INTEGER  , OPTIONAL, INTENT(OUT) :: begin
199      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
200      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
201      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
202      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
204      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
205      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
206      INTEGER  , OPTIONAL, INTENT(OUT) :: n
207      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
211      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
212      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
213
214      CALL xios(get_axis_attr_hdl_)  &
215      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
216      , name, positive, standard_name, unit, value )
217
218  END SUBROUTINE xios(get_axis_attr_hdl)
219
220  SUBROUTINE xios(get_axis_attr_hdl_)   &
221    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, long_name_, mask_  &
222    , n_, n_glo_, name_, positive_, standard_name_, unit_, value_ )
223
224    IMPLICIT NONE
225      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
227      INTEGER  , OPTIONAL, INTENT(OUT) :: begin_
228      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
229      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
230      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
231      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
233      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
234      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
235      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
236      INTEGER  , OPTIONAL, INTENT(OUT) :: n_glo_
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
240      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
241      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
242
243      IF (PRESENT(axis_ref_)) THEN
244        CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
245      ENDIF
246
247      IF (PRESENT(begin_)) THEN
248        CALL cxios_get_axis_begin(axis_hdl%daddr, begin_)
249      ENDIF
250
251      IF (PRESENT(bounds_)) THEN
252        CALL cxios_get_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
253      ENDIF
254
255      IF (PRESENT(data_begin_)) THEN
256        CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_)
257      ENDIF
258
259      IF (PRESENT(data_index_)) THEN
260        CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
261      ENDIF
262
263      IF (PRESENT(data_n_)) THEN
264        CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_)
265      ENDIF
266
267      IF (PRESENT(long_name_)) THEN
268        CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
269      ENDIF
270
271      IF (PRESENT(mask_)) THEN
272        ALLOCATE(mask__tmp(SIZE(mask_,1)))
273        CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
274        mask_ = mask__tmp
275      ENDIF
276
277      IF (PRESENT(n_)) THEN
278        CALL cxios_get_axis_n(axis_hdl%daddr, n_)
279      ENDIF
280
281      IF (PRESENT(n_glo_)) THEN
282        CALL cxios_get_axis_n_glo(axis_hdl%daddr, n_glo_)
283      ENDIF
284
285      IF (PRESENT(name_)) THEN
286        CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
287      ENDIF
288
289      IF (PRESENT(positive_)) THEN
290        CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_))
291      ENDIF
292
293      IF (PRESENT(standard_name_)) THEN
294        CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
295      ENDIF
296
297      IF (PRESENT(unit_)) THEN
298        CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
299      ENDIF
300
301      IF (PRESENT(value_)) THEN
302        CALL cxios_get_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
303      ENDIF
304
305  END SUBROUTINE xios(get_axis_attr_hdl_)
306
307  SUBROUTINE xios(is_defined_axis_attr)  &
308    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
309    , name, positive, standard_name, unit, value )
310
311    IMPLICIT NONE
312      TYPE(txios(axis))  :: axis_hdl
313      CHARACTER(LEN=*), INTENT(IN) ::axis_id
314      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
315      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
316      LOGICAL, OPTIONAL, INTENT(OUT) :: begin
317      LOGICAL(KIND=C_BOOL) :: begin_tmp
318      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
319      LOGICAL(KIND=C_BOOL) :: bounds_tmp
320      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
321      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
323      LOGICAL(KIND=C_BOOL) :: data_index_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
325      LOGICAL(KIND=C_BOOL) :: data_n_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
327      LOGICAL(KIND=C_BOOL) :: long_name_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
329      LOGICAL(KIND=C_BOOL) :: mask_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: n
331      LOGICAL(KIND=C_BOOL) :: n_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
333      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: name
335      LOGICAL(KIND=C_BOOL) :: name_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
337      LOGICAL(KIND=C_BOOL) :: positive_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
339      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
341      LOGICAL(KIND=C_BOOL) :: unit_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: value
343      LOGICAL(KIND=C_BOOL) :: value_tmp
344
345      CALL xios(get_axis_handle)(axis_id,axis_hdl)
346      CALL xios(is_defined_axis_attr_hdl_)   &
347      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
348      , name, positive, standard_name, unit, value )
349
350  END SUBROUTINE xios(is_defined_axis_attr)
351
352  SUBROUTINE xios(is_defined_axis_attr_hdl)  &
353    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
354    , name, positive, standard_name, unit, value )
355
356    IMPLICIT NONE
357      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
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) :: long_name
371      LOGICAL(KIND=C_BOOL) :: long_name_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
373      LOGICAL(KIND=C_BOOL) :: mask_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: n
375      LOGICAL(KIND=C_BOOL) :: n_tmp
376      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
377      LOGICAL(KIND=C_BOOL) :: n_glo_tmp
378      LOGICAL, OPTIONAL, INTENT(OUT) :: name
379      LOGICAL(KIND=C_BOOL) :: name_tmp
380      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
381      LOGICAL(KIND=C_BOOL) :: positive_tmp
382      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
383      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
384      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
385      LOGICAL(KIND=C_BOOL) :: unit_tmp
386      LOGICAL, OPTIONAL, INTENT(OUT) :: value
387      LOGICAL(KIND=C_BOOL) :: value_tmp
388
389      CALL xios(is_defined_axis_attr_hdl_)  &
390      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_glo  &
391      , name, positive, standard_name, unit, value )
392
393  END SUBROUTINE xios(is_defined_axis_attr_hdl)
394
395  SUBROUTINE xios(is_defined_axis_attr_hdl_)   &
396    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, long_name_, mask_  &
397    , n_, n_glo_, name_, positive_, standard_name_, unit_, value_ )
398
399    IMPLICIT NONE
400      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
401      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
402      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
403      LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
404      LOGICAL(KIND=C_BOOL) :: begin__tmp
405      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
406      LOGICAL(KIND=C_BOOL) :: bounds__tmp
407      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
408      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
409      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
410      LOGICAL(KIND=C_BOOL) :: data_index__tmp
411      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
412      LOGICAL(KIND=C_BOOL) :: data_n__tmp
413      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
414      LOGICAL(KIND=C_BOOL) :: long_name__tmp
415      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
416      LOGICAL(KIND=C_BOOL) :: mask__tmp
417      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
418      LOGICAL(KIND=C_BOOL) :: n__tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
420      LOGICAL(KIND=C_BOOL) :: n_glo__tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
422      LOGICAL(KIND=C_BOOL) :: name__tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
424      LOGICAL(KIND=C_BOOL) :: positive__tmp
425      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
426      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
427      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
428      LOGICAL(KIND=C_BOOL) :: unit__tmp
429      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
430      LOGICAL(KIND=C_BOOL) :: value__tmp
431
432      IF (PRESENT(axis_ref_)) THEN
433        axis_ref__tmp = cxios_is_defined_axis_axis_ref(axis_hdl%daddr)
434        axis_ref_ = axis_ref__tmp
435      ENDIF
436
437      IF (PRESENT(begin_)) THEN
438        begin__tmp = cxios_is_defined_axis_begin(axis_hdl%daddr)
439        begin_ = begin__tmp
440      ENDIF
441
442      IF (PRESENT(bounds_)) THEN
443        bounds__tmp = cxios_is_defined_axis_bounds(axis_hdl%daddr)
444        bounds_ = bounds__tmp
445      ENDIF
446
447      IF (PRESENT(data_begin_)) THEN
448        data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr)
449        data_begin_ = data_begin__tmp
450      ENDIF
451
452      IF (PRESENT(data_index_)) THEN
453        data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr)
454        data_index_ = data_index__tmp
455      ENDIF
456
457      IF (PRESENT(data_n_)) THEN
458        data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr)
459        data_n_ = data_n__tmp
460      ENDIF
461
462      IF (PRESENT(long_name_)) THEN
463        long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr)
464        long_name_ = long_name__tmp
465      ENDIF
466
467      IF (PRESENT(mask_)) THEN
468        mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr)
469        mask_ = mask__tmp
470      ENDIF
471
472      IF (PRESENT(n_)) THEN
473        n__tmp = cxios_is_defined_axis_n(axis_hdl%daddr)
474        n_ = n__tmp
475      ENDIF
476
477      IF (PRESENT(n_glo_)) THEN
478        n_glo__tmp = cxios_is_defined_axis_n_glo(axis_hdl%daddr)
479        n_glo_ = n_glo__tmp
480      ENDIF
481
482      IF (PRESENT(name_)) THEN
483        name__tmp = cxios_is_defined_axis_name(axis_hdl%daddr)
484        name_ = name__tmp
485      ENDIF
486
487      IF (PRESENT(positive_)) THEN
488        positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr)
489        positive_ = positive__tmp
490      ENDIF
491
492      IF (PRESENT(standard_name_)) THEN
493        standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr)
494        standard_name_ = standard_name__tmp
495      ENDIF
496
497      IF (PRESENT(unit_)) THEN
498        unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr)
499        unit_ = unit__tmp
500      ENDIF
501
502      IF (PRESENT(value_)) THEN
503        value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr)
504        value_ = value__tmp
505      ENDIF
506
507  END SUBROUTINE xios(is_defined_axis_attr_hdl_)
508
509END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.