source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalargroup_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

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