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

Last change on this file since 966 was 966, checked in by mhnguyen, 8 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

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