source: XIOS/dev/dev_olga/src/interface/fortran_attr/iscalargroup_attr.F90 @ 983

Last change on this file since 983 was 966, checked in by mhnguyen, 8 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

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