source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/axisgroup_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: 18.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "../fortran/xios_fortran_prefix.hpp"
5
6MODULE axisgroup_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_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
15      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
16      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
17    END SUBROUTINE cxios_set_axisgroup_axis_ref
18
19    SUBROUTINE cxios_get_axisgroup_axis_ref(axisgroup_hdl, axis_ref, axis_ref_size) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
22      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
23      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
24    END SUBROUTINE cxios_get_axisgroup_axis_ref
25
26    FUNCTION cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl) BIND(C)
27      USE ISO_C_BINDING
28      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_axis_ref
29      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
30    END FUNCTION cxios_is_defined_axisgroup_axis_ref
31
32
33    SUBROUTINE cxios_set_axisgroup_begin(axisgroup_hdl, begin) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
36      INTEGER (KIND=C_INT)      , VALUE :: begin
37    END SUBROUTINE cxios_set_axisgroup_begin
38
39    SUBROUTINE cxios_get_axisgroup_begin(axisgroup_hdl, begin) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
42      INTEGER (KIND=C_INT)             :: begin
43    END SUBROUTINE cxios_get_axisgroup_begin
44
45    FUNCTION cxios_is_defined_axisgroup_begin(axisgroup_hdl) BIND(C)
46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_begin
48      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
49    END FUNCTION cxios_is_defined_axisgroup_begin
50
51
52    SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
55      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
56      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
57    END SUBROUTINE cxios_set_axisgroup_bounds
58
59    SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C)
60      USE ISO_C_BINDING
61      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
62      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
63      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
64    END SUBROUTINE cxios_get_axisgroup_bounds
65
66    FUNCTION cxios_is_defined_axisgroup_bounds(axisgroup_hdl) BIND(C)
67      USE ISO_C_BINDING
68      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_bounds
69      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
70    END FUNCTION cxios_is_defined_axisgroup_bounds
71
72
73    SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
74      USE ISO_C_BINDING
75      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
76      INTEGER (KIND=C_INT)      , VALUE :: data_begin
77    END SUBROUTINE cxios_set_axisgroup_data_begin
78
79    SUBROUTINE cxios_get_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
80      USE ISO_C_BINDING
81      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
82      INTEGER (KIND=C_INT)             :: data_begin
83    END SUBROUTINE cxios_get_axisgroup_data_begin
84
85    FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_begin
88      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
89    END FUNCTION cxios_is_defined_axisgroup_data_begin
90
91
92    SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
95      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
96      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
97    END SUBROUTINE cxios_set_axisgroup_data_index
98
99    SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
102      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
103      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
104    END SUBROUTINE cxios_get_axisgroup_data_index
105
106    FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl) BIND(C)
107      USE ISO_C_BINDING
108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_index
109      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
110    END FUNCTION cxios_is_defined_axisgroup_data_index
111
112
113    SUBROUTINE cxios_set_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
116      INTEGER (KIND=C_INT)      , VALUE :: data_n
117    END SUBROUTINE cxios_set_axisgroup_data_n
118
119    SUBROUTINE cxios_get_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
122      INTEGER (KIND=C_INT)             :: data_n
123    END SUBROUTINE cxios_get_axisgroup_data_n
124
125    FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_n
128      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
129    END FUNCTION cxios_is_defined_axisgroup_data_n
130
131
132    SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
135      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
136      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
137    END SUBROUTINE cxios_set_axisgroup_group_ref
138
139    SUBROUTINE cxios_get_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
140      USE ISO_C_BINDING
141      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
142      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
143      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
144    END SUBROUTINE cxios_get_axisgroup_group_ref
145
146    FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl) BIND(C)
147      USE ISO_C_BINDING
148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref
149      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
150    END FUNCTION cxios_is_defined_axisgroup_group_ref
151
152
153    SUBROUTINE cxios_set_axisgroup_index(axisgroup_hdl, index, extent) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
156      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
157      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
158    END SUBROUTINE cxios_set_axisgroup_index
159
160    SUBROUTINE cxios_get_axisgroup_index(axisgroup_hdl, index, extent) BIND(C)
161      USE ISO_C_BINDING
162      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
163      INTEGER (KIND=C_INT)     , DIMENSION(*) :: index
164      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
165    END SUBROUTINE cxios_get_axisgroup_index
166
167    FUNCTION cxios_is_defined_axisgroup_index(axisgroup_hdl) BIND(C)
168      USE ISO_C_BINDING
169      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_index
170      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
171    END FUNCTION cxios_is_defined_axisgroup_index
172
173
174    SUBROUTINE cxios_set_axisgroup_label(axisgroup_hdl, label, str_len, str_size, extent) BIND(C)
175      USE ISO_C_BINDING
176      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
177      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
178      INTEGER (kind = C_INT), VALUE            :: str_len
179      INTEGER (kind = C_INT), DIMENSION(*)     :: str_size
180      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
181    END SUBROUTINE cxios_set_axisgroup_label
182
183    SUBROUTINE cxios_get_axisgroup_label(axisgroup_hdl, label, str_size, extent) BIND(C)
184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
186      CHARACTER (KIND=C_CHAR), DIMENSION(*)    :: label
187      INTEGER (kind = C_INT), VALUE            :: str_size
188      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
189    END SUBROUTINE cxios_get_axisgroup_label
190
191    FUNCTION cxios_is_defined_axisgroup_label(axisgroup_hdl) BIND(C)
192      USE ISO_C_BINDING
193      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_label
194      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
195    END FUNCTION cxios_is_defined_axisgroup_label
196
197
198    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
201      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
202      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
203    END SUBROUTINE cxios_set_axisgroup_long_name
204
205    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
206      USE ISO_C_BINDING
207      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
208      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
209      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
210    END SUBROUTINE cxios_get_axisgroup_long_name
211
212    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl) BIND(C)
213      USE ISO_C_BINDING
214      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name
215      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
216    END FUNCTION cxios_is_defined_axisgroup_long_name
217
218
219    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
222      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
223      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
224    END SUBROUTINE cxios_set_axisgroup_mask
225
226    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
227      USE ISO_C_BINDING
228      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
229      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
230      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
231    END SUBROUTINE cxios_get_axisgroup_mask
232
233    FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl) BIND(C)
234      USE ISO_C_BINDING
235      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask
236      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
237    END FUNCTION cxios_is_defined_axisgroup_mask
238
239
240    SUBROUTINE cxios_set_axisgroup_n(axisgroup_hdl, n) BIND(C)
241      USE ISO_C_BINDING
242      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
243      INTEGER (KIND=C_INT)      , VALUE :: n
244    END SUBROUTINE cxios_set_axisgroup_n
245
246    SUBROUTINE cxios_get_axisgroup_n(axisgroup_hdl, n) BIND(C)
247      USE ISO_C_BINDING
248      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
249      INTEGER (KIND=C_INT)             :: n
250    END SUBROUTINE cxios_get_axisgroup_n
251
252    FUNCTION cxios_is_defined_axisgroup_n(axisgroup_hdl) BIND(C)
253      USE ISO_C_BINDING
254      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n
255      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
256    END FUNCTION cxios_is_defined_axisgroup_n
257
258
259    SUBROUTINE cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
260      USE ISO_C_BINDING
261      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
262      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
263    END SUBROUTINE cxios_set_axisgroup_n_distributed_partition
264
265    SUBROUTINE cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
266      USE ISO_C_BINDING
267      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
268      INTEGER (KIND=C_INT)             :: n_distributed_partition
269    END SUBROUTINE cxios_get_axisgroup_n_distributed_partition
270
271    FUNCTION cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl) BIND(C)
272      USE ISO_C_BINDING
273      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_distributed_partition
274      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
275    END FUNCTION cxios_is_defined_axisgroup_n_distributed_partition
276
277
278    SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
279      USE ISO_C_BINDING
280      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
281      INTEGER (KIND=C_INT)      , VALUE :: n_glo
282    END SUBROUTINE cxios_set_axisgroup_n_glo
283
284    SUBROUTINE cxios_get_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
285      USE ISO_C_BINDING
286      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
287      INTEGER (KIND=C_INT)             :: n_glo
288    END SUBROUTINE cxios_get_axisgroup_n_glo
289
290    FUNCTION cxios_is_defined_axisgroup_n_glo(axisgroup_hdl) BIND(C)
291      USE ISO_C_BINDING
292      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_glo
293      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
294    END FUNCTION cxios_is_defined_axisgroup_n_glo
295
296
297    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
300      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
301      INTEGER  (kind = C_INT)     , VALUE        :: name_size
302    END SUBROUTINE cxios_set_axisgroup_name
303
304    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
305      USE ISO_C_BINDING
306      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
307      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
308      INTEGER  (kind = C_INT)     , VALUE        :: name_size
309    END SUBROUTINE cxios_get_axisgroup_name
310
311    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl) BIND(C)
312      USE ISO_C_BINDING
313      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name
314      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
315    END FUNCTION cxios_is_defined_axisgroup_name
316
317
318    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
319      USE ISO_C_BINDING
320      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
321      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
322      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
323    END SUBROUTINE cxios_set_axisgroup_positive
324
325    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
326      USE ISO_C_BINDING
327      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
328      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
329      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
330    END SUBROUTINE cxios_get_axisgroup_positive
331
332    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl) BIND(C)
333      USE ISO_C_BINDING
334      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive
335      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
336    END FUNCTION cxios_is_defined_axisgroup_positive
337
338
339    SUBROUTINE cxios_set_axisgroup_prec(axisgroup_hdl, prec) BIND(C)
340      USE ISO_C_BINDING
341      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
342      INTEGER (KIND=C_INT)      , VALUE :: prec
343    END SUBROUTINE cxios_set_axisgroup_prec
344
345    SUBROUTINE cxios_get_axisgroup_prec(axisgroup_hdl, prec) BIND(C)
346      USE ISO_C_BINDING
347      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
348      INTEGER (KIND=C_INT)             :: prec
349    END SUBROUTINE cxios_get_axisgroup_prec
350
351    FUNCTION cxios_is_defined_axisgroup_prec(axisgroup_hdl) BIND(C)
352      USE ISO_C_BINDING
353      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_prec
354      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
355    END FUNCTION cxios_is_defined_axisgroup_prec
356
357
358    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
359      USE ISO_C_BINDING
360      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
361      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
362      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
363    END SUBROUTINE cxios_set_axisgroup_standard_name
364
365    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
366      USE ISO_C_BINDING
367      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
368      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
369      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
370    END SUBROUTINE cxios_get_axisgroup_standard_name
371
372    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl) BIND(C)
373      USE ISO_C_BINDING
374      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name
375      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
376    END FUNCTION cxios_is_defined_axisgroup_standard_name
377
378
379    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
380      USE ISO_C_BINDING
381      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
382      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
383      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
384    END SUBROUTINE cxios_set_axisgroup_unit
385
386    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
387      USE ISO_C_BINDING
388      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
389      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
390      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
391    END SUBROUTINE cxios_get_axisgroup_unit
392
393    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl) BIND(C)
394      USE ISO_C_BINDING
395      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit
396      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
397    END FUNCTION cxios_is_defined_axisgroup_unit
398
399
400    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
401      USE ISO_C_BINDING
402      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
403      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
404      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
405    END SUBROUTINE cxios_set_axisgroup_value
406
407    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
408      USE ISO_C_BINDING
409      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
410      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
411      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
412    END SUBROUTINE cxios_get_axisgroup_value
413
414    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl) BIND(C)
415      USE ISO_C_BINDING
416      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value
417      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
418    END FUNCTION cxios_is_defined_axisgroup_value
419
420  END INTERFACE
421
422END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.