source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/iscalargroup_attr.F90 @ 1205

Last change on this file since 1205 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

File size: 12.7 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, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value )
15
16    IMPLICIT NONE
17      TYPE(txios(scalargroup))  :: scalargroup_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
22      INTEGER  , OPTIONAL, INTENT(IN) :: prec
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
27
28      CALL xios(get_scalargroup_handle) &
29      (scalargroup_id,scalargroup_hdl)
30      CALL xios(set_scalargroup_attr_hdl_)   &
31      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
32       )
33
34  END SUBROUTINE xios(set_scalargroup_attr)
35
36  SUBROUTINE xios(set_scalargroup_attr_hdl)  &
37    ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
38     )
39
40    IMPLICIT NONE
41      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
45      INTEGER  , OPTIONAL, INTENT(IN) :: prec
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
49      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
50
51      CALL xios(set_scalargroup_attr_hdl_)  &
52      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
53       )
54
55  END SUBROUTINE xios(set_scalargroup_attr_hdl)
56
57  SUBROUTINE xios(set_scalargroup_attr_hdl_)   &
58    ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  &
59    , value_ )
60
61    IMPLICIT NONE
62      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
66      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
70      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_
71
72      IF (PRESENT(group_ref_)) THEN
73        CALL cxios_set_scalargroup_group_ref &
74      (scalargroup_hdl%daddr, group_ref_, len(group_ref_))
75      ENDIF
76
77      IF (PRESENT(long_name_)) THEN
78        CALL cxios_set_scalargroup_long_name &
79      (scalargroup_hdl%daddr, long_name_, len(long_name_))
80      ENDIF
81
82      IF (PRESENT(name_)) THEN
83        CALL cxios_set_scalargroup_name &
84      (scalargroup_hdl%daddr, name_, len(name_))
85      ENDIF
86
87      IF (PRESENT(prec_)) THEN
88        CALL cxios_set_scalargroup_prec &
89      (scalargroup_hdl%daddr, prec_)
90      ENDIF
91
92      IF (PRESENT(scalar_ref_)) THEN
93        CALL cxios_set_scalargroup_scalar_ref &
94      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
95      ENDIF
96
97      IF (PRESENT(standard_name_)) THEN
98        CALL cxios_set_scalargroup_standard_name &
99      (scalargroup_hdl%daddr, standard_name_, len(standard_name_))
100      ENDIF
101
102      IF (PRESENT(unit_)) THEN
103        CALL cxios_set_scalargroup_unit &
104      (scalargroup_hdl%daddr, unit_, len(unit_))
105      ENDIF
106
107      IF (PRESENT(value_)) THEN
108        CALL cxios_set_scalargroup_value &
109      (scalargroup_hdl%daddr, value_)
110      ENDIF
111
112  END SUBROUTINE xios(set_scalargroup_attr_hdl_)
113
114  SUBROUTINE xios(get_scalargroup_attr)  &
115    ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value )
116
117    IMPLICIT NONE
118      TYPE(txios(scalargroup))  :: scalargroup_hdl
119      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
120      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
121      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
123      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
124      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
125      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
126      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
127      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
128
129      CALL xios(get_scalargroup_handle) &
130      (scalargroup_id,scalargroup_hdl)
131      CALL xios(get_scalargroup_attr_hdl_)   &
132      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
133       )
134
135  END SUBROUTINE xios(get_scalargroup_attr)
136
137  SUBROUTINE xios(get_scalargroup_attr_hdl)  &
138    ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
139     )
140
141    IMPLICIT NONE
142      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
143      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
144      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
145      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
146      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
148      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
150      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
151
152      CALL xios(get_scalargroup_attr_hdl_)  &
153      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
154       )
155
156  END SUBROUTINE xios(get_scalargroup_attr_hdl)
157
158  SUBROUTINE xios(get_scalargroup_attr_hdl_)   &
159    ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  &
160    , value_ )
161
162    IMPLICIT NONE
163      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
164      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
165      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
167      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
168      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
169      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
171      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_
172
173      IF (PRESENT(group_ref_)) THEN
174        CALL cxios_get_scalargroup_group_ref &
175      (scalargroup_hdl%daddr, group_ref_, len(group_ref_))
176      ENDIF
177
178      IF (PRESENT(long_name_)) THEN
179        CALL cxios_get_scalargroup_long_name &
180      (scalargroup_hdl%daddr, long_name_, len(long_name_))
181      ENDIF
182
183      IF (PRESENT(name_)) THEN
184        CALL cxios_get_scalargroup_name &
185      (scalargroup_hdl%daddr, name_, len(name_))
186      ENDIF
187
188      IF (PRESENT(prec_)) THEN
189        CALL cxios_get_scalargroup_prec &
190      (scalargroup_hdl%daddr, prec_)
191      ENDIF
192
193      IF (PRESENT(scalar_ref_)) THEN
194        CALL cxios_get_scalargroup_scalar_ref &
195      (scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
196      ENDIF
197
198      IF (PRESENT(standard_name_)) THEN
199        CALL cxios_get_scalargroup_standard_name &
200      (scalargroup_hdl%daddr, standard_name_, len(standard_name_))
201      ENDIF
202
203      IF (PRESENT(unit_)) THEN
204        CALL cxios_get_scalargroup_unit &
205      (scalargroup_hdl%daddr, unit_, len(unit_))
206      ENDIF
207
208      IF (PRESENT(value_)) THEN
209        CALL cxios_get_scalargroup_value &
210      (scalargroup_hdl%daddr, value_)
211      ENDIF
212
213  END SUBROUTINE xios(get_scalargroup_attr_hdl_)
214
215  SUBROUTINE xios(is_defined_scalargroup_attr)  &
216    ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value )
217
218    IMPLICIT NONE
219      TYPE(txios(scalargroup))  :: scalargroup_hdl
220      CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
221      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
222      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
223      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
224      LOGICAL(KIND=C_BOOL) :: long_name_tmp
225      LOGICAL, OPTIONAL, INTENT(OUT) :: name
226      LOGICAL(KIND=C_BOOL) :: name_tmp
227      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
228      LOGICAL(KIND=C_BOOL) :: prec_tmp
229      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
230      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
231      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
232      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
233      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
234      LOGICAL(KIND=C_BOOL) :: unit_tmp
235      LOGICAL, OPTIONAL, INTENT(OUT) :: value
236      LOGICAL(KIND=C_BOOL) :: value_tmp
237
238      CALL xios(get_scalargroup_handle) &
239      (scalargroup_id,scalargroup_hdl)
240      CALL xios(is_defined_scalargroup_attr_hdl_)   &
241      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
242       )
243
244  END SUBROUTINE xios(is_defined_scalargroup_attr)
245
246  SUBROUTINE xios(is_defined_scalargroup_attr_hdl)  &
247    ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
248     )
249
250    IMPLICIT NONE
251      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
252      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
253      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
254      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
255      LOGICAL(KIND=C_BOOL) :: long_name_tmp
256      LOGICAL, OPTIONAL, INTENT(OUT) :: name
257      LOGICAL(KIND=C_BOOL) :: name_tmp
258      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
259      LOGICAL(KIND=C_BOOL) :: prec_tmp
260      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
261      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
262      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
263      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
264      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
265      LOGICAL(KIND=C_BOOL) :: unit_tmp
266      LOGICAL, OPTIONAL, INTENT(OUT) :: value
267      LOGICAL(KIND=C_BOOL) :: value_tmp
268
269      CALL xios(is_defined_scalargroup_attr_hdl_)  &
270      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  &
271       )
272
273  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl)
274
275  SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)   &
276    ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  &
277    , value_ )
278
279    IMPLICIT NONE
280      TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
281      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
282      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
283      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
284      LOGICAL(KIND=C_BOOL) :: long_name__tmp
285      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
286      LOGICAL(KIND=C_BOOL) :: name__tmp
287      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
288      LOGICAL(KIND=C_BOOL) :: prec__tmp
289      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
290      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
291      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
292      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
293      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
294      LOGICAL(KIND=C_BOOL) :: unit__tmp
295      LOGICAL, OPTIONAL, INTENT(OUT) :: value_
296      LOGICAL(KIND=C_BOOL) :: value__tmp
297
298      IF (PRESENT(group_ref_)) THEN
299        group_ref__tmp = cxios_is_defined_scalargroup_group_ref &
300      (scalargroup_hdl%daddr)
301        group_ref_ = group_ref__tmp
302      ENDIF
303
304      IF (PRESENT(long_name_)) THEN
305        long_name__tmp = cxios_is_defined_scalargroup_long_name &
306      (scalargroup_hdl%daddr)
307        long_name_ = long_name__tmp
308      ENDIF
309
310      IF (PRESENT(name_)) THEN
311        name__tmp = cxios_is_defined_scalargroup_name &
312      (scalargroup_hdl%daddr)
313        name_ = name__tmp
314      ENDIF
315
316      IF (PRESENT(prec_)) THEN
317        prec__tmp = cxios_is_defined_scalargroup_prec &
318      (scalargroup_hdl%daddr)
319        prec_ = prec__tmp
320      ENDIF
321
322      IF (PRESENT(scalar_ref_)) THEN
323        scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref &
324      (scalargroup_hdl%daddr)
325        scalar_ref_ = scalar_ref__tmp
326      ENDIF
327
328      IF (PRESENT(standard_name_)) THEN
329        standard_name__tmp = cxios_is_defined_scalargroup_standard_name &
330      (scalargroup_hdl%daddr)
331        standard_name_ = standard_name__tmp
332      ENDIF
333
334      IF (PRESENT(unit_)) THEN
335        unit__tmp = cxios_is_defined_scalargroup_unit &
336      (scalargroup_hdl%daddr)
337        unit_ = unit__tmp
338      ENDIF
339
340      IF (PRESENT(value_)) THEN
341        value__tmp = cxios_is_defined_scalargroup_value &
342      (scalargroup_hdl%daddr)
343        value_ = value__tmp
344      ENDIF
345
346  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)
347
348END MODULE iscalargroup_attr
Note: See TracBrowser for help on using the repository browser.