source: XIOS3/trunk/src/interface/fortran_attr/axis_interface_attr.F90 @ 2622

Last change on this file since 2622 was 2616, checked in by jderouillat, 4 months ago

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