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

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

Fix the Fortran interface generator and regenerate the interface.
  • 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: 24.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, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
15    , name, ni, positive, size, standard_name, unit, value, 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      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin
22      INTEGER  , OPTIONAL, INTENT(IN) :: data_index(:)
23      INTEGER  , OPTIONAL, INTENT(IN) :: data_n
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
25      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
27      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
28      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
30      INTEGER  , OPTIONAL, INTENT(IN) :: ni
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
32      INTEGER  , OPTIONAL, INTENT(IN) :: size
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
35      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
36      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
37      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
38      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
39     
40      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
41      CALL xios(set_axisgroup_attr_hdl_)   &
42      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
43      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
44   
45  END SUBROUTINE xios(set_axisgroup_attr)
46 
47  SUBROUTINE xios(set_axisgroup_attr_hdl)  &
48    ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
49    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
50   
51    IMPLICIT NONE
52      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
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) :: group_ref
58      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:)
61      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
63      INTEGER  , OPTIONAL, INTENT(IN) :: ni
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
65      INTEGER  , OPTIONAL, INTENT(IN) :: size
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
68      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
69      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
70      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
71      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
72     
73      CALL xios(set_axisgroup_attr_hdl_)  &
74      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
75      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
76   
77  END SUBROUTINE xios(set_axisgroup_attr_hdl)
78 
79  SUBROUTINE xios(set_axisgroup_attr_hdl_)   &
80    ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_  &
81    , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_  &
82    , zoom_size_ )
83   
84    IMPLICIT NONE
85      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_begin_
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_index_(:)
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
91      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
93      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:)
94      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
96      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
98      INTEGER  , OPTIONAL, INTENT(IN) :: size_
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
102      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_
103      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_
104      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_
105     
106      IF (PRESENT(axis_ref_)) THEN
107        CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
108      ENDIF
109     
110      IF (PRESENT(data_begin_)) THEN
111        CALL cxios_set_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_)
112      ENDIF
113     
114      IF (PRESENT(data_index_)) THEN
115        CALL cxios_set_axisgroup_data_index(axisgroup_hdl%daddr, data_index_,size(data_index_,1))
116      ENDIF
117     
118      IF (PRESENT(data_n_)) THEN
119        CALL cxios_set_axisgroup_data_n(axisgroup_hdl%daddr, data_n_)
120      ENDIF
121     
122      IF (PRESENT(group_ref_)) THEN
123        CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
124      ENDIF
125     
126      IF (PRESENT(ibegin_)) THEN
127        CALL cxios_set_axisgroup_ibegin(axisgroup_hdl%daddr, ibegin_)
128      ENDIF
129     
130      IF (PRESENT(long_name_)) THEN
131        CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
132      ENDIF
133     
134      IF (PRESENT(mask_)) THEN
135        ALLOCATE(mask__tmp(size(mask_,1)))
136        mask__tmp=mask_
137        CALL cxios_set_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp,size(mask_,1))
138      ENDIF
139     
140      IF (PRESENT(name_)) THEN
141        CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
142      ENDIF
143     
144      IF (PRESENT(ni_)) THEN
145        CALL cxios_set_axisgroup_ni(axisgroup_hdl%daddr, ni_)
146      ENDIF
147     
148      IF (PRESENT(positive_)) THEN
149        CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
150      ENDIF
151     
152      IF (PRESENT(size_)) THEN
153        CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_)
154      ENDIF
155     
156      IF (PRESENT(standard_name_)) THEN
157        CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
158      ENDIF
159     
160      IF (PRESENT(unit_)) THEN
161        CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
162      ENDIF
163     
164      IF (PRESENT(value_)) THEN
165        CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
166      ENDIF
167     
168      IF (PRESENT(zoom_begin_)) THEN
169        CALL cxios_set_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
170      ENDIF
171     
172      IF (PRESENT(zoom_end_)) THEN
173        CALL cxios_set_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
174      ENDIF
175     
176      IF (PRESENT(zoom_size_)) THEN
177        CALL cxios_set_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
178      ENDIF
179     
180     
181   
182  END SUBROUTINE xios(set_axisgroup_attr_hdl_)
183 
184  SUBROUTINE xios(get_axisgroup_attr)  &
185    ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
186    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
187   
188    IMPLICIT NONE
189      TYPE(txios(axisgroup))  :: axisgroup_hdl
190      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
192      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
193      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
194      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
196      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
198      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
199      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
201      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
203      INTEGER  , OPTIONAL, INTENT(OUT) :: size
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
206      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
207      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
208      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
209      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
210     
211      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
212      CALL xios(get_axisgroup_attr_hdl_)   &
213      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
214      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
215   
216  END SUBROUTINE xios(get_axisgroup_attr)
217 
218  SUBROUTINE xios(get_axisgroup_attr_hdl)  &
219    ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
220    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
221   
222    IMPLICIT NONE
223      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
224      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
225      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin
226      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index(:)
227      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
229      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
231      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:)
232      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
234      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
236      INTEGER  , OPTIONAL, INTENT(OUT) :: size
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
239      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
240      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
241      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
242      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
243     
244      CALL xios(get_axisgroup_attr_hdl_)  &
245      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
246      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
247   
248  END SUBROUTINE xios(get_axisgroup_attr_hdl)
249 
250  SUBROUTINE xios(get_axisgroup_attr_hdl_)   &
251    ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_  &
252    , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_  &
253    , zoom_size_ )
254   
255    IMPLICIT NONE
256      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
257      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
258      INTEGER  , OPTIONAL, INTENT(OUT) :: data_begin_
259      INTEGER  , OPTIONAL, INTENT(OUT) :: data_index_(:)
260      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_
261      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
262      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
263      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
264      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:)
265      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
266      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
267      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
269      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
270      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
271      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
272      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
273      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_
274      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_
275      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_
276     
277      IF (PRESENT(axis_ref_)) THEN
278        CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
279      ENDIF
280     
281      IF (PRESENT(data_begin_)) THEN
282        CALL cxios_get_axisgroup_data_begin(axisgroup_hdl%daddr, data_begin_)
283      ENDIF
284     
285      IF (PRESENT(data_index_)) THEN
286        CALL cxios_get_axisgroup_data_index(axisgroup_hdl%daddr, data_index_,size(data_index_,1))
287      ENDIF
288     
289      IF (PRESENT(data_n_)) THEN
290        CALL cxios_get_axisgroup_data_n(axisgroup_hdl%daddr, data_n_)
291      ENDIF
292     
293      IF (PRESENT(group_ref_)) THEN
294        CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
295      ENDIF
296     
297      IF (PRESENT(ibegin_)) THEN
298        CALL cxios_get_axisgroup_ibegin(axisgroup_hdl%daddr, ibegin_)
299      ENDIF
300     
301      IF (PRESENT(long_name_)) THEN
302        CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
303      ENDIF
304     
305      IF (PRESENT(mask_)) THEN
306        ALLOCATE(mask__tmp(size(mask_,1)))
307        CALL cxios_get_axisgroup_mask(axisgroup_hdl%daddr, mask__tmp,size(mask_,1))
308        mask_=mask__tmp
309      ENDIF
310     
311      IF (PRESENT(name_)) THEN
312        CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
313      ENDIF
314     
315      IF (PRESENT(ni_)) THEN
316        CALL cxios_get_axisgroup_ni(axisgroup_hdl%daddr, ni_)
317      ENDIF
318     
319      IF (PRESENT(positive_)) THEN
320        CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
321      ENDIF
322     
323      IF (PRESENT(size_)) THEN
324        CALL cxios_get_axisgroup_size(axisgroup_hdl%daddr, size_)
325      ENDIF
326     
327      IF (PRESENT(standard_name_)) THEN
328        CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
329      ENDIF
330     
331      IF (PRESENT(unit_)) THEN
332        CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
333      ENDIF
334     
335      IF (PRESENT(value_)) THEN
336        CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
337      ENDIF
338     
339      IF (PRESENT(zoom_begin_)) THEN
340        CALL cxios_get_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
341      ENDIF
342     
343      IF (PRESENT(zoom_end_)) THEN
344        CALL cxios_get_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
345      ENDIF
346     
347      IF (PRESENT(zoom_size_)) THEN
348        CALL cxios_get_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
349      ENDIF
350     
351     
352   
353  END SUBROUTINE xios(get_axisgroup_attr_hdl_)
354 
355  SUBROUTINE xios(is_defined_axisgroup_attr)  &
356    ( axisgroup_id, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
357    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
358   
359    IMPLICIT NONE
360      TYPE(txios(axisgroup))  :: axisgroup_hdl
361      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
362      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
363      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
365      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
367      LOGICAL(KIND=C_BOOL) :: data_index_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
369      LOGICAL(KIND=C_BOOL) :: data_n_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
371      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
373      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
375      LOGICAL(KIND=C_BOOL) :: long_name_tmp
376      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
377      LOGICAL(KIND=C_BOOL) :: mask_tmp
378      LOGICAL, OPTIONAL, INTENT(OUT) :: name
379      LOGICAL(KIND=C_BOOL) :: name_tmp
380      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
381      LOGICAL(KIND=C_BOOL) :: ni_tmp
382      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
383      LOGICAL(KIND=C_BOOL) :: positive_tmp
384      LOGICAL, OPTIONAL, INTENT(OUT) :: size
385      LOGICAL(KIND=C_BOOL) :: size_tmp
386      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
387      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
388      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
389      LOGICAL(KIND=C_BOOL) :: unit_tmp
390      LOGICAL, OPTIONAL, INTENT(OUT) :: value
391      LOGICAL(KIND=C_BOOL) :: value_tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
393      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
394      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
395      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
396      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
397      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
398     
399      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
400      CALL xios(is_defined_axisgroup_attr_hdl_)   &
401      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
402      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
403   
404  END SUBROUTINE xios(is_defined_axisgroup_attr)
405 
406  SUBROUTINE xios(is_defined_axisgroup_attr_hdl)  &
407    ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
408    , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
409   
410    IMPLICIT NONE
411      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
412      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
413      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
415      LOGICAL(KIND=C_BOOL) :: data_begin_tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
417      LOGICAL(KIND=C_BOOL) :: data_index_tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
419      LOGICAL(KIND=C_BOOL) :: data_n_tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
421      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
423      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
425      LOGICAL(KIND=C_BOOL) :: long_name_tmp
426      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
427      LOGICAL(KIND=C_BOOL) :: mask_tmp
428      LOGICAL, OPTIONAL, INTENT(OUT) :: name
429      LOGICAL(KIND=C_BOOL) :: name_tmp
430      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
431      LOGICAL(KIND=C_BOOL) :: ni_tmp
432      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
433      LOGICAL(KIND=C_BOOL) :: positive_tmp
434      LOGICAL, OPTIONAL, INTENT(OUT) :: size
435      LOGICAL(KIND=C_BOOL) :: size_tmp
436      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
437      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
438      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
439      LOGICAL(KIND=C_BOOL) :: unit_tmp
440      LOGICAL, OPTIONAL, INTENT(OUT) :: value
441      LOGICAL(KIND=C_BOOL) :: value_tmp
442      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
443      LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
444      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
445      LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
446      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
447      LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
448     
449      CALL xios(is_defined_axisgroup_attr_hdl_)  &
450      ( axisgroup_hdl, axis_ref, data_begin, data_index, data_n, group_ref, ibegin, long_name, mask  &
451      , name, ni, positive, size, standard_name, unit, value, zoom_begin, zoom_end, zoom_size )
452   
453  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
454 
455  SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)   &
456    ( axisgroup_hdl, axis_ref_, data_begin_, data_index_, data_n_, group_ref_, ibegin_, long_name_  &
457    , mask_, name_, ni_, positive_, size_, standard_name_, unit_, value_, zoom_begin_, zoom_end_  &
458    , zoom_size_ )
459   
460    IMPLICIT NONE
461      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
462      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
463      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
464      LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
465      LOGICAL(KIND=C_BOOL) :: data_begin__tmp
466      LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
467      LOGICAL(KIND=C_BOOL) :: data_index__tmp
468      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
469      LOGICAL(KIND=C_BOOL) :: data_n__tmp
470      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
471      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
472      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
473      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
474      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
475      LOGICAL(KIND=C_BOOL) :: long_name__tmp
476      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
477      LOGICAL(KIND=C_BOOL) :: mask__tmp
478      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
479      LOGICAL(KIND=C_BOOL) :: name__tmp
480      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
481      LOGICAL(KIND=C_BOOL) :: ni__tmp
482      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
483      LOGICAL(KIND=C_BOOL) :: positive__tmp
484      LOGICAL, OPTIONAL, INTENT(OUT) :: size_
485      LOGICAL(KIND=C_BOOL) :: size__tmp
486      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
487      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
488      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
489      LOGICAL(KIND=C_BOOL) :: unit__tmp
490      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
491      LOGICAL(KIND=C_BOOL) :: value__tmp
492      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_
493      LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp
494      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_
495      LOGICAL(KIND=C_BOOL) :: zoom_end__tmp
496      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_
497      LOGICAL(KIND=C_BOOL) :: zoom_size__tmp
498     
499      IF (PRESENT(axis_ref_)) THEN
500        axis_ref__tmp=cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr)
501        axis_ref_=axis_ref__tmp
502      ENDIF
503     
504      IF (PRESENT(data_begin_)) THEN
505        data_begin__tmp=cxios_is_defined_axisgroup_data_begin(axisgroup_hdl%daddr)
506        data_begin_=data_begin__tmp
507      ENDIF
508     
509      IF (PRESENT(data_index_)) THEN
510        data_index__tmp=cxios_is_defined_axisgroup_data_index(axisgroup_hdl%daddr)
511        data_index_=data_index__tmp
512      ENDIF
513     
514      IF (PRESENT(data_n_)) THEN
515        data_n__tmp=cxios_is_defined_axisgroup_data_n(axisgroup_hdl%daddr)
516        data_n_=data_n__tmp
517      ENDIF
518     
519      IF (PRESENT(group_ref_)) THEN
520        group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr)
521        group_ref_=group_ref__tmp
522      ENDIF
523     
524      IF (PRESENT(ibegin_)) THEN
525        ibegin__tmp=cxios_is_defined_axisgroup_ibegin(axisgroup_hdl%daddr)
526        ibegin_=ibegin__tmp
527      ENDIF
528     
529      IF (PRESENT(long_name_)) THEN
530        long_name__tmp=cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr)
531        long_name_=long_name__tmp
532      ENDIF
533     
534      IF (PRESENT(mask_)) THEN
535        mask__tmp=cxios_is_defined_axisgroup_mask(axisgroup_hdl%daddr)
536        mask_=mask__tmp
537      ENDIF
538     
539      IF (PRESENT(name_)) THEN
540        name__tmp=cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr)
541        name_=name__tmp
542      ENDIF
543     
544      IF (PRESENT(ni_)) THEN
545        ni__tmp=cxios_is_defined_axisgroup_ni(axisgroup_hdl%daddr)
546        ni_=ni__tmp
547      ENDIF
548     
549      IF (PRESENT(positive_)) THEN
550        positive__tmp=cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr)
551        positive_=positive__tmp
552      ENDIF
553     
554      IF (PRESENT(size_)) THEN
555        size__tmp=cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr)
556        size_=size__tmp
557      ENDIF
558     
559      IF (PRESENT(standard_name_)) THEN
560        standard_name__tmp=cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr)
561        standard_name_=standard_name__tmp
562      ENDIF
563     
564      IF (PRESENT(unit_)) THEN
565        unit__tmp=cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr)
566        unit_=unit__tmp
567      ENDIF
568     
569      IF (PRESENT(value_)) THEN
570        value__tmp=cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr)
571        value_=value__tmp
572      ENDIF
573     
574      IF (PRESENT(zoom_begin_)) THEN
575        zoom_begin__tmp=cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr)
576        zoom_begin_=zoom_begin__tmp
577      ENDIF
578     
579      IF (PRESENT(zoom_end_)) THEN
580        zoom_end__tmp=cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr)
581        zoom_end_=zoom_end__tmp
582      ENDIF
583     
584      IF (PRESENT(zoom_size_)) THEN
585        zoom_size__tmp=cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr)
586        zoom_size_=zoom_size__tmp
587      ENDIF
588     
589     
590   
591  END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
592 
593END MODULE iaxisgroup_attr
Note: See TracBrowser for help on using the repository browser.