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

Last change on this file since 555 was 555, checked in by mhnguyen, 9 years ago

Updating some Fortran interface files

+) Update some Fortran interface files generated by generate_fortran_interface.exe

Test
+) No test
  • 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: 22.1 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     
173   
174  END SUBROUTINE xios(set_axis_attr_hdl_)
175 
176  SUBROUTINE xios(get_axis_attr)  &
177    ( axis_id, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
178    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
179   
180    IMPLICIT NONE
181      TYPE(txios(axis))  :: axis_hdl
182      CHARACTER(LEN=*), INTENT(IN) ::axis_id
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
184      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
185      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
186      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
187      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
189      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
190      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
192      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
193      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
194      INTEGER  , OPTIONAL, INTENT(OUT) :: size
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
197      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
198      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
199      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
200      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
201     
202      CALL xios(get_axis_handle)(axis_id,axis_hdl)
203      CALL xios(get_axis_attr_hdl_)   &
204      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
205      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
206   
207  END SUBROUTINE xios(get_axis_attr)
208 
209  SUBROUTINE xios(get_axis_attr_hdl)  &
210    ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
211    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
212   
213    IMPLICIT NONE
214      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
215      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
216      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
217      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
218      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
219      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
220      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
221      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
222      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
224      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
225      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
226      INTEGER  , OPTIONAL, INTENT(OUT) :: size
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
229      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
230      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
231      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
232      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
233     
234      CALL xios(get_axis_attr_hdl_)  &
235      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
236      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
237   
238  END SUBROUTINE xios(get_axis_attr_hdl)
239 
240  SUBROUTINE xios(get_axis_attr_hdl_)   &
241    ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_  &
242    , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
243   
244    IMPLICIT NONE
245      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
246      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
247      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
248      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
249      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
250      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
251      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
252      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
253      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
255      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
256      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
257      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
258      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
260      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
261      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_
262      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_
263      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_
264     
265      IF (PRESENT(axis_ref_)) THEN
266        CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_))
267      ENDIF
268     
269      IF (PRESENT(data_begin_)) THEN
270        CALL cxios_get_axis_data_begin(axis_hdl%daddr, data_begin_)
271      ENDIF
272     
273      IF (PRESENT(data_index_)) THEN
274        CALL cxios_get_axis_data_index(axis_hdl%daddr, data_index_,size(data_index_,1))
275      ENDIF
276     
277      IF (PRESENT(data_n_)) THEN
278        CALL cxios_get_axis_data_n(axis_hdl%daddr, data_n_)
279      ENDIF
280     
281      IF (PRESENT(ibegin_)) THEN
282        CALL cxios_get_axis_ibegin(axis_hdl%daddr, ibegin_)
283      ENDIF
284     
285      IF (PRESENT(long_name_)) THEN
286        CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_))
287      ENDIF
288     
289      IF (PRESENT(mask_)) THEN
290        ALLOCATE(mask__tmp(size(mask_,1)))
291        CALL cxios_get_axis_mask(axis_hdl%daddr, mask__tmp,size(mask_,1))
292        mask_=mask__tmp_
293      ENDIF
294     
295      IF (PRESENT(name_)) THEN
296        CALL cxios_get_axis_name(axis_hdl%daddr, name_, len(name_))
297      ENDIF
298     
299      IF (PRESENT(ni_)) THEN
300        CALL cxios_get_axis_ni(axis_hdl%daddr, ni_)
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(size_)) THEN
308        CALL cxios_get_axis_size(axis_hdl%daddr, size_)
309      ENDIF
310     
311      IF (PRESENT(standard_name_)) THEN
312        CALL cxios_get_axis_standard_name(axis_hdl%daddr, standard_name_, len(standard_name_))
313      ENDIF
314     
315      IF (PRESENT(unit_)) THEN
316        CALL cxios_get_axis_unit(axis_hdl%daddr, unit_, len(unit_))
317      ENDIF
318     
319      IF (PRESENT(value_)) THEN
320        CALL cxios_get_axis_value(axis_hdl%daddr, value_,size(value_,1))
321      ENDIF
322     
323      IF (PRESENT(zoom_begin_)) THEN
324        CALL cxios_get_axis_zoom_begin(axis_hdl%daddr, zoom_begin_)
325      ENDIF
326     
327      IF (PRESENT(zoom_end_)) THEN
328        CALL cxios_get_axis_zoom_end(axis_hdl%daddr, zoom_end_)
329      ENDIF
330     
331      IF (PRESENT(zoom_size_)) THEN
332        CALL cxios_get_axis_zoom_size(axis_hdl%daddr, zoom_size_)
333      ENDIF
334     
335     
336   
337  END SUBROUTINE xios(get_axis_attr_hdl_)
338 
339  SUBROUTINE xios(is_defined_axis_attr)  &
340    ( axis_id, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
341    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
342   
343    IMPLICIT NONE
344      TYPE(txios(axis))  :: axis_hdl
345      CHARACTER(LEN=*), INTENT(IN) ::axis_id
346      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
347      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
349      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
351      LOGICAL(KIND=C_BOOL) :: data_index_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
353      LOGICAL(KIND=C_BOOL) :: data_n_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
355      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
357      LOGICAL(KIND=C_BOOL) :: long_name_tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
359      LOGICAL(KIND=C_BOOL) :: mask_tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: name
361      LOGICAL(KIND=C_BOOL) :: name_tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
363      LOGICAL(KIND=C_BOOL) :: ni_tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
365      LOGICAL(KIND=C_BOOL) :: positive_tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: size
367      LOGICAL(KIND=C_BOOL) :: size_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
369      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
371      LOGICAL(KIND=C_BOOL) :: unit_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: value
373      LOGICAL(KIND=C_BOOL) :: value_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
375      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
376      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
377      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
378      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
379      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
380     
381      CALL xios(get_axis_handle)(axis_id,axis_hdl)
382      CALL xios(is_defined_axis_attr_hdl_)   &
383      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
384      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
385   
386  END SUBROUTINE xios(is_defined_axis_attr)
387 
388  SUBROUTINE xios(is_defined_axis_attr_hdl)  &
389    ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
390    , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
391   
392    IMPLICIT NONE
393      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
394      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
395      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
396      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
397      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
398      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
399      LOGICAL(KIND=C_BOOL) :: data_index_tmp
400      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
401      LOGICAL(KIND=C_BOOL) :: data_n_tmp
402      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
403      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
404      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
405      LOGICAL(KIND=C_BOOL) :: long_name_tmp
406      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
407      LOGICAL(KIND=C_BOOL) :: mask_tmp
408      LOGICAL, OPTIONAL, INTENT(OUT) :: name
409      LOGICAL(KIND=C_BOOL) :: name_tmp
410      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
411      LOGICAL(KIND=C_BOOL) :: ni_tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
413      LOGICAL(KIND=C_BOOL) :: positive_tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: size
415      LOGICAL(KIND=C_BOOL) :: size_tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
417      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
419      LOGICAL(KIND=C_BOOL) :: unit_tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: value
421      LOGICAL(KIND=C_BOOL) :: value_tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
423      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
425      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
426      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
427      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
428     
429      CALL xios(is_defined_axis_attr_hdl_)  &
430      ( axis_hdl, axis_ref, data_begin, data_index, data_n, ibegin, long_name, mask, name, ni, positive  &
431      , size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
432   
433  END SUBROUTINE xios(is_defined_axis_attr_hdl)
434 
435  SUBROUTINE xios(is_defined_axis_attr_hdl_)   &
436    ( axis_hdl, axis_ref_, data_begin_, data_index_, data_n_, ibegin_, long_name_, mask_, name_  &
437    , ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
438   
439    IMPLICIT NONE
440      TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
441      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
442      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
443      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
444      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
445      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
446      LOGICAL(KIND=C_BOOL) :: data_index__tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
448      LOGICAL(KIND=C_BOOL) :: data_n__tmp
449      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
450      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
451      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
452      LOGICAL(KIND=C_BOOL) :: long_name__tmp
453      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
454      LOGICAL(KIND=C_BOOL) :: mask__tmp
455      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
456      LOGICAL(KIND=C_BOOL) :: name__tmp
457      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
458      LOGICAL(KIND=C_BOOL) :: ni__tmp
459      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
460      LOGICAL(KIND=C_BOOL) :: positive__tmp
461      LOGICAL, OPTIONAL, INTENT(OUT) :: size_
462      LOGICAL(KIND=C_BOOL) :: size__tmp
463      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
464      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
465      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
466      LOGICAL(KIND=C_BOOL) :: unit__tmp
467      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
468      LOGICAL(KIND=C_BOOL) :: value__tmp
469      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_
470      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp
471      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_
472      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp
473      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_
474      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp
475     
476      IF (PRESENT(axis_ref_)) THEN
477        axis_ref__tmp=cxios_is_defined_axis_axis_ref(axis_hdl%daddr)
478        axis_ref_=axis_ref__tmp
479      ENDIF
480     
481      IF (PRESENT(data_begin_)) THEN
482        data_begin__tmp=cxios_is_defined_axis_data_begin(axis_hdl%daddr)
483        data_begin_=data_begin__tmp
484      ENDIF
485     
486      IF (PRESENT(data_index_)) THEN
487        data_index__tmp=cxios_is_defined_axis_data_index(axis_hdl%daddr)
488        data_index_=data_index__tmp
489      ENDIF
490     
491      IF (PRESENT(data_n_)) THEN
492        data_n__tmp=cxios_is_defined_axis_data_n(axis_hdl%daddr)
493        data_n_=data_n__tmp
494      ENDIF
495     
496      IF (PRESENT(ibegin_)) THEN
497        ibegin__tmp=cxios_is_defined_axis_ibegin(axis_hdl%daddr)
498        ibegin_=ibegin__tmp
499      ENDIF
500     
501      IF (PRESENT(long_name_)) THEN
502        long_name__tmp=cxios_is_defined_axis_long_name(axis_hdl%daddr)
503        long_name_=long_name__tmp
504      ENDIF
505     
506      IF (PRESENT(mask_)) THEN
507        mask__tmp=cxios_is_defined_axis_mask(axis_hdl%daddr)
508        mask_=mask__tmp
509      ENDIF
510     
511      IF (PRESENT(name_)) THEN
512        name__tmp=cxios_is_defined_axis_name(axis_hdl%daddr)
513        name_=name__tmp
514      ENDIF
515     
516      IF (PRESENT(ni_)) THEN
517        ni__tmp=cxios_is_defined_axis_ni(axis_hdl%daddr)
518        ni_=ni__tmp
519      ENDIF
520     
521      IF (PRESENT(positive_)) THEN
522        positive__tmp=cxios_is_defined_axis_positive(axis_hdl%daddr)
523        positive_=positive__tmp
524      ENDIF
525     
526      IF (PRESENT(size_)) THEN
527        size__tmp=cxios_is_defined_axis_size(axis_hdl%daddr)
528        size_=size__tmp
529      ENDIF
530     
531      IF (PRESENT(standard_name_)) THEN
532        standard_name__tmp=cxios_is_defined_axis_standard_name(axis_hdl%daddr)
533        standard_name_=standard_name__tmp
534      ENDIF
535     
536      IF (PRESENT(unit_)) THEN
537        unit__tmp=cxios_is_defined_axis_unit(axis_hdl%daddr)
538        unit_=unit__tmp
539      ENDIF
540     
541      IF (PRESENT(value_)) THEN
542        value__tmp=cxios_is_defined_axis_value(axis_hdl%daddr)
543        value_=value__tmp
544      ENDIF
545     
546      IF (PRESENT(zoom_begin_)) THEN
547        zoom_begin__tmp=cxios_is_defined_axis_zoom_begin(axis_hdl%daddr)
548        zoom_begin_=zoom_begin__tmp
549      ENDIF
550     
551      IF (PRESENT(zoom_end_)) THEN
552        zoom_end__tmp=cxios_is_defined_axis_zoom_end(axis_hdl%daddr)
553        zoom_end_=zoom_end__tmp
554      ENDIF
555     
556      IF (PRESENT(zoom_size_)) THEN
557        zoom_size__tmp=cxios_is_defined_axis_zoom_size(axis_hdl%daddr)
558        zoom_size_=zoom_size__tmp
559      ENDIF
560     
561     
562   
563  END SUBROUTINE xios(is_defined_axis_attr_hdl_)
564 
565END MODULE iaxis_attr
Note: See TracBrowser for help on using the repository browser.