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, 10 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
RevLine 
[326]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   
[432]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
[326]30   
[432]31   
[326]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   
[432]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
[326]51   
[432]52   
[415]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   
[432]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
[415]72   
[432]73   
[326]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   
[432]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
[326]91   
[432]92   
[326]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   
[432]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
[326]112   
[432]113   
[326]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   
[432]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
[326]133   
[432]134   
[326]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   
[432]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
[326]154   
[432]155   
[369]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   
[432]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
[369]173   
[432]174   
[369]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   
[432]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
[369]192   
[432]193   
[369]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   
[432]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
[369]211   
[432]212   
[326]213    END INTERFACE
214 
215END MODULE axis_interface_attr
Note: See TracBrowser for help on using the repository browser.