source: XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.F90 @ 657

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

Improve CF compliance: add a new axis attribute "bounds".

Fixes ticket #67.
  • 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.9 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_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
36      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
37      INTEGER (kind = C_INT), VALUE  :: extent1
38      INTEGER (kind = C_INT), VALUE  :: extent2
39    END SUBROUTINE cxios_set_axisgroup_bounds
40
41    SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C)
42      USE ISO_C_BINDING
43      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
44      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
45      INTEGER (kind = C_INT), VALUE  :: extent1
46      INTEGER (kind = C_INT), VALUE  :: extent2
47    END SUBROUTINE cxios_get_axisgroup_bounds
48
49    FUNCTION cxios_is_defined_axisgroup_bounds(axisgroup_hdl) BIND(C)
50      USE ISO_C_BINDING
51      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_bounds
52      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
53    END FUNCTION cxios_is_defined_axisgroup_bounds
54
55
56    SUBROUTINE cxios_set_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
59      INTEGER (KIND=C_INT)      , VALUE :: data_begin
60    END SUBROUTINE cxios_set_axisgroup_data_begin
61
62    SUBROUTINE cxios_get_axisgroup_data_begin(axisgroup_hdl, data_begin) BIND(C)
63      USE ISO_C_BINDING
64      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
65      INTEGER (KIND=C_INT)             :: data_begin
66    END SUBROUTINE cxios_get_axisgroup_data_begin
67
68    FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl) BIND(C)
69      USE ISO_C_BINDING
70      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_begin
71      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
72    END FUNCTION cxios_is_defined_axisgroup_data_begin
73
74
75    SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C)
76      USE ISO_C_BINDING
77      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
78      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
79      INTEGER (kind = C_INT), VALUE  :: extent1
80    END SUBROUTINE cxios_set_axisgroup_data_index
81
82    SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent1) BIND(C)
83      USE ISO_C_BINDING
84      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
85      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
86      INTEGER (kind = C_INT), VALUE  :: extent1
87    END SUBROUTINE cxios_get_axisgroup_data_index
88
89    FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl) BIND(C)
90      USE ISO_C_BINDING
91      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_index
92      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
93    END FUNCTION cxios_is_defined_axisgroup_data_index
94
95
96    SUBROUTINE cxios_set_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
99      INTEGER (KIND=C_INT)      , VALUE :: data_n
100    END SUBROUTINE cxios_set_axisgroup_data_n
101
102    SUBROUTINE cxios_get_axisgroup_data_n(axisgroup_hdl, data_n) BIND(C)
103      USE ISO_C_BINDING
104      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
105      INTEGER (KIND=C_INT)             :: data_n
106    END SUBROUTINE cxios_get_axisgroup_data_n
107
108    FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl) BIND(C)
109      USE ISO_C_BINDING
110      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_data_n
111      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
112    END FUNCTION cxios_is_defined_axisgroup_data_n
113
114
115    SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
118      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
119      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
120    END SUBROUTINE cxios_set_axisgroup_group_ref
121
122    SUBROUTINE cxios_get_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
123      USE ISO_C_BINDING
124      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
125      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
126      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
127    END SUBROUTINE cxios_get_axisgroup_group_ref
128
129    FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl) BIND(C)
130      USE ISO_C_BINDING
131      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref
132      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
133    END FUNCTION cxios_is_defined_axisgroup_group_ref
134
135
136    SUBROUTINE cxios_set_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
139      INTEGER (KIND=C_INT)      , VALUE :: ibegin
140    END SUBROUTINE cxios_set_axisgroup_ibegin
141
142    SUBROUTINE cxios_get_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
145      INTEGER (KIND=C_INT)             :: ibegin
146    END SUBROUTINE cxios_get_axisgroup_ibegin
147
148    FUNCTION cxios_is_defined_axisgroup_ibegin(axisgroup_hdl) BIND(C)
149      USE ISO_C_BINDING
150      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ibegin
151      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
152    END FUNCTION cxios_is_defined_axisgroup_ibegin
153
154
155    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
158      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
159      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
160    END SUBROUTINE cxios_set_axisgroup_long_name
161
162    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
165      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
166      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
167    END SUBROUTINE cxios_get_axisgroup_long_name
168
169    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl) BIND(C)
170      USE ISO_C_BINDING
171      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name
172      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
173    END FUNCTION cxios_is_defined_axisgroup_long_name
174
175
176    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
179      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
180      INTEGER (kind = C_INT), VALUE  :: extent1
181    END SUBROUTINE cxios_set_axisgroup_mask
182
183    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent1) BIND(C)
184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
186      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
187      INTEGER (kind = C_INT), VALUE  :: extent1
188    END SUBROUTINE cxios_get_axisgroup_mask
189
190    FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl) BIND(C)
191      USE ISO_C_BINDING
192      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask
193      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
194    END FUNCTION cxios_is_defined_axisgroup_mask
195
196
197    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
200      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
201      INTEGER  (kind = C_INT)     , VALUE        :: name_size
202    END SUBROUTINE cxios_set_axisgroup_name
203
204    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
205      USE ISO_C_BINDING
206      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
207      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
208      INTEGER  (kind = C_INT)     , VALUE        :: name_size
209    END SUBROUTINE cxios_get_axisgroup_name
210
211    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl) BIND(C)
212      USE ISO_C_BINDING
213      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name
214      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
215    END FUNCTION cxios_is_defined_axisgroup_name
216
217
218    SUBROUTINE cxios_set_axisgroup_ni(axisgroup_hdl, ni) BIND(C)
219      USE ISO_C_BINDING
220      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
221      INTEGER (KIND=C_INT)      , VALUE :: ni
222    END SUBROUTINE cxios_set_axisgroup_ni
223
224    SUBROUTINE cxios_get_axisgroup_ni(axisgroup_hdl, ni) BIND(C)
225      USE ISO_C_BINDING
226      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
227      INTEGER (KIND=C_INT)             :: ni
228    END SUBROUTINE cxios_get_axisgroup_ni
229
230    FUNCTION cxios_is_defined_axisgroup_ni(axisgroup_hdl) BIND(C)
231      USE ISO_C_BINDING
232      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ni
233      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
234    END FUNCTION cxios_is_defined_axisgroup_ni
235
236
237    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
238      USE ISO_C_BINDING
239      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
240      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
241      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
242    END SUBROUTINE cxios_set_axisgroup_positive
243
244    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
245      USE ISO_C_BINDING
246      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
247      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
248      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
249    END SUBROUTINE cxios_get_axisgroup_positive
250
251    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl) BIND(C)
252      USE ISO_C_BINDING
253      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive
254      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
255    END FUNCTION cxios_is_defined_axisgroup_positive
256
257
258    SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
261      INTEGER (KIND=C_INT)      , VALUE :: size
262    END SUBROUTINE cxios_set_axisgroup_size
263
264    SUBROUTINE cxios_get_axisgroup_size(axisgroup_hdl, size) BIND(C)
265      USE ISO_C_BINDING
266      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
267      INTEGER (KIND=C_INT)             :: size
268    END SUBROUTINE cxios_get_axisgroup_size
269
270    FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl) BIND(C)
271      USE ISO_C_BINDING
272      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size
273      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
274    END FUNCTION cxios_is_defined_axisgroup_size
275
276
277    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
278      USE ISO_C_BINDING
279      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
280      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
281      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
282    END SUBROUTINE cxios_set_axisgroup_standard_name
283
284    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
285      USE ISO_C_BINDING
286      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
287      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
288      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
289    END SUBROUTINE cxios_get_axisgroup_standard_name
290
291    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl) BIND(C)
292      USE ISO_C_BINDING
293      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name
294      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
295    END FUNCTION cxios_is_defined_axisgroup_standard_name
296
297
298    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
299      USE ISO_C_BINDING
300      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
301      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
302      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
303    END SUBROUTINE cxios_set_axisgroup_unit
304
305    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
306      USE ISO_C_BINDING
307      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
308      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
309      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
310    END SUBROUTINE cxios_get_axisgroup_unit
311
312    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl) BIND(C)
313      USE ISO_C_BINDING
314      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit
315      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
316    END FUNCTION cxios_is_defined_axisgroup_unit
317
318
319    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
320      USE ISO_C_BINDING
321      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
322      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
323      INTEGER (kind = C_INT), VALUE  :: extent1
324    END SUBROUTINE cxios_set_axisgroup_value
325
326    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
327      USE ISO_C_BINDING
328      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
329      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
330      INTEGER (kind = C_INT), VALUE  :: extent1
331    END SUBROUTINE cxios_get_axisgroup_value
332
333    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl) BIND(C)
334      USE ISO_C_BINDING
335      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value
336      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
337    END FUNCTION cxios_is_defined_axisgroup_value
338
339
340    SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C)
341      USE ISO_C_BINDING
342      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
343      INTEGER (KIND=C_INT)      , VALUE :: zoom_begin
344    END SUBROUTINE cxios_set_axisgroup_zoom_begin
345
346    SUBROUTINE cxios_get_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C)
347      USE ISO_C_BINDING
348      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
349      INTEGER (KIND=C_INT)             :: zoom_begin
350    END SUBROUTINE cxios_get_axisgroup_zoom_begin
351
352    FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl) BIND(C)
353      USE ISO_C_BINDING
354      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin
355      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
356    END FUNCTION cxios_is_defined_axisgroup_zoom_begin
357
358
359    SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C)
360      USE ISO_C_BINDING
361      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
362      INTEGER (KIND=C_INT)      , VALUE :: zoom_end
363    END SUBROUTINE cxios_set_axisgroup_zoom_end
364
365    SUBROUTINE cxios_get_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C)
366      USE ISO_C_BINDING
367      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
368      INTEGER (KIND=C_INT)             :: zoom_end
369    END SUBROUTINE cxios_get_axisgroup_zoom_end
370
371    FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl) BIND(C)
372      USE ISO_C_BINDING
373      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end
374      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
375    END FUNCTION cxios_is_defined_axisgroup_zoom_end
376
377
378    SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C)
379      USE ISO_C_BINDING
380      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
381      INTEGER (KIND=C_INT)      , VALUE :: zoom_size
382    END SUBROUTINE cxios_set_axisgroup_zoom_size
383
384    SUBROUTINE cxios_get_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C)
385      USE ISO_C_BINDING
386      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
387      INTEGER (KIND=C_INT)             :: zoom_size
388    END SUBROUTINE cxios_get_axisgroup_zoom_size
389
390    FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl) BIND(C)
391      USE ISO_C_BINDING
392      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size
393      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
394    END FUNCTION cxios_is_defined_axisgroup_zoom_size
395
396  END INTERFACE
397
398END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.