source: XIOS/trunk/src/interface/fortran_attr/iscalargroup_attr.F90 @ 932

Last change on this file since 932 was 891, checked in by mhnguyen, 8 years ago

Adding Fortran interface for reduce_axis_to_scalar

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