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

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

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