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

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

Update the Fortran interface after r540.
  • 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: 17.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxisgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axisgroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_axisgroup_attr)  &
14    ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
15    , zoom_begin, zoom_end, zoom_size )
16   
17    IMPLICIT NONE
18      TYPE(txios(axisgroup))  :: axisgroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
25      INTEGER  , OPTIONAL, INTENT(IN) :: size
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
29      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
30      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
31      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
32     
33      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
34      CALL xios(set_axisgroup_attr_hdl_)   &
35      ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
36      , zoom_begin, zoom_end, zoom_size )
37   
38  END SUBROUTINE xios(set_axisgroup_attr)
39 
40  SUBROUTINE xios(set_axisgroup_attr_hdl)  &
41    ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
42    , zoom_begin, zoom_end, zoom_size )
43   
44    IMPLICIT NONE
45      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
51      INTEGER  , OPTIONAL, INTENT(IN) :: size
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
54      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
55      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
56      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
57      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
58     
59      CALL xios(set_axisgroup_attr_hdl_)  &
60      ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
61      , zoom_begin, zoom_end, zoom_size )
62   
63  END SUBROUTINE xios(set_axisgroup_attr_hdl)
64 
65  SUBROUTINE xios(set_axisgroup_attr_hdl_)   &
66    ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_  &
67    , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
68   
69    IMPLICIT NONE
70      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
76      INTEGER  , OPTIONAL, INTENT(IN) :: size_
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
79      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
80      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_
81      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_
82      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_
83     
84      IF (PRESENT(axis_ref_)) THEN
85        CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
86      ENDIF
87     
88      IF (PRESENT(group_ref_)) THEN
89        CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
90      ENDIF
91     
92      IF (PRESENT(long_name_)) THEN
93        CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
94      ENDIF
95     
96      IF (PRESENT(name_)) THEN
97        CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
98      ENDIF
99     
100      IF (PRESENT(positive_)) THEN
101        CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
102      ENDIF
103     
104      IF (PRESENT(size_)) THEN
105        CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_)
106      ENDIF
107     
108      IF (PRESENT(standard_name_)) THEN
109        CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
110      ENDIF
111     
112      IF (PRESENT(unit_)) THEN
113        CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
114      ENDIF
115     
116      IF (PRESENT(value_)) THEN
117        CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
118      ENDIF
119     
120      IF (PRESENT(zoom_begin_)) THEN
121        CALL cxios_set_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
122      ENDIF
123     
124      IF (PRESENT(zoom_end_)) THEN
125        CALL cxios_set_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
126      ENDIF
127     
128      IF (PRESENT(zoom_size_)) THEN
129        CALL cxios_set_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
130      ENDIF
131     
132     
133   
134  END SUBROUTINE xios(set_axisgroup_attr_hdl_)
135 
136  SUBROUTINE xios(get_axisgroup_attr)  &
137    ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
138    , zoom_begin, zoom_end, zoom_size )
139   
140    IMPLICIT NONE
141      TYPE(txios(axisgroup))  :: axisgroup_hdl
142      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
143      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
144      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
145      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
146      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
148      INTEGER  , OPTIONAL, INTENT(OUT) :: size
149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
151      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
152      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
153      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
154      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
155     
156      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
157      CALL xios(get_axisgroup_attr_hdl_)   &
158      ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
159      , zoom_begin, zoom_end, zoom_size )
160   
161  END SUBROUTINE xios(get_axisgroup_attr)
162 
163  SUBROUTINE xios(get_axisgroup_attr_hdl)  &
164    ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
165    , zoom_begin, zoom_end, zoom_size )
166   
167    IMPLICIT NONE
168      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
169      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
171      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
172      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
173      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
174      INTEGER  , OPTIONAL, INTENT(OUT) :: size
175      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
177      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
178      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
179      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
180      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
181     
182      CALL xios(get_axisgroup_attr_hdl_)  &
183      ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
184      , zoom_begin, zoom_end, zoom_size )
185   
186  END SUBROUTINE xios(get_axisgroup_attr_hdl)
187 
188  SUBROUTINE xios(get_axisgroup_attr_hdl_)   &
189    ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_  &
190    , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
191   
192    IMPLICIT NONE
193      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
198      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
199      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
202      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
203      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_
204      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_
205      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_
206     
207      IF (PRESENT(axis_ref_)) THEN
208        CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
209      ENDIF
210     
211      IF (PRESENT(group_ref_)) THEN
212        CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
213      ENDIF
214     
215      IF (PRESENT(long_name_)) THEN
216        CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
217      ENDIF
218     
219      IF (PRESENT(name_)) THEN
220        CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
221      ENDIF
222     
223      IF (PRESENT(positive_)) THEN
224        CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
225      ENDIF
226     
227      IF (PRESENT(size_)) THEN
228        CALL cxios_get_axisgroup_size(axisgroup_hdl%daddr, size_)
229      ENDIF
230     
231      IF (PRESENT(standard_name_)) THEN
232        CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
233      ENDIF
234     
235      IF (PRESENT(unit_)) THEN
236        CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
237      ENDIF
238     
239      IF (PRESENT(value_)) THEN
240        CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
241      ENDIF
242     
243      IF (PRESENT(zoom_begin_)) THEN
244        CALL cxios_get_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
245      ENDIF
246     
247      IF (PRESENT(zoom_end_)) THEN
248        CALL cxios_get_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
249      ENDIF
250     
251      IF (PRESENT(zoom_size_)) THEN
252        CALL cxios_get_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
253      ENDIF
254     
255     
256   
257  END SUBROUTINE xios(get_axisgroup_attr_hdl_)
258 
259  SUBROUTINE xios(is_defined_axisgroup_attr)  &
260    ( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
261    , zoom_begin, zoom_end, zoom_size )
262   
263    IMPLICIT NONE
264      TYPE(txios(axisgroup))  :: axisgroup_hdl
265      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
266      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
267      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
268      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
269      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
270      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
271      LOGICAL(KIND=C_BOOL) :: long_name_tmp
272      LOGICAL, OPTIONAL, INTENT(OUT) :: name
273      LOGICAL(KIND=C_BOOL) :: name_tmp
274      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
275      LOGICAL(KIND=C_BOOL) :: positive_tmp
276      LOGICAL, OPTIONAL, INTENT(OUT) :: size
277      LOGICAL(KIND=C_BOOL) :: size_tmp
278      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
279      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
280      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
281      LOGICAL(KIND=C_BOOL) :: unit_tmp
282      LOGICAL, OPTIONAL, INTENT(OUT) :: value
283      LOGICAL(KIND=C_BOOL) :: value_tmp
284      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
285      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
286      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
287      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
288      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
289      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
290     
291      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
292      CALL xios(is_defined_axisgroup_attr_hdl_)   &
293      ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
294      , zoom_begin, zoom_end, zoom_size )
295   
296  END SUBROUTINE xios(is_defined_axisgroup_attr)
297 
298  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  &
299    ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
300    , zoom_begin, zoom_end, zoom_size )
301   
302    IMPLICIT NONE
303      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
304      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
305      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
306      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
307      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
308      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
309      LOGICAL(KIND=C_BOOL) :: long_name_tmp
310      LOGICAL, OPTIONAL, INTENT(OUT) :: name
311      LOGICAL(KIND=C_BOOL) :: name_tmp
312      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
313      LOGICAL(KIND=C_BOOL) :: positive_tmp
314      LOGICAL, OPTIONAL, INTENT(OUT) :: size
315      LOGICAL(KIND=C_BOOL) :: size_tmp
316      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
317      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
318      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
319      LOGICAL(KIND=C_BOOL) :: unit_tmp
320      LOGICAL, OPTIONAL, INTENT(OUT) :: value
321      LOGICAL(KIND=C_BOOL) :: value_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
323      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
325      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
327      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
328     
329      CALL xios(is_defined_axisgroup_attr_hdl_)  &
330      ( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value  &
331      , zoom_begin, zoom_end, zoom_size )
332   
333  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
334 
335  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   &
336    ( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_  &
337    , unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
338   
339    IMPLICIT NONE
340      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
341      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
342      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
343      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
344      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
345      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
346      LOGICAL(KIND=C_BOOL) :: long_name__tmp
347      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
348      LOGICAL(KIND=C_BOOL) :: name__tmp
349      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
350      LOGICAL(KIND=C_BOOL) :: positive__tmp
351      LOGICAL, OPTIONAL, INTENT(OUT) :: size_
352      LOGICAL(KIND=C_BOOL) :: size__tmp
353      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
354      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
355      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
356      LOGICAL(KIND=C_BOOL) :: unit__tmp
357      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
358      LOGICAL(KIND=C_BOOL) :: value__tmp
359      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_
360      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp
361      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_
362      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp
363      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_
364      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp
365     
366      IF (PRESENT(axis_ref_)) THEN
367        axis_ref__tmp=cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr)
368        axis_ref_=axis_ref__tmp
369      ENDIF
370     
371      IF (PRESENT(group_ref_)) THEN
372        group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr)
373        group_ref_=group_ref__tmp
374      ENDIF
375     
376      IF (PRESENT(long_name_)) THEN
377        long_name__tmp=cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr)
378        long_name_=long_name__tmp
379      ENDIF
380     
381      IF (PRESENT(name_)) THEN
382        name__tmp=cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr)
383        name_=name__tmp
384      ENDIF
385     
386      IF (PRESENT(positive_)) THEN
387        positive__tmp=cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr)
388        positive_=positive__tmp
389      ENDIF
390     
391      IF (PRESENT(size_)) THEN
392        size__tmp=cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr)
393        size_=size__tmp
394      ENDIF
395     
396      IF (PRESENT(standard_name_)) THEN
397        standard_name__tmp=cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr)
398        standard_name_=standard_name__tmp
399      ENDIF
400     
401      IF (PRESENT(unit_)) THEN
402        unit__tmp=cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr)
403        unit_=unit__tmp
404      ENDIF
405     
406      IF (PRESENT(value_)) THEN
407        value__tmp=cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr)
408        value_=value__tmp
409      ENDIF
410     
411      IF (PRESENT(zoom_begin_)) THEN
412        zoom_begin__tmp=cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr)
413        zoom_begin_=zoom_begin__tmp
414      ENDIF
415     
416      IF (PRESENT(zoom_end_)) THEN
417        zoom_end__tmp=cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr)
418        zoom_end_=zoom_end__tmp
419      ENDIF
420     
421      IF (PRESENT(zoom_size_)) THEN
422        zoom_size__tmp=cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr)
423        zoom_size_=zoom_size__tmp
424      ENDIF
425     
426     
427   
428  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
429 
430END MODULE iaxisgroup_attr
Note: See TracBrowser for help on using the repository browser.