source: XIOS3/trunk/src/interface/fortran_attr/iscalargroup_attr.F90

Last change on this file was 2620, checked in by jderouillat, 4 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: 22.4 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, mask  &
16    , n, name, 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      LOGICAL  , OPTIONAL, INTENT(IN) :: mask
29      LOGICAL (KIND=C_BOOL) :: mask_tmp
30      INTEGER  , OPTIONAL, INTENT(IN) :: n
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
33      INTEGER  , OPTIONAL, INTENT(IN) :: prec
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
37      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
38
39      CALL xios(get_scalargroup_handle) &
40      (scalargroup_id,scalargroup_hdl)
41      CALL xios(set_scalargroup_attr_hdl_)   &
42      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
43      , n, name, positive, prec, scalar_ref, standard_name, unit, value )
44
45  END SUBROUTINE xios(set_scalargroup_attr)
46
47  SUBROUTINE xios(set_scalargroup_attr_hdl)  &
48    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
49    , n, name, positive, prec, scalar_ref, standard_name, unit, value )
50
51    IMPLICIT NONE
52      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
54      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:)
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask
61      LOGICAL (KIND=C_BOOL) :: mask_tmp
62      INTEGER  , OPTIONAL, INTENT(IN) :: n
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
65      INTEGER  , OPTIONAL, INTENT(IN) :: prec
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
69      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
70
71      CALL xios(set_scalargroup_attr_hdl_)  &
72      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
73      , n, name, positive, prec, scalar_ref, standard_name, unit, value )
74
75  END SUBROUTINE xios(set_scalargroup_attr_hdl)
76
77  SUBROUTINE xios(set_scalargroup_attr_hdl_)   &
78    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  &
79    , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
80
81    IMPLICIT NONE
82      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
84      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:)
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
90      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_
91      LOGICAL (KIND=C_BOOL) :: mask__tmp
92      INTEGER  , OPTIONAL, INTENT(IN) :: n_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
95      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
99      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_
100
101      IF (PRESENT(axis_type_)) THEN
102        CALL cxios_set_scalargroup_axis_type &
103      (scalargroup_hdl%daddr, axis_type_, len(axis_type_))
104      ENDIF
105
106      IF (PRESENT(bounds_)) THEN
107        CALL cxios_set_scalargroup_bounds &
108      (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_))
109      ENDIF
110
111      IF (PRESENT(bounds_name_)) THEN
112        CALL cxios_set_scalargroup_bounds_name &
113      (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_))
114      ENDIF
115
116      IF (PRESENT(comment_)) THEN
117        CALL cxios_set_scalargroup_comment &
118      (scalargroup_hdl%daddr, comment_, len(comment_))
119      ENDIF
120
121      IF (PRESENT(group_ref_)) THEN
122        CALL cxios_set_scalargroup_group_ref &
123      (scalargroup_hdl%daddr, group_ref_, len(group_ref_))
124      ENDIF
125
126      IF (PRESENT(label_)) THEN
127        CALL cxios_set_scalargroup_label &
128      (scalargroup_hdl%daddr, label_, len(label_))
129      ENDIF
130
131      IF (PRESENT(long_name_)) THEN
132        CALL cxios_set_scalargroup_long_name &
133      (scalargroup_hdl%daddr, long_name_, len(long_name_))
134      ENDIF
135
136      IF (PRESENT(mask_)) THEN
137        mask__tmp = mask_
138        CALL xios_logical_to_bool_0d(mask__tmp)
139        CALL cxios_set_scalargroup_mask &
140      (scalargroup_hdl%daddr, mask__tmp)
141      ENDIF
142
143      IF (PRESENT(n_)) THEN
144        CALL cxios_set_scalargroup_n &
145      (scalargroup_hdl%daddr, n_)
146      ENDIF
147
148      IF (PRESENT(name_)) THEN
149        CALL cxios_set_scalargroup_name &
150      (scalargroup_hdl%daddr, name_, len(name_))
151      ENDIF
152
153      IF (PRESENT(positive_)) THEN
154        CALL cxios_set_scalargroup_positive &
155      (scalargroup_hdl%daddr, positive_, len(positive_))
156      ENDIF
157
158      IF (PRESENT(prec_)) THEN
159        CALL cxios_set_scalargroup_prec &
160      (scalargroup_hdl%daddr, prec_)
161      ENDIF
162
163      IF (PRESENT(scalar_ref_)) THEN
164        CALL cxios_set_scalargroup_scalar_ref &
165      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
166      ENDIF
167
168      IF (PRESENT(standard_name_)) THEN
169        CALL cxios_set_scalargroup_standard_name &
170      (scalargroup_hdl%daddr, standard_name_, len(standard_name_))
171      ENDIF
172
173      IF (PRESENT(unit_)) THEN
174        CALL cxios_set_scalargroup_unit &
175      (scalargroup_hdl%daddr, unit_, len(unit_))
176      ENDIF
177
178      IF (PRESENT(value_)) THEN
179        CALL cxios_set_scalargroup_value &
180      (scalargroup_hdl%daddr, value_)
181      ENDIF
182
183  END SUBROUTINE xios(set_scalargroup_attr_hdl_)
184
185  SUBROUTINE xios(get_scalargroup_attr)  &
186    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
187    , n, name, positive, prec, scalar_ref, standard_name, unit, value )
188
189    IMPLICIT NONE
190      TYPE(txios(scalargroup))  :: scalargroup_hdl
191      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
193      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
198      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
199      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask
200      LOGICAL (KIND=C_BOOL) :: mask_tmp
201      INTEGER  , OPTIONAL, INTENT(OUT) :: n
202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
204      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
208      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
209
210      CALL xios(get_scalargroup_handle) &
211      (scalargroup_id,scalargroup_hdl)
212      CALL xios(get_scalargroup_attr_hdl_)   &
213      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
214      , n, name, positive, prec, scalar_ref, standard_name, unit, value )
215
216  END SUBROUTINE xios(get_scalargroup_attr)
217
218  SUBROUTINE xios(get_scalargroup_attr_hdl)  &
219    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
220    , n, name, positive, prec, scalar_ref, standard_name, unit, value )
221
222    IMPLICIT NONE
223      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
224      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
225      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
231      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask
232      LOGICAL (KIND=C_BOOL) :: mask_tmp
233      INTEGER  , OPTIONAL, INTENT(OUT) :: n
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      CALL xios(get_scalargroup_attr_hdl_)  &
243      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
244      , n, name, positive, prec, scalar_ref, standard_name, unit, value )
245
246  END SUBROUTINE xios(get_scalargroup_attr_hdl)
247
248  SUBROUTINE xios(get_scalargroup_attr_hdl_)   &
249    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  &
250    , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
251
252    IMPLICIT NONE
253      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
255      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:)
256      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
257      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
258      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_
260      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
261      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_
262      LOGICAL (KIND=C_BOOL) :: mask__tmp
263      INTEGER  , OPTIONAL, INTENT(OUT) :: n_
264      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
265      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
266      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
267      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
269      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
270      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_
271
272      IF (PRESENT(axis_type_)) THEN
273        CALL cxios_get_scalargroup_axis_type &
274      (scalargroup_hdl%daddr, axis_type_, len(axis_type_))
275      ENDIF
276
277      IF (PRESENT(bounds_)) THEN
278        CALL cxios_get_scalargroup_bounds &
279      (scalargroup_hdl%daddr, bounds_, SHAPE(bounds_))
280      ENDIF
281
282      IF (PRESENT(bounds_name_)) THEN
283        CALL cxios_get_scalargroup_bounds_name &
284      (scalargroup_hdl%daddr, bounds_name_, len(bounds_name_))
285      ENDIF
286
287      IF (PRESENT(comment_)) THEN
288        CALL cxios_get_scalargroup_comment &
289      (scalargroup_hdl%daddr, comment_, len(comment_))
290      ENDIF
291
292      IF (PRESENT(group_ref_)) THEN
293        CALL cxios_get_scalargroup_group_ref &
294      (scalargroup_hdl%daddr, group_ref_, len(group_ref_))
295      ENDIF
296
297      IF (PRESENT(label_)) THEN
298        CALL cxios_get_scalargroup_label &
299      (scalargroup_hdl%daddr, label_, len(label_))
300      ENDIF
301
302      IF (PRESENT(long_name_)) THEN
303        CALL cxios_get_scalargroup_long_name &
304      (scalargroup_hdl%daddr, long_name_, len(long_name_))
305      ENDIF
306
307      IF (PRESENT(mask_)) THEN
308        CALL cxios_get_scalargroup_mask &
309      (scalargroup_hdl%daddr, mask__tmp)
310        CALL xios_bool_to_logical_0d(mask__tmp)
311        mask_ = mask__tmp
312      ENDIF
313
314      IF (PRESENT(n_)) THEN
315        CALL cxios_get_scalargroup_n &
316      (scalargroup_hdl%daddr, n_)
317      ENDIF
318
319      IF (PRESENT(name_)) THEN
320        CALL cxios_get_scalargroup_name &
321      (scalargroup_hdl%daddr, name_, len(name_))
322      ENDIF
323
324      IF (PRESENT(positive_)) THEN
325        CALL cxios_get_scalargroup_positive &
326      (scalargroup_hdl%daddr, positive_, len(positive_))
327      ENDIF
328
329      IF (PRESENT(prec_)) THEN
330        CALL cxios_get_scalargroup_prec &
331      (scalargroup_hdl%daddr, prec_)
332      ENDIF
333
334      IF (PRESENT(scalar_ref_)) THEN
335        CALL cxios_get_scalargroup_scalar_ref &
336      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
337      ENDIF
338
339      IF (PRESENT(standard_name_)) THEN
340        CALL cxios_get_scalargroup_standard_name &
341      (scalargroup_hdl%daddr, standard_name_, len(standard_name_))
342      ENDIF
343
344      IF (PRESENT(unit_)) THEN
345        CALL cxios_get_scalargroup_unit &
346      (scalargroup_hdl%daddr, unit_, len(unit_))
347      ENDIF
348
349      IF (PRESENT(value_)) THEN
350        CALL cxios_get_scalargroup_value &
351      (scalargroup_hdl%daddr, value_)
352      ENDIF
353
354  END SUBROUTINE xios(get_scalargroup_attr_hdl_)
355
356  SUBROUTINE xios(is_defined_scalargroup_attr)  &
357    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
358    , n, name, positive, prec, scalar_ref, standard_name, unit, value )
359
360    IMPLICIT NONE
361      TYPE(txios(scalargroup))  :: scalargroup_hdl
362      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
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) :: mask
378      LOGICAL(KIND=C_BOOL) :: mask_tmp
379      LOGICAL, OPTIONAL, INTENT(OUT) :: n
380      LOGICAL(KIND=C_BOOL) :: n_tmp
381      LOGICAL, OPTIONAL, INTENT(OUT) :: name
382      LOGICAL(KIND=C_BOOL) :: name_tmp
383      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
384      LOGICAL(KIND=C_BOOL) :: positive_tmp
385      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
386      LOGICAL(KIND=C_BOOL) :: prec_tmp
387      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
388      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
390      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
391      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
392      LOGICAL(KIND=C_BOOL) :: unit_tmp
393      LOGICAL, OPTIONAL, INTENT(OUT) :: value
394      LOGICAL(KIND=C_BOOL) :: value_tmp
395
396      CALL xios(get_scalargroup_handle) &
397      (scalargroup_id,scalargroup_hdl)
398      CALL xios(is_defined_scalargroup_attr_hdl_)   &
399      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
400      , n, name, positive, prec, scalar_ref, standard_name, unit, value )
401
402  END SUBROUTINE xios(is_defined_scalargroup_attr)
403
404  SUBROUTINE xios(is_defined_scalargroup_attr_hdl)  &
405    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
406    , n, name, positive, prec, scalar_ref, standard_name, unit, value )
407
408    IMPLICIT NONE
409      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
410      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
411      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
413      LOGICAL(KIND=C_BOOL) :: bounds_tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
415      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
417      LOGICAL(KIND=C_BOOL) :: comment_tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
419      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: label
421      LOGICAL(KIND=C_BOOL) :: label_tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
423      LOGICAL(KIND=C_BOOL) :: long_name_tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
425      LOGICAL(KIND=C_BOOL) :: mask_tmp
426      LOGICAL, OPTIONAL, INTENT(OUT) :: n
427      LOGICAL(KIND=C_BOOL) :: n_tmp
428      LOGICAL, OPTIONAL, INTENT(OUT) :: name
429      LOGICAL(KIND=C_BOOL) :: name_tmp
430      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
431      LOGICAL(KIND=C_BOOL) :: positive_tmp
432      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
433      LOGICAL(KIND=C_BOOL) :: prec_tmp
434      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
435      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
436      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
437      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
438      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
439      LOGICAL(KIND=C_BOOL) :: unit_tmp
440      LOGICAL, OPTIONAL, INTENT(OUT) :: value
441      LOGICAL(KIND=C_BOOL) :: value_tmp
442
443      CALL xios(is_defined_scalargroup_attr_hdl_)  &
444      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  &
445      , n, name, positive, prec, scalar_ref, standard_name, unit, value )
446
447  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl)
448
449  SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)   &
450    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  &
451    , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
452
453    IMPLICIT NONE
454      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
455      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
456      LOGICAL(KIND=C_BOOL) :: axis_type__tmp
457      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
458      LOGICAL(KIND=C_BOOL) :: bounds__tmp
459      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_
460      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp
461      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
462      LOGICAL(KIND=C_BOOL) :: comment__tmp
463      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
464      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
465      LOGICAL, OPTIONAL, INTENT(OUT) :: label_
466      LOGICAL(KIND=C_BOOL) :: label__tmp
467      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
468      LOGICAL(KIND=C_BOOL) :: long_name__tmp
469      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
470      LOGICAL(KIND=C_BOOL) :: mask__tmp
471      LOGICAL, OPTIONAL, INTENT(OUT) :: n_
472      LOGICAL(KIND=C_BOOL) :: n__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) :: prec_
478      LOGICAL(KIND=C_BOOL) :: prec__tmp
479      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
480      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
481      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
482      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
483      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
484      LOGICAL(KIND=C_BOOL) :: unit__tmp
485      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
486      LOGICAL(KIND=C_BOOL) :: value__tmp
487
488      IF (PRESENT(axis_type_)) THEN
489        axis_type__tmp = cxios_is_defined_scalargroup_axis_type &
490      (scalargroup_hdl%daddr)
491        axis_type_ = axis_type__tmp
492      ENDIF
493
494      IF (PRESENT(bounds_)) THEN
495        bounds__tmp = cxios_is_defined_scalargroup_bounds &
496      (scalargroup_hdl%daddr)
497        bounds_ = bounds__tmp
498      ENDIF
499
500      IF (PRESENT(bounds_name_)) THEN
501        bounds_name__tmp = cxios_is_defined_scalargroup_bounds_name &
502      (scalargroup_hdl%daddr)
503        bounds_name_ = bounds_name__tmp
504      ENDIF
505
506      IF (PRESENT(comment_)) THEN
507        comment__tmp = cxios_is_defined_scalargroup_comment &
508      (scalargroup_hdl%daddr)
509        comment_ = comment__tmp
510      ENDIF
511
512      IF (PRESENT(group_ref_)) THEN
513        group_ref__tmp = cxios_is_defined_scalargroup_group_ref &
514      (scalargroup_hdl%daddr)
515        group_ref_ = group_ref__tmp
516      ENDIF
517
518      IF (PRESENT(label_)) THEN
519        label__tmp = cxios_is_defined_scalargroup_label &
520      (scalargroup_hdl%daddr)
521        label_ = label__tmp
522      ENDIF
523
524      IF (PRESENT(long_name_)) THEN
525        long_name__tmp = cxios_is_defined_scalargroup_long_name &
526      (scalargroup_hdl%daddr)
527        long_name_ = long_name__tmp
528      ENDIF
529
530      IF (PRESENT(mask_)) THEN
531        mask__tmp = cxios_is_defined_scalargroup_mask &
532      (scalargroup_hdl%daddr)
533        mask_ = mask__tmp
534      ENDIF
535
536      IF (PRESENT(n_)) THEN
537        n__tmp = cxios_is_defined_scalargroup_n &
538      (scalargroup_hdl%daddr)
539        n_ = n__tmp
540      ENDIF
541
542      IF (PRESENT(name_)) THEN
543        name__tmp = cxios_is_defined_scalargroup_name &
544      (scalargroup_hdl%daddr)
545        name_ = name__tmp
546      ENDIF
547
548      IF (PRESENT(positive_)) THEN
549        positive__tmp = cxios_is_defined_scalargroup_positive &
550      (scalargroup_hdl%daddr)
551        positive_ = positive__tmp
552      ENDIF
553
554      IF (PRESENT(prec_)) THEN
555        prec__tmp = cxios_is_defined_scalargroup_prec &
556      (scalargroup_hdl%daddr)
557        prec_ = prec__tmp
558      ENDIF
559
560      IF (PRESENT(scalar_ref_)) THEN
561        scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref &
562      (scalargroup_hdl%daddr)
563        scalar_ref_ = scalar_ref__tmp
564      ENDIF
565
566      IF (PRESENT(standard_name_)) THEN
567        standard_name__tmp = cxios_is_defined_scalargroup_standard_name &
568      (scalargroup_hdl%daddr)
569        standard_name_ = standard_name__tmp
570      ENDIF
571
572      IF (PRESENT(unit_)) THEN
573        unit__tmp = cxios_is_defined_scalargroup_unit &
574      (scalargroup_hdl%daddr)
575        unit_ = unit__tmp
576      ENDIF
577
578      IF (PRESENT(value_)) THEN
579        value__tmp = cxios_is_defined_scalargroup_value &
580      (scalargroup_hdl%daddr)
581        value_ = value__tmp
582      ENDIF
583
584  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)
585
586END MODULE iscalargroup_attr
Note: See TracBrowser for help on using the repository browser.