source: XIOS/trunk/src/interface/fortran_attr/field_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: 9.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE field_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_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
15      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
16    END SUBROUTINE cxios_set_field_axis_ref
17   
18    SUBROUTINE cxios_get_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
22      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
23    END SUBROUTINE cxios_get_field_axis_ref
24   
25   
26    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)
27      USE ISO_C_BINDING
28      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
29      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
30    END SUBROUTINE cxios_set_field_default_value
31   
32    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
35      REAL (KIND=C_DOUBLE)             :: default_value
36    END SUBROUTINE cxios_get_field_default_value
37   
38   
39    SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
40      USE ISO_C_BINDING
41      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
42      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
43      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
44    END SUBROUTINE cxios_set_field_domain_ref
45   
46    SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
47      USE ISO_C_BINDING
48      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
49      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
50      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
51    END SUBROUTINE cxios_get_field_domain_ref
52   
53   
54    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
55      USE ISO_C_BINDING
56      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
57      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
58    END SUBROUTINE cxios_set_field_enabled
59   
60    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C)
61      USE ISO_C_BINDING
62      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
63      LOGICAL (KIND=C_BOOL)             :: enabled
64    END SUBROUTINE cxios_get_field_enabled
65   
66   
67    SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
68      USE ISO_C_BINDING
69      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
70      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
71      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
72    END SUBROUTINE cxios_set_field_field_ref
73   
74    SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
75      USE ISO_C_BINDING
76      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
77      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
78      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
79    END SUBROUTINE cxios_get_field_field_ref
80   
81   
82    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
83      USE ISO_C_BINDING
84      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
85      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
86      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
87    END SUBROUTINE cxios_set_field_freq_offset
88   
89    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
90      USE ISO_C_BINDING
91      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
92      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
93      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
94    END SUBROUTINE cxios_get_field_freq_offset
95   
96   
97    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
101      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
102    END SUBROUTINE cxios_set_field_freq_op
103   
104    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
105      USE ISO_C_BINDING
106      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
107      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
108      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
109    END SUBROUTINE cxios_get_field_freq_op
110   
111   
112    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
115      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
116      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
117    END SUBROUTINE cxios_set_field_grid_ref
118   
119    SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
123      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
124    END SUBROUTINE cxios_get_field_grid_ref
125   
126   
127    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
128      USE ISO_C_BINDING
129      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
130      INTEGER (KIND=C_INT)      , VALUE :: level
131    END SUBROUTINE cxios_set_field_level
132   
133    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C)
134      USE ISO_C_BINDING
135      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
136      INTEGER (KIND=C_INT)             :: level
137    END SUBROUTINE cxios_get_field_level
138   
139   
140    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
143      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
144      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
145    END SUBROUTINE cxios_set_field_long_name
146   
147    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
148      USE ISO_C_BINDING
149      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
150      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
151      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
152    END SUBROUTINE cxios_get_field_long_name
153   
154   
155    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
158      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
159      INTEGER  (kind = C_INT)     , VALUE        :: name_size
160    END SUBROUTINE cxios_set_field_name
161   
162    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C)
163      USE ISO_C_BINDING
164      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
165      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
166      INTEGER  (kind = C_INT)     , VALUE        :: name_size
167    END SUBROUTINE cxios_get_field_name
168   
169   
170    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
171      USE ISO_C_BINDING
172      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
173      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
174      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
175    END SUBROUTINE cxios_set_field_operation
176   
177    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C)
178      USE ISO_C_BINDING
179      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
180      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
181      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
182    END SUBROUTINE cxios_get_field_operation
183   
184   
185    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
186      USE ISO_C_BINDING
187      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
188      INTEGER (KIND=C_INT)      , VALUE :: prec
189    END SUBROUTINE cxios_set_field_prec
190   
191    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C)
192      USE ISO_C_BINDING
193      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
194      INTEGER (KIND=C_INT)             :: prec
195    END SUBROUTINE cxios_get_field_prec
196   
197   
198    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
201      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
202      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
203    END SUBROUTINE cxios_set_field_standard_name
204   
205    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
206      USE ISO_C_BINDING
207      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
208      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
209      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
210    END SUBROUTINE cxios_get_field_standard_name
211   
212   
213    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
214      USE ISO_C_BINDING
215      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
216      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
217      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
218    END SUBROUTINE cxios_set_field_unit
219   
220    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C)
221      USE ISO_C_BINDING
222      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
223      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
224      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
225    END SUBROUTINE cxios_get_field_unit
226   
227   
228    END INTERFACE
229 
230END MODULE field_interface_attr
Note: See TracBrowser for help on using the repository browser.