source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/field_interface_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain
  • 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: 28.0 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_build_workflow_graph(field_hdl, build_workflow_graph) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
55      LOGICAL (KIND=C_BOOL)      , VALUE :: build_workflow_graph
56    END SUBROUTINE cxios_set_field_build_workflow_graph
57
58    SUBROUTINE cxios_get_field_build_workflow_graph(field_hdl, build_workflow_graph) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
61      LOGICAL (KIND=C_BOOL)             :: build_workflow_graph
62    END SUBROUTINE cxios_get_field_build_workflow_graph
63
64    FUNCTION cxios_is_defined_field_build_workflow_graph(field_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_build_workflow_graph
67      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
68    END FUNCTION cxios_is_defined_field_build_workflow_graph
69
70
71    SUBROUTINE cxios_set_field_cell_methods(field_hdl, cell_methods, cell_methods_size) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
74      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods
75      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size
76    END SUBROUTINE cxios_set_field_cell_methods
77
78    SUBROUTINE cxios_get_field_cell_methods(field_hdl, cell_methods, cell_methods_size) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
81      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods
82      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size
83    END SUBROUTINE cxios_get_field_cell_methods
84
85    FUNCTION cxios_is_defined_field_cell_methods(field_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_cell_methods
88      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
89    END FUNCTION cxios_is_defined_field_cell_methods
90
91
92    SUBROUTINE cxios_set_field_cell_methods_mode(field_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
95      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode
96      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size
97    END SUBROUTINE cxios_set_field_cell_methods_mode
98
99    SUBROUTINE cxios_get_field_cell_methods_mode(field_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
102      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods_mode
103      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_mode_size
104    END SUBROUTINE cxios_get_field_cell_methods_mode
105
106    FUNCTION cxios_is_defined_field_cell_methods_mode(field_hdl) BIND(C)
107      USE ISO_C_BINDING
108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_cell_methods_mode
109      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
110    END FUNCTION cxios_is_defined_field_cell_methods_mode
111
112
113    SUBROUTINE cxios_set_field_check_if_active(field_hdl, check_if_active) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
116      LOGICAL (KIND=C_BOOL)      , VALUE :: check_if_active
117    END SUBROUTINE cxios_set_field_check_if_active
118
119    SUBROUTINE cxios_get_field_check_if_active(field_hdl, check_if_active) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
122      LOGICAL (KIND=C_BOOL)             :: check_if_active
123    END SUBROUTINE cxios_get_field_check_if_active
124
125    FUNCTION cxios_is_defined_field_check_if_active(field_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_check_if_active
128      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
129    END FUNCTION cxios_is_defined_field_check_if_active
130
131
132    SUBROUTINE cxios_set_field_comment(field_hdl, comment, comment_size) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
135      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
136      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
137    END SUBROUTINE cxios_set_field_comment
138
139    SUBROUTINE cxios_get_field_comment(field_hdl, comment, comment_size) BIND(C)
140      USE ISO_C_BINDING
141      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
142      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
143      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
144    END SUBROUTINE cxios_get_field_comment
145
146    FUNCTION cxios_is_defined_field_comment(field_hdl) BIND(C)
147      USE ISO_C_BINDING
148      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_comment
149      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
150    END FUNCTION cxios_is_defined_field_comment
151
152
153    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C)
154      USE ISO_C_BINDING
155      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
156      INTEGER (KIND=C_INT)      , VALUE :: compression_level
157    END SUBROUTINE cxios_set_field_compression_level
158
159    SUBROUTINE cxios_get_field_compression_level(field_hdl, compression_level) BIND(C)
160      USE ISO_C_BINDING
161      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
162      INTEGER (KIND=C_INT)             :: compression_level
163    END SUBROUTINE cxios_get_field_compression_level
164
165    FUNCTION cxios_is_defined_field_compression_level(field_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_level
168      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
169    END FUNCTION cxios_is_defined_field_compression_level
170
171
172    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
175      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
176    END SUBROUTINE cxios_set_field_default_value
177
178    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C)
179      USE ISO_C_BINDING
180      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
181      REAL (KIND=C_DOUBLE)             :: default_value
182    END SUBROUTINE cxios_get_field_default_value
183
184    FUNCTION cxios_is_defined_field_default_value(field_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value
187      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
188    END FUNCTION cxios_is_defined_field_default_value
189
190
191    SUBROUTINE cxios_set_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
192      USE ISO_C_BINDING
193      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
194      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
195    END SUBROUTINE cxios_set_field_detect_missing_value
196
197    SUBROUTINE cxios_get_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
198      USE ISO_C_BINDING
199      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
200      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
201    END SUBROUTINE cxios_get_field_detect_missing_value
202
203    FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl) BIND(C)
204      USE ISO_C_BINDING
205      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_detect_missing_value
206      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
207    END FUNCTION cxios_is_defined_field_detect_missing_value
208
209
210    SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
211      USE ISO_C_BINDING
212      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
213      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
214      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
215    END SUBROUTINE cxios_set_field_domain_ref
216
217    SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
218      USE ISO_C_BINDING
219      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
220      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
221      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
222    END SUBROUTINE cxios_get_field_domain_ref
223
224    FUNCTION cxios_is_defined_field_domain_ref(field_hdl) BIND(C)
225      USE ISO_C_BINDING
226      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref
227      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
228    END FUNCTION cxios_is_defined_field_domain_ref
229
230
231    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
232      USE ISO_C_BINDING
233      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
234      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
235    END SUBROUTINE cxios_set_field_enabled
236
237    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C)
238      USE ISO_C_BINDING
239      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
240      LOGICAL (KIND=C_BOOL)             :: enabled
241    END SUBROUTINE cxios_get_field_enabled
242
243    FUNCTION cxios_is_defined_field_enabled(field_hdl) BIND(C)
244      USE ISO_C_BINDING
245      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled
246      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
247    END FUNCTION cxios_is_defined_field_enabled
248
249
250    SUBROUTINE cxios_set_field_expr(field_hdl, expr, expr_size) BIND(C)
251      USE ISO_C_BINDING
252      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
253      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
254      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
255    END SUBROUTINE cxios_set_field_expr
256
257    SUBROUTINE cxios_get_field_expr(field_hdl, expr, expr_size) BIND(C)
258      USE ISO_C_BINDING
259      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
260      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
261      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
262    END SUBROUTINE cxios_get_field_expr
263
264    FUNCTION cxios_is_defined_field_expr(field_hdl) BIND(C)
265      USE ISO_C_BINDING
266      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_expr
267      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
268    END FUNCTION cxios_is_defined_field_expr
269
270
271    SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
272      USE ISO_C_BINDING
273      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
274      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
275      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
276    END SUBROUTINE cxios_set_field_field_ref
277
278    SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
279      USE ISO_C_BINDING
280      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
281      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
282      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
283    END SUBROUTINE cxios_get_field_field_ref
284
285    FUNCTION cxios_is_defined_field_field_ref(field_hdl) BIND(C)
286      USE ISO_C_BINDING
287      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref
288      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
289    END FUNCTION cxios_is_defined_field_field_ref
290
291
292    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C)
293      USE ISO_C_BINDING
294      USE IDURATION
295      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
296      TYPE(txios(duration)), VALUE :: freq_offset
297    END SUBROUTINE cxios_set_field_freq_offset
298
299    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C)
300      USE ISO_C_BINDING
301      USE IDURATION
302      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
303      TYPE(txios(duration)) :: freq_offset
304    END SUBROUTINE cxios_get_field_freq_offset
305
306    FUNCTION cxios_is_defined_field_freq_offset(field_hdl) BIND(C)
307      USE ISO_C_BINDING
308      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset
309      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
310    END FUNCTION cxios_is_defined_field_freq_offset
311
312
313    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C)
314      USE ISO_C_BINDING
315      USE IDURATION
316      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
317      TYPE(txios(duration)), VALUE :: freq_op
318    END SUBROUTINE cxios_set_field_freq_op
319
320    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C)
321      USE ISO_C_BINDING
322      USE IDURATION
323      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
324      TYPE(txios(duration)) :: freq_op
325    END SUBROUTINE cxios_get_field_freq_op
326
327    FUNCTION cxios_is_defined_field_freq_op(field_hdl) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op
330      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
331    END FUNCTION cxios_is_defined_field_freq_op
332
333
334    SUBROUTINE cxios_set_field_grid_path(field_hdl, grid_path, grid_path_size) BIND(C)
335      USE ISO_C_BINDING
336      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
337      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
338      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
339    END SUBROUTINE cxios_set_field_grid_path
340
341    SUBROUTINE cxios_get_field_grid_path(field_hdl, grid_path, grid_path_size) BIND(C)
342      USE ISO_C_BINDING
343      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
344      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
345      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
346    END SUBROUTINE cxios_get_field_grid_path
347
348    FUNCTION cxios_is_defined_field_grid_path(field_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_path
351      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
352    END FUNCTION cxios_is_defined_field_grid_path
353
354
355    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
358      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
359      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
360    END SUBROUTINE cxios_set_field_grid_ref
361
362    SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
363      USE ISO_C_BINDING
364      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
365      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
366      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
367    END SUBROUTINE cxios_get_field_grid_ref
368
369    FUNCTION cxios_is_defined_field_grid_ref(field_hdl) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref
372      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
373    END FUNCTION cxios_is_defined_field_grid_ref
374
375
376    SUBROUTINE cxios_set_field_indexed_output(field_hdl, indexed_output) BIND(C)
377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
379      LOGICAL (KIND=C_BOOL)      , VALUE :: indexed_output
380    END SUBROUTINE cxios_set_field_indexed_output
381
382    SUBROUTINE cxios_get_field_indexed_output(field_hdl, indexed_output) BIND(C)
383      USE ISO_C_BINDING
384      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
385      LOGICAL (KIND=C_BOOL)             :: indexed_output
386    END SUBROUTINE cxios_get_field_indexed_output
387
388    FUNCTION cxios_is_defined_field_indexed_output(field_hdl) BIND(C)
389      USE ISO_C_BINDING
390      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_indexed_output
391      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
392    END FUNCTION cxios_is_defined_field_indexed_output
393
394
395    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
396      USE ISO_C_BINDING
397      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
398      INTEGER (KIND=C_INT)      , VALUE :: level
399    END SUBROUTINE cxios_set_field_level
400
401    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C)
402      USE ISO_C_BINDING
403      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
404      INTEGER (KIND=C_INT)             :: level
405    END SUBROUTINE cxios_get_field_level
406
407    FUNCTION cxios_is_defined_field_level(field_hdl) BIND(C)
408      USE ISO_C_BINDING
409      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level
410      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
411    END FUNCTION cxios_is_defined_field_level
412
413
414    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
415      USE ISO_C_BINDING
416      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
417      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
418      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
419    END SUBROUTINE cxios_set_field_long_name
420
421    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
422      USE ISO_C_BINDING
423      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
424      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
425      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
426    END SUBROUTINE cxios_get_field_long_name
427
428    FUNCTION cxios_is_defined_field_long_name(field_hdl) BIND(C)
429      USE ISO_C_BINDING
430      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name
431      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
432    END FUNCTION cxios_is_defined_field_long_name
433
434
435    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
436      USE ISO_C_BINDING
437      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
438      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
439      INTEGER  (kind = C_INT)     , VALUE        :: name_size
440    END SUBROUTINE cxios_set_field_name
441
442    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C)
443      USE ISO_C_BINDING
444      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
445      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
446      INTEGER  (kind = C_INT)     , VALUE        :: name_size
447    END SUBROUTINE cxios_get_field_name
448
449    FUNCTION cxios_is_defined_field_name(field_hdl) BIND(C)
450      USE ISO_C_BINDING
451      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name
452      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
453    END FUNCTION cxios_is_defined_field_name
454
455
456    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
457      USE ISO_C_BINDING
458      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
459      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
460      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
461    END SUBROUTINE cxios_set_field_operation
462
463    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C)
464      USE ISO_C_BINDING
465      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
466      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
467      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
468    END SUBROUTINE cxios_get_field_operation
469
470    FUNCTION cxios_is_defined_field_operation(field_hdl) BIND(C)
471      USE ISO_C_BINDING
472      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation
473      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
474    END FUNCTION cxios_is_defined_field_operation
475
476
477    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
478      USE ISO_C_BINDING
479      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
480      INTEGER (KIND=C_INT)      , VALUE :: prec
481    END SUBROUTINE cxios_set_field_prec
482
483    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C)
484      USE ISO_C_BINDING
485      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
486      INTEGER (KIND=C_INT)             :: prec
487    END SUBROUTINE cxios_get_field_prec
488
489    FUNCTION cxios_is_defined_field_prec(field_hdl) BIND(C)
490      USE ISO_C_BINDING
491      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec
492      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
493    END FUNCTION cxios_is_defined_field_prec
494
495
496    SUBROUTINE cxios_set_field_read_access(field_hdl, read_access) BIND(C)
497      USE ISO_C_BINDING
498      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
499      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
500    END SUBROUTINE cxios_set_field_read_access
501
502    SUBROUTINE cxios_get_field_read_access(field_hdl, read_access) BIND(C)
503      USE ISO_C_BINDING
504      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
505      LOGICAL (KIND=C_BOOL)             :: read_access
506    END SUBROUTINE cxios_get_field_read_access
507
508    FUNCTION cxios_is_defined_field_read_access(field_hdl) BIND(C)
509      USE ISO_C_BINDING
510      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_read_access
511      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
512    END FUNCTION cxios_is_defined_field_read_access
513
514
515    SUBROUTINE cxios_set_field_scalar_ref(field_hdl, scalar_ref, scalar_ref_size) BIND(C)
516      USE ISO_C_BINDING
517      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
518      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: scalar_ref
519      INTEGER  (kind = C_INT)     , VALUE        :: scalar_ref_size
520    END SUBROUTINE cxios_set_field_scalar_ref
521
522    SUBROUTINE cxios_get_field_scalar_ref(field_hdl, scalar_ref, scalar_ref_size) BIND(C)
523      USE ISO_C_BINDING
524      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
525      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: scalar_ref
526      INTEGER  (kind = C_INT)     , VALUE        :: scalar_ref_size
527    END SUBROUTINE cxios_get_field_scalar_ref
528
529    FUNCTION cxios_is_defined_field_scalar_ref(field_hdl) BIND(C)
530      USE ISO_C_BINDING
531      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scalar_ref
532      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
533    END FUNCTION cxios_is_defined_field_scalar_ref
534
535
536    SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C)
537      USE ISO_C_BINDING
538      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
539      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
540    END SUBROUTINE cxios_set_field_scale_factor
541
542    SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C)
543      USE ISO_C_BINDING
544      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
545      REAL (KIND=C_DOUBLE)             :: scale_factor
546    END SUBROUTINE cxios_get_field_scale_factor
547
548    FUNCTION cxios_is_defined_field_scale_factor(field_hdl) BIND(C)
549      USE ISO_C_BINDING
550      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor
551      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
552    END FUNCTION cxios_is_defined_field_scale_factor
553
554
555    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
556      USE ISO_C_BINDING
557      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
558      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
559      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
560    END SUBROUTINE cxios_set_field_standard_name
561
562    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
563      USE ISO_C_BINDING
564      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
565      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
566      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
567    END SUBROUTINE cxios_get_field_standard_name
568
569    FUNCTION cxios_is_defined_field_standard_name(field_hdl) BIND(C)
570      USE ISO_C_BINDING
571      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name
572      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
573    END FUNCTION cxios_is_defined_field_standard_name
574
575
576    SUBROUTINE cxios_set_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
577      USE ISO_C_BINDING
578      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
579      LOGICAL (KIND=C_BOOL)      , VALUE :: ts_enabled
580    END SUBROUTINE cxios_set_field_ts_enabled
581
582    SUBROUTINE cxios_get_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
583      USE ISO_C_BINDING
584      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
585      LOGICAL (KIND=C_BOOL)             :: ts_enabled
586    END SUBROUTINE cxios_get_field_ts_enabled
587
588    FUNCTION cxios_is_defined_field_ts_enabled(field_hdl) BIND(C)
589      USE ISO_C_BINDING
590      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_enabled
591      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
592    END FUNCTION cxios_is_defined_field_ts_enabled
593
594
595    SUBROUTINE cxios_set_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
596      USE ISO_C_BINDING
597      USE IDURATION
598      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
599      TYPE(txios(duration)), VALUE :: ts_split_freq
600    END SUBROUTINE cxios_set_field_ts_split_freq
601
602    SUBROUTINE cxios_get_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
603      USE ISO_C_BINDING
604      USE IDURATION
605      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
606      TYPE(txios(duration)) :: ts_split_freq
607    END SUBROUTINE cxios_get_field_ts_split_freq
608
609    FUNCTION cxios_is_defined_field_ts_split_freq(field_hdl) BIND(C)
610      USE ISO_C_BINDING
611      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_split_freq
612      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
613    END FUNCTION cxios_is_defined_field_ts_split_freq
614
615
616    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
617      USE ISO_C_BINDING
618      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
619      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
620      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
621    END SUBROUTINE cxios_set_field_unit
622
623    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C)
624      USE ISO_C_BINDING
625      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
626      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
627      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
628    END SUBROUTINE cxios_get_field_unit
629
630    FUNCTION cxios_is_defined_field_unit(field_hdl) BIND(C)
631      USE ISO_C_BINDING
632      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit
633      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
634    END FUNCTION cxios_is_defined_field_unit
635
636
637    SUBROUTINE cxios_set_field_valid_max(field_hdl, valid_max) BIND(C)
638      USE ISO_C_BINDING
639      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
640      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
641    END SUBROUTINE cxios_set_field_valid_max
642
643    SUBROUTINE cxios_get_field_valid_max(field_hdl, valid_max) BIND(C)
644      USE ISO_C_BINDING
645      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
646      REAL (KIND=C_DOUBLE)             :: valid_max
647    END SUBROUTINE cxios_get_field_valid_max
648
649    FUNCTION cxios_is_defined_field_valid_max(field_hdl) BIND(C)
650      USE ISO_C_BINDING
651      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_max
652      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
653    END FUNCTION cxios_is_defined_field_valid_max
654
655
656    SUBROUTINE cxios_set_field_valid_min(field_hdl, valid_min) BIND(C)
657      USE ISO_C_BINDING
658      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
659      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
660    END SUBROUTINE cxios_set_field_valid_min
661
662    SUBROUTINE cxios_get_field_valid_min(field_hdl, valid_min) BIND(C)
663      USE ISO_C_BINDING
664      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
665      REAL (KIND=C_DOUBLE)             :: valid_min
666    END SUBROUTINE cxios_get_field_valid_min
667
668    FUNCTION cxios_is_defined_field_valid_min(field_hdl) BIND(C)
669      USE ISO_C_BINDING
670      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_min
671      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
672    END FUNCTION cxios_is_defined_field_valid_min
673
674  END INTERFACE
675
676END MODULE field_interface_attr
Note: See TracBrowser for help on using the repository browser.