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

Last change on this file since 1941 was 1941, checked in by ymipsl, 4 years ago

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