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

Last change on this file since 1021 was 817, checked in by mhnguyen, 8 years ago

Adding some attributes for axis and grid (ticket 71, 78)

+) Add index attribute for axis
+) Change mask?d to mask_?d for grid

Test
+) On Curie
+) Test passes
  • 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.3 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
[532]4#include "../fortran/xios_fortran_prefix.hpp"
[326]5
6MODULE axisgroup_interface_attr
7  USE, INTRINSIC :: ISO_C_BINDING
[581]8
9  INTERFACE
10    ! Do not call directly / interface FORTRAN 2003 <-> C99
11
[546]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
[581]18
[546]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
[581]25
26    FUNCTION cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl) BIND(C)
[546]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
[581]31
32
[666]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
[674]52    SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C)
[609]53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
55      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
[674]56      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[609]57    END SUBROUTINE cxios_set_axisgroup_bounds
58
[674]59    SUBROUTINE cxios_get_axisgroup_bounds(axisgroup_hdl, bounds, extent) BIND(C)
[609]60      USE ISO_C_BINDING
61      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
62      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: bounds
[674]63      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[609]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
[555]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
[581]78
[555]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
[581]84
85    FUNCTION cxios_is_defined_axisgroup_data_begin(axisgroup_hdl) BIND(C)
[555]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
[581]90
91
[674]92    SUBROUTINE cxios_set_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C)
[555]93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
95      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
[674]96      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]97    END SUBROUTINE cxios_set_axisgroup_data_index
[581]98
[674]99    SUBROUTINE cxios_get_axisgroup_data_index(axisgroup_hdl, data_index, extent) BIND(C)
[555]100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
102      INTEGER (KIND=C_INT)     , DIMENSION(*) :: data_index
[674]103      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]104    END SUBROUTINE cxios_get_axisgroup_data_index
[581]105
106    FUNCTION cxios_is_defined_axisgroup_data_index(axisgroup_hdl) BIND(C)
[555]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
[581]111
112
[555]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
[581]118
[555]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
[581]124
125    FUNCTION cxios_is_defined_axisgroup_data_n(axisgroup_hdl) BIND(C)
[555]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
[581]130
131
[326]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
[581]138
[326]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
[581]145
146    FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl) BIND(C)
[432]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
[581]151
152
[817]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
[326]174    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
175      USE ISO_C_BINDING
176      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
177      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
178      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
179    END SUBROUTINE cxios_set_axisgroup_long_name
[581]180
[326]181    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
182      USE ISO_C_BINDING
183      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
184      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
185      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
186    END SUBROUTINE cxios_get_axisgroup_long_name
[581]187
188    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl) BIND(C)
[432]189      USE ISO_C_BINDING
190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name
191      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
192    END FUNCTION cxios_is_defined_axisgroup_long_name
[581]193
194
[674]195    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
[555]196      USE ISO_C_BINDING
197      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
198      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
[674]199      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]200    END SUBROUTINE cxios_set_axisgroup_mask
[581]201
[674]202    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
[555]203      USE ISO_C_BINDING
204      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
205      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
[674]206      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[555]207    END SUBROUTINE cxios_get_axisgroup_mask
[581]208
209    FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl) BIND(C)
[555]210      USE ISO_C_BINDING
211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask
212      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
213    END FUNCTION cxios_is_defined_axisgroup_mask
[581]214
215
[666]216    SUBROUTINE cxios_set_axisgroup_n(axisgroup_hdl, n) BIND(C)
217      USE ISO_C_BINDING
218      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
219      INTEGER (KIND=C_INT)      , VALUE :: n
220    END SUBROUTINE cxios_set_axisgroup_n
221
222    SUBROUTINE cxios_get_axisgroup_n(axisgroup_hdl, n) BIND(C)
223      USE ISO_C_BINDING
224      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
225      INTEGER (KIND=C_INT)             :: n
226    END SUBROUTINE cxios_get_axisgroup_n
227
228    FUNCTION cxios_is_defined_axisgroup_n(axisgroup_hdl) BIND(C)
229      USE ISO_C_BINDING
230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n
231      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
232    END FUNCTION cxios_is_defined_axisgroup_n
233
234
[779]235    SUBROUTINE cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
238      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
239    END SUBROUTINE cxios_set_axisgroup_n_distributed_partition
240
241    SUBROUTINE cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
242      USE ISO_C_BINDING
243      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
244      INTEGER (KIND=C_INT)             :: n_distributed_partition
245    END SUBROUTINE cxios_get_axisgroup_n_distributed_partition
246
247    FUNCTION cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_distributed_partition
250      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
251    END FUNCTION cxios_is_defined_axisgroup_n_distributed_partition
252
253
[666]254    SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
257      INTEGER (KIND=C_INT)      , VALUE :: n_glo
258    END SUBROUTINE cxios_set_axisgroup_n_glo
259
260    SUBROUTINE cxios_get_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
261      USE ISO_C_BINDING
262      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
263      INTEGER (KIND=C_INT)             :: n_glo
264    END SUBROUTINE cxios_get_axisgroup_n_glo
265
266    FUNCTION cxios_is_defined_axisgroup_n_glo(axisgroup_hdl) BIND(C)
267      USE ISO_C_BINDING
268      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_glo
269      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
270    END FUNCTION cxios_is_defined_axisgroup_n_glo
271
272
[326]273    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
274      USE ISO_C_BINDING
275      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
276      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
277      INTEGER  (kind = C_INT)     , VALUE        :: name_size
278    END SUBROUTINE cxios_set_axisgroup_name
[581]279
[326]280    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
281      USE ISO_C_BINDING
282      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
283      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
284      INTEGER  (kind = C_INT)     , VALUE        :: name_size
285    END SUBROUTINE cxios_get_axisgroup_name
[581]286
287    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl) BIND(C)
[432]288      USE ISO_C_BINDING
289      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name
290      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
291    END FUNCTION cxios_is_defined_axisgroup_name
[581]292
293
[415]294    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
297      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
298      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
299    END SUBROUTINE cxios_set_axisgroup_positive
[581]300
[415]301    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
302      USE ISO_C_BINDING
303      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
304      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
305      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
306    END SUBROUTINE cxios_get_axisgroup_positive
[581]307
308    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl) BIND(C)
[432]309      USE ISO_C_BINDING
310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive
311      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
312    END FUNCTION cxios_is_defined_axisgroup_positive
[581]313
314
[326]315    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
318      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
319      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
320    END SUBROUTINE cxios_set_axisgroup_standard_name
[581]321
[326]322    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
323      USE ISO_C_BINDING
324      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
325      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
326      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
327    END SUBROUTINE cxios_get_axisgroup_standard_name
[581]328
329    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl) BIND(C)
[432]330      USE ISO_C_BINDING
331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name
332      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
333    END FUNCTION cxios_is_defined_axisgroup_standard_name
[581]334
335
[326]336    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
339      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
340      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
341    END SUBROUTINE cxios_set_axisgroup_unit
[581]342
[326]343    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
344      USE ISO_C_BINDING
345      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
346      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
347      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
348    END SUBROUTINE cxios_get_axisgroup_unit
[581]349
350    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl) BIND(C)
[432]351      USE ISO_C_BINDING
352      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit
353      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
354    END FUNCTION cxios_is_defined_axisgroup_unit
[581]355
356
[674]357    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
[326]358      USE ISO_C_BINDING
359      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
360      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
[674]361      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]362    END SUBROUTINE cxios_set_axisgroup_value
[581]363
[674]364    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
[326]365      USE ISO_C_BINDING
366      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
367      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
[674]368      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
[326]369    END SUBROUTINE cxios_get_axisgroup_value
[581]370
371    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl) BIND(C)
[432]372      USE ISO_C_BINDING
373      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value
374      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
375    END FUNCTION cxios_is_defined_axisgroup_value
[581]376
377  END INTERFACE
378
[326]379END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.