source: XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90 @ 666

Last change on this file since 666 was 666, checked in by mhnguyen, 9 years ago

Change name of several axis attributes and remove some redundant variable of domain

+) Change name of axis attributes to make them consistent with ones of domain
+) Remove zoom_client_* of domain

Test
+) On Curie
+) All tests pass and are correct
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 14.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE axisgroup_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
12    SUBROUTINE cxios_set_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
16      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
17    END SUBROUTINE cxios_set_axisgroup_axis_ref
18
19    SUBROUTINE cxios_get_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
23      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
24    END SUBROUTINE cxios_get_axisgroup_axis_ref
25
26    FUNCTION cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_axis_ref
29      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
30    END FUNCTION cxios_is_defined_axisgroup_axis_ref
31
32
33    SUBROUTINE cxios_set_axisgroup_begin(axisgroup_hdl, begin) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
36      INTEGER (KIND=C_INT)      , VALUE :: begin
37    END SUBROUTINE cxios_set_axisgroup_begin
38
39    SUBROUTINE cxios_get_axisgroup_begin(axisgroup_hdl, begin) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
42      INTEGER (KIND=C_INT)             :: begin
43    END SUBROUTINE cxios_get_axisgroup_begin
44
45    FUNCTION cxios_is_defined_axisgroup_begin(axisgroup_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_begin
48      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
49    END FUNCTION cxios_is_defined_axisgroup_begin
50
51
52    SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
55      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
56      INTEGER (kind = C_INT), VALUE  :: extent1
57      INTEGER (kind = C_INT), VALUE  :: extent2
58    END SUBROUTINE cxios_set_axisgroup_bounds
59
60    SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
63      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
64      INTEGER (kind = C_INT), VALUE  :: extent1
65      INTEGER (kind = C_INT), VALUE  :: extent2
66    END SUBROUTINE cxios_get_axisgroup_bounds
67
68    FUNCTION cxios_is_defined_axisgroup_bounds(axisgroup_hdl) BIND(C)
69      USE ISO_C_BINDING
70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_bounds
71      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
72    END FUNCTION cxios_is_defined_axisgroup_bounds
73
74
75    SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
76      USE ISO_C_BINDING
77      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
78      INTEGER (KIND=C_INT)      , VALUE :: data_begin
79    END SUBROUTINE cxios_set_axisgroup_data_begin
80
81    SUBROUTINE cxios_get_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
82      USE ISO_C_BINDING
83      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
84      INTEGER (KIND=C_INT)             :: data_begin
85    END SUBROUTINE cxios_get_axisgroup_data_begin
86
87    FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl) BIND(C)
88      USE ISO_C_BINDING
89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_begin
90      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
91    END FUNCTION cxios_is_defined_axisgroup_data_begin
92
93
94    SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C)
95      USE ISO_C_BINDING
96      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
97      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
98      INTEGER (kind = C_INT), VALUE  :: extent1
99    END SUBROUTINE cxios_set_axisgroup_data_index
100
101    SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C)
102      USE ISO_C_BINDING
103      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
104      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
105      INTEGER (kind = C_INT), VALUE  :: extent1
106    END SUBROUTINE cxios_get_axisgroup_data_index
107
108    FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl) BIND(C)
109      USE ISO_C_BINDING
110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_index
111      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
112    END FUNCTION cxios_is_defined_axisgroup_data_index
113
114
115    SUBROUTINE cxios_set_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
118      INTEGER (KIND=C_INT)      , VALUE :: data_n
119    END SUBROUTINE cxios_set_axisgroup_data_n
120
121    SUBROUTINE cxios_get_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
122      USE ISO_C_BINDING
123      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
124      INTEGER (KIND=C_INT)             :: data_n
125    END SUBROUTINE cxios_get_axisgroup_data_n
126
127    FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl) BIND(C)
128      USE ISO_C_BINDING
129      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_n
130      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
131    END FUNCTION cxios_is_defined_axisgroup_data_n
132
133
134    SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
135      USE ISO_C_BINDING
136      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
137      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
138      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
139    END SUBROUTINE cxios_set_axisgroup_group_ref
140
141    SUBROUTINE cxios_get_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
142      USE ISO_C_BINDING
143      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
144      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
145      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
146    END SUBROUTINE cxios_get_axisgroup_group_ref
147
148    FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl) BIND(C)
149      USE ISO_C_BINDING
150      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref
151      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
152    END FUNCTION cxios_is_defined_axisgroup_group_ref
153
154
155    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
158      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
159      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
160    END SUBROUTINE cxios_set_axisgroup_long_name
161
162    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
165      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
166      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
167    END SUBROUTINE cxios_get_axisgroup_long_name
168
169    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name
172      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
173    END FUNCTION cxios_is_defined_axisgroup_long_name
174
175
176    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
179      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
180      INTEGER (kind = C_INT), VALUE  :: extent1
181    END SUBROUTINE cxios_set_axisgroup_mask
182
183    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C)
184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
186      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
187      INTEGER (kind = C_INT), VALUE  :: extent1
188    END SUBROUTINE cxios_get_axisgroup_mask
189
190    FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl) BIND(C)
191      USE ISO_C_BINDING
192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask
193      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
194    END FUNCTION cxios_is_defined_axisgroup_mask
195
196
197    SUBROUTINE cxios_set_axisgroup_n(axisgroup_hdl, n) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
200      INTEGER (KIND=C_INT)      , VALUE :: n
201    END SUBROUTINE cxios_set_axisgroup_n
202
203    SUBROUTINE cxios_get_axisgroup_n(axisgroup_hdl, n) BIND(C)
204      USE ISO_C_BINDING
205      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
206      INTEGER (KIND=C_INT)             :: n
207    END SUBROUTINE cxios_get_axisgroup_n
208
209    FUNCTION cxios_is_defined_axisgroup_n(axisgroup_hdl) BIND(C)
210      USE ISO_C_BINDING
211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n
212      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
213    END FUNCTION cxios_is_defined_axisgroup_n
214
215
216    SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
219      INTEGER (KIND=C_INT)      , VALUE :: n_glo
220    END SUBROUTINE cxios_set_axisgroup_n_glo
221
222    SUBROUTINE cxios_get_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
223      USE ISO_C_BINDING
224      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
225      INTEGER (KIND=C_INT)             :: n_glo
226    END SUBROUTINE cxios_get_axisgroup_n_glo
227
228    FUNCTION cxios_is_defined_axisgroup_n_glo(axisgroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_glo
231      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
232    END FUNCTION cxios_is_defined_axisgroup_n_glo
233
234
235    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
238      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
239      INTEGER  (kind = C_INT)     , VALUE        :: name_size
240    END SUBROUTINE cxios_set_axisgroup_name
241
242    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
243      USE ISO_C_BINDING
244      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
245      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
246      INTEGER  (kind = C_INT)     , VALUE        :: name_size
247    END SUBROUTINE cxios_get_axisgroup_name
248
249    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl) BIND(C)
250      USE ISO_C_BINDING
251      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name
252      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
253    END FUNCTION cxios_is_defined_axisgroup_name
254
255
256    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
257      USE ISO_C_BINDING
258      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
259      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
260      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
261    END SUBROUTINE cxios_set_axisgroup_positive
262
263    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
264      USE ISO_C_BINDING
265      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
266      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
267      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
268    END SUBROUTINE cxios_get_axisgroup_positive
269
270    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl) BIND(C)
271      USE ISO_C_BINDING
272      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive
273      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
274    END FUNCTION cxios_is_defined_axisgroup_positive
275
276
277    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
278      USE ISO_C_BINDING
279      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
280      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
281      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
282    END SUBROUTINE cxios_set_axisgroup_standard_name
283
284    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
285      USE ISO_C_BINDING
286      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
287      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
288      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
289    END SUBROUTINE cxios_get_axisgroup_standard_name
290
291    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl) BIND(C)
292      USE ISO_C_BINDING
293      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name
294      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
295    END FUNCTION cxios_is_defined_axisgroup_standard_name
296
297
298    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
299      USE ISO_C_BINDING
300      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
301      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
302      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
303    END SUBROUTINE cxios_set_axisgroup_unit
304
305    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
306      USE ISO_C_BINDING
307      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
308      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
309      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
310    END SUBROUTINE cxios_get_axisgroup_unit
311
312    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl) BIND(C)
313      USE ISO_C_BINDING
314      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit
315      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
316    END FUNCTION cxios_is_defined_axisgroup_unit
317
318
319    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
320      USE ISO_C_BINDING
321      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
322      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
323      INTEGER (kind = C_INT), VALUE  :: extent1
324    END SUBROUTINE cxios_set_axisgroup_value
325
326    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
327      USE ISO_C_BINDING
328      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
329      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
330      INTEGER (kind = C_INT), VALUE  :: extent1
331    END SUBROUTINE cxios_get_axisgroup_value
332
333    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl) BIND(C)
334      USE ISO_C_BINDING
335      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value
336      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
337    END FUNCTION cxios_is_defined_axisgroup_value
338
339  END INTERFACE
340
341END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.