source: XIOS/trunk/src/interface/fortran_attr/axisgroup_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: 10.3 KB
RevLine 
[326]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   
[432]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
[326]30   
[432]31   
[326]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   
[432]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
[326]51   
[432]52   
[326]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   
[432]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
[326]72   
[432]73   
[415]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   
[432]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
[415]93   
[432]94   
[326]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   
[432]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
[326]112   
[432]113   
[326]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   
[432]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
[326]133   
[432]134   
[326]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   
[432]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
[326]154   
[432]155   
[326]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   
[432]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
[326]175   
[432]176   
[369]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   
[432]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
[369]194   
[432]195   
[369]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   
[432]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
[369]213   
[432]214   
[369]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   
[432]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
[369]232   
[432]233   
[326]234    END INTERFACE
235 
236END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.