source: XIOS1/trunk/src/interface/fortran_attr/field_interface_attr.f90 @ 2428

Last change on this file since 2428 was 608, checked in by rlacroix, 9 years ago

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.
  • 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: 18.3 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_add_offset(field_hdl, add_offset) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
14      REAL (KIND=C_DOUBLE)      , VALUE :: add_offset
15    END SUBROUTINE cxios_set_field_add_offset
16   
17    SUBROUTINE cxios_get_field_add_offset(field_hdl, add_offset) BIND(C)
18      USE ISO_C_BINDING
19      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
20      REAL (KIND=C_DOUBLE)             :: add_offset
21    END SUBROUTINE cxios_get_field_add_offset
22   
23    FUNCTION cxios_is_defined_field_add_offset(field_hdl ) BIND(C)
24      USE ISO_C_BINDING
25      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_add_offset
26      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
27    END FUNCTION cxios_is_defined_field_add_offset
28   
29   
30    SUBROUTINE cxios_set_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
31      USE ISO_C_BINDING
32      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
33      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
34      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
35    END SUBROUTINE cxios_set_field_axis_ref
36   
37    SUBROUTINE cxios_get_field_axis_ref(field_hdl, axis_ref, axis_ref_size) BIND(C)
38      USE ISO_C_BINDING
39      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
40      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
41      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
42    END SUBROUTINE cxios_get_field_axis_ref
43   
44    FUNCTION cxios_is_defined_field_axis_ref(field_hdl ) BIND(C)
45      USE ISO_C_BINDING
46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_axis_ref
47      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
48    END FUNCTION cxios_is_defined_field_axis_ref
49   
50   
51    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C)
52      USE ISO_C_BINDING
53      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
54      INTEGER (KIND=C_INT)      , VALUE :: compression_level
55    END SUBROUTINE cxios_set_field_compression_level
56   
57    SUBROUTINE cxios_get_field_compression_level(field_hdl, compression_level) BIND(C)
58      USE ISO_C_BINDING
59      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
60      INTEGER (KIND=C_INT)             :: compression_level
61    END SUBROUTINE cxios_get_field_compression_level
62   
63    FUNCTION cxios_is_defined_field_compression_level(field_hdl ) BIND(C)
64      USE ISO_C_BINDING
65      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_level
66      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
67    END FUNCTION cxios_is_defined_field_compression_level
68   
69   
70    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)
71      USE ISO_C_BINDING
72      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
73      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
74    END SUBROUTINE cxios_set_field_default_value
75   
76    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C)
77      USE ISO_C_BINDING
78      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
79      REAL (KIND=C_DOUBLE)             :: default_value
80    END SUBROUTINE cxios_get_field_default_value
81   
82    FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C)
83      USE ISO_C_BINDING
84      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value
85      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
86    END FUNCTION cxios_is_defined_field_default_value
87   
88   
89    SUBROUTINE cxios_set_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
90      USE ISO_C_BINDING
91      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
92      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
93    END SUBROUTINE cxios_set_field_detect_missing_value
94   
95    SUBROUTINE cxios_get_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
96      USE ISO_C_BINDING
97      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
98      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
99    END SUBROUTINE cxios_get_field_detect_missing_value
100   
101    FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl ) BIND(C)
102      USE ISO_C_BINDING
103      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_detect_missing_value
104      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
105    END FUNCTION cxios_is_defined_field_detect_missing_value
106   
107   
108    SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
109      USE ISO_C_BINDING
110      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
111      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
112      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
113    END SUBROUTINE cxios_set_field_domain_ref
114   
115    SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
116      USE ISO_C_BINDING
117      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
118      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
119      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
120    END SUBROUTINE cxios_get_field_domain_ref
121   
122    FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C)
123      USE ISO_C_BINDING
124      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref
125      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
126    END FUNCTION cxios_is_defined_field_domain_ref
127   
128   
129    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
130      USE ISO_C_BINDING
131      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
132      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
133    END SUBROUTINE cxios_set_field_enabled
134   
135    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C)
136      USE ISO_C_BINDING
137      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
138      LOGICAL (KIND=C_BOOL)             :: enabled
139    END SUBROUTINE cxios_get_field_enabled
140   
141    FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C)
142      USE ISO_C_BINDING
143      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled
144      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
145    END FUNCTION cxios_is_defined_field_enabled
146   
147   
148    SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
149      USE ISO_C_BINDING
150      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
151      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
152      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
153    END SUBROUTINE cxios_set_field_field_ref
154   
155    SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
156      USE ISO_C_BINDING
157      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
158      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
159      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
160    END SUBROUTINE cxios_get_field_field_ref
161   
162    FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C)
163      USE ISO_C_BINDING
164      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref
165      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
166    END FUNCTION cxios_is_defined_field_field_ref
167   
168   
169    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
170      USE ISO_C_BINDING
171      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
172      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
173      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
174    END SUBROUTINE cxios_set_field_freq_offset
175   
176    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
177      USE ISO_C_BINDING
178      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
179      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
180      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
181    END SUBROUTINE cxios_get_field_freq_offset
182   
183    FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C)
184      USE ISO_C_BINDING
185      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset
186      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
187    END FUNCTION cxios_is_defined_field_freq_offset
188   
189   
190    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
191      USE ISO_C_BINDING
192      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
193      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
194      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
195    END SUBROUTINE cxios_set_field_freq_op
196   
197    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
200      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
201      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
202    END SUBROUTINE cxios_get_field_freq_op
203   
204    FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C)
205      USE ISO_C_BINDING
206      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op
207      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
208    END FUNCTION cxios_is_defined_field_freq_op
209   
210   
211    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
212      USE ISO_C_BINDING
213      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
214      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
215      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
216    END SUBROUTINE cxios_set_field_grid_ref
217   
218    SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
219      USE ISO_C_BINDING
220      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
221      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
222      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
223    END SUBROUTINE cxios_get_field_grid_ref
224   
225    FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C)
226      USE ISO_C_BINDING
227      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref
228      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
229    END FUNCTION cxios_is_defined_field_grid_ref
230   
231   
232    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
233      USE ISO_C_BINDING
234      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
235      INTEGER (KIND=C_INT)      , VALUE :: level
236    END SUBROUTINE cxios_set_field_level
237   
238    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C)
239      USE ISO_C_BINDING
240      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
241      INTEGER (KIND=C_INT)             :: level
242    END SUBROUTINE cxios_get_field_level
243   
244    FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C)
245      USE ISO_C_BINDING
246      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level
247      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
248    END FUNCTION cxios_is_defined_field_level
249   
250   
251    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
252      USE ISO_C_BINDING
253      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
254      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
255      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
256    END SUBROUTINE cxios_set_field_long_name
257   
258    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
261      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
262      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
263    END SUBROUTINE cxios_get_field_long_name
264   
265    FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C)
266      USE ISO_C_BINDING
267      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name
268      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
269    END FUNCTION cxios_is_defined_field_long_name
270   
271   
272    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
273      USE ISO_C_BINDING
274      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
275      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
276      INTEGER  (kind = C_INT)     , VALUE        :: name_size
277    END SUBROUTINE cxios_set_field_name
278   
279    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C)
280      USE ISO_C_BINDING
281      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
282      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
283      INTEGER  (kind = C_INT)     , VALUE        :: name_size
284    END SUBROUTINE cxios_get_field_name
285   
286    FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C)
287      USE ISO_C_BINDING
288      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name
289      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
290    END FUNCTION cxios_is_defined_field_name
291   
292   
293    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
294      USE ISO_C_BINDING
295      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
296      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
297      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
298    END SUBROUTINE cxios_set_field_operation
299   
300    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C)
301      USE ISO_C_BINDING
302      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
303      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
304      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
305    END SUBROUTINE cxios_get_field_operation
306   
307    FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C)
308      USE ISO_C_BINDING
309      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation
310      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
311    END FUNCTION cxios_is_defined_field_operation
312   
313   
314    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
315      USE ISO_C_BINDING
316      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
317      INTEGER (KIND=C_INT)      , VALUE :: prec
318    END SUBROUTINE cxios_set_field_prec
319   
320    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C)
321      USE ISO_C_BINDING
322      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
323      INTEGER (KIND=C_INT)             :: prec
324    END SUBROUTINE cxios_get_field_prec
325   
326    FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C)
327      USE ISO_C_BINDING
328      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec
329      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
330    END FUNCTION cxios_is_defined_field_prec
331   
332   
333    SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C)
334      USE ISO_C_BINDING
335      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
336      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
337    END SUBROUTINE cxios_set_field_scale_factor
338   
339    SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C)
340      USE ISO_C_BINDING
341      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
342      REAL (KIND=C_DOUBLE)             :: scale_factor
343    END SUBROUTINE cxios_get_field_scale_factor
344   
345    FUNCTION cxios_is_defined_field_scale_factor(field_hdl ) BIND(C)
346      USE ISO_C_BINDING
347      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor
348      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
349    END FUNCTION cxios_is_defined_field_scale_factor
350   
351   
352    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
353      USE ISO_C_BINDING
354      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
355      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
356      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
357    END SUBROUTINE cxios_set_field_standard_name
358   
359    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
360      USE ISO_C_BINDING
361      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
362      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
363      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
364    END SUBROUTINE cxios_get_field_standard_name
365   
366    FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C)
367      USE ISO_C_BINDING
368      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name
369      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
370    END FUNCTION cxios_is_defined_field_standard_name
371   
372   
373    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
374      USE ISO_C_BINDING
375      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
376      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
377      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
378    END SUBROUTINE cxios_set_field_unit
379   
380    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C)
381      USE ISO_C_BINDING
382      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
383      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
384      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
385    END SUBROUTINE cxios_get_field_unit
386   
387    FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C)
388      USE ISO_C_BINDING
389      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit
390      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
391    END FUNCTION cxios_is_defined_field_unit
392   
393   
394    SUBROUTINE cxios_set_field_valid_max(field_hdl, valid_max) BIND(C)
395      USE ISO_C_BINDING
396      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
397      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
398    END SUBROUTINE cxios_set_field_valid_max
399   
400    SUBROUTINE cxios_get_field_valid_max(field_hdl, valid_max) BIND(C)
401      USE ISO_C_BINDING
402      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
403      REAL (KIND=C_DOUBLE)             :: valid_max
404    END SUBROUTINE cxios_get_field_valid_max
405   
406    FUNCTION cxios_is_defined_field_valid_max(field_hdl ) BIND(C)
407      USE ISO_C_BINDING
408      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_max
409      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
410    END FUNCTION cxios_is_defined_field_valid_max
411   
412   
413    SUBROUTINE cxios_set_field_valid_min(field_hdl, valid_min) BIND(C)
414      USE ISO_C_BINDING
415      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
416      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
417    END SUBROUTINE cxios_set_field_valid_min
418   
419    SUBROUTINE cxios_get_field_valid_min(field_hdl, valid_min) BIND(C)
420      USE ISO_C_BINDING
421      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
422      REAL (KIND=C_DOUBLE)             :: valid_min
423    END SUBROUTINE cxios_get_field_valid_min
424   
425    FUNCTION cxios_is_defined_field_valid_min(field_hdl ) BIND(C)
426      USE ISO_C_BINDING
427      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_min
428      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
429    END FUNCTION cxios_is_defined_field_valid_min
430   
431   
432    END INTERFACE
433 
434END MODULE field_interface_attr
Note: See TracBrowser for help on using the repository browser.