source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iscalargroup_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.
File size: 20.1 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iscalargroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iscalar
9  USE scalargroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_scalargroup_attr)  &
14    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
15    , positive, prec, scalar_ref, standard_name, unit, value )
16
17    IMPLICIT NONE
18      TYPE(txios(scalargroup))  :: scalargroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:)
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
29      INTEGER  , OPTIONAL, INTENT(IN) :: prec
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
33      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
34
35      CALL xios(get_scalargroup_handle) &
36      (scalargroup_id,scalargroup_hdl)
37      CALL xios(set_scalargroup_attr_hdl_)   &
38      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
39      , positive, prec, scalar_ref, standard_name, unit, value )
40
41  END SUBROUTINE xios(set_scalargroup_attr)
42
43  SUBROUTINE xios(set_scalargroup_attr_hdl)  &
44    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
45    , positive, prec, scalar_ref, standard_name, unit, value )
46
47    IMPLICIT NONE
48      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
50      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:)
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
58      INTEGER  , OPTIONAL, INTENT(IN) :: prec
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
62      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
63
64      CALL xios(set_scalargroup_attr_hdl_)  &
65      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
66      , positive, prec, scalar_ref, standard_name, unit, value )
67
68  END SUBROUTINE xios(set_scalargroup_attr_hdl)
69
70  SUBROUTINE xios(set_scalargroup_attr_hdl_)   &
71    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  &
72    , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
73
74    IMPLICIT NONE
75      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
77      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:)
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
85      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
89      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_
90
91      IF (PRESENT(axis_type_)) THEN
92        CALL cxios_set_scalargroup_axis_type &
93      (scalargroup_hdl%daddr, axis_type_, len(axis_type_))
94      ENDIF
95
96      IF (PRESENT(bounds_)) THEN
97        CALL cxios_set_scalargroup_bounds &
98      (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_))
99      ENDIF
100
101      IF (PRESENT(bounds_name_)) THEN
102        CALL cxios_set_scalargroup_bounds_name &
103      (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_))
104      ENDIF
105
106      IF (PRESENT(comment_)) THEN
107        CALL cxios_set_scalargroup_comment &
108      (scalargroup_hdl%daddr, comment_, len(comment_))
109      ENDIF
110
111      IF (PRESENT(group_ref_)) THEN
112        CALL cxios_set_scalargroup_group_ref &
113      (scalargroup_hdl%daddr, group_ref_, len(group_ref_))
114      ENDIF
115
116      IF (PRESENT(label_)) THEN
117        CALL cxios_set_scalargroup_label &
118      (scalargroup_hdl%daddr, label_, len(label_))
119      ENDIF
120
121      IF (PRESENT(long_name_)) THEN
122        CALL cxios_set_scalargroup_long_name &
123      (scalargroup_hdl%daddr, long_name_, len(long_name_))
124      ENDIF
125
126      IF (PRESENT(name_)) THEN
127        CALL cxios_set_scalargroup_name &
128      (scalargroup_hdl%daddr, name_, len(name_))
129      ENDIF
130
131      IF (PRESENT(positive_)) THEN
132        CALL cxios_set_scalargroup_positive &
133      (scalargroup_hdl%daddr, positive_, len(positive_))
134      ENDIF
135
136      IF (PRESENT(prec_)) THEN
137        CALL cxios_set_scalargroup_prec &
138      (scalargroup_hdl%daddr, prec_)
139      ENDIF
140
141      IF (PRESENT(scalar_ref_)) THEN
142        CALL cxios_set_scalargroup_scalar_ref &
143      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
144      ENDIF
145
146      IF (PRESENT(standard_name_)) THEN
147        CALL cxios_set_scalargroup_standard_name &
148      (scalargroup_hdl%daddr, standard_name_, len(standard_name_))
149      ENDIF
150
151      IF (PRESENT(unit_)) THEN
152        CALL cxios_set_scalargroup_unit &
153      (scalargroup_hdl%daddr, unit_, len(unit_))
154      ENDIF
155
156      IF (PRESENT(value_)) THEN
157        CALL cxios_set_scalargroup_value &
158      (scalargroup_hdl%daddr, value_)
159      ENDIF
160
161  END SUBROUTINE xios(set_scalargroup_attr_hdl_)
162
163  SUBROUTINE xios(get_scalargroup_attr)  &
164    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
165    , positive, prec, scalar_ref, standard_name, unit, value )
166
167    IMPLICIT NONE
168      TYPE(txios(scalargroup))  :: scalargroup_hdl
169      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
171      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
172      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
173      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
174      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
175      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
179      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
183      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
184
185      CALL xios(get_scalargroup_handle) &
186      (scalargroup_id,scalargroup_hdl)
187      CALL xios(get_scalargroup_attr_hdl_)   &
188      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
189      , positive, prec, scalar_ref, standard_name, unit, value )
190
191  END SUBROUTINE xios(get_scalargroup_attr)
192
193  SUBROUTINE xios(get_scalargroup_attr_hdl)  &
194    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
195    , positive, prec, scalar_ref, standard_name, unit, value )
196
197    IMPLICIT NONE
198      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
199      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
200      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
208      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
211      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
212      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
213
214      CALL xios(get_scalargroup_attr_hdl_)  &
215      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
216      , positive, prec, scalar_ref, standard_name, unit, value )
217
218  END SUBROUTINE xios(get_scalargroup_attr_hdl)
219
220  SUBROUTINE xios(get_scalargroup_attr_hdl_)   &
221    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  &
222    , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
223
224    IMPLICIT NONE
225      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
227      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:)
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
231      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
235      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
239      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_
240
241      IF (PRESENT(axis_type_)) THEN
242        CALL cxios_get_scalargroup_axis_type &
243      (scalargroup_hdl%daddr, axis_type_, len(axis_type_))
244      ENDIF
245
246      IF (PRESENT(bounds_)) THEN
247        CALL cxios_get_scalargroup_bounds &
248      (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_))
249      ENDIF
250
251      IF (PRESENT(bounds_name_)) THEN
252        CALL cxios_get_scalargroup_bounds_name &
253      (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_))
254      ENDIF
255
256      IF (PRESENT(comment_)) THEN
257        CALL cxios_get_scalargroup_comment &
258      (scalargroup_hdl%daddr, comment_, len(comment_))
259      ENDIF
260
261      IF (PRESENT(group_ref_)) THEN
262        CALL cxios_get_scalargroup_group_ref &
263      (scalargroup_hdl%daddr, group_ref_, len(group_ref_))
264      ENDIF
265
266      IF (PRESENT(label_)) THEN
267        CALL cxios_get_scalargroup_label &
268      (scalargroup_hdl%daddr, label_, len(label_))
269      ENDIF
270
271      IF (PRESENT(long_name_)) THEN
272        CALL cxios_get_scalargroup_long_name &
273      (scalargroup_hdl%daddr, long_name_, len(long_name_))
274      ENDIF
275
276      IF (PRESENT(name_)) THEN
277        CALL cxios_get_scalargroup_name &
278      (scalargroup_hdl%daddr, name_, len(name_))
279      ENDIF
280
281      IF (PRESENT(positive_)) THEN
282        CALL cxios_get_scalargroup_positive &
283      (scalargroup_hdl%daddr, positive_, len(positive_))
284      ENDIF
285
286      IF (PRESENT(prec_)) THEN
287        CALL cxios_get_scalargroup_prec &
288      (scalargroup_hdl%daddr, prec_)
289      ENDIF
290
291      IF (PRESENT(scalar_ref_)) THEN
292        CALL cxios_get_scalargroup_scalar_ref &
293      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
294      ENDIF
295
296      IF (PRESENT(standard_name_)) THEN
297        CALL cxios_get_scalargroup_standard_name &
298      (scalargroup_hdl%daddr, standard_name_, len(standard_name_))
299      ENDIF
300
301      IF (PRESENT(unit_)) THEN
302        CALL cxios_get_scalargroup_unit &
303      (scalargroup_hdl%daddr, unit_, len(unit_))
304      ENDIF
305
306      IF (PRESENT(value_)) THEN
307        CALL cxios_get_scalargroup_value &
308      (scalargroup_hdl%daddr, value_)
309      ENDIF
310
311  END SUBROUTINE xios(get_scalargroup_attr_hdl_)
312
313  SUBROUTINE xios(is_defined_scalargroup_attr)  &
314    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
315    , positive, prec, scalar_ref, standard_name, unit, value )
316
317    IMPLICIT NONE
318      TYPE(txios(scalargroup))  :: scalargroup_hdl
319      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
320      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
321      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
323      LOGICAL(KIND=C_BOOL) :: bounds_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
325      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
327      LOGICAL(KIND=C_BOOL) :: comment_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
329      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: label
331      LOGICAL(KIND=C_BOOL) :: label_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
333      LOGICAL(KIND=C_BOOL) :: long_name_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: name
335      LOGICAL(KIND=C_BOOL) :: name_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
337      LOGICAL(KIND=C_BOOL) :: positive_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
339      LOGICAL(KIND=C_BOOL) :: prec_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
341      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
343      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
345      LOGICAL(KIND=C_BOOL) :: unit_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: value
347      LOGICAL(KIND=C_BOOL) :: value_tmp
348
349      CALL xios(get_scalargroup_handle) &
350      (scalargroup_id,scalargroup_hdl)
351      CALL xios(is_defined_scalargroup_attr_hdl_)   &
352      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
353      , positive, prec, scalar_ref, standard_name, unit, value )
354
355  END SUBROUTINE xios(is_defined_scalargroup_attr)
356
357  SUBROUTINE xios(is_defined_scalargroup_attr_hdl)  &
358    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
359    , positive, prec, scalar_ref, standard_name, unit, value )
360
361    IMPLICIT NONE
362      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
363      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
364      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
365      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
366      LOGICAL(KIND=C_BOOL) :: bounds_tmp
367      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
368      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
369      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
370      LOGICAL(KIND=C_BOOL) :: comment_tmp
371      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
372      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
373      LOGICAL, OPTIONAL, INTENT(OUT) :: label
374      LOGICAL(KIND=C_BOOL) :: label_tmp
375      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
376      LOGICAL(KIND=C_BOOL) :: long_name_tmp
377      LOGICAL, OPTIONAL, INTENT(OUT) :: name
378      LOGICAL(KIND=C_BOOL) :: name_tmp
379      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
380      LOGICAL(KIND=C_BOOL) :: positive_tmp
381      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
382      LOGICAL(KIND=C_BOOL) :: prec_tmp
383      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
384      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
385      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
386      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
387      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
388      LOGICAL(KIND=C_BOOL) :: unit_tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: value
390      LOGICAL(KIND=C_BOOL) :: value_tmp
391
392      CALL xios(is_defined_scalargroup_attr_hdl_)  &
393      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name  &
394      , positive, prec, scalar_ref, standard_name, unit, value )
395
396  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl)
397
398  SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)   &
399    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  &
400    , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
401
402    IMPLICIT NONE
403      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
404      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
405      LOGICAL(KIND=C_BOOL) :: axis_type__tmp
406      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
407      LOGICAL(KIND=C_BOOL) :: bounds__tmp
408      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_
409      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp
410      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
411      LOGICAL(KIND=C_BOOL) :: comment__tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
413      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: label_
415      LOGICAL(KIND=C_BOOL) :: label__tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
417      LOGICAL(KIND=C_BOOL) :: long_name__tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
419      LOGICAL(KIND=C_BOOL) :: name__tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
421      LOGICAL(KIND=C_BOOL) :: positive__tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
423      LOGICAL(KIND=C_BOOL) :: prec__tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
425      LOGICAL(KIND=C_BOOL) :: scalar_ref__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      IF (PRESENT(axis_type_)) THEN
434        axis_type__tmp = cxios_is_defined_scalargroup_axis_type &
435      (scalargroup_hdl%daddr)
436        axis_type_ = axis_type__tmp
437      ENDIF
438
439      IF (PRESENT(bounds_)) THEN
440        bounds__tmp = cxios_is_defined_scalargroup_bounds &
441      (scalargroup_hdl%daddr)
442        bounds_ = bounds__tmp
443      ENDIF
444
445      IF (PRESENT(bounds_name_)) THEN
446        bounds_name__tmp = cxios_is_defined_scalargroup_bounds_name &
447      (scalargroup_hdl%daddr)
448        bounds_name_ = bounds_name__tmp
449      ENDIF
450
451      IF (PRESENT(comment_)) THEN
452        comment__tmp = cxios_is_defined_scalargroup_comment &
453      (scalargroup_hdl%daddr)
454        comment_ = comment__tmp
455      ENDIF
456
457      IF (PRESENT(group_ref_)) THEN
458        group_ref__tmp = cxios_is_defined_scalargroup_group_ref &
459      (scalargroup_hdl%daddr)
460        group_ref_ = group_ref__tmp
461      ENDIF
462
463      IF (PRESENT(label_)) THEN
464        label__tmp = cxios_is_defined_scalargroup_label &
465      (scalargroup_hdl%daddr)
466        label_ = label__tmp
467      ENDIF
468
469      IF (PRESENT(long_name_)) THEN
470        long_name__tmp = cxios_is_defined_scalargroup_long_name &
471      (scalargroup_hdl%daddr)
472        long_name_ = long_name__tmp
473      ENDIF
474
475      IF (PRESENT(name_)) THEN
476        name__tmp = cxios_is_defined_scalargroup_name &
477      (scalargroup_hdl%daddr)
478        name_ = name__tmp
479      ENDIF
480
481      IF (PRESENT(positive_)) THEN
482        positive__tmp = cxios_is_defined_scalargroup_positive &
483      (scalargroup_hdl%daddr)
484        positive_ = positive__tmp
485      ENDIF
486
487      IF (PRESENT(prec_)) THEN
488        prec__tmp = cxios_is_defined_scalargroup_prec &
489      (scalargroup_hdl%daddr)
490        prec_ = prec__tmp
491      ENDIF
492
493      IF (PRESENT(scalar_ref_)) THEN
494        scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref &
495      (scalargroup_hdl%daddr)
496        scalar_ref_ = scalar_ref__tmp
497      ENDIF
498
499      IF (PRESENT(standard_name_)) THEN
500        standard_name__tmp = cxios_is_defined_scalargroup_standard_name &
501      (scalargroup_hdl%daddr)
502        standard_name_ = standard_name__tmp
503      ENDIF
504
505      IF (PRESENT(unit_)) THEN
506        unit__tmp = cxios_is_defined_scalargroup_unit &
507      (scalargroup_hdl%daddr)
508        unit_ = unit__tmp
509      ENDIF
510
511      IF (PRESENT(value_)) THEN
512        value__tmp = cxios_is_defined_scalargroup_value &
513      (scalargroup_hdl%daddr)
514        value_ = value__tmp
515      ENDIF
516
517  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)
518
519END MODULE iscalargroup_attr
Note: See TracBrowser for help on using the repository browser.