source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/axis_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: 9.6 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE axis_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_axis_bounds(axis_hdl, bounds, extent1, extent2) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_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_axis_bounds
18   
19    SUBROUTINE cxios_get_axis_bounds(axis_hdl, bounds, extent1, extent2) BIND(C)
20      USE ISO_C_BINDING
21      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_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_axis_bounds
26   
27    FUNCTION cxios_is_defined_axis_bounds(axis_hdl ) BIND(C)
28      USE ISO_C_BINDING
29      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_bounds
30      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
31    END FUNCTION cxios_is_defined_axis_bounds
32   
33   
34    SUBROUTINE cxios_set_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
35      USE ISO_C_BINDING
36      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
37      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
38      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
39    END SUBROUTINE cxios_set_axis_long_name
40   
41    SUBROUTINE cxios_get_axis_long_name(axis_hdl, long_name, long_name_size) BIND(C)
42      USE ISO_C_BINDING
43      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
44      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
45      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
46    END SUBROUTINE cxios_get_axis_long_name
47   
48    FUNCTION cxios_is_defined_axis_long_name(axis_hdl ) BIND(C)
49      USE ISO_C_BINDING
50      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_long_name
51      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
52    END FUNCTION cxios_is_defined_axis_long_name
53   
54   
55    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C)
56      USE ISO_C_BINDING
57      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
58      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
59      INTEGER  (kind = C_INT)     , VALUE        :: name_size
60    END SUBROUTINE cxios_set_axis_name
61   
62    SUBROUTINE cxios_get_axis_name(axis_hdl, name, name_size) BIND(C)
63      USE ISO_C_BINDING
64      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
65      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
66      INTEGER  (kind = C_INT)     , VALUE        :: name_size
67    END SUBROUTINE cxios_get_axis_name
68   
69    FUNCTION cxios_is_defined_axis_name(axis_hdl ) BIND(C)
70      USE ISO_C_BINDING
71      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_name
72      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
73    END FUNCTION cxios_is_defined_axis_name
74   
75   
76    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
79      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
80      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
81    END SUBROUTINE cxios_set_axis_positive
82   
83    SUBROUTINE cxios_get_axis_positive(axis_hdl, positive, positive_size) BIND(C)
84      USE ISO_C_BINDING
85      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
86      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
87      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
88    END SUBROUTINE cxios_get_axis_positive
89   
90    FUNCTION cxios_is_defined_axis_positive(axis_hdl ) BIND(C)
91      USE ISO_C_BINDING
92      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_positive
93      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
94    END FUNCTION cxios_is_defined_axis_positive
95   
96   
97    SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
100      INTEGER (KIND=C_INT)      , VALUE :: size
101    END SUBROUTINE cxios_set_axis_size
102   
103    SUBROUTINE cxios_get_axis_size(axis_hdl, size) BIND(C)
104      USE ISO_C_BINDING
105      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
106      INTEGER (KIND=C_INT)             :: size
107    END SUBROUTINE cxios_get_axis_size
108   
109    FUNCTION cxios_is_defined_axis_size(axis_hdl ) BIND(C)
110      USE ISO_C_BINDING
111      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size
112      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
113    END FUNCTION cxios_is_defined_axis_size
114   
115   
116    SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
117      USE ISO_C_BINDING
118      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
119      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
120      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
121    END SUBROUTINE cxios_set_axis_standard_name
122   
123    SUBROUTINE cxios_get_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C)
124      USE ISO_C_BINDING
125      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
126      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
127      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
128    END SUBROUTINE cxios_get_axis_standard_name
129   
130    FUNCTION cxios_is_defined_axis_standard_name(axis_hdl ) BIND(C)
131      USE ISO_C_BINDING
132      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_standard_name
133      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
134    END FUNCTION cxios_is_defined_axis_standard_name
135   
136   
137    SUBROUTINE cxios_set_axis_unit(axis_hdl, unit, unit_size) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
140      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
141      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
142    END SUBROUTINE cxios_set_axis_unit
143   
144    SUBROUTINE cxios_get_axis_unit(axis_hdl, unit, unit_size) BIND(C)
145      USE ISO_C_BINDING
146      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
147      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
148      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
149    END SUBROUTINE cxios_get_axis_unit
150   
151    FUNCTION cxios_is_defined_axis_unit(axis_hdl ) BIND(C)
152      USE ISO_C_BINDING
153      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_unit
154      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
155    END FUNCTION cxios_is_defined_axis_unit
156   
157   
158    SUBROUTINE cxios_set_axis_value(axis_hdl, value, extent1) BIND(C)
159      USE ISO_C_BINDING
160      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
161      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
162      INTEGER (kind = C_INT), VALUE  :: extent1
163    END SUBROUTINE cxios_set_axis_value
164   
165    SUBROUTINE cxios_get_axis_value(axis_hdl, value, extent1) BIND(C)
166      USE ISO_C_BINDING
167      INTEGER (kind = C_INTPTR_T), VALUE       :: axis_hdl
168      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
169      INTEGER (kind = C_INT), VALUE  :: extent1
170    END SUBROUTINE cxios_get_axis_value
171   
172    FUNCTION cxios_is_defined_axis_value(axis_hdl ) BIND(C)
173      USE ISO_C_BINDING
174      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_value
175      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
176    END FUNCTION cxios_is_defined_axis_value
177   
178   
179    SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C)
180      USE ISO_C_BINDING
181      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
182      INTEGER (KIND=C_INT)      , VALUE :: zoom_begin
183    END SUBROUTINE cxios_set_axis_zoom_begin
184   
185    SUBROUTINE cxios_get_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C)
186      USE ISO_C_BINDING
187      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
188      INTEGER (KIND=C_INT)             :: zoom_begin
189    END SUBROUTINE cxios_get_axis_zoom_begin
190   
191    FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl ) BIND(C)
192      USE ISO_C_BINDING
193      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin
194      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
195    END FUNCTION cxios_is_defined_axis_zoom_begin
196   
197   
198    SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
201      INTEGER (KIND=C_INT)      , VALUE :: zoom_end
202    END SUBROUTINE cxios_set_axis_zoom_end
203   
204    SUBROUTINE cxios_get_axis_zoom_end(axis_hdl, zoom_end) BIND(C)
205      USE ISO_C_BINDING
206      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
207      INTEGER (KIND=C_INT)             :: zoom_end
208    END SUBROUTINE cxios_get_axis_zoom_end
209   
210    FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl ) BIND(C)
211      USE ISO_C_BINDING
212      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end
213      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
214    END FUNCTION cxios_is_defined_axis_zoom_end
215   
216   
217    SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C)
218      USE ISO_C_BINDING
219      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
220      INTEGER (KIND=C_INT)      , VALUE :: zoom_size
221    END SUBROUTINE cxios_set_axis_zoom_size
222   
223    SUBROUTINE cxios_get_axis_zoom_size(axis_hdl, zoom_size) BIND(C)
224      USE ISO_C_BINDING
225      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
226      INTEGER (KIND=C_INT)             :: zoom_size
227    END SUBROUTINE cxios_get_axis_zoom_size
228   
229    FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl ) BIND(C)
230      USE ISO_C_BINDING
231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size
232      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl
233    END FUNCTION cxios_is_defined_axis_zoom_size
234   
235   
236    END INTERFACE
237 
238END MODULE axis_interface_attr
Note: See TracBrowser for help on using the repository browser.