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

Last change on this file since 779 was 779, checked in by rlacroix, 8 years ago

Update the Fortran API.

It had been forgotten in recent changes.
  • 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.0 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_distributed_partition  &
15    , n_glo, 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_distributed_partition
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_axis_handle)(axis_id,axis_hdl)
39      CALL xios(set_axis_attr_hdl_)   &
40      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
41      , n_glo, name, positive, standard_name, unit, value )
42
43  END SUBROUTINE xios(set_axis_attr)
44
45  SUBROUTINE xios(set_axis_attr_hdl)  &
46    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
47    , n_glo, name, positive, standard_name, unit, value )
48
49    IMPLICIT NONE
50      TYPE(txios(axis)) , INTENT(IN) :: axis_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) :: long_name
58      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
59      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
60      INTEGER  , OPTIONAL, INTENT(IN) :: n
61      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition
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_axis_attr_hdl_)  &
70      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
71      , n_glo, name, positive, standard_name, unit, value )
72
73  END SUBROUTINE xios(set_axis_attr_hdl)
74
75  SUBROUTINE xios(set_axis_attr_hdl_)   &
76    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, long_name_, mask_  &
77    , n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ )
78
79    IMPLICIT NONE
80      TYPE(txios(axis)) , INTENT(IN) :: axis_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) :: long_name_
88      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
89      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
90      INTEGER  , OPTIONAL, INTENT(IN) :: n_
91      INTEGER  , OPTIONAL, INTENT(IN) :: n_distributed_partition_
92      INTEGER  , OPTIONAL, INTENT(IN) :: n_glo_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
95      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_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
101      ENDIF
102
103      IF (PRESENT(begin_)) THEN
104        CALL cxios_set_axis_begin(axis_hdl%daddr, begin_)
105      ENDIF
106
107      IF (PRESENT(bounds_)) THEN
108        CALL cxios_set_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
109      ENDIF
110
111      IF (PRESENT(data_begin_)) THEN
112        CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_)
113      ENDIF
114
115      IF (PRESENT(data_index_)) THEN
116        CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
117      ENDIF
118
119      IF (PRESENT(data_n_)) THEN
120        CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_)
121      ENDIF
122
123      IF (PRESENT(long_name_)) THEN
124        CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
125      ENDIF
126
127      IF (PRESENT(mask_)) THEN
128        ALLOCATE(mask__tmp(SIZE(mask_,1)))
129        mask__tmp = mask_
130        CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
131      ENDIF
132
133      IF (PRESENT(n_)) THEN
134        CALL cxios_set_axis_n(axis_hdl%daddr, n_)
135      ENDIF
136
137      IF (PRESENT(n_distributed_partition_)) THEN
138        CALL cxios_set_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_)
139      ENDIF
140
141      IF (PRESENT(n_glo_)) THEN
142        CALL cxios_set_axis_n_glo(axis_hdl%daddr, n_glo_)
143      ENDIF
144
145      IF (PRESENT(name_)) THEN
146        CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_))
147      ENDIF
148
149      IF (PRESENT(positive_)) THEN
150        CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_))
151      ENDIF
152
153      IF (PRESENT(standard_name_)) THEN
154        CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
155      ENDIF
156
157      IF (PRESENT(unit_)) THEN
158        CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
159      ENDIF
160
161      IF (PRESENT(value_)) THEN
162        CALL cxios_set_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
163      ENDIF
164
165  END SUBROUTINE xios(set_axis_attr_hdl_)
166
167  SUBROUTINE xios(get_axis_attr)  &
168    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
169    , n_glo, name, positive, standard_name, unit, value )
170
171    IMPLICIT NONE
172      TYPE(txios(axis))  :: axis_hdl
173      CHARACTER(LEN=*), INTENT(IN) ::axis_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) :: long_name
181      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
182      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
183      INTEGER  , OPTIONAL, INTENT(OUT) :: n
184      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
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_axis_handle)(axis_id,axis_hdl)
193      CALL xios(get_axis_attr_hdl_)   &
194      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
195      , n_glo, name, positive, standard_name, unit, value )
196
197  END SUBROUTINE xios(get_axis_attr)
198
199  SUBROUTINE xios(get_axis_attr_hdl)  &
200    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
201    , n_glo, name, positive, standard_name, unit, value )
202
203    IMPLICIT NONE
204      TYPE(txios(axis)) , INTENT(IN) :: axis_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) :: long_name
212      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
213      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
214      INTEGER  , OPTIONAL, INTENT(OUT) :: n
215      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition
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_axis_attr_hdl_)  &
224      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
225      , n_glo, name, positive, standard_name, unit, value )
226
227  END SUBROUTINE xios(get_axis_attr_hdl)
228
229  SUBROUTINE xios(get_axis_attr_hdl_)   &
230    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, long_name_, mask_  &
231    , n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ )
232
233    IMPLICIT NONE
234      TYPE(txios(axis)) , INTENT(IN) :: axis_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) :: long_name_
242      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
243      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
244      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
245      INTEGER  , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
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_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
255      ENDIF
256
257      IF (PRESENT(begin_)) THEN
258        CALL cxios_get_axis_begin(axis_hdl%daddr, begin_)
259      ENDIF
260
261      IF (PRESENT(bounds_)) THEN
262        CALL cxios_get_axis_bounds(axis_hdl%daddr, bounds_, SHAPE(bounds_))
263      ENDIF
264
265      IF (PRESENT(data_begin_)) THEN
266        CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_)
267      ENDIF
268
269      IF (PRESENT(data_index_)) THEN
270        CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, SHAPE(data_index_))
271      ENDIF
272
273      IF (PRESENT(data_n_)) THEN
274        CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_)
275      ENDIF
276
277      IF (PRESENT(long_name_)) THEN
278        CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
279      ENDIF
280
281      IF (PRESENT(mask_)) THEN
282        ALLOCATE(mask__tmp(SIZE(mask_,1)))
283        CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
284        mask_ = mask__tmp
285      ENDIF
286
287      IF (PRESENT(n_)) THEN
288        CALL cxios_get_axis_n(axis_hdl%daddr, n_)
289      ENDIF
290
291      IF (PRESENT(n_distributed_partition_)) THEN
292        CALL cxios_get_axis_n_distributed_partition(axis_hdl%daddr, n_distributed_partition_)
293      ENDIF
294
295      IF (PRESENT(n_glo_)) THEN
296        CALL cxios_get_axis_n_glo(axis_hdl%daddr, n_glo_)
297      ENDIF
298
299      IF (PRESENT(name_)) THEN
300        CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
301      ENDIF
302
303      IF (PRESENT(positive_)) THEN
304        CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_))
305      ENDIF
306
307      IF (PRESENT(standard_name_)) THEN
308        CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
309      ENDIF
310
311      IF (PRESENT(unit_)) THEN
312        CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
313      ENDIF
314
315      IF (PRESENT(value_)) THEN
316        CALL cxios_get_axis_value(axis_hdl%daddr, value_, SHAPE(value_))
317      ENDIF
318
319  END SUBROUTINE xios(get_axis_attr_hdl_)
320
321  SUBROUTINE xios(is_defined_axis_attr)  &
322    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
323    , n_glo, name, positive, standard_name, unit, value )
324
325    IMPLICIT NONE
326      TYPE(txios(axis))  :: axis_hdl
327      CHARACTER(LEN=*), INTENT(IN) ::axis_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) :: long_name
341      LOGICAL(KIND=C_BOOL) :: long_name_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
343      LOGICAL(KIND=C_BOOL) :: mask_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: n
345      LOGICAL(KIND=C_BOOL) :: n_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
347      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_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_axis_handle)(axis_id,axis_hdl)
362      CALL xios(is_defined_axis_attr_hdl_)   &
363      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
364      , n_glo, name, positive, standard_name, unit, value )
365
366  END SUBROUTINE xios(is_defined_axis_attr)
367
368  SUBROUTINE xios(is_defined_axis_attr_hdl)  &
369    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
370    , n_glo, name, positive, standard_name, unit, value )
371
372    IMPLICIT NONE
373      TYPE(txios(axis)) , INTENT(IN) :: axis_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) :: long_name
387      LOGICAL(KIND=C_BOOL) :: long_name_tmp
388      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
389      LOGICAL(KIND=C_BOOL) :: mask_tmp
390      LOGICAL, OPTIONAL, INTENT(OUT) :: n
391      LOGICAL(KIND=C_BOOL) :: n_tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
393      LOGICAL(KIND=C_BOOL) :: n_distributed_partition_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_axis_attr_hdl_)  &
408      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, long_name, mask, n, n_distributed_partition  &
409      , n_glo, name, positive, standard_name, unit, value )
410
411  END SUBROUTINE xios(is_defined_axis_attr_hdl)
412
413  SUBROUTINE xios(is_defined_axis_attr_hdl_)   &
414    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, long_name_, mask_  &
415    , n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_ )
416
417    IMPLICIT NONE
418      TYPE(txios(axis)) , INTENT(IN) :: axis_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) :: long_name_
432      LOGICAL(KIND=C_BOOL) :: long_name__tmp
433      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
434      LOGICAL(KIND=C_BOOL) :: mask__tmp
435      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
436      LOGICAL(KIND=C_BOOL) :: n__tmp
437      LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
438      LOGICAL(KIND=C_BOOL) :: n_distributed_partition__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_axis_axis_ref(axis_hdl%daddr)
454        axis_ref_ = axis_ref__tmp
455      ENDIF
456
457      IF (PRESENT(begin_)) THEN
458        begin__tmp = cxios_is_defined_axis_begin(axis_hdl%daddr)
459        begin_ = begin__tmp
460      ENDIF
461
462      IF (PRESENT(bounds_)) THEN
463        bounds__tmp = cxios_is_defined_axis_bounds(axis_hdl%daddr)
464        bounds_ = bounds__tmp
465      ENDIF
466
467      IF (PRESENT(data_begin_)) THEN
468        data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr)
469        data_begin_ = data_begin__tmp
470      ENDIF
471
472      IF (PRESENT(data_index_)) THEN
473        data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr)
474        data_index_ = data_index__tmp
475      ENDIF
476
477      IF (PRESENT(data_n_)) THEN
478        data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr)
479        data_n_ = data_n__tmp
480      ENDIF
481
482      IF (PRESENT(long_name_)) THEN
483        long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr)
484        long_name_ = long_name__tmp
485      ENDIF
486
487      IF (PRESENT(mask_)) THEN
488        mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr)
489        mask_ = mask__tmp
490      ENDIF
491
492      IF (PRESENT(n_)) THEN
493        n__tmp = cxios_is_defined_axis_n(axis_hdl%daddr)
494        n_ = n__tmp
495      ENDIF
496
497      IF (PRESENT(n_distributed_partition_)) THEN
498        n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition(axis_hdl%daddr)
499        n_distributed_partition_ = n_distributed_partition__tmp
500      ENDIF
501
502      IF (PRESENT(n_glo_)) THEN
503        n_glo__tmp = cxios_is_defined_axis_n_glo(axis_hdl%daddr)
504        n_glo_ = n_glo__tmp
505      ENDIF
506
507      IF (PRESENT(name_)) THEN
508        name__tmp = cxios_is_defined_axis_name(axis_hdl%daddr)
509        name_ = name__tmp
510      ENDIF
511
512      IF (PRESENT(positive_)) THEN
513        positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr)
514        positive_ = positive__tmp
515      ENDIF
516
517      IF (PRESENT(standard_name_)) THEN
518        standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr)
519        standard_name_ = standard_name__tmp
520      ENDIF
521
522      IF (PRESENT(unit_)) THEN
523        unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr)
524        unit_ = unit__tmp
525      ENDIF
526
527      IF (PRESENT(value_)) THEN
528        value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr)
529        value_ = value__tmp
530      ENDIF
531
532  END SUBROUTINE xios(is_defined_axis_attr_hdl_)
533
534END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.