source: XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90 @ 657

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