source: XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.f90 @ 501

Last change on this file since 501 was 501, checked in by ymipsl, 9 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

YM

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