source: XIOS/dev/branch_openmp/src/interface/fortran_attr/iscalar_attr.F90 @ 1545

Last change on this file since 1545 was 1545, checked in by yushan, 6 years ago

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