source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/axis_interface_attr.F90 @ 1205

Last change on this file since 1205 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

  • 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: 16.0 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_begin(axis_hdl, begin) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
36      INTEGER (KIND=C_INT)      , VALUE :: begin
37    END SUBROUTINE cxios_set_axis_begin
38
39    SUBROUTINE cxios_get_axis_begin(axis_hdl, begin) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
42      INTEGER (KIND=C_INT)             :: begin
43    END SUBROUTINE cxios_get_axis_begin
44
45    FUNCTION cxios_is_defined_axis_begin(axis_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_begin
48      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
49    END FUNCTION cxios_is_defined_axis_begin
50
51
52    SUBROUTINE cxios_set_axis_bounds(axis_hdl, bounds, extent) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
55      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
56      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
57    END SUBROUTINE cxios_set_axis_bounds
58
59    SUBROUTINE cxios_get_axis_bounds(axis_hdl, bounds, extent) BIND(C)
60      USE ISO_C_BINDING
61      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
62      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
63      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
64    END SUBROUTINE cxios_get_axis_bounds
65
66    FUNCTION cxios_is_defined_axis_bounds(axis_hdl) BIND(C)
67      USE ISO_C_BINDING
68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds
69      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
70    END FUNCTION cxios_is_defined_axis_bounds
71
72
73    SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
76      INTEGER (KIND=C_INT)      , VALUE :: data_begin
77    END SUBROUTINE cxios_set_axis_data_begin
78
79    SUBROUTINE cxios_get_axis_data_begin(axis_hdl, data_begin) BIND(C)
80      USE ISO_C_BINDING
81      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
82      INTEGER (KIND=C_INT)             :: data_begin
83    END SUBROUTINE cxios_get_axis_data_begin
84
85    FUNCTION cxios_is_defined_axis_data_begin(axis_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_begin
88      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
89    END FUNCTION cxios_is_defined_axis_data_begin
90
91
92    SUBROUTINE cxios_set_axis_data_index(axis_hdl, data_index, extent) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
95      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
96      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
97    END SUBROUTINE cxios_set_axis_data_index
98
99    SUBROUTINE cxios_get_axis_data_index(axis_hdl, data_index, extent) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
102      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
103      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
104    END SUBROUTINE cxios_get_axis_data_index
105
106    FUNCTION cxios_is_defined_axis_data_index(axis_hdl) BIND(C)
107      USE ISO_C_BINDING
108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_index
109      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
110    END FUNCTION cxios_is_defined_axis_data_index
111
112
113    SUBROUTINE cxios_set_axis_data_n(axis_hdl, data_n) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
116      INTEGER (KIND=C_INT)      , VALUE :: data_n
117    END SUBROUTINE cxios_set_axis_data_n
118
119    SUBROUTINE cxios_get_axis_data_n(axis_hdl, data_n) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
122      INTEGER (KIND=C_INT)             :: data_n
123    END SUBROUTINE cxios_get_axis_data_n
124
125    FUNCTION cxios_is_defined_axis_data_n(axis_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_n
128      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
129    END FUNCTION cxios_is_defined_axis_data_n
130
131
132    SUBROUTINE cxios_set_axis_index(axis_hdl, index, extent) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
135      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
136      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
137    END SUBROUTINE cxios_set_axis_index
138
139    SUBROUTINE cxios_get_axis_index(axis_hdl, index, extent) BIND(C)
140      USE ISO_C_BINDING
141      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
142      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
143      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
144    END SUBROUTINE cxios_get_axis_index
145
146    FUNCTION cxios_is_defined_axis_index(axis_hdl) BIND(C)
147      USE ISO_C_BINDING
148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_index
149      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
150    END FUNCTION cxios_is_defined_axis_index
151
152
153    SUBROUTINE cxios_set_axis_label(axis_hdl, label, str_len, str_size, extent) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
156      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
157      INTEGER (kind = C_INT), VALUE            :: str_len
158      INTEGER (kind = C_INT), DIMENSION(*)     :: str_size
159      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
160    END SUBROUTINE cxios_set_axis_label
161
162    SUBROUTINE cxios_get_axis_label(axis_hdl, label, str_size, extent) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
165      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
166      INTEGER (kind = C_INT), VALUE            :: str_size
167      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
168    END SUBROUTINE cxios_get_axis_label
169
170    FUNCTION cxios_is_defined_axis_label(axis_hdl) BIND(C)
171      USE ISO_C_BINDING
172      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_label
173      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
174    END FUNCTION cxios_is_defined_axis_label
175
176
177    SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
180      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
181      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
182    END SUBROUTINE cxios_set_axis_long_name
183
184    SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
185      USE ISO_C_BINDING
186      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
187      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
188      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
189    END SUBROUTINE cxios_get_axis_long_name
190
191    FUNCTION cxios_is_defined_axis_long_name(axis_hdl) BIND(C)
192      USE ISO_C_BINDING
193      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name
194      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
195    END FUNCTION cxios_is_defined_axis_long_name
196
197
198    SUBROUTINE cxios_set_axis_mask(axis_hdl, mask, extent) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
201      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
202      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
203    END SUBROUTINE cxios_set_axis_mask
204
205    SUBROUTINE cxios_get_axis_mask(axis_hdl, mask, extent) BIND(C)
206      USE ISO_C_BINDING
207      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
208      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
209      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
210    END SUBROUTINE cxios_get_axis_mask
211
212    FUNCTION cxios_is_defined_axis_mask(axis_hdl) BIND(C)
213      USE ISO_C_BINDING
214      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_mask
215      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
216    END FUNCTION cxios_is_defined_axis_mask
217
218
219    SUBROUTINE cxios_set_axis_n(axis_hdl, n) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
222      INTEGER (KIND=C_INT)      , VALUE :: n
223    END SUBROUTINE cxios_set_axis_n
224
225    SUBROUTINE cxios_get_axis_n(axis_hdl, n) BIND(C)
226      USE ISO_C_BINDING
227      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
228      INTEGER (KIND=C_INT)             :: n
229    END SUBROUTINE cxios_get_axis_n
230
231    FUNCTION cxios_is_defined_axis_n(axis_hdl) BIND(C)
232      USE ISO_C_BINDING
233      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n
234      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
235    END FUNCTION cxios_is_defined_axis_n
236
237
238    SUBROUTINE cxios_set_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C)
239      USE ISO_C_BINDING
240      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
241      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
242    END SUBROUTINE cxios_set_axis_n_distributed_partition
243
244    SUBROUTINE cxios_get_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C)
245      USE ISO_C_BINDING
246      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
247      INTEGER (KIND=C_INT)             :: n_distributed_partition
248    END SUBROUTINE cxios_get_axis_n_distributed_partition
249
250    FUNCTION cxios_is_defined_axis_n_distributed_partition(axis_hdl) BIND(C)
251      USE ISO_C_BINDING
252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_distributed_partition
253      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
254    END FUNCTION cxios_is_defined_axis_n_distributed_partition
255
256
257    SUBROUTINE cxios_set_axis_n_glo(axis_hdl, n_glo) BIND(C)
258      USE ISO_C_BINDING
259      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
260      INTEGER (KIND=C_INT)      , VALUE :: n_glo
261    END SUBROUTINE cxios_set_axis_n_glo
262
263    SUBROUTINE cxios_get_axis_n_glo(axis_hdl, n_glo) BIND(C)
264      USE ISO_C_BINDING
265      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
266      INTEGER (KIND=C_INT)             :: n_glo
267    END SUBROUTINE cxios_get_axis_n_glo
268
269    FUNCTION cxios_is_defined_axis_n_glo(axis_hdl) BIND(C)
270      USE ISO_C_BINDING
271      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_glo
272      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
273    END FUNCTION cxios_is_defined_axis_n_glo
274
275
276    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
277      USE ISO_C_BINDING
278      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
279      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
280      INTEGER  (kind = C_INT)     , VALUE        :: name_size
281    END SUBROUTINE cxios_set_axis_name
282
283    SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C)
284      USE ISO_C_BINDING
285      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
286      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
287      INTEGER  (kind = C_INT)     , VALUE        :: name_size
288    END SUBROUTINE cxios_get_axis_name
289
290    FUNCTION cxios_is_defined_axis_name(axis_hdl) BIND(C)
291      USE ISO_C_BINDING
292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name
293      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
294    END FUNCTION cxios_is_defined_axis_name
295
296
297    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
300      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
301      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
302    END SUBROUTINE cxios_set_axis_positive
303
304    SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C)
305      USE ISO_C_BINDING
306      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
307      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
308      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
309    END SUBROUTINE cxios_get_axis_positive
310
311    FUNCTION cxios_is_defined_axis_positive(axis_hdl) BIND(C)
312      USE ISO_C_BINDING
313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive
314      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
315    END FUNCTION cxios_is_defined_axis_positive
316
317
318    SUBROUTINE cxios_set_axis_prec(axis_hdl, prec) BIND(C)
319      USE ISO_C_BINDING
320      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
321      INTEGER (KIND=C_INT)      , VALUE :: prec
322    END SUBROUTINE cxios_set_axis_prec
323
324    SUBROUTINE cxios_get_axis_prec(axis_hdl, prec) BIND(C)
325      USE ISO_C_BINDING
326      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
327      INTEGER (KIND=C_INT)             :: prec
328    END SUBROUTINE cxios_get_axis_prec
329
330    FUNCTION cxios_is_defined_axis_prec(axis_hdl) BIND(C)
331      USE ISO_C_BINDING
332      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_prec
333      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
334    END FUNCTION cxios_is_defined_axis_prec
335
336
337    SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
338      USE ISO_C_BINDING
339      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
340      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
341      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
342    END SUBROUTINE cxios_set_axis_standard_name
343
344    SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
345      USE ISO_C_BINDING
346      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
347      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
348      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
349    END SUBROUTINE cxios_get_axis_standard_name
350
351    FUNCTION cxios_is_defined_axis_standard_name(axis_hdl) BIND(C)
352      USE ISO_C_BINDING
353      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name
354      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
355    END FUNCTION cxios_is_defined_axis_standard_name
356
357
358    SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
359      USE ISO_C_BINDING
360      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
361      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
362      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
363    END SUBROUTINE cxios_set_axis_unit
364
365    SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C)
366      USE ISO_C_BINDING
367      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
368      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
369      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
370    END SUBROUTINE cxios_get_axis_unit
371
372    FUNCTION cxios_is_defined_axis_unit(axis_hdl) BIND(C)
373      USE ISO_C_BINDING
374      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit
375      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
376    END FUNCTION cxios_is_defined_axis_unit
377
378
379    SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent) BIND(C)
380      USE ISO_C_BINDING
381      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
382      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
383      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
384    END SUBROUTINE cxios_set_axis_value
385
386    SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent) BIND(C)
387      USE ISO_C_BINDING
388      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
389      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
390      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
391    END SUBROUTINE cxios_get_axis_value
392
393    FUNCTION cxios_is_defined_axis_value(axis_hdl) BIND(C)
394      USE ISO_C_BINDING
395      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value
396      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
397    END FUNCTION cxios_is_defined_axis_value
398
399  END INTERFACE
400
401END MODULE axis_interface_attr
Note: See TracBrowser for help on using the repository browser.