source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalar_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: 19.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iscalar_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iscalar
9  USE scalar_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_scalar_attr)  &
14    ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
15    , prec, scalar_ref, standard_name, unit, value )
16
17    IMPLICIT NONE
18      TYPE(txios(scalar))  :: scalar_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::scalar_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) :: label
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
26      LOGICAL  , OPTIONAL, INTENT(IN) :: mask
27      LOGICAL (KIND=C_BOOL) :: mask_tmp
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_scalar_handle) &
37      (scalar_id,scalar_hdl)
38      CALL xios(set_scalar_attr_hdl_)   &
39      ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
40      , prec, scalar_ref, standard_name, unit, value )
41
42  END SUBROUTINE xios(set_scalar_attr)
43
44  SUBROUTINE xios(set_scalar_attr_hdl)  &
45    ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
46    , prec, scalar_ref, standard_name, unit, value )
47
48    IMPLICIT NONE
49      TYPE(txios(scalar)) , INTENT(IN) :: scalar_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) :: label
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
56      LOGICAL  , OPTIONAL, INTENT(IN) :: mask
57      LOGICAL (KIND=C_BOOL) :: mask_tmp
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
60      INTEGER  , OPTIONAL, INTENT(IN) :: prec
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
64      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
65
66      CALL xios(set_scalar_attr_hdl_)  &
67      ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
68      , prec, scalar_ref, standard_name, unit, value )
69
70  END SUBROUTINE xios(set_scalar_attr_hdl)
71
72  SUBROUTINE xios(set_scalar_attr_hdl_)   &
73    ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, name_  &
74    , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
75
76    IMPLICIT NONE
77      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
79      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:)
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
84      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_
85      LOGICAL (KIND=C_BOOL) :: mask__tmp
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
88      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
92      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_
93
94      IF (PRESENT(axis_type_)) THEN
95        CALL cxios_set_scalar_axis_type &
96      (scalar_hdl%daddr, axis_type_, len(axis_type_))
97      ENDIF
98
99      IF (PRESENT(bounds_)) THEN
100        CALL cxios_set_scalar_bounds &
101      (scalar_hdl%daddr, bounds_, SHAPE(bounds_))
102      ENDIF
103
104      IF (PRESENT(bounds_name_)) THEN
105        CALL cxios_set_scalar_bounds_name &
106      (scalar_hdl%daddr, bounds_name_, len(bounds_name_))
107      ENDIF
108
109      IF (PRESENT(comment_)) THEN
110        CALL cxios_set_scalar_comment &
111      (scalar_hdl%daddr, comment_, len(comment_))
112      ENDIF
113
114      IF (PRESENT(label_)) THEN
115        CALL cxios_set_scalar_label &
116      (scalar_hdl%daddr, label_, len(label_))
117      ENDIF
118
119      IF (PRESENT(long_name_)) THEN
120        CALL cxios_set_scalar_long_name &
121      (scalar_hdl%daddr, long_name_, len(long_name_))
122      ENDIF
123
124      IF (PRESENT(mask_)) THEN
125        mask__tmp = mask_
126        CALL cxios_set_scalar_mask &
127      (scalar_hdl%daddr, mask__tmp)
128      ENDIF
129
130      IF (PRESENT(name_)) THEN
131        CALL cxios_set_scalar_name &
132      (scalar_hdl%daddr, name_, len(name_))
133      ENDIF
134
135      IF (PRESENT(positive_)) THEN
136        CALL cxios_set_scalar_positive &
137      (scalar_hdl%daddr, positive_, len(positive_))
138      ENDIF
139
140      IF (PRESENT(prec_)) THEN
141        CALL cxios_set_scalar_prec &
142      (scalar_hdl%daddr, prec_)
143      ENDIF
144
145      IF (PRESENT(scalar_ref_)) THEN
146        CALL cxios_set_scalar_scalar_ref &
147      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
148      ENDIF
149
150      IF (PRESENT(standard_name_)) THEN
151        CALL cxios_set_scalar_standard_name &
152      (scalar_hdl%daddr, standard_name_, len(standard_name_))
153      ENDIF
154
155      IF (PRESENT(unit_)) THEN
156        CALL cxios_set_scalar_unit &
157      (scalar_hdl%daddr, unit_, len(unit_))
158      ENDIF
159
160      IF (PRESENT(value_)) THEN
161        CALL cxios_set_scalar_value &
162      (scalar_hdl%daddr, value_)
163      ENDIF
164
165  END SUBROUTINE xios(set_scalar_attr_hdl_)
166
167  SUBROUTINE xios(get_scalar_attr)  &
168    ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
169    , prec, scalar_ref, standard_name, unit, value )
170
171    IMPLICIT NONE
172      TYPE(txios(scalar))  :: scalar_hdl
173      CHARACTER(LEN=*), INTENT(IN) ::scalar_id
174      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
175      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
180      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask
181      LOGICAL (KIND=C_BOOL) :: mask_tmp
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
184      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
186      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
188      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
189
190      CALL xios(get_scalar_handle) &
191      (scalar_id,scalar_hdl)
192      CALL xios(get_scalar_attr_hdl_)   &
193      ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
194      , prec, scalar_ref, standard_name, unit, value )
195
196  END SUBROUTINE xios(get_scalar_attr)
197
198  SUBROUTINE xios(get_scalar_attr_hdl)  &
199    ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
200    , prec, scalar_ref, standard_name, unit, value )
201
202    IMPLICIT NONE
203      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
205      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
210      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask
211      LOGICAL (KIND=C_BOOL) :: mask_tmp
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
213      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
214      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
215      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
216      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
218      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
219
220      CALL xios(get_scalar_attr_hdl_)  &
221      ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
222      , prec, scalar_ref, standard_name, unit, value )
223
224  END SUBROUTINE xios(get_scalar_attr_hdl)
225
226  SUBROUTINE xios(get_scalar_attr_hdl_)   &
227    ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, name_  &
228    , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
229
230    IMPLICIT NONE
231      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
233      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:)
234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
238      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_
239      LOGICAL (KIND=C_BOOL) :: mask__tmp
240      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
241      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
242      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
243      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
244      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
245      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
246      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_
247
248      IF (PRESENT(axis_type_)) THEN
249        CALL cxios_get_scalar_axis_type &
250      (scalar_hdl%daddr, axis_type_, len(axis_type_))
251      ENDIF
252
253      IF (PRESENT(bounds_)) THEN
254        CALL cxios_get_scalar_bounds &
255      (scalar_hdl%daddr, bounds_, SHAPE(bounds_))
256      ENDIF
257
258      IF (PRESENT(bounds_name_)) THEN
259        CALL cxios_get_scalar_bounds_name &
260      (scalar_hdl%daddr, bounds_name_, len(bounds_name_))
261      ENDIF
262
263      IF (PRESENT(comment_)) THEN
264        CALL cxios_get_scalar_comment &
265      (scalar_hdl%daddr, comment_, len(comment_))
266      ENDIF
267
268      IF (PRESENT(label_)) THEN
269        CALL cxios_get_scalar_label &
270      (scalar_hdl%daddr, label_, len(label_))
271      ENDIF
272
273      IF (PRESENT(long_name_)) THEN
274        CALL cxios_get_scalar_long_name &
275      (scalar_hdl%daddr, long_name_, len(long_name_))
276      ENDIF
277
278      IF (PRESENT(mask_)) THEN
279        CALL cxios_get_scalar_mask &
280      (scalar_hdl%daddr, mask__tmp)
281        mask_ = mask__tmp
282      ENDIF
283
284      IF (PRESENT(name_)) THEN
285        CALL cxios_get_scalar_name &
286      (scalar_hdl%daddr, name_, len(name_))
287      ENDIF
288
289      IF (PRESENT(positive_)) THEN
290        CALL cxios_get_scalar_positive &
291      (scalar_hdl%daddr, positive_, len(positive_))
292      ENDIF
293
294      IF (PRESENT(prec_)) THEN
295        CALL cxios_get_scalar_prec &
296      (scalar_hdl%daddr, prec_)
297      ENDIF
298
299      IF (PRESENT(scalar_ref_)) THEN
300        CALL cxios_get_scalar_scalar_ref &
301      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
302      ENDIF
303
304      IF (PRESENT(standard_name_)) THEN
305        CALL cxios_get_scalar_standard_name &
306      (scalar_hdl%daddr, standard_name_, len(standard_name_))
307      ENDIF
308
309      IF (PRESENT(unit_)) THEN
310        CALL cxios_get_scalar_unit &
311      (scalar_hdl%daddr, unit_, len(unit_))
312      ENDIF
313
314      IF (PRESENT(value_)) THEN
315        CALL cxios_get_scalar_value &
316      (scalar_hdl%daddr, value_)
317      ENDIF
318
319  END SUBROUTINE xios(get_scalar_attr_hdl_)
320
321  SUBROUTINE xios(is_defined_scalar_attr)  &
322    ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
323    , prec, scalar_ref, standard_name, unit, value )
324
325    IMPLICIT NONE
326      TYPE(txios(scalar))  :: scalar_hdl
327      CHARACTER(LEN=*), INTENT(IN) ::scalar_id
328      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
329      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
331      LOGICAL(KIND=C_BOOL) :: bounds_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
333      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
335      LOGICAL(KIND=C_BOOL) :: comment_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: label
337      LOGICAL(KIND=C_BOOL) :: label_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
339      LOGICAL(KIND=C_BOOL) :: long_name_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
341      LOGICAL(KIND=C_BOOL) :: mask_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: name
343      LOGICAL(KIND=C_BOOL) :: name_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
345      LOGICAL(KIND=C_BOOL) :: positive_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
347      LOGICAL(KIND=C_BOOL) :: prec_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
349      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
351      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
353      LOGICAL(KIND=C_BOOL) :: unit_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: value
355      LOGICAL(KIND=C_BOOL) :: value_tmp
356
357      CALL xios(get_scalar_handle) &
358      (scalar_id,scalar_hdl)
359      CALL xios(is_defined_scalar_attr_hdl_)   &
360      ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
361      , prec, scalar_ref, standard_name, unit, value )
362
363  END SUBROUTINE xios(is_defined_scalar_attr)
364
365  SUBROUTINE xios(is_defined_scalar_attr_hdl)  &
366    ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
367    , prec, scalar_ref, standard_name, unit, value )
368
369    IMPLICIT NONE
370      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
371      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
372      LOGICAL(KIND=C_BOOL) :: axis_type_tmp
373      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
374      LOGICAL(KIND=C_BOOL) :: bounds_tmp
375      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
376      LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
377      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
378      LOGICAL(KIND=C_BOOL) :: comment_tmp
379      LOGICAL, OPTIONAL, INTENT(OUT) :: label
380      LOGICAL(KIND=C_BOOL) :: label_tmp
381      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
382      LOGICAL(KIND=C_BOOL) :: long_name_tmp
383      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
384      LOGICAL(KIND=C_BOOL) :: mask_tmp
385      LOGICAL, OPTIONAL, INTENT(OUT) :: name
386      LOGICAL(KIND=C_BOOL) :: name_tmp
387      LOGICAL, OPTIONAL, INTENT(OUT) :: positive
388      LOGICAL(KIND=C_BOOL) :: positive_tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
390      LOGICAL(KIND=C_BOOL) :: prec_tmp
391      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
392      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
393      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
394      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
395      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
396      LOGICAL(KIND=C_BOOL) :: unit_tmp
397      LOGICAL, OPTIONAL, INTENT(OUT) :: value
398      LOGICAL(KIND=C_BOOL) :: value_tmp
399
400      CALL xios(is_defined_scalar_attr_hdl_)  &
401      ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive  &
402      , prec, scalar_ref, standard_name, unit, value )
403
404  END SUBROUTINE xios(is_defined_scalar_attr_hdl)
405
406  SUBROUTINE xios(is_defined_scalar_attr_hdl_)   &
407    ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, name_  &
408    , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
409
410    IMPLICIT NONE
411      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
412      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
413      LOGICAL(KIND=C_BOOL) :: axis_type__tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
415      LOGICAL(KIND=C_BOOL) :: bounds__tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_
417      LOGICAL(KIND=C_BOOL) :: bounds_name__tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
419      LOGICAL(KIND=C_BOOL) :: comment__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) :: name_
427      LOGICAL(KIND=C_BOOL) :: name__tmp
428      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
429      LOGICAL(KIND=C_BOOL) :: positive__tmp
430      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
431      LOGICAL(KIND=C_BOOL) :: prec__tmp
432      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
433      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
434      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
435      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
436      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
437      LOGICAL(KIND=C_BOOL) :: unit__tmp
438      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
439      LOGICAL(KIND=C_BOOL) :: value__tmp
440
441      IF (PRESENT(axis_type_)) THEN
442        axis_type__tmp = cxios_is_defined_scalar_axis_type &
443      (scalar_hdl%daddr)
444        axis_type_ = axis_type__tmp
445      ENDIF
446
447      IF (PRESENT(bounds_)) THEN
448        bounds__tmp = cxios_is_defined_scalar_bounds &
449      (scalar_hdl%daddr)
450        bounds_ = bounds__tmp
451      ENDIF
452
453      IF (PRESENT(bounds_name_)) THEN
454        bounds_name__tmp = cxios_is_defined_scalar_bounds_name &
455      (scalar_hdl%daddr)
456        bounds_name_ = bounds_name__tmp
457      ENDIF
458
459      IF (PRESENT(comment_)) THEN
460        comment__tmp = cxios_is_defined_scalar_comment &
461      (scalar_hdl%daddr)
462        comment_ = comment__tmp
463      ENDIF
464
465      IF (PRESENT(label_)) THEN
466        label__tmp = cxios_is_defined_scalar_label &
467      (scalar_hdl%daddr)
468        label_ = label__tmp
469      ENDIF
470
471      IF (PRESENT(long_name_)) THEN
472        long_name__tmp = cxios_is_defined_scalar_long_name &
473      (scalar_hdl%daddr)
474        long_name_ = long_name__tmp
475      ENDIF
476
477      IF (PRESENT(mask_)) THEN
478        mask__tmp = cxios_is_defined_scalar_mask &
479      (scalar_hdl%daddr)
480        mask_ = mask__tmp
481      ENDIF
482
483      IF (PRESENT(name_)) THEN
484        name__tmp = cxios_is_defined_scalar_name &
485      (scalar_hdl%daddr)
486        name_ = name__tmp
487      ENDIF
488
489      IF (PRESENT(positive_)) THEN
490        positive__tmp = cxios_is_defined_scalar_positive &
491      (scalar_hdl%daddr)
492        positive_ = positive__tmp
493      ENDIF
494
495      IF (PRESENT(prec_)) THEN
496        prec__tmp = cxios_is_defined_scalar_prec &
497      (scalar_hdl%daddr)
498        prec_ = prec__tmp
499      ENDIF
500
501      IF (PRESENT(scalar_ref_)) THEN
502        scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref &
503      (scalar_hdl%daddr)
504        scalar_ref_ = scalar_ref__tmp
505      ENDIF
506
507      IF (PRESENT(standard_name_)) THEN
508        standard_name__tmp = cxios_is_defined_scalar_standard_name &
509      (scalar_hdl%daddr)
510        standard_name_ = standard_name__tmp
511      ENDIF
512
513      IF (PRESENT(unit_)) THEN
514        unit__tmp = cxios_is_defined_scalar_unit &
515      (scalar_hdl%daddr)
516        unit_ = unit__tmp
517      ENDIF
518
519      IF (PRESENT(value_)) THEN
520        value__tmp = cxios_is_defined_scalar_value &
521      (scalar_hdl%daddr)
522        value_ = value__tmp
523      ENDIF
524
525  END SUBROUTINE xios(is_defined_scalar_attr_hdl_)
526
527END MODULE iscalar_attr
Note: See TracBrowser for help on using the repository browser.