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

Last change on this file since 555 was 555, checked in by mhnguyen, 9 years ago

Updating some Fortran interface files

+) Update some Fortran interface files generated by generate_fortran_interface.exe

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