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

Last change on this file since 551 was 545, checked in by rlacroix, 9 years ago

Expose the calendar operations through the Fortran interface.

  • Add arithmetic operations on the xios_duration and xios_date types:
    • xios_duration + xios_duration = xios_duration
    • xios_duration - xios_duration = xios_duration
    • scalar * xios_duration = xios_duration * scalar = xios_duration
    • - xios_duration = xios_duration
    • xios_date + xios_duration = xios_date
    • xios_date - xios_duration = xios_date
    • xios_date - xios_date = xios_duration
  • Add comparison operations on the xios_duration and xios_date types:
    • xios_duration: ==, /=
    • xios_date: ==, /=, <, <=, >, >=
  • Add a new function "xios_date_convert_to_seconds" to convert a date into the number of seconds since the time origin of the calendar
  • Define some constant durations "xios_second", "xios_minute", "xios_hour", "xios_day", "xios_month", "xios_year" et "xios_timestep" to ease the definition of new durations (for example, 10h is just 10 * xios_hour)
  • Add a new function "xios_set_calendar" so that one can manually create the calendar attached to the current context and thus use the calendar operations before calling "xios_close_context_definition". This function can accept optional parameters so that the calendar attributes (calendar_type, start_date, time_origin and timestep) can be easily overwritten. Note that you cannot define a new calendar after one was already created (either because "xios_set_calendar" or "xios_close_context_definition" was used)
  • Readd the function "xios_set_timestep" as a simplified alias of "xios_set_context_attr(context, timestep)" for the current context
  • 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: 17.2 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 ! Do not call directly / interface FORTRAN 2003 <-> C99
10   
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_default_value(field_hdl, default_value) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
55      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
56    END SUBROUTINE cxios_set_field_default_value
57   
58    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
61      REAL (KIND=C_DOUBLE)             :: default_value
62    END SUBROUTINE cxios_get_field_default_value
63   
64    FUNCTION cxios_is_defined_field_default_value(field_hdl ) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value
67      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
68    END FUNCTION cxios_is_defined_field_default_value
69   
70   
71    SUBROUTINE cxios_set_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
74      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
75    END SUBROUTINE cxios_set_field_detect_missing_value
76   
77    SUBROUTINE cxios_get_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
80      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
81    END SUBROUTINE cxios_get_field_detect_missing_value
82   
83    FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl ) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_detect_missing_value
86      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
87    END FUNCTION cxios_is_defined_field_detect_missing_value
88   
89   
90    SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
93      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
94      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
95    END SUBROUTINE cxios_set_field_domain_ref
96   
97    SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
98      USE ISO_C_BINDING
99      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
100      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
101      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
102    END SUBROUTINE cxios_get_field_domain_ref
103   
104    FUNCTION cxios_is_defined_field_domain_ref(field_hdl ) BIND(C)
105      USE ISO_C_BINDING
106      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref
107      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
108    END FUNCTION cxios_is_defined_field_domain_ref
109   
110   
111    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
112      USE ISO_C_BINDING
113      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
114      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
115    END SUBROUTINE cxios_set_field_enabled
116   
117    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C)
118      USE ISO_C_BINDING
119      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
120      LOGICAL (KIND=C_BOOL)             :: enabled
121    END SUBROUTINE cxios_get_field_enabled
122   
123    FUNCTION cxios_is_defined_field_enabled(field_hdl ) BIND(C)
124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled
126      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
127    END FUNCTION cxios_is_defined_field_enabled
128   
129   
130    SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
133      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
134      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
135    END SUBROUTINE cxios_set_field_field_ref
136   
137    SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
138      USE ISO_C_BINDING
139      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
140      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
141      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
142    END SUBROUTINE cxios_get_field_field_ref
143   
144    FUNCTION cxios_is_defined_field_field_ref(field_hdl ) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref
147      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
148    END FUNCTION cxios_is_defined_field_field_ref
149   
150   
151    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C)
152      USE ISO_C_BINDING
153      USE IDURATION
154      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
155      TYPE(txios(duration)), VALUE :: freq_offset
156    END SUBROUTINE cxios_set_field_freq_offset
157   
158    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C)
159      USE ISO_C_BINDING
160      USE IDURATION
161      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
162      TYPE(txios(duration)) :: freq_offset
163    END SUBROUTINE cxios_get_field_freq_offset
164   
165    FUNCTION cxios_is_defined_field_freq_offset(field_hdl ) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset
168      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
169    END FUNCTION cxios_is_defined_field_freq_offset
170   
171   
172    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C)
173      USE ISO_C_BINDING
174      USE IDURATION
175      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
176      TYPE(txios(duration)), VALUE :: freq_op
177    END SUBROUTINE cxios_set_field_freq_op
178   
179    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C)
180      USE ISO_C_BINDING
181      USE IDURATION
182      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
183      TYPE(txios(duration)) :: freq_op
184    END SUBROUTINE cxios_get_field_freq_op
185   
186    FUNCTION cxios_is_defined_field_freq_op(field_hdl ) BIND(C)
187      USE ISO_C_BINDING
188      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op
189      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
190    END FUNCTION cxios_is_defined_field_freq_op
191   
192   
193    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
194      USE ISO_C_BINDING
195      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
196      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
197      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
198    END SUBROUTINE cxios_set_field_grid_ref
199   
200    SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
201      USE ISO_C_BINDING
202      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
203      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
204      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
205    END SUBROUTINE cxios_get_field_grid_ref
206   
207    FUNCTION cxios_is_defined_field_grid_ref(field_hdl ) BIND(C)
208      USE ISO_C_BINDING
209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref
210      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
211    END FUNCTION cxios_is_defined_field_grid_ref
212   
213   
214    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
215      USE ISO_C_BINDING
216      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
217      INTEGER (KIND=C_INT)      , VALUE :: level
218    END SUBROUTINE cxios_set_field_level
219   
220    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C)
221      USE ISO_C_BINDING
222      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
223      INTEGER (KIND=C_INT)             :: level
224    END SUBROUTINE cxios_get_field_level
225   
226    FUNCTION cxios_is_defined_field_level(field_hdl ) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level
229      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
230    END FUNCTION cxios_is_defined_field_level
231   
232   
233    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
236      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
237      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
238    END SUBROUTINE cxios_set_field_long_name
239   
240    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
241      USE ISO_C_BINDING
242      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
243      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
244      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
245    END SUBROUTINE cxios_get_field_long_name
246   
247    FUNCTION cxios_is_defined_field_long_name(field_hdl ) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name
250      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
251    END FUNCTION cxios_is_defined_field_long_name
252   
253   
254    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
258      INTEGER  (kind = C_INT)     , VALUE        :: name_size
259    END SUBROUTINE cxios_set_field_name
260   
261    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
265      INTEGER  (kind = C_INT)     , VALUE        :: name_size
266    END SUBROUTINE cxios_get_field_name
267   
268    FUNCTION cxios_is_defined_field_name(field_hdl ) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name
271      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
272    END FUNCTION cxios_is_defined_field_name
273   
274   
275    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
278      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
279      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
280    END SUBROUTINE cxios_set_field_operation
281   
282    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C)
283      USE ISO_C_BINDING
284      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
285      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
286      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
287    END SUBROUTINE cxios_get_field_operation
288   
289    FUNCTION cxios_is_defined_field_operation(field_hdl ) BIND(C)
290      USE ISO_C_BINDING
291      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation
292      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
293    END FUNCTION cxios_is_defined_field_operation
294   
295   
296    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
297      USE ISO_C_BINDING
298      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
299      INTEGER (KIND=C_INT)      , VALUE :: prec
300    END SUBROUTINE cxios_set_field_prec
301   
302    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C)
303      USE ISO_C_BINDING
304      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
305      INTEGER (KIND=C_INT)             :: prec
306    END SUBROUTINE cxios_get_field_prec
307   
308    FUNCTION cxios_is_defined_field_prec(field_hdl ) BIND(C)
309      USE ISO_C_BINDING
310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec
311      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
312    END FUNCTION cxios_is_defined_field_prec
313   
314   
315    SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
318      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
319    END SUBROUTINE cxios_set_field_scale_factor
320   
321    SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C)
322      USE ISO_C_BINDING
323      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
324      REAL (KIND=C_DOUBLE)             :: scale_factor
325    END SUBROUTINE cxios_get_field_scale_factor
326   
327    FUNCTION cxios_is_defined_field_scale_factor(field_hdl ) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor
330      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
331    END FUNCTION cxios_is_defined_field_scale_factor
332   
333   
334    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
335      USE ISO_C_BINDING
336      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
337      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
338      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
339    END SUBROUTINE cxios_set_field_standard_name
340   
341    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
342      USE ISO_C_BINDING
343      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
344      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
345      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
346    END SUBROUTINE cxios_get_field_standard_name
347   
348    FUNCTION cxios_is_defined_field_standard_name(field_hdl ) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name
351      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
352    END FUNCTION cxios_is_defined_field_standard_name
353   
354   
355    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
358      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
359      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
360    END SUBROUTINE cxios_set_field_unit
361   
362    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C)
363      USE ISO_C_BINDING
364      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
365      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
366      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
367    END SUBROUTINE cxios_get_field_unit
368   
369    FUNCTION cxios_is_defined_field_unit(field_hdl ) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit
372      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
373    END FUNCTION cxios_is_defined_field_unit
374   
375   
376    SUBROUTINE cxios_set_field_valid_max(field_hdl, valid_max) BIND(C)
377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
379      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
380    END SUBROUTINE cxios_set_field_valid_max
381   
382    SUBROUTINE cxios_get_field_valid_max(field_hdl, valid_max) BIND(C)
383      USE ISO_C_BINDING
384      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
385      REAL (KIND=C_DOUBLE)             :: valid_max
386    END SUBROUTINE cxios_get_field_valid_max
387   
388    FUNCTION cxios_is_defined_field_valid_max(field_hdl ) BIND(C)
389      USE ISO_C_BINDING
390      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_max
391      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
392    END FUNCTION cxios_is_defined_field_valid_max
393   
394   
395    SUBROUTINE cxios_set_field_valid_min(field_hdl, valid_min) BIND(C)
396      USE ISO_C_BINDING
397      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
398      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
399    END SUBROUTINE cxios_set_field_valid_min
400   
401    SUBROUTINE cxios_get_field_valid_min(field_hdl, valid_min) BIND(C)
402      USE ISO_C_BINDING
403      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
404      REAL (KIND=C_DOUBLE)             :: valid_min
405    END SUBROUTINE cxios_get_field_valid_min
406   
407    FUNCTION cxios_is_defined_field_valid_min(field_hdl ) BIND(C)
408      USE ISO_C_BINDING
409      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_min
410      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
411    END FUNCTION cxios_is_defined_field_valid_min
412   
413   
414    END INTERFACE
415 
416END MODULE field_interface_attr
Note: See TracBrowser for help on using the repository browser.