source: XIOS/trunk/src/interface/fortran_attr/axisgroup_interface_attr.f90 @ 415

Last change on this file since 415 was 415, checked in by ymipsl, 11 years ago

Add grid mask attribute

YM
File size: 7.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_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   
25   
26    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
29      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
30      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
31    END SUBROUTINE cxios_set_axisgroup_long_name
32   
33    SUBROUTINE cxios_get_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C)
34      USE ISO_C_BINDING
35      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
36      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
37      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
38    END SUBROUTINE cxios_get_axisgroup_long_name
39   
40   
41    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
42      USE ISO_C_BINDING
43      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
44      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
45      INTEGER  (kind = C_INT)     , VALUE        :: name_size
46    END SUBROUTINE cxios_set_axisgroup_name
47   
48    SUBROUTINE cxios_get_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C)
49      USE ISO_C_BINDING
50      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
51      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
52      INTEGER  (kind = C_INT)     , VALUE        :: name_size
53    END SUBROUTINE cxios_get_axisgroup_name
54   
55   
56    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
57      USE ISO_C_BINDING
58      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
59      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
60      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
61    END SUBROUTINE cxios_set_axisgroup_positive
62   
63    SUBROUTINE cxios_get_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C)
64      USE ISO_C_BINDING
65      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
66      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: positive
67      INTEGER  (kind = C_INT)     , VALUE        :: positive_size
68    END SUBROUTINE cxios_get_axisgroup_positive
69   
70   
71    SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
74      INTEGER (KIND=C_INT)      , VALUE :: size
75    END SUBROUTINE cxios_set_axisgroup_size
76   
77    SUBROUTINE cxios_get_axisgroup_size(axisgroup_hdl, size) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
80      INTEGER (KIND=C_INT)             :: size
81    END SUBROUTINE cxios_get_axisgroup_size
82   
83   
84    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
85      USE ISO_C_BINDING
86      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
87      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
88      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
89    END SUBROUTINE cxios_set_axisgroup_standard_name
90   
91    SUBROUTINE cxios_get_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C)
92      USE ISO_C_BINDING
93      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
94      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
95      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
96    END SUBROUTINE cxios_get_axisgroup_standard_name
97   
98   
99    SUBROUTINE cxios_set_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
102      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
103      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
104    END SUBROUTINE cxios_set_axisgroup_unit
105   
106    SUBROUTINE cxios_get_axisgroup_unit(axisgroup_hdl, unit, unit_size) BIND(C)
107      USE ISO_C_BINDING
108      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
109      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
110      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
111    END SUBROUTINE cxios_get_axisgroup_unit
112   
113   
114    SUBROUTINE cxios_set_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
115      USE ISO_C_BINDING
116      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
117      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
118      INTEGER (kind = C_INT), VALUE  :: extent1
119    END SUBROUTINE cxios_set_axisgroup_value
120   
121    SUBROUTINE cxios_get_axisgroup_value(axisgroup_hdl, value, extent1) BIND(C)
122      USE ISO_C_BINDING
123      INTEGER (kind = C_INTPTR_T), VALUE       :: axisgroup_hdl
124      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: value
125      INTEGER (kind = C_INT), VALUE  :: extent1
126    END SUBROUTINE cxios_get_axisgroup_value
127   
128   
129    SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C)
130      USE ISO_C_BINDING
131      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
132      INTEGER (KIND=C_INT)      , VALUE :: zoom_begin
133    END SUBROUTINE cxios_set_axisgroup_zoom_begin
134   
135    SUBROUTINE cxios_get_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C)
136      USE ISO_C_BINDING
137      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
138      INTEGER (KIND=C_INT)             :: zoom_begin
139    END SUBROUTINE cxios_get_axisgroup_zoom_begin
140   
141   
142    SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
145      INTEGER (KIND=C_INT)      , VALUE :: zoom_end
146    END SUBROUTINE cxios_set_axisgroup_zoom_end
147   
148    SUBROUTINE cxios_get_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C)
149      USE ISO_C_BINDING
150      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
151      INTEGER (KIND=C_INT)             :: zoom_end
152    END SUBROUTINE cxios_get_axisgroup_zoom_end
153   
154   
155    SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
158      INTEGER (KIND=C_INT)      , VALUE :: zoom_size
159    END SUBROUTINE cxios_set_axisgroup_zoom_size
160   
161    SUBROUTINE cxios_get_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C)
162      USE ISO_C_BINDING
163      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl
164      INTEGER (KIND=C_INT)             :: zoom_size
165    END SUBROUTINE cxios_get_axisgroup_zoom_size
166   
167   
168    END INTERFACE
169 
170END MODULE axisgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.