source: XIOS/dev/dev_olga/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 1158

Last change on this file since 1158 was 1158, checked in by oabramkina, 5 years ago

Two server levels: merging with trunk r1137.
There are bugs.

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