source: XIOS2/trunk/src/interface/fortran_attr/iscalargroup_attr.F90 @ 2634

Last change on this file since 2634 was 2623, checked in by jderouillat, 5 months ago

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