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

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

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
  • 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.7 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, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
15    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
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) :: data_begin
22      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
23      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
24      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
26      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
27      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
29      INTEGER  , OPTIONAL, INTENT(IN) :: ni
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
31      INTEGER  , OPTIONAL, INTENT(IN) :: size
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
34      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
35      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
36      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
37      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
38
39      CALL xios(get_axis_handle)(axis_id,axis_hdl)
40      CALL xios(set_axis_attr_hdl_)   &
41      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
42      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
43
44  END SUBROUTINE xios(set_axis_attr)
45
46  SUBROUTINE xios(set_axis_attr_hdl)  &
47    ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
48    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
49
50    IMPLICIT NONE
51      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
53      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
54      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
55      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
56      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
58      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
59      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
61      INTEGER  , OPTIONAL, INTENT(IN) :: ni
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
63      INTEGER  , OPTIONAL, INTENT(IN) :: size
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
66      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
67      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
68      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
69      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
70
71      CALL xios(set_axis_attr_hdl_)  &
72      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
73      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
74
75  END SUBROUTINE xios(set_axis_attr_hdl)
76
77  SUBROUTINE xios(set_axis_attr_hdl_)   &
78    ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_  &
79    , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
80
81    IMPLICIT NONE
82      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
84      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
85      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
86      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
87      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
89      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
90      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
92      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
94      INTEGER  , OPTIONAL, INTENT(IN) :: size_
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
97      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
98      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_
99      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_
100      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_
101
102      IF (PRESENT(axis_ref_)) THEN
103        CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
104      ENDIF
105
106      IF (PRESENT(data_begin_)) THEN
107        CALL cxios_set_axis_data_begin(axis_hdl%daddr, data_begin_)
108      ENDIF
109
110      IF (PRESENT(data_index_)) THEN
111        CALL cxios_set_axis_data_index(axis_hdl%daddr, data_index_, size(data_index_,1))
112      ENDIF
113
114      IF (PRESENT(data_n_)) THEN
115        CALL cxios_set_axis_data_n(axis_hdl%daddr, data_n_)
116      ENDIF
117
118      IF (PRESENT(ibegin_)) THEN
119        CALL cxios_set_axis_ibegin(axis_hdl%daddr, ibegin_)
120      ENDIF
121
122      IF (PRESENT(long_name_)) THEN
123        CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
124      ENDIF
125
126      IF (PRESENT(mask_)) THEN
127        ALLOCATE(mask__tmp(size(mask_,1)))
128        mask__tmp = mask_
129        CALL cxios_set_axis_mask(axis_hdl%daddr, mask__tmp, size(mask_,1))
130      ENDIF
131
132      IF (PRESENT(name_)) THEN
133        CALL cxios_set_axis_name(axis_hdl%daddr, name_, len(name_))
134      ENDIF
135
136      IF (PRESENT(ni_)) THEN
137        CALL cxios_set_axis_ni(axis_hdl%daddr, ni_)
138      ENDIF
139
140      IF (PRESENT(positive_)) THEN
141        CALL cxios_set_axis_positive(axis_hdl%daddr, positive_, len(positive_))
142      ENDIF
143
144      IF (PRESENT(size_)) THEN
145        CALL cxios_set_axis_size(axis_hdl%daddr, size_)
146      ENDIF
147
148      IF (PRESENT(standard_name_)) THEN
149        CALL cxios_set_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
150      ENDIF
151
152      IF (PRESENT(unit_)) THEN
153        CALL cxios_set_axis_unit(axis_hdl%daddr, unit_, len(unit_))
154      ENDIF
155
156      IF (PRESENT(value_)) THEN
157        CALL cxios_set_axis_value(axis_hdl%daddr, value_, size(value_,1))
158      ENDIF
159
160      IF (PRESENT(zoom_begin_)) THEN
161        CALL cxios_set_axis_zoom_begin(axis_hdl%daddr, zoom_begin_)
162      ENDIF
163
164      IF (PRESENT(zoom_end_)) THEN
165        CALL cxios_set_axis_zoom_end(axis_hdl%daddr, zoom_end_)
166      ENDIF
167
168      IF (PRESENT(zoom_size_)) THEN
169        CALL cxios_set_axis_zoom_size(axis_hdl%daddr, zoom_size_)
170      ENDIF
171
172  END SUBROUTINE xios(set_axis_attr_hdl_)
173
174  SUBROUTINE xios(get_axis_attr)  &
175    ( axis_id, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
176    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
177
178    IMPLICIT NONE
179      TYPE(txios(axis))  :: axis_hdl
180      CHARACTER(LEN=*), INTENT(IN) ::axis_id
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
182      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
183      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
184      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
185      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
186      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
187      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
188      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
190      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
192      INTEGER  , OPTIONAL, INTENT(OUT) :: size
193      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
195      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
196      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
197      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
198      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
199
200      CALL xios(get_axis_handle)(axis_id,axis_hdl)
201      CALL xios(get_axis_attr_hdl_)   &
202      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
203      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
204
205  END SUBROUTINE xios(get_axis_attr)
206
207  SUBROUTINE xios(get_axis_attr_hdl)  &
208    ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
209    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
210
211    IMPLICIT NONE
212      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
213      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
214      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
215      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
216      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
217      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
219      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
220      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
222      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
224      INTEGER  , OPTIONAL, INTENT(OUT) :: size
225      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
227      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
228      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
229      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
230      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
231
232      CALL xios(get_axis_attr_hdl_)  &
233      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
234      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
235
236  END SUBROUTINE xios(get_axis_attr_hdl)
237
238  SUBROUTINE xios(get_axis_attr_hdl_)   &
239    ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_  &
240    , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
241
242    IMPLICIT NONE
243      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
244      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
245      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
246      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
247      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
248      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
249      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
250      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
251      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
252      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
253      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
255      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
256      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
257      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
258      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
259      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_
260      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_
261      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_
262
263      IF (PRESENT(axis_ref_)) THEN
264        CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
265      ENDIF
266
267      IF (PRESENT(data_begin_)) THEN
268        CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_)
269      ENDIF
270
271      IF (PRESENT(data_index_)) THEN
272        CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_, size(data_index_,1))
273      ENDIF
274
275      IF (PRESENT(data_n_)) THEN
276        CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_)
277      ENDIF
278
279      IF (PRESENT(ibegin_)) THEN
280        CALL cxios_get_axis_ibegin(axis_hdl%daddr, ibegin_)
281      ENDIF
282
283      IF (PRESENT(long_name_)) THEN
284        CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
285      ENDIF
286
287      IF (PRESENT(mask_)) THEN
288        ALLOCATE(mask__tmp(size(mask_,1)))
289        CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp, size(mask_,1))
290        mask_ = mask__tmp
291      ENDIF
292
293      IF (PRESENT(name_)) THEN
294        CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
295      ENDIF
296
297      IF (PRESENT(ni_)) THEN
298        CALL cxios_get_axis_ni(axis_hdl%daddr, ni_)
299      ENDIF
300
301      IF (PRESENT(positive_)) THEN
302        CALL cxios_get_axis_positive(axis_hdl%daddr, positive_, len(positive_))
303      ENDIF
304
305      IF (PRESENT(size_)) THEN
306        CALL cxios_get_axis_size(axis_hdl%daddr, size_)
307      ENDIF
308
309      IF (PRESENT(standard_name_)) THEN
310        CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
311      ENDIF
312
313      IF (PRESENT(unit_)) THEN
314        CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
315      ENDIF
316
317      IF (PRESENT(value_)) THEN
318        CALL cxios_get_axis_value(axis_hdl%daddr, value_, size(value_,1))
319      ENDIF
320
321      IF (PRESENT(zoom_begin_)) THEN
322        CALL cxios_get_axis_zoom_begin(axis_hdl%daddr, zoom_begin_)
323      ENDIF
324
325      IF (PRESENT(zoom_end_)) THEN
326        CALL cxios_get_axis_zoom_end(axis_hdl%daddr, zoom_end_)
327      ENDIF
328
329      IF (PRESENT(zoom_size_)) THEN
330        CALL cxios_get_axis_zoom_size(axis_hdl%daddr, zoom_size_)
331      ENDIF
332
333  END SUBROUTINE xios(get_axis_attr_hdl_)
334
335  SUBROUTINE xios(is_defined_axis_attr)  &
336    ( axis_id, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
337    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
338
339    IMPLICIT NONE
340      TYPE(txios(axis))  :: axis_hdl
341      CHARACTER(LEN=*), INTENT(IN) ::axis_id
342      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
343      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
345      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
347      LOGICAL(KIND=C_BOOL) :: data_index_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
349      LOGICAL(KIND=C_BOOL) :: data_n_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
351      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
353      LOGICAL(KIND=C_BOOL) :: long_name_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
355      LOGICAL(KIND=C_BOOL) :: mask_tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: name
357      LOGICAL(KIND=C_BOOL) :: name_tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
359      LOGICAL(KIND=C_BOOL) :: ni_tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
361      LOGICAL(KIND=C_BOOL) :: positive_tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: size
363      LOGICAL(KIND=C_BOOL) :: size_tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
365      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
367      LOGICAL(KIND=C_BOOL) :: unit_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: value
369      LOGICAL(KIND=C_BOOL) :: value_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
371      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
373      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
375      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
376
377      CALL xios(get_axis_handle)(axis_id,axis_hdl)
378      CALL xios(is_defined_axis_attr_hdl_)   &
379      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
380      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
381
382  END SUBROUTINE xios(is_defined_axis_attr)
383
384  SUBROUTINE xios(is_defined_axis_attr_hdl)  &
385    ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
386    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
387
388    IMPLICIT NONE
389      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
390      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
391      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
393      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
394      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
395      LOGICAL(KIND=C_BOOL) :: data_index_tmp
396      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
397      LOGICAL(KIND=C_BOOL) :: data_n_tmp
398      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
399      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
400      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
401      LOGICAL(KIND=C_BOOL) :: long_name_tmp
402      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
403      LOGICAL(KIND=C_BOOL) :: mask_tmp
404      LOGICAL, OPTIONAL, INTENT(OUT) :: name
405      LOGICAL(KIND=C_BOOL) :: name_tmp
406      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
407      LOGICAL(KIND=C_BOOL) :: ni_tmp
408      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
409      LOGICAL(KIND=C_BOOL) :: positive_tmp
410      LOGICAL, OPTIONAL, INTENT(OUT) :: size
411      LOGICAL(KIND=C_BOOL) :: size_tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
413      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
415      LOGICAL(KIND=C_BOOL) :: unit_tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: value
417      LOGICAL(KIND=C_BOOL) :: value_tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
419      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
421      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
423      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
424
425      CALL xios(is_defined_axis_attr_hdl_)  &
426      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
427      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
428
429  END SUBROUTINE xios(is_defined_axis_attr_hdl)
430
431  SUBROUTINE xios(is_defined_axis_attr_hdl_)   &
432    ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_  &
433    , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
434
435    IMPLICIT NONE
436      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
437      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
438      LOGICAL(KIND=C_BOOL) :: axis_ref__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) :: ibegin_
446      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
448      LOGICAL(KIND=C_BOOL) :: long_name__tmp
449      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
450      LOGICAL(KIND=C_BOOL) :: mask__tmp
451      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
452      LOGICAL(KIND=C_BOOL) :: name__tmp
453      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
454      LOGICAL(KIND=C_BOOL) :: ni__tmp
455      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
456      LOGICAL(KIND=C_BOOL) :: positive__tmp
457      LOGICAL, OPTIONAL, INTENT(OUT) :: size_
458      LOGICAL(KIND=C_BOOL) :: size__tmp
459      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
460      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
461      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
462      LOGICAL(KIND=C_BOOL) :: unit__tmp
463      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
464      LOGICAL(KIND=C_BOOL) :: value__tmp
465      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_
466      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp
467      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_
468      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp
469      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_
470      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp
471
472      IF (PRESENT(axis_ref_)) THEN
473        axis_ref__tmp = cxios_is_defined_axis_axis_ref(axis_hdl%daddr)
474        axis_ref_ = axis_ref__tmp
475      ENDIF
476
477      IF (PRESENT(data_begin_)) THEN
478        data_begin__tmp = cxios_is_defined_axis_data_begin(axis_hdl%daddr)
479        data_begin_ = data_begin__tmp
480      ENDIF
481
482      IF (PRESENT(data_index_)) THEN
483        data_index__tmp = cxios_is_defined_axis_data_index(axis_hdl%daddr)
484        data_index_ = data_index__tmp
485      ENDIF
486
487      IF (PRESENT(data_n_)) THEN
488        data_n__tmp = cxios_is_defined_axis_data_n(axis_hdl%daddr)
489        data_n_ = data_n__tmp
490      ENDIF
491
492      IF (PRESENT(ibegin_)) THEN
493        ibegin__tmp = cxios_is_defined_axis_ibegin(axis_hdl%daddr)
494        ibegin_ = ibegin__tmp
495      ENDIF
496
497      IF (PRESENT(long_name_)) THEN
498        long_name__tmp = cxios_is_defined_axis_long_name(axis_hdl%daddr)
499        long_name_ = long_name__tmp
500      ENDIF
501
502      IF (PRESENT(mask_)) THEN
503        mask__tmp = cxios_is_defined_axis_mask(axis_hdl%daddr)
504        mask_ = mask__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(ni_)) THEN
513        ni__tmp = cxios_is_defined_axis_ni(axis_hdl%daddr)
514        ni_ = ni__tmp
515      ENDIF
516
517      IF (PRESENT(positive_)) THEN
518        positive__tmp = cxios_is_defined_axis_positive(axis_hdl%daddr)
519        positive_ = positive__tmp
520      ENDIF
521
522      IF (PRESENT(size_)) THEN
523        size__tmp = cxios_is_defined_axis_size(axis_hdl%daddr)
524        size_ = size__tmp
525      ENDIF
526
527      IF (PRESENT(standard_name_)) THEN
528        standard_name__tmp = cxios_is_defined_axis_standard_name(axis_hdl%daddr)
529        standard_name_ = standard_name__tmp
530      ENDIF
531
532      IF (PRESENT(unit_)) THEN
533        unit__tmp = cxios_is_defined_axis_unit(axis_hdl%daddr)
534        unit_ = unit__tmp
535      ENDIF
536
537      IF (PRESENT(value_)) THEN
538        value__tmp = cxios_is_defined_axis_value(axis_hdl%daddr)
539        value_ = value__tmp
540      ENDIF
541
542      IF (PRESENT(zoom_begin_)) THEN
543        zoom_begin__tmp = cxios_is_defined_axis_zoom_begin(axis_hdl%daddr)
544        zoom_begin_ = zoom_begin__tmp
545      ENDIF
546
547      IF (PRESENT(zoom_end_)) THEN
548        zoom_end__tmp = cxios_is_defined_axis_zoom_end(axis_hdl%daddr)
549        zoom_end_ = zoom_end__tmp
550      ENDIF
551
552      IF (PRESENT(zoom_size_)) THEN
553        zoom_size__tmp = cxios_is_defined_axis_zoom_size(axis_hdl%daddr)
554        zoom_size_ = zoom_size__tmp
555      ENDIF
556
557  END SUBROUTINE xios(is_defined_axis_attr_hdl_)
558
559END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.