source: XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.f90 @ 432

Last change on this file since 432 was 432, checked in by ymipsl, 11 years ago

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM
File size: 10.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE axisgroup_interface_attr
6  USE, INTRINSIC :: ISO_C_BINDING
7 
8  INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99
9   
10   
11    SUBROUTINE cxios_set_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
15      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
16    END SUBROUTINE cxios_set_axisgroup_group_ref
17   
18    SUBROUTINE cxios_get_axisgroup_group_ref(axisgroup_hdl, group_ref, group_ref_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
22      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
23    END SUBROUTINE cxios_get_axisgroup_group_ref
24   
25    FUNCTION cxios_is_defined_axisgroup_group_ref(axisgroup_hdl ) BIND(C)
26      USE ISO_C_BINDING
27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_group_ref
28      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
29    END FUNCTION cxios_is_defined_axisgroup_group_ref
30   
31   
32    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
35      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
36      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
37    END SUBROUTINE cxios_set_axisgroup_long_name
38   
39    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
43      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
44    END SUBROUTINE cxios_get_axisgroup_long_name
45   
46    FUNCTION cxios_is_defined_axisgroup_long_name(axisgroup_hdl ) BIND(C)
47      USE ISO_C_BINDING
48      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_long_name
49      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
50    END FUNCTION cxios_is_defined_axisgroup_long_name
51   
52   
53    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
54      USE ISO_C_BINDING
55      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
56      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
57      INTEGER  (kind = C_INT)     , VALUE        :: name_size
58    END SUBROUTINE cxios_set_axisgroup_name
59   
60    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
63      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
64      INTEGER  (kind = C_INT)     , VALUE        :: name_size
65    END SUBROUTINE cxios_get_axisgroup_name
66   
67    FUNCTION cxios_is_defined_axisgroup_name(axisgroup_hdl ) BIND(C)
68      USE ISO_C_BINDING
69      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_name
70      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
71    END FUNCTION cxios_is_defined_axisgroup_name
72   
73   
74    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
75      USE ISO_C_BINDING
76      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
77      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
78      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
79    END SUBROUTINE cxios_set_axisgroup_positive
80   
81    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
82      USE ISO_C_BINDING
83      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
84      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
85      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
86    END SUBROUTINE cxios_get_axisgroup_positive
87   
88    FUNCTION cxios_is_defined_axisgroup_positive(axisgroup_hdl ) BIND(C)
89      USE ISO_C_BINDING
90      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_positive
91      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
92    END FUNCTION cxios_is_defined_axisgroup_positive
93   
94   
95    SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C)
96      USE ISO_C_BINDING
97      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
98      INTEGER (KIND=C_INT)      , VALUE :: size
99    END SUBROUTINE cxios_set_axisgroup_size
100   
101    SUBROUTINE cxios_get_axisgroup_size(axisgroup_hdl, size) BIND(C)
102      USE ISO_C_BINDING
103      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
104      INTEGER (KIND=C_INT)             :: size
105    END SUBROUTINE cxios_get_axisgroup_size
106   
107    FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl ) BIND(C)
108      USE ISO_C_BINDING
109      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size
110      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
111    END FUNCTION cxios_is_defined_axisgroup_size
112   
113   
114    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
115      USE ISO_C_BINDING
116      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
117      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
118      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
119    END SUBROUTINE cxios_set_axisgroup_standard_name
120   
121    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
122      USE ISO_C_BINDING
123      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
124      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
125      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
126    END SUBROUTINE cxios_get_axisgroup_standard_name
127   
128    FUNCTION cxios_is_defined_axisgroup_standard_name(axisgroup_hdl ) BIND(C)
129      USE ISO_C_BINDING
130      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_standard_name
131      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
132    END FUNCTION cxios_is_defined_axisgroup_standard_name
133   
134   
135    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
136      USE ISO_C_BINDING
137      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
138      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
139      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
140    END SUBROUTINE cxios_set_axisgroup_unit
141   
142    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
145      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
146      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
147    END SUBROUTINE cxios_get_axisgroup_unit
148   
149    FUNCTION cxios_is_defined_axisgroup_unit(axisgroup_hdl ) BIND(C)
150      USE ISO_C_BINDING
151      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_unit
152      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
153    END FUNCTION cxios_is_defined_axisgroup_unit
154   
155   
156    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
157      USE ISO_C_BINDING
158      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
159      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
160      INTEGER (kind = C_INT), VALUE  :: extent1
161    END SUBROUTINE cxios_set_axisgroup_value
162   
163    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
164      USE ISO_C_BINDING
165      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
166      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
167      INTEGER (kind = C_INT), VALUE  :: extent1
168    END SUBROUTINE cxios_get_axisgroup_value
169   
170    FUNCTION cxios_is_defined_axisgroup_value(axisgroup_hdl ) BIND(C)
171      USE ISO_C_BINDING
172      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_value
173      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
174    END FUNCTION cxios_is_defined_axisgroup_value
175   
176   
177    SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
180      INTEGER (KIND=C_INT)      , VALUE :: zoom_begin
181    END SUBROUTINE cxios_set_axisgroup_zoom_begin
182   
183    SUBROUTINE cxios_get_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C)
184      USE ISO_C_BINDING
185      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
186      INTEGER (KIND=C_INT)             :: zoom_begin
187    END SUBROUTINE cxios_get_axisgroup_zoom_begin
188   
189    FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl ) BIND(C)
190      USE ISO_C_BINDING
191      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin
192      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
193    END FUNCTION cxios_is_defined_axisgroup_zoom_begin
194   
195   
196    SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C)
197      USE ISO_C_BINDING
198      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
199      INTEGER (KIND=C_INT)      , VALUE :: zoom_end
200    END SUBROUTINE cxios_set_axisgroup_zoom_end
201   
202    SUBROUTINE cxios_get_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C)
203      USE ISO_C_BINDING
204      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
205      INTEGER (KIND=C_INT)             :: zoom_end
206    END SUBROUTINE cxios_get_axisgroup_zoom_end
207   
208    FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl ) BIND(C)
209      USE ISO_C_BINDING
210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end
211      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
212    END FUNCTION cxios_is_defined_axisgroup_zoom_end
213   
214   
215    SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C)
216      USE ISO_C_BINDING
217      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
218      INTEGER (KIND=C_INT)      , VALUE :: zoom_size
219    END SUBROUTINE cxios_set_axisgroup_zoom_size
220   
221    SUBROUTINE cxios_get_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C)
222      USE ISO_C_BINDING
223      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
224      INTEGER (KIND=C_INT)             :: zoom_size
225    END SUBROUTINE cxios_get_axisgroup_zoom_size
226   
227    FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl ) BIND(C)
228      USE ISO_C_BINDING
229      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size
230      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
231    END FUNCTION cxios_is_defined_axisgroup_zoom_size
232   
233   
234    END INTERFACE
235 
236END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.