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

Last change on this file since 779 was 779, checked in by rlacroix, 8 years ago

Update the Fortran API.

It had been forgotten in recent changes.
  • 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: 15.4 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_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
156      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
157      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
158    END SUBROUTINE cxios_set_axisgroup_long_name
159
160    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
161      USE ISO_C_BINDING
162      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
163      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
164      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
165    END SUBROUTINE cxios_get_axisgroup_long_name
166
167    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl) BIND(C)
168      USE ISO_C_BINDING
169      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name
170      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
171    END FUNCTION cxios_is_defined_axisgroup_long_name
172
173
174    SUBROUTINE cxios_set_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
175      USE ISO_C_BINDING
176      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
177      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
178      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
179    END SUBROUTINE cxios_set_axisgroup_mask
180
181    SUBROUTINE cxios_get_axisgroup_mask(axisgroup_hdl, mask, extent) BIND(C)
182      USE ISO_C_BINDING
183      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
184      LOGICAL (KIND=C_BOOL)     , DIMENSION(*) :: mask
185      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
186    END SUBROUTINE cxios_get_axisgroup_mask
187
188    FUNCTION cxios_is_defined_axisgroup_mask(axisgroup_hdl) BIND(C)
189      USE ISO_C_BINDING
190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_mask
191      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
192    END FUNCTION cxios_is_defined_axisgroup_mask
193
194
195    SUBROUTINE cxios_set_axisgroup_n(axisgroup_hdl, n) BIND(C)
196      USE ISO_C_BINDING
197      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
198      INTEGER (KIND=C_INT)      , VALUE :: n
199    END SUBROUTINE cxios_set_axisgroup_n
200
201    SUBROUTINE cxios_get_axisgroup_n(axisgroup_hdl, n) BIND(C)
202      USE ISO_C_BINDING
203      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
204      INTEGER (KIND=C_INT)             :: n
205    END SUBROUTINE cxios_get_axisgroup_n
206
207    FUNCTION cxios_is_defined_axisgroup_n(axisgroup_hdl) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n
210      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
211    END FUNCTION cxios_is_defined_axisgroup_n
212
213
214    SUBROUTINE cxios_set_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
215      USE ISO_C_BINDING
216      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
217      INTEGER (KIND=C_INT)      , VALUE :: n_distributed_partition
218    END SUBROUTINE cxios_set_axisgroup_n_distributed_partition
219
220    SUBROUTINE cxios_get_axisgroup_n_distributed_partition(axisgroup_hdl, n_distributed_partition) BIND(C)
221      USE ISO_C_BINDING
222      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
223      INTEGER (KIND=C_INT)             :: n_distributed_partition
224    END SUBROUTINE cxios_get_axisgroup_n_distributed_partition
225
226    FUNCTION cxios_is_defined_axisgroup_n_distributed_partition(axisgroup_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_distributed_partition
229      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
230    END FUNCTION cxios_is_defined_axisgroup_n_distributed_partition
231
232
233    SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
236      INTEGER (KIND=C_INT)      , VALUE :: n_glo
237    END SUBROUTINE cxios_set_axisgroup_n_glo
238
239    SUBROUTINE cxios_get_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C)
240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
242      INTEGER (KIND=C_INT)             :: n_glo
243    END SUBROUTINE cxios_get_axisgroup_n_glo
244
245    FUNCTION cxios_is_defined_axisgroup_n_glo(axisgroup_hdl) BIND(C)
246      USE ISO_C_BINDING
247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_glo
248      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
249    END FUNCTION cxios_is_defined_axisgroup_n_glo
250
251
252    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
253      USE ISO_C_BINDING
254      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
255      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
256      INTEGER  (kind = C_INT)     , VALUE        :: name_size
257    END SUBROUTINE cxios_set_axisgroup_name
258
259    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
260      USE ISO_C_BINDING
261      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
262      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
263      INTEGER  (kind = C_INT)     , VALUE        :: name_size
264    END SUBROUTINE cxios_get_axisgroup_name
265
266    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl) BIND(C)
267      USE ISO_C_BINDING
268      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name
269      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
270    END FUNCTION cxios_is_defined_axisgroup_name
271
272
273    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
274      USE ISO_C_BINDING
275      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
276      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
277      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
278    END SUBROUTINE cxios_set_axisgroup_positive
279
280    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
281      USE ISO_C_BINDING
282      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
283      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
284      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
285    END SUBROUTINE cxios_get_axisgroup_positive
286
287    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl) BIND(C)
288      USE ISO_C_BINDING
289      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive
290      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
291    END FUNCTION cxios_is_defined_axisgroup_positive
292
293
294    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
297      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
298      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
299    END SUBROUTINE cxios_set_axisgroup_standard_name
300
301    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
302      USE ISO_C_BINDING
303      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
304      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
305      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
306    END SUBROUTINE cxios_get_axisgroup_standard_name
307
308    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl) BIND(C)
309      USE ISO_C_BINDING
310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name
311      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
312    END FUNCTION cxios_is_defined_axisgroup_standard_name
313
314
315    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
318      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
319      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
320    END SUBROUTINE cxios_set_axisgroup_unit
321
322    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
323      USE ISO_C_BINDING
324      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
325      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
326      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
327    END SUBROUTINE cxios_get_axisgroup_unit
328
329    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl) BIND(C)
330      USE ISO_C_BINDING
331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit
332      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
333    END FUNCTION cxios_is_defined_axisgroup_unit
334
335
336    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
339      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
340      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
341    END SUBROUTINE cxios_set_axisgroup_value
342
343    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent) BIND(C)
344      USE ISO_C_BINDING
345      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
346      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
347      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
348    END SUBROUTINE cxios_get_axisgroup_value
349
350    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl) BIND(C)
351      USE ISO_C_BINDING
352      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value
353      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
354    END FUNCTION cxios_is_defined_axisgroup_value
355
356  END INTERFACE
357
358END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.