source: XIOS/dev/dev_olga/src/interface/fortran_attr/iscalar_attr.F90 @ 1314

Last change on this file since 1314 was 1158, checked in by oabramkina, 7 years ago

Two server levels: merging with trunk r1137.
There are bugs.
File size: 10.8 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, long_name, name, prec, scalar_ref, standard_name, unit, value )
15
16    IMPLICIT NONE
17      TYPE(txios(scalar))  :: scalar_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::scalar_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
21      INTEGER  , OPTIONAL, INTENT(IN) :: prec
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
26
27      CALL xios(get_scalar_handle) &
28      (scalar_id,scalar_hdl)
29      CALL xios(set_scalar_attr_hdl_)   &
30      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
31
32  END SUBROUTINE xios(set_scalar_attr)
33
34  SUBROUTINE xios(set_scalar_attr_hdl)  &
35    ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
36
37    IMPLICIT NONE
38      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
41      INTEGER  , OPTIONAL, INTENT(IN) :: prec
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
46
47      CALL xios(set_scalar_attr_hdl_)  &
48      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
49
50  END SUBROUTINE xios(set_scalar_attr_hdl)
51
52  SUBROUTINE xios(set_scalar_attr_hdl_)   &
53    ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ )
54
55    IMPLICIT NONE
56      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
59      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
63      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_
64
65      IF (PRESENT(long_name_)) THEN
66        CALL cxios_set_scalar_long_name &
67      (scalar_hdl%daddr, long_name_, len(long_name_))
68      ENDIF
69
70      IF (PRESENT(name_)) THEN
71        CALL cxios_set_scalar_name &
72      (scalar_hdl%daddr, name_, len(name_))
73      ENDIF
74
75      IF (PRESENT(prec_)) THEN
76        CALL cxios_set_scalar_prec &
77      (scalar_hdl%daddr, prec_)
78      ENDIF
79
80      IF (PRESENT(scalar_ref_)) THEN
81        CALL cxios_set_scalar_scalar_ref &
82      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
83      ENDIF
84
85      IF (PRESENT(standard_name_)) THEN
86        CALL cxios_set_scalar_standard_name &
87      (scalar_hdl%daddr, standard_name_, len(standard_name_))
88      ENDIF
89
90      IF (PRESENT(unit_)) THEN
91        CALL cxios_set_scalar_unit &
92      (scalar_hdl%daddr, unit_, len(unit_))
93      ENDIF
94
95      IF (PRESENT(value_)) THEN
96        CALL cxios_set_scalar_value &
97      (scalar_hdl%daddr, value_)
98      ENDIF
99
100  END SUBROUTINE xios(set_scalar_attr_hdl_)
101
102  SUBROUTINE xios(get_scalar_attr)  &
103    ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value )
104
105    IMPLICIT NONE
106      TYPE(txios(scalar))  :: scalar_hdl
107      CHARACTER(LEN=*), INTENT(IN) ::scalar_id
108      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
109      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
110      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
111      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
113      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
114      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
115
116      CALL xios(get_scalar_handle) &
117      (scalar_id,scalar_hdl)
118      CALL xios(get_scalar_attr_hdl_)   &
119      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
120
121  END SUBROUTINE xios(get_scalar_attr)
122
123  SUBROUTINE xios(get_scalar_attr_hdl)  &
124    ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
125
126    IMPLICIT NONE
127      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
128      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
129      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
130      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
132      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
134      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
135
136      CALL xios(get_scalar_attr_hdl_)  &
137      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
138
139  END SUBROUTINE xios(get_scalar_attr_hdl)
140
141  SUBROUTINE xios(get_scalar_attr_hdl_)   &
142    ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ )
143
144    IMPLICIT NONE
145      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
146      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
148      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
151      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
152      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_
153
154      IF (PRESENT(long_name_)) THEN
155        CALL cxios_get_scalar_long_name &
156      (scalar_hdl%daddr, long_name_, len(long_name_))
157      ENDIF
158
159      IF (PRESENT(name_)) THEN
160        CALL cxios_get_scalar_name &
161      (scalar_hdl%daddr, name_, len(name_))
162      ENDIF
163
164      IF (PRESENT(prec_)) THEN
165        CALL cxios_get_scalar_prec &
166      (scalar_hdl%daddr, prec_)
167      ENDIF
168
169      IF (PRESENT(scalar_ref_)) THEN
170        CALL cxios_get_scalar_scalar_ref &
171      (scalar_hdl%daddr, scalar_ref_, len(scalar_ref_))
172      ENDIF
173
174      IF (PRESENT(standard_name_)) THEN
175        CALL cxios_get_scalar_standard_name &
176      (scalar_hdl%daddr, standard_name_, len(standard_name_))
177      ENDIF
178
179      IF (PRESENT(unit_)) THEN
180        CALL cxios_get_scalar_unit &
181      (scalar_hdl%daddr, unit_, len(unit_))
182      ENDIF
183
184      IF (PRESENT(value_)) THEN
185        CALL cxios_get_scalar_value &
186      (scalar_hdl%daddr, value_)
187      ENDIF
188
189  END SUBROUTINE xios(get_scalar_attr_hdl_)
190
191  SUBROUTINE xios(is_defined_scalar_attr)  &
192    ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value )
193
194    IMPLICIT NONE
195      TYPE(txios(scalar))  :: scalar_hdl
196      CHARACTER(LEN=*), INTENT(IN) ::scalar_id
197      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
198      LOGICAL(KIND=C_BOOL) :: long_name_tmp
199      LOGICAL, OPTIONAL, INTENT(OUT) :: name
200      LOGICAL(KIND=C_BOOL) :: name_tmp
201      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
202      LOGICAL(KIND=C_BOOL) :: prec_tmp
203      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
204      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
205      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
206      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
207      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
208      LOGICAL(KIND=C_BOOL) :: unit_tmp
209      LOGICAL, OPTIONAL, INTENT(OUT) :: value
210      LOGICAL(KIND=C_BOOL) :: value_tmp
211
212      CALL xios(get_scalar_handle) &
213      (scalar_id,scalar_hdl)
214      CALL xios(is_defined_scalar_attr_hdl_)   &
215      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
216
217  END SUBROUTINE xios(is_defined_scalar_attr)
218
219  SUBROUTINE xios(is_defined_scalar_attr_hdl)  &
220    ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
221
222    IMPLICIT NONE
223      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
224      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
225      LOGICAL(KIND=C_BOOL) :: long_name_tmp
226      LOGICAL, OPTIONAL, INTENT(OUT) :: name
227      LOGICAL(KIND=C_BOOL) :: name_tmp
228      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
229      LOGICAL(KIND=C_BOOL) :: prec_tmp
230      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
231      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
232      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
233      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
234      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
235      LOGICAL(KIND=C_BOOL) :: unit_tmp
236      LOGICAL, OPTIONAL, INTENT(OUT) :: value
237      LOGICAL(KIND=C_BOOL) :: value_tmp
238
239      CALL xios(is_defined_scalar_attr_hdl_)  &
240      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value )
241
242  END SUBROUTINE xios(is_defined_scalar_attr_hdl)
243
244  SUBROUTINE xios(is_defined_scalar_attr_hdl_)   &
245    ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ )
246
247    IMPLICIT NONE
248      TYPE(txios(scalar)) , INTENT(IN) :: scalar_hdl
249      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
250      LOGICAL(KIND=C_BOOL) :: long_name__tmp
251      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
252      LOGICAL(KIND=C_BOOL) :: name__tmp
253      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
254      LOGICAL(KIND=C_BOOL) :: prec__tmp
255      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
256      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
257      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
258      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
259      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
260      LOGICAL(KIND=C_BOOL) :: unit__tmp
261      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
262      LOGICAL(KIND=C_BOOL) :: value__tmp
263
264      IF (PRESENT(long_name_)) THEN
265        long_name__tmp = cxios_is_defined_scalar_long_name &
266      (scalar_hdl%daddr)
267        long_name_ = long_name__tmp
268      ENDIF
269
270      IF (PRESENT(name_)) THEN
271        name__tmp = cxios_is_defined_scalar_name &
272      (scalar_hdl%daddr)
273        name_ = name__tmp
274      ENDIF
275
276      IF (PRESENT(prec_)) THEN
277        prec__tmp = cxios_is_defined_scalar_prec &
278      (scalar_hdl%daddr)
279        prec_ = prec__tmp
280      ENDIF
281
282      IF (PRESENT(scalar_ref_)) THEN
283        scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref &
284      (scalar_hdl%daddr)
285        scalar_ref_ = scalar_ref__tmp
286      ENDIF
287
288      IF (PRESENT(standard_name_)) THEN
289        standard_name__tmp = cxios_is_defined_scalar_standard_name &
290      (scalar_hdl%daddr)
291        standard_name_ = standard_name__tmp
292      ENDIF
293
294      IF (PRESENT(unit_)) THEN
295        unit__tmp = cxios_is_defined_scalar_unit &
296      (scalar_hdl%daddr)
297        unit_ = unit__tmp
298      ENDIF
299
300      IF (PRESENT(value_)) THEN
301        value__tmp = cxios_is_defined_scalar_value &
302      (scalar_hdl%daddr)
303        value_ = value__tmp
304      ENDIF
305
306  END SUBROUTINE xios(is_defined_scalar_attr_hdl_)
307
308END MODULE iscalar_attr
Note: See TracBrowser for help on using the repository browser.