source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/axis_interface_attr.F90 @ 2246

Last change on this file since 2246 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.
  • 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: 23.4 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_axis_type(axis_hdl, axis_type, axis_type_size) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_type
37      INTEGER  (kind = C_INT)     , VALUE        :: axis_type_size
38    END SUBROUTINE cxios_set_axis_axis_type
39
40    SUBROUTINE cxios_get_axis_axis_type(axis_hdl, axis_type, axis_type_size) BIND(C)
41      USE ISO_C_BINDING
42      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
43      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_type
44      INTEGER  (kind = C_INT)     , VALUE        :: axis_type_size
45    END SUBROUTINE cxios_get_axis_axis_type
46
47    FUNCTION cxios_is_defined_axis_axis_type(axis_hdl) BIND(C)
48      USE ISO_C_BINDING
49      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_axis_type
50      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
51    END FUNCTION cxios_is_defined_axis_axis_type
52
53
54    SUBROUTINE cxios_set_axis_begin(axis_hdl, begin) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
57      INTEGER (KIND=C_INT)      , VALUE :: begin
58    END SUBROUTINE cxios_set_axis_begin
59
60    SUBROUTINE cxios_get_axis_begin(axis_hdl, begin) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
63      INTEGER (KIND=C_INT)             :: begin
64    END SUBROUTINE cxios_get_axis_begin
65
66    FUNCTION cxios_is_defined_axis_begin(axis_hdl) BIND(C)
67      USE ISO_C_BINDING
68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_begin
69      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
70    END FUNCTION cxios_is_defined_axis_begin
71
72
73    SUBROUTINE cxios_set_axis_bounds(axis_hdl, bounds, extent) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
76      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
77      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
78    END SUBROUTINE cxios_set_axis_bounds
79
80    SUBROUTINE cxios_get_axis_bounds(axis_hdl, bounds, extent) BIND(C)
81      USE ISO_C_BINDING
82      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
83      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
84      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
85    END SUBROUTINE cxios_get_axis_bounds
86
87    FUNCTION cxios_is_defined_axis_bounds(axis_hdl) BIND(C)
88      USE ISO_C_BINDING
89      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds
90      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
91    END FUNCTION cxios_is_defined_axis_bounds
92
93
94    SUBROUTINE cxios_set_axis_bounds_name(axis_hdl, bounds_name, bounds_name_size) BIND(C)
95      USE ISO_C_BINDING
96      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
97      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: bounds_name
98      INTEGER  (kind = C_INT)     , VALUE        :: bounds_name_size
99    END SUBROUTINE cxios_set_axis_bounds_name
100
101    SUBROUTINE cxios_get_axis_bounds_name(axis_hdl, bounds_name, bounds_name_size) BIND(C)
102      USE ISO_C_BINDING
103      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
104      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: bounds_name
105      INTEGER  (kind = C_INT)     , VALUE        :: bounds_name_size
106    END SUBROUTINE cxios_get_axis_bounds_name
107
108    FUNCTION cxios_is_defined_axis_bounds_name(axis_hdl) BIND(C)
109      USE ISO_C_BINDING
110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds_name
111      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
112    END FUNCTION cxios_is_defined_axis_bounds_name
113
114
115    SUBROUTINE cxios_set_axis_comment(axis_hdl, comment, comment_size) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
118      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
119      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
120    END SUBROUTINE cxios_set_axis_comment
121
122    SUBROUTINE cxios_get_axis_comment(axis_hdl, comment, comment_size) BIND(C)
123      USE ISO_C_BINDING
124      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
125      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
126      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
127    END SUBROUTINE cxios_get_axis_comment
128
129    FUNCTION cxios_is_defined_axis_comment(axis_hdl) BIND(C)
130      USE ISO_C_BINDING
131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_comment
132      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
133    END FUNCTION cxios_is_defined_axis_comment
134
135
136    SUBROUTINE cxios_set_axis_data_begin(axis_hdl, data_begin) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
139      INTEGER (KIND=C_INT)      , VALUE :: data_begin
140    END SUBROUTINE cxios_set_axis_data_begin
141
142    SUBROUTINE cxios_get_axis_data_begin(axis_hdl, data_begin) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
145      INTEGER (KIND=C_INT)             :: data_begin
146    END SUBROUTINE cxios_get_axis_data_begin
147
148    FUNCTION cxios_is_defined_axis_data_begin(axis_hdl) BIND(C)
149      USE ISO_C_BINDING
150      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_begin
151      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
152    END FUNCTION cxios_is_defined_axis_data_begin
153
154
155    SUBROUTINE cxios_set_axis_data_index(axis_hdl, data_index, extent) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
158      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
159      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
160    END SUBROUTINE cxios_set_axis_data_index
161
162    SUBROUTINE cxios_get_axis_data_index(axis_hdl, data_index, extent) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
165      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
166      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
167    END SUBROUTINE cxios_get_axis_data_index
168
169    FUNCTION cxios_is_defined_axis_data_index(axis_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_index
172      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
173    END FUNCTION cxios_is_defined_axis_data_index
174
175
176    SUBROUTINE cxios_set_axis_data_n(axis_hdl, data_n) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
179      INTEGER (KIND=C_INT)      , VALUE :: data_n
180    END SUBROUTINE cxios_set_axis_data_n
181
182    SUBROUTINE cxios_get_axis_data_n(axis_hdl, data_n) BIND(C)
183      USE ISO_C_BINDING
184      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
185      INTEGER (KIND=C_INT)             :: data_n
186    END SUBROUTINE cxios_get_axis_data_n
187
188    FUNCTION cxios_is_defined_axis_data_n(axis_hdl) BIND(C)
189      USE ISO_C_BINDING
190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_data_n
191      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
192    END FUNCTION cxios_is_defined_axis_data_n
193
194
195    SUBROUTINE cxios_set_axis_dim_name(axis_hdl, dim_name, dim_name_size) BIND(C)
196      USE ISO_C_BINDING
197      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
198      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: dim_name
199      INTEGER  (kind = C_INT)     , VALUE        :: dim_name_size
200    END SUBROUTINE cxios_set_axis_dim_name
201
202    SUBROUTINE cxios_get_axis_dim_name(axis_hdl, dim_name, dim_name_size) BIND(C)
203      USE ISO_C_BINDING
204      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
205      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: dim_name
206      INTEGER  (kind = C_INT)     , VALUE        :: dim_name_size
207    END SUBROUTINE cxios_get_axis_dim_name
208
209    FUNCTION cxios_is_defined_axis_dim_name(axis_hdl) BIND(C)
210      USE ISO_C_BINDING
211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_dim_name
212      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
213    END FUNCTION cxios_is_defined_axis_dim_name
214
215
216    SUBROUTINE cxios_set_axis_formula(axis_hdl, formula, formula_size) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
219      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula
220      INTEGER  (kind = C_INT)     , VALUE        :: formula_size
221    END SUBROUTINE cxios_set_axis_formula
222
223    SUBROUTINE cxios_get_axis_formula(axis_hdl, formula, formula_size) BIND(C)
224      USE ISO_C_BINDING
225      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
226      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula
227      INTEGER  (kind = C_INT)     , VALUE        :: formula_size
228    END SUBROUTINE cxios_get_axis_formula
229
230    FUNCTION cxios_is_defined_axis_formula(axis_hdl) BIND(C)
231      USE ISO_C_BINDING
232      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula
233      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
234    END FUNCTION cxios_is_defined_axis_formula
235
236
237    SUBROUTINE cxios_set_axis_formula_bounds(axis_hdl, formula_bounds, formula_bounds_size) BIND(C)
238      USE ISO_C_BINDING
239      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
240      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_bounds
241      INTEGER  (kind = C_INT)     , VALUE        :: formula_bounds_size
242    END SUBROUTINE cxios_set_axis_formula_bounds
243
244    SUBROUTINE cxios_get_axis_formula_bounds(axis_hdl, formula_bounds, formula_bounds_size) BIND(C)
245      USE ISO_C_BINDING
246      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
247      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_bounds
248      INTEGER  (kind = C_INT)     , VALUE        :: formula_bounds_size
249    END SUBROUTINE cxios_get_axis_formula_bounds
250
251    FUNCTION cxios_is_defined_axis_formula_bounds(axis_hdl) BIND(C)
252      USE ISO_C_BINDING
253      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_bounds
254      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
255    END FUNCTION cxios_is_defined_axis_formula_bounds
256
257
258    SUBROUTINE cxios_set_axis_formula_term(axis_hdl, formula_term, formula_term_size) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
261      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term
262      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_size
263    END SUBROUTINE cxios_set_axis_formula_term
264
265    SUBROUTINE cxios_get_axis_formula_term(axis_hdl, formula_term, formula_term_size) BIND(C)
266      USE ISO_C_BINDING
267      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
268      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term
269      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_size
270    END SUBROUTINE cxios_get_axis_formula_term
271
272    FUNCTION cxios_is_defined_axis_formula_term(axis_hdl) BIND(C)
273      USE ISO_C_BINDING
274      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_term
275      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
276    END FUNCTION cxios_is_defined_axis_formula_term
277
278
279    SUBROUTINE cxios_set_axis_formula_term_bounds(axis_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C)
280      USE ISO_C_BINDING
281      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
282      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term_bounds
283      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_bounds_size
284    END SUBROUTINE cxios_set_axis_formula_term_bounds
285
286    SUBROUTINE cxios_get_axis_formula_term_bounds(axis_hdl, formula_term_bounds, formula_term_bounds_size) BIND(C)
287      USE ISO_C_BINDING
288      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
289      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: formula_term_bounds
290      INTEGER  (kind = C_INT)     , VALUE        :: formula_term_bounds_size
291    END SUBROUTINE cxios_get_axis_formula_term_bounds
292
293    FUNCTION cxios_is_defined_axis_formula_term_bounds(axis_hdl) BIND(C)
294      USE ISO_C_BINDING
295      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_formula_term_bounds
296      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
297    END FUNCTION cxios_is_defined_axis_formula_term_bounds
298
299
300    SUBROUTINE cxios_set_axis_index(axis_hdl, index, extent) BIND(C)
301      USE ISO_C_BINDING
302      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
303      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
304      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
305    END SUBROUTINE cxios_set_axis_index
306
307    SUBROUTINE cxios_get_axis_index(axis_hdl, index, extent) BIND(C)
308      USE ISO_C_BINDING
309      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
310      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
311      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
312    END SUBROUTINE cxios_get_axis_index
313
314    FUNCTION cxios_is_defined_axis_index(axis_hdl) BIND(C)
315      USE ISO_C_BINDING
316      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_index
317      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
318    END FUNCTION cxios_is_defined_axis_index
319
320
321    SUBROUTINE cxios_set_axis_label(axis_hdl, label, str_len, str_size, extent) BIND(C)
322      USE ISO_C_BINDING
323      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
324      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
325      INTEGER (kind = C_INT), VALUE            :: str_len
326      INTEGER (kind = C_INT), DIMENSION(*)     :: str_size
327      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
328    END SUBROUTINE cxios_set_axis_label
329
330    SUBROUTINE cxios_get_axis_label(axis_hdl, label, str_size, extent) BIND(C)
331      USE ISO_C_BINDING
332      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
333      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
334      INTEGER (kind = C_INT), VALUE            :: str_size
335      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
336    END SUBROUTINE cxios_get_axis_label
337
338    FUNCTION cxios_is_defined_axis_label(axis_hdl) BIND(C)
339      USE ISO_C_BINDING
340      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_label
341      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
342    END FUNCTION cxios_is_defined_axis_label
343
344
345    SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
346      USE ISO_C_BINDING
347      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
348      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
349      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
350    END SUBROUTINE cxios_set_axis_long_name
351
352    SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
353      USE ISO_C_BINDING
354      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
355      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
356      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
357    END SUBROUTINE cxios_get_axis_long_name
358
359    FUNCTION cxios_is_defined_axis_long_name(axis_hdl) BIND(C)
360      USE ISO_C_BINDING
361      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name
362      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
363    END FUNCTION cxios_is_defined_axis_long_name
364
365
366    SUBROUTINE cxios_set_axis_mask(axis_hdl, mask, extent) BIND(C)
367      USE ISO_C_BINDING
368      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
369      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
370      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
371    END SUBROUTINE cxios_set_axis_mask
372
373    SUBROUTINE cxios_get_axis_mask(axis_hdl, mask, extent) BIND(C)
374      USE ISO_C_BINDING
375      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
376      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
377      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
378    END SUBROUTINE cxios_get_axis_mask
379
380    FUNCTION cxios_is_defined_axis_mask(axis_hdl) BIND(C)
381      USE ISO_C_BINDING
382      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_mask
383      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
384    END FUNCTION cxios_is_defined_axis_mask
385
386
387    SUBROUTINE cxios_set_axis_n(axis_hdl, n) BIND(C)
388      USE ISO_C_BINDING
389      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
390      INTEGER (KIND=C_INT)      , VALUE :: n
391    END SUBROUTINE cxios_set_axis_n
392
393    SUBROUTINE cxios_get_axis_n(axis_hdl, n) BIND(C)
394      USE ISO_C_BINDING
395      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
396      INTEGER (KIND=C_INT)             :: n
397    END SUBROUTINE cxios_get_axis_n
398
399    FUNCTION cxios_is_defined_axis_n(axis_hdl) BIND(C)
400      USE ISO_C_BINDING
401      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n
402      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
403    END FUNCTION cxios_is_defined_axis_n
404
405
406    SUBROUTINE cxios_set_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C)
407      USE ISO_C_BINDING
408      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
409      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
410    END SUBROUTINE cxios_set_axis_n_distributed_partition
411
412    SUBROUTINE cxios_get_axis_n_distributed_partition(axis_hdl, n_distributed_partition) BIND(C)
413      USE ISO_C_BINDING
414      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
415      INTEGER (KIND=C_INT)             :: n_distributed_partition
416    END SUBROUTINE cxios_get_axis_n_distributed_partition
417
418    FUNCTION cxios_is_defined_axis_n_distributed_partition(axis_hdl) BIND(C)
419      USE ISO_C_BINDING
420      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_distributed_partition
421      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
422    END FUNCTION cxios_is_defined_axis_n_distributed_partition
423
424
425    SUBROUTINE cxios_set_axis_n_glo(axis_hdl, n_glo) BIND(C)
426      USE ISO_C_BINDING
427      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
428      INTEGER (KIND=C_INT)      , VALUE :: n_glo
429    END SUBROUTINE cxios_set_axis_n_glo
430
431    SUBROUTINE cxios_get_axis_n_glo(axis_hdl, n_glo) BIND(C)
432      USE ISO_C_BINDING
433      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
434      INTEGER (KIND=C_INT)             :: n_glo
435    END SUBROUTINE cxios_get_axis_n_glo
436
437    FUNCTION cxios_is_defined_axis_n_glo(axis_hdl) BIND(C)
438      USE ISO_C_BINDING
439      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_glo
440      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
441    END FUNCTION cxios_is_defined_axis_n_glo
442
443
444    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
445      USE ISO_C_BINDING
446      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
447      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
448      INTEGER  (kind = C_INT)     , VALUE        :: name_size
449    END SUBROUTINE cxios_set_axis_name
450
451    SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C)
452      USE ISO_C_BINDING
453      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
454      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
455      INTEGER  (kind = C_INT)     , VALUE        :: name_size
456    END SUBROUTINE cxios_get_axis_name
457
458    FUNCTION cxios_is_defined_axis_name(axis_hdl) BIND(C)
459      USE ISO_C_BINDING
460      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name
461      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
462    END FUNCTION cxios_is_defined_axis_name
463
464
465    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C)
466      USE ISO_C_BINDING
467      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
468      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
469      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
470    END SUBROUTINE cxios_set_axis_positive
471
472    SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C)
473      USE ISO_C_BINDING
474      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
475      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
476      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
477    END SUBROUTINE cxios_get_axis_positive
478
479    FUNCTION cxios_is_defined_axis_positive(axis_hdl) BIND(C)
480      USE ISO_C_BINDING
481      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive
482      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
483    END FUNCTION cxios_is_defined_axis_positive
484
485
486    SUBROUTINE cxios_set_axis_prec(axis_hdl, prec) BIND(C)
487      USE ISO_C_BINDING
488      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
489      INTEGER (KIND=C_INT)      , VALUE :: prec
490    END SUBROUTINE cxios_set_axis_prec
491
492    SUBROUTINE cxios_get_axis_prec(axis_hdl, prec) BIND(C)
493      USE ISO_C_BINDING
494      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
495      INTEGER (KIND=C_INT)             :: prec
496    END SUBROUTINE cxios_get_axis_prec
497
498    FUNCTION cxios_is_defined_axis_prec(axis_hdl) BIND(C)
499      USE ISO_C_BINDING
500      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_prec
501      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
502    END FUNCTION cxios_is_defined_axis_prec
503
504
505    SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
506      USE ISO_C_BINDING
507      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
508      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
509      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
510    END SUBROUTINE cxios_set_axis_standard_name
511
512    SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
513      USE ISO_C_BINDING
514      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
515      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
516      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
517    END SUBROUTINE cxios_get_axis_standard_name
518
519    FUNCTION cxios_is_defined_axis_standard_name(axis_hdl) BIND(C)
520      USE ISO_C_BINDING
521      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name
522      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
523    END FUNCTION cxios_is_defined_axis_standard_name
524
525
526    SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
527      USE ISO_C_BINDING
528      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
529      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
530      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
531    END SUBROUTINE cxios_set_axis_unit
532
533    SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C)
534      USE ISO_C_BINDING
535      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
536      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
537      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
538    END SUBROUTINE cxios_get_axis_unit
539
540    FUNCTION cxios_is_defined_axis_unit(axis_hdl) BIND(C)
541      USE ISO_C_BINDING
542      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit
543      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
544    END FUNCTION cxios_is_defined_axis_unit
545
546
547    SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent) BIND(C)
548      USE ISO_C_BINDING
549      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
550      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
551      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
552    END SUBROUTINE cxios_set_axis_value
553
554    SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent) BIND(C)
555      USE ISO_C_BINDING
556      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
557      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
558      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
559    END SUBROUTINE cxios_get_axis_value
560
561    FUNCTION cxios_is_defined_axis_value(axis_hdl) BIND(C)
562      USE ISO_C_BINDING
563      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value
564      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
565    END FUNCTION cxios_is_defined_axis_value
566
567  END INTERFACE
568
569END MODULE axis_interface_attr
Note: See TracBrowser for help on using the repository browser.