source: XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90 @ 620

Last change on this file since 620 was 609, checked in by rlacroix, 9 years ago

Improve CF compliance: add a new axis attribute "bounds".

Fixes ticket #67.
  • 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.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE axis_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_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
16      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
17    END SUBROUTINE cxios_set_axis_axis_ref
18
19    SUBROUTINE cxios_get_axis_axis_ref(axis_hdl, axis_ref, axis_ref_size) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
23      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
24    END SUBROUTINE cxios_get_axis_axis_ref
25
26    FUNCTION cxios_is_defined_axis_axis_ref(axis_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_axis_ref
29      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
30    END FUNCTION cxios_is_defined_axis_axis_ref
31
32
33    SUBROUTINE cxios_set_axis_bounds(axis_hdl, bounds, extent1, extent2) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
36      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
37      INTEGER (kind = C_INT), VALUE  :: extent1
38      INTEGER (kind = C_INT), VALUE  :: extent2
39    END SUBROUTINE cxios_set_axis_bounds
40
41    SUBROUTINE cxios_get_axis_bounds(axis_hdl, bounds, extent1, extent2) BIND(C)
42      USE ISO_C_BINDING
43      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
44      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
45      INTEGER (kind = C_INT), VALUE  :: extent1
46      INTEGER (kind = C_INT), VALUE  :: extent2
47    END SUBROUTINE cxios_get_axis_bounds
48
49    FUNCTION cxios_is_defined_axis_bounds(axis_hdl) BIND(C)
50      USE ISO_C_BINDING
51      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds
52      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
53    END FUNCTION cxios_is_defined_axis_bounds
54
55
56    SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
59      INTEGER (KIND=C_INT)      , VALUE :: data_begin
60    END SUBROUTINE cxios_set_axis_data_begin
61
62    SUBROUTINE cxios_get_axis_data_begin(axis_hdl, data_begin) BIND(C)
63      USE ISO_C_BINDING
64      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
65      INTEGER (KIND=C_INT)             :: data_begin
66    END SUBROUTINE cxios_get_axis_data_begin
67
68    FUNCTION cxios_is_defined_axis_data_begin(axis_hdl) BIND(C)
69      USE ISO_C_BINDING
70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_begin
71      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
72    END FUNCTION cxios_is_defined_axis_data_begin
73
74
75    SUBROUTINE cxios_set_axis_data_index(axis_hdl, data_index, extent1) BIND(C)
76      USE ISO_C_BINDING
77      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
78      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
79      INTEGER (kind = C_INT), VALUE  :: extent1
80    END SUBROUTINE cxios_set_axis_data_index
81
82    SUBROUTINE cxios_get_axis_data_index(axis_hdl, data_index, extent1) BIND(C)
83      USE ISO_C_BINDING
84      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
85      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
86      INTEGER (kind = C_INT), VALUE  :: extent1
87    END SUBROUTINE cxios_get_axis_data_index
88
89    FUNCTION cxios_is_defined_axis_data_index(axis_hdl) BIND(C)
90      USE ISO_C_BINDING
91      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_index
92      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
93    END FUNCTION cxios_is_defined_axis_data_index
94
95
96    SUBROUTINE cxios_set_axis_data_n(axis_hdl, data_n) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
99      INTEGER (KIND=C_INT)      , VALUE :: data_n
100    END SUBROUTINE cxios_set_axis_data_n
101
102    SUBROUTINE cxios_get_axis_data_n(axis_hdl, data_n) BIND(C)
103      USE ISO_C_BINDING
104      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
105      INTEGER (KIND=C_INT)             :: data_n
106    END SUBROUTINE cxios_get_axis_data_n
107
108    FUNCTION cxios_is_defined_axis_data_n(axis_hdl) BIND(C)
109      USE ISO_C_BINDING
110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_n
111      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
112    END FUNCTION cxios_is_defined_axis_data_n
113
114
115    SUBROUTINE cxios_set_axis_ibegin(axis_hdl, ibegin) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
118      INTEGER (KIND=C_INT)      , VALUE :: ibegin
119    END SUBROUTINE cxios_set_axis_ibegin
120
121    SUBROUTINE cxios_get_axis_ibegin(axis_hdl, ibegin) BIND(C)
122      USE ISO_C_BINDING
123      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
124      INTEGER (KIND=C_INT)             :: ibegin
125    END SUBROUTINE cxios_get_axis_ibegin
126
127    FUNCTION cxios_is_defined_axis_ibegin(axis_hdl) BIND(C)
128      USE ISO_C_BINDING
129      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ibegin
130      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
131    END FUNCTION cxios_is_defined_axis_ibegin
132
133
134    SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
135      USE ISO_C_BINDING
136      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
137      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
138      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
139    END SUBROUTINE cxios_set_axis_long_name
140
141    SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
142      USE ISO_C_BINDING
143      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
144      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
145      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
146    END SUBROUTINE cxios_get_axis_long_name
147
148    FUNCTION cxios_is_defined_axis_long_name(axis_hdl) BIND(C)
149      USE ISO_C_BINDING
150      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name
151      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
152    END FUNCTION cxios_is_defined_axis_long_name
153
154
155    SUBROUTINE cxios_set_axis_mask(axis_hdl, mask, extent1) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
158      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
159      INTEGER (kind = C_INT), VALUE  :: extent1
160    END SUBROUTINE cxios_set_axis_mask
161
162    SUBROUTINE cxios_get_axis_mask(axis_hdl, mask, extent1) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
165      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
166      INTEGER (kind = C_INT), VALUE  :: extent1
167    END SUBROUTINE cxios_get_axis_mask
168
169    FUNCTION cxios_is_defined_axis_mask(axis_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_mask
172      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
173    END FUNCTION cxios_is_defined_axis_mask
174
175
176    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
179      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
180      INTEGER  (kind = C_INT)     , VALUE        :: name_size
181    END SUBROUTINE cxios_set_axis_name
182
183    SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C)
184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
186      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
187      INTEGER  (kind = C_INT)     , VALUE        :: name_size
188    END SUBROUTINE cxios_get_axis_name
189
190    FUNCTION cxios_is_defined_axis_name(axis_hdl) BIND(C)
191      USE ISO_C_BINDING
192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name
193      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
194    END FUNCTION cxios_is_defined_axis_name
195
196
197    SUBROUTINE cxios_set_axis_ni(axis_hdl, ni) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
200      INTEGER (KIND=C_INT)      , VALUE :: ni
201    END SUBROUTINE cxios_set_axis_ni
202
203    SUBROUTINE cxios_get_axis_ni(axis_hdl, ni) BIND(C)
204      USE ISO_C_BINDING
205      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
206      INTEGER (KIND=C_INT)             :: ni
207    END SUBROUTINE cxios_get_axis_ni
208
209    FUNCTION cxios_is_defined_axis_ni(axis_hdl) BIND(C)
210      USE ISO_C_BINDING
211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ni
212      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
213    END FUNCTION cxios_is_defined_axis_ni
214
215
216    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
219      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
220      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
221    END SUBROUTINE cxios_set_axis_positive
222
223    SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C)
224      USE ISO_C_BINDING
225      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
226      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
227      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
228    END SUBROUTINE cxios_get_axis_positive
229
230    FUNCTION cxios_is_defined_axis_positive(axis_hdl) BIND(C)
231      USE ISO_C_BINDING
232      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive
233      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
234    END FUNCTION cxios_is_defined_axis_positive
235
236
237    SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C)
238      USE ISO_C_BINDING
239      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
240      INTEGER (KIND=C_INT)      , VALUE :: size
241    END SUBROUTINE cxios_set_axis_size
242
243    SUBROUTINE cxios_get_axis_size(axis_hdl, size) BIND(C)
244      USE ISO_C_BINDING
245      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
246      INTEGER (KIND=C_INT)             :: size
247    END SUBROUTINE cxios_get_axis_size
248
249    FUNCTION cxios_is_defined_axis_size(axis_hdl) BIND(C)
250      USE ISO_C_BINDING
251      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size
252      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
253    END FUNCTION cxios_is_defined_axis_size
254
255
256    SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
257      USE ISO_C_BINDING
258      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
259      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
260      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
261    END SUBROUTINE cxios_set_axis_standard_name
262
263    SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
264      USE ISO_C_BINDING
265      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
266      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
267      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
268    END SUBROUTINE cxios_get_axis_standard_name
269
270    FUNCTION cxios_is_defined_axis_standard_name(axis_hdl) BIND(C)
271      USE ISO_C_BINDING
272      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name
273      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
274    END FUNCTION cxios_is_defined_axis_standard_name
275
276
277    SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
278      USE ISO_C_BINDING
279      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
280      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
281      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
282    END SUBROUTINE cxios_set_axis_unit
283
284    SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C)
285      USE ISO_C_BINDING
286      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
287      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
288      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
289    END SUBROUTINE cxios_get_axis_unit
290
291    FUNCTION cxios_is_defined_axis_unit(axis_hdl) BIND(C)
292      USE ISO_C_BINDING
293      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit
294      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
295    END FUNCTION cxios_is_defined_axis_unit
296
297
298    SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent1) BIND(C)
299      USE ISO_C_BINDING
300      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
301      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
302      INTEGER (kind = C_INT), VALUE  :: extent1
303    END SUBROUTINE cxios_set_axis_value
304
305    SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent1) BIND(C)
306      USE ISO_C_BINDING
307      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
308      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
309      INTEGER (kind = C_INT), VALUE  :: extent1
310    END SUBROUTINE cxios_get_axis_value
311
312    FUNCTION cxios_is_defined_axis_value(axis_hdl) BIND(C)
313      USE ISO_C_BINDING
314      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value
315      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
316    END FUNCTION cxios_is_defined_axis_value
317
318
319    SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C)
320      USE ISO_C_BINDING
321      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
322      INTEGER (KIND=C_INT)      , VALUE :: zoom_begin
323    END SUBROUTINE cxios_set_axis_zoom_begin
324
325    SUBROUTINE cxios_get_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C)
326      USE ISO_C_BINDING
327      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
328      INTEGER (KIND=C_INT)             :: zoom_begin
329    END SUBROUTINE cxios_get_axis_zoom_begin
330
331    FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl) BIND(C)
332      USE ISO_C_BINDING
333      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin
334      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
335    END FUNCTION cxios_is_defined_axis_zoom_begin
336
337
338    SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C)
339      USE ISO_C_BINDING
340      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
341      INTEGER (KIND=C_INT)      , VALUE :: zoom_end
342    END SUBROUTINE cxios_set_axis_zoom_end
343
344    SUBROUTINE cxios_get_axis_zoom_end(axis_hdl, zoom_end) BIND(C)
345      USE ISO_C_BINDING
346      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
347      INTEGER (KIND=C_INT)             :: zoom_end
348    END SUBROUTINE cxios_get_axis_zoom_end
349
350    FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl) BIND(C)
351      USE ISO_C_BINDING
352      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end
353      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
354    END FUNCTION cxios_is_defined_axis_zoom_end
355
356
357    SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C)
358      USE ISO_C_BINDING
359      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
360      INTEGER (KIND=C_INT)      , VALUE :: zoom_size
361    END SUBROUTINE cxios_set_axis_zoom_size
362
363    SUBROUTINE cxios_get_axis_zoom_size(axis_hdl, zoom_size) BIND(C)
364      USE ISO_C_BINDING
365      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
366      INTEGER (KIND=C_INT)             :: zoom_size
367    END SUBROUTINE cxios_get_axis_zoom_size
368
369    FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size
372      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
373    END FUNCTION cxios_is_defined_axis_zoom_size
374
375  END INTERFACE
376
377END MODULE axis_interface_attr
Note: See TracBrowser for help on using the repository browser.