source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/axisgroup_interface_attr.f90 @ 609

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