source: XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.f90 @ 326

Last change on this file since 326 was 326, checked in by ymipsl, 10 years ago

port to gfortran/g++

YM

File size: 11.0 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE fieldgroup_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_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
15      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
16    END SUBROUTINE cxios_set_fieldgroup_axis_ref
17   
18    SUBROUTINE cxios_get_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
22      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
23    END SUBROUTINE cxios_get_fieldgroup_axis_ref
24   
25   
26    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
29      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
30    END SUBROUTINE cxios_set_fieldgroup_default_value
31   
32    SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
35      REAL (KIND=C_DOUBLE)             :: default_value
36    END SUBROUTINE cxios_get_fieldgroup_default_value
37   
38   
39    SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
43      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
44    END SUBROUTINE cxios_set_fieldgroup_domain_ref
45   
46    SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
47      USE ISO_C_BINDING
48      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
49      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
50      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
51    END SUBROUTINE cxios_get_fieldgroup_domain_ref
52   
53   
54    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
57      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
58    END SUBROUTINE cxios_set_fieldgroup_enabled
59   
60    SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
63      LOGICAL (KIND=C_BOOL)             :: enabled
64    END SUBROUTINE cxios_get_fieldgroup_enabled
65   
66   
67    SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
70      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
71      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
72    END SUBROUTINE cxios_set_fieldgroup_field_ref
73   
74    SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
75      USE ISO_C_BINDING
76      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
77      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
78      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
79    END SUBROUTINE cxios_get_fieldgroup_field_ref
80   
81   
82    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset, freq_offset_size) BIND(C)
83      USE ISO_C_BINDING
84      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
85      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
86      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
87    END SUBROUTINE cxios_set_fieldgroup_freq_offset
88   
89    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset, freq_offset_size) BIND(C)
90      USE ISO_C_BINDING
91      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
92      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
93      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
94    END SUBROUTINE cxios_get_fieldgroup_freq_offset
95   
96   
97    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op, freq_op_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
101      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
102    END SUBROUTINE cxios_set_fieldgroup_freq_op
103   
104    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op, freq_op_size) BIND(C)
105      USE ISO_C_BINDING
106      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
107      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
108      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
109    END SUBROUTINE cxios_get_fieldgroup_freq_op
110   
111   
112    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
115      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
116      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
117    END SUBROUTINE cxios_set_fieldgroup_grid_ref
118   
119    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
123      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
124    END SUBROUTINE cxios_get_fieldgroup_grid_ref
125   
126   
127    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
128      USE ISO_C_BINDING
129      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
130      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
131      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
132    END SUBROUTINE cxios_set_fieldgroup_group_ref
133   
134    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
135      USE ISO_C_BINDING
136      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
137      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
138      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
139    END SUBROUTINE cxios_get_fieldgroup_group_ref
140   
141   
142    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
143      USE ISO_C_BINDING
144      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
145      INTEGER (KIND=C_INT)      , VALUE :: level
146    END SUBROUTINE cxios_set_fieldgroup_level
147   
148    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
149      USE ISO_C_BINDING
150      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
151      INTEGER (KIND=C_INT)             :: level
152    END SUBROUTINE cxios_get_fieldgroup_level
153   
154   
155    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
158      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
159      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
160    END SUBROUTINE cxios_set_fieldgroup_long_name
161   
162    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
165      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
166      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
167    END SUBROUTINE cxios_get_fieldgroup_long_name
168   
169   
170    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
171      USE ISO_C_BINDING
172      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
173      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
174      INTEGER  (kind = C_INT)     , VALUE        :: name_size
175    END SUBROUTINE cxios_set_fieldgroup_name
176   
177    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
180      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
181      INTEGER  (kind = C_INT)     , VALUE        :: name_size
182    END SUBROUTINE cxios_get_fieldgroup_name
183   
184   
185    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
186      USE ISO_C_BINDING
187      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
188      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
189      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
190    END SUBROUTINE cxios_set_fieldgroup_operation
191   
192    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
193      USE ISO_C_BINDING
194      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
195      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
196      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
197    END SUBROUTINE cxios_get_fieldgroup_operation
198   
199   
200    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
201      USE ISO_C_BINDING
202      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
203      INTEGER (KIND=C_INT)      , VALUE :: prec
204    END SUBROUTINE cxios_set_fieldgroup_prec
205   
206    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
207      USE ISO_C_BINDING
208      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
209      INTEGER (KIND=C_INT)             :: prec
210    END SUBROUTINE cxios_get_fieldgroup_prec
211   
212   
213    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
214      USE ISO_C_BINDING
215      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
216      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
217      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
218    END SUBROUTINE cxios_set_fieldgroup_standard_name
219   
220    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
221      USE ISO_C_BINDING
222      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
223      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
224      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
225    END SUBROUTINE cxios_get_fieldgroup_standard_name
226   
227   
228    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
229      USE ISO_C_BINDING
230      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
231      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
232      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
233    END SUBROUTINE cxios_set_fieldgroup_unit
234   
235    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
236      USE ISO_C_BINDING
237      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
238      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
239      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
240    END SUBROUTINE cxios_get_fieldgroup_unit
241   
242   
243    END INTERFACE
244 
245END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.