source: XIOS/trunk/src/interface/fortran_attr/field_interface_attr.f90 @ 501

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

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

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