source: XIOS3/trunk/src/interface/fortran_attr/field_interface_attr.F90 @ 2620

Last change on this file since 2620 was 2617, checked in by jderouillat, 4 months ago

Fix the field's attribute name conversion_by_NetCDF removing upper-case letters
  • 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: 31.7 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_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
135      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_blocksize_target
136    END SUBROUTINE cxios_set_field_chunking_blocksize_target
137
138    SUBROUTINE cxios_get_field_chunking_blocksize_target(field_hdl, chunking_blocksize_target) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
141      REAL (KIND=C_DOUBLE)             :: chunking_blocksize_target
142    END SUBROUTINE cxios_get_field_chunking_blocksize_target
143
144    FUNCTION cxios_is_defined_field_chunking_blocksize_target(field_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_chunking_blocksize_target
147      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
148    END FUNCTION cxios_is_defined_field_chunking_blocksize_target
149
150
151    SUBROUTINE cxios_set_field_comment(field_hdl, comment, comment_size) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
154      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
155      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
156    END SUBROUTINE cxios_set_field_comment
157
158    SUBROUTINE cxios_get_field_comment(field_hdl, comment, comment_size) BIND(C)
159      USE ISO_C_BINDING
160      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
161      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
162      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
163    END SUBROUTINE cxios_get_field_comment
164
165    FUNCTION cxios_is_defined_field_comment(field_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_comment
168      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
169    END FUNCTION cxios_is_defined_field_comment
170
171
172    SUBROUTINE cxios_set_field_compression_level(field_hdl, compression_level) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
175      INTEGER (KIND=C_INT)      , VALUE :: compression_level
176    END SUBROUTINE cxios_set_field_compression_level
177
178    SUBROUTINE cxios_get_field_compression_level(field_hdl, compression_level) BIND(C)
179      USE ISO_C_BINDING
180      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
181      INTEGER (KIND=C_INT)             :: compression_level
182    END SUBROUTINE cxios_get_field_compression_level
183
184    FUNCTION cxios_is_defined_field_compression_level(field_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_level
187      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
188    END FUNCTION cxios_is_defined_field_compression_level
189
190
191    SUBROUTINE cxios_set_field_compression_params(field_hdl, compression_params, extent) BIND(C)
192      USE ISO_C_BINDING
193      INTEGER (kind = C_INTPTR_T), VALUE       :: field_hdl
194      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params
195      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
196    END SUBROUTINE cxios_set_field_compression_params
197
198    SUBROUTINE cxios_get_field_compression_params(field_hdl, compression_params, extent) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE       :: field_hdl
201      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params
202      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
203    END SUBROUTINE cxios_get_field_compression_params
204
205    FUNCTION cxios_is_defined_field_compression_params(field_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_params
208      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
209    END FUNCTION cxios_is_defined_field_compression_params
210
211
212    SUBROUTINE cxios_set_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type
216      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size
217    END SUBROUTINE cxios_set_field_compression_type
218
219    SUBROUTINE cxios_get_field_compression_type(field_hdl, compression_type, compression_type_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type
223      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size
224    END SUBROUTINE cxios_get_field_compression_type
225
226    FUNCTION cxios_is_defined_field_compression_type(field_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_compression_type
229      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
230    END FUNCTION cxios_is_defined_field_compression_type
231
232
233    SUBROUTINE cxios_set_field_conversion_by_netcdf(field_hdl, conversion_by_netcdf) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
236      LOGICAL (KIND=C_BOOL)      , VALUE :: conversion_by_netcdf
237    END SUBROUTINE cxios_set_field_conversion_by_netcdf
238
239    SUBROUTINE cxios_get_field_conversion_by_netcdf(field_hdl, conversion_by_netcdf) BIND(C)
240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
242      LOGICAL (KIND=C_BOOL)             :: conversion_by_netcdf
243    END SUBROUTINE cxios_get_field_conversion_by_netcdf
244
245    FUNCTION cxios_is_defined_field_conversion_by_netcdf(field_hdl) BIND(C)
246      USE ISO_C_BINDING
247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_conversion_by_netcdf
248      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
249    END FUNCTION cxios_is_defined_field_conversion_by_netcdf
250
251
252    SUBROUTINE cxios_set_field_default_value(field_hdl, default_value) BIND(C)
253      USE ISO_C_BINDING
254      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
255      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
256    END SUBROUTINE cxios_set_field_default_value
257
258    SUBROUTINE cxios_get_field_default_value(field_hdl, default_value) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
261      REAL (KIND=C_DOUBLE)             :: default_value
262    END SUBROUTINE cxios_get_field_default_value
263
264    FUNCTION cxios_is_defined_field_default_value(field_hdl) BIND(C)
265      USE ISO_C_BINDING
266      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_default_value
267      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
268    END FUNCTION cxios_is_defined_field_default_value
269
270
271    SUBROUTINE cxios_set_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
272      USE ISO_C_BINDING
273      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
274      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
275    END SUBROUTINE cxios_set_field_detect_missing_value
276
277    SUBROUTINE cxios_get_field_detect_missing_value(field_hdl, detect_missing_value) BIND(C)
278      USE ISO_C_BINDING
279      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
280      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
281    END SUBROUTINE cxios_get_field_detect_missing_value
282
283    FUNCTION cxios_is_defined_field_detect_missing_value(field_hdl) BIND(C)
284      USE ISO_C_BINDING
285      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_detect_missing_value
286      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
287    END FUNCTION cxios_is_defined_field_detect_missing_value
288
289
290    SUBROUTINE cxios_set_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
291      USE ISO_C_BINDING
292      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
293      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
294      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
295    END SUBROUTINE cxios_set_field_domain_ref
296
297    SUBROUTINE cxios_get_field_domain_ref(field_hdl, domain_ref, domain_ref_size) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
300      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
301      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
302    END SUBROUTINE cxios_get_field_domain_ref
303
304    FUNCTION cxios_is_defined_field_domain_ref(field_hdl) BIND(C)
305      USE ISO_C_BINDING
306      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_domain_ref
307      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
308    END FUNCTION cxios_is_defined_field_domain_ref
309
310
311    SUBROUTINE cxios_set_field_enabled(field_hdl, enabled) BIND(C)
312      USE ISO_C_BINDING
313      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
314      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
315    END SUBROUTINE cxios_set_field_enabled
316
317    SUBROUTINE cxios_get_field_enabled(field_hdl, enabled) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
320      LOGICAL (KIND=C_BOOL)             :: enabled
321    END SUBROUTINE cxios_get_field_enabled
322
323    FUNCTION cxios_is_defined_field_enabled(field_hdl) BIND(C)
324      USE ISO_C_BINDING
325      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_enabled
326      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
327    END FUNCTION cxios_is_defined_field_enabled
328
329
330    SUBROUTINE cxios_set_field_expr(field_hdl, expr, expr_size) BIND(C)
331      USE ISO_C_BINDING
332      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
333      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
334      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
335    END SUBROUTINE cxios_set_field_expr
336
337    SUBROUTINE cxios_get_field_expr(field_hdl, expr, expr_size) BIND(C)
338      USE ISO_C_BINDING
339      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
340      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
341      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
342    END SUBROUTINE cxios_get_field_expr
343
344    FUNCTION cxios_is_defined_field_expr(field_hdl) BIND(C)
345      USE ISO_C_BINDING
346      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_expr
347      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
348    END FUNCTION cxios_is_defined_field_expr
349
350
351    SUBROUTINE cxios_set_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
352      USE ISO_C_BINDING
353      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
354      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
355      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
356    END SUBROUTINE cxios_set_field_field_ref
357
358    SUBROUTINE cxios_get_field_field_ref(field_hdl, field_ref, field_ref_size) BIND(C)
359      USE ISO_C_BINDING
360      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
361      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
362      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
363    END SUBROUTINE cxios_get_field_field_ref
364
365    FUNCTION cxios_is_defined_field_field_ref(field_hdl) BIND(C)
366      USE ISO_C_BINDING
367      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_field_ref
368      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
369    END FUNCTION cxios_is_defined_field_field_ref
370
371
372    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C)
373      USE ISO_C_BINDING
374      USE IDURATION
375      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
376      TYPE(txios(duration)), VALUE :: freq_offset
377    END SUBROUTINE cxios_set_field_freq_offset
378
379    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C)
380      USE ISO_C_BINDING
381      USE IDURATION
382      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
383      TYPE(txios(duration)) :: freq_offset
384    END SUBROUTINE cxios_get_field_freq_offset
385
386    FUNCTION cxios_is_defined_field_freq_offset(field_hdl) BIND(C)
387      USE ISO_C_BINDING
388      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_offset
389      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
390    END FUNCTION cxios_is_defined_field_freq_offset
391
392
393    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C)
394      USE ISO_C_BINDING
395      USE IDURATION
396      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
397      TYPE(txios(duration)), VALUE :: freq_op
398    END SUBROUTINE cxios_set_field_freq_op
399
400    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C)
401      USE ISO_C_BINDING
402      USE IDURATION
403      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
404      TYPE(txios(duration)) :: freq_op
405    END SUBROUTINE cxios_get_field_freq_op
406
407    FUNCTION cxios_is_defined_field_freq_op(field_hdl) BIND(C)
408      USE ISO_C_BINDING
409      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_freq_op
410      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
411    END FUNCTION cxios_is_defined_field_freq_op
412
413
414    SUBROUTINE cxios_set_field_grid_path(field_hdl, grid_path, grid_path_size) BIND(C)
415      USE ISO_C_BINDING
416      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
417      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
418      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
419    END SUBROUTINE cxios_set_field_grid_path
420
421    SUBROUTINE cxios_get_field_grid_path(field_hdl, grid_path, grid_path_size) BIND(C)
422      USE ISO_C_BINDING
423      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
424      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
425      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
426    END SUBROUTINE cxios_get_field_grid_path
427
428    FUNCTION cxios_is_defined_field_grid_path(field_hdl) BIND(C)
429      USE ISO_C_BINDING
430      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_path
431      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
432    END FUNCTION cxios_is_defined_field_grid_path
433
434
435    SUBROUTINE cxios_set_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
436      USE ISO_C_BINDING
437      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
438      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
439      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
440    END SUBROUTINE cxios_set_field_grid_ref
441
442    SUBROUTINE cxios_get_field_grid_ref(field_hdl, grid_ref, grid_ref_size) BIND(C)
443      USE ISO_C_BINDING
444      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
445      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
446      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
447    END SUBROUTINE cxios_get_field_grid_ref
448
449    FUNCTION cxios_is_defined_field_grid_ref(field_hdl) BIND(C)
450      USE ISO_C_BINDING
451      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_grid_ref
452      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
453    END FUNCTION cxios_is_defined_field_grid_ref
454
455
456    SUBROUTINE cxios_set_field_indexed_output(field_hdl, indexed_output) BIND(C)
457      USE ISO_C_BINDING
458      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
459      LOGICAL (KIND=C_BOOL)      , VALUE :: indexed_output
460    END SUBROUTINE cxios_set_field_indexed_output
461
462    SUBROUTINE cxios_get_field_indexed_output(field_hdl, indexed_output) BIND(C)
463      USE ISO_C_BINDING
464      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
465      LOGICAL (KIND=C_BOOL)             :: indexed_output
466    END SUBROUTINE cxios_get_field_indexed_output
467
468    FUNCTION cxios_is_defined_field_indexed_output(field_hdl) BIND(C)
469      USE ISO_C_BINDING
470      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_indexed_output
471      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
472    END FUNCTION cxios_is_defined_field_indexed_output
473
474
475    SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
476      USE ISO_C_BINDING
477      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
478      INTEGER (KIND=C_INT)      , VALUE :: level
479    END SUBROUTINE cxios_set_field_level
480
481    SUBROUTINE cxios_get_field_level(field_hdl, level) BIND(C)
482      USE ISO_C_BINDING
483      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
484      INTEGER (KIND=C_INT)             :: level
485    END SUBROUTINE cxios_get_field_level
486
487    FUNCTION cxios_is_defined_field_level(field_hdl) BIND(C)
488      USE ISO_C_BINDING
489      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_level
490      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
491    END FUNCTION cxios_is_defined_field_level
492
493
494    SUBROUTINE cxios_set_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
495      USE ISO_C_BINDING
496      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
497      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
498      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
499    END SUBROUTINE cxios_set_field_long_name
500
501    SUBROUTINE cxios_get_field_long_name(field_hdl, long_name, long_name_size) BIND(C)
502      USE ISO_C_BINDING
503      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
504      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
505      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
506    END SUBROUTINE cxios_get_field_long_name
507
508    FUNCTION cxios_is_defined_field_long_name(field_hdl) BIND(C)
509      USE ISO_C_BINDING
510      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_long_name
511      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
512    END FUNCTION cxios_is_defined_field_long_name
513
514
515    SUBROUTINE cxios_set_field_name(field_hdl, name, name_size) BIND(C)
516      USE ISO_C_BINDING
517      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
518      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
519      INTEGER  (kind = C_INT)     , VALUE        :: name_size
520    END SUBROUTINE cxios_set_field_name
521
522    SUBROUTINE cxios_get_field_name(field_hdl, name, name_size) BIND(C)
523      USE ISO_C_BINDING
524      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
525      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
526      INTEGER  (kind = C_INT)     , VALUE        :: name_size
527    END SUBROUTINE cxios_get_field_name
528
529    FUNCTION cxios_is_defined_field_name(field_hdl) BIND(C)
530      USE ISO_C_BINDING
531      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_name
532      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
533    END FUNCTION cxios_is_defined_field_name
534
535
536    SUBROUTINE cxios_set_field_operation(field_hdl, operation, operation_size) BIND(C)
537      USE ISO_C_BINDING
538      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
539      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
540      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
541    END SUBROUTINE cxios_set_field_operation
542
543    SUBROUTINE cxios_get_field_operation(field_hdl, operation, operation_size) BIND(C)
544      USE ISO_C_BINDING
545      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
546      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
547      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
548    END SUBROUTINE cxios_get_field_operation
549
550    FUNCTION cxios_is_defined_field_operation(field_hdl) BIND(C)
551      USE ISO_C_BINDING
552      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_operation
553      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
554    END FUNCTION cxios_is_defined_field_operation
555
556
557    SUBROUTINE cxios_set_field_prec(field_hdl, prec) BIND(C)
558      USE ISO_C_BINDING
559      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
560      INTEGER (KIND=C_INT)      , VALUE :: prec
561    END SUBROUTINE cxios_set_field_prec
562
563    SUBROUTINE cxios_get_field_prec(field_hdl, prec) BIND(C)
564      USE ISO_C_BINDING
565      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
566      INTEGER (KIND=C_INT)             :: prec
567    END SUBROUTINE cxios_get_field_prec
568
569    FUNCTION cxios_is_defined_field_prec(field_hdl) BIND(C)
570      USE ISO_C_BINDING
571      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_prec
572      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
573    END FUNCTION cxios_is_defined_field_prec
574
575
576    SUBROUTINE cxios_set_field_read_access(field_hdl, read_access) BIND(C)
577      USE ISO_C_BINDING
578      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
579      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
580    END SUBROUTINE cxios_set_field_read_access
581
582    SUBROUTINE cxios_get_field_read_access(field_hdl, read_access) BIND(C)
583      USE ISO_C_BINDING
584      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
585      LOGICAL (KIND=C_BOOL)             :: read_access
586    END SUBROUTINE cxios_get_field_read_access
587
588    FUNCTION cxios_is_defined_field_read_access(field_hdl) BIND(C)
589      USE ISO_C_BINDING
590      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_read_access
591      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
592    END FUNCTION cxios_is_defined_field_read_access
593
594
595    SUBROUTINE cxios_set_field_scalar_ref(field_hdl, scalar_ref, scalar_ref_size) BIND(C)
596      USE ISO_C_BINDING
597      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
598      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: scalar_ref
599      INTEGER  (kind = C_INT)     , VALUE        :: scalar_ref_size
600    END SUBROUTINE cxios_set_field_scalar_ref
601
602    SUBROUTINE cxios_get_field_scalar_ref(field_hdl, scalar_ref, scalar_ref_size) BIND(C)
603      USE ISO_C_BINDING
604      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
605      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: scalar_ref
606      INTEGER  (kind = C_INT)     , VALUE        :: scalar_ref_size
607    END SUBROUTINE cxios_get_field_scalar_ref
608
609    FUNCTION cxios_is_defined_field_scalar_ref(field_hdl) BIND(C)
610      USE ISO_C_BINDING
611      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scalar_ref
612      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
613    END FUNCTION cxios_is_defined_field_scalar_ref
614
615
616    SUBROUTINE cxios_set_field_scale_factor(field_hdl, scale_factor) BIND(C)
617      USE ISO_C_BINDING
618      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
619      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
620    END SUBROUTINE cxios_set_field_scale_factor
621
622    SUBROUTINE cxios_get_field_scale_factor(field_hdl, scale_factor) BIND(C)
623      USE ISO_C_BINDING
624      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
625      REAL (KIND=C_DOUBLE)             :: scale_factor
626    END SUBROUTINE cxios_get_field_scale_factor
627
628    FUNCTION cxios_is_defined_field_scale_factor(field_hdl) BIND(C)
629      USE ISO_C_BINDING
630      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_scale_factor
631      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
632    END FUNCTION cxios_is_defined_field_scale_factor
633
634
635    SUBROUTINE cxios_set_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
636      USE ISO_C_BINDING
637      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
638      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
639      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
640    END SUBROUTINE cxios_set_field_standard_name
641
642    SUBROUTINE cxios_get_field_standard_name(field_hdl, standard_name, standard_name_size) BIND(C)
643      USE ISO_C_BINDING
644      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
645      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
646      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
647    END SUBROUTINE cxios_get_field_standard_name
648
649    FUNCTION cxios_is_defined_field_standard_name(field_hdl) BIND(C)
650      USE ISO_C_BINDING
651      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_standard_name
652      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
653    END FUNCTION cxios_is_defined_field_standard_name
654
655
656    SUBROUTINE cxios_set_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
657      USE ISO_C_BINDING
658      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
659      LOGICAL (KIND=C_BOOL)      , VALUE :: ts_enabled
660    END SUBROUTINE cxios_set_field_ts_enabled
661
662    SUBROUTINE cxios_get_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
663      USE ISO_C_BINDING
664      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
665      LOGICAL (KIND=C_BOOL)             :: ts_enabled
666    END SUBROUTINE cxios_get_field_ts_enabled
667
668    FUNCTION cxios_is_defined_field_ts_enabled(field_hdl) BIND(C)
669      USE ISO_C_BINDING
670      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_enabled
671      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
672    END FUNCTION cxios_is_defined_field_ts_enabled
673
674
675    SUBROUTINE cxios_set_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
676      USE ISO_C_BINDING
677      USE IDURATION
678      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
679      TYPE(txios(duration)), VALUE :: ts_split_freq
680    END SUBROUTINE cxios_set_field_ts_split_freq
681
682    SUBROUTINE cxios_get_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
683      USE ISO_C_BINDING
684      USE IDURATION
685      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
686      TYPE(txios(duration)) :: ts_split_freq
687    END SUBROUTINE cxios_get_field_ts_split_freq
688
689    FUNCTION cxios_is_defined_field_ts_split_freq(field_hdl) BIND(C)
690      USE ISO_C_BINDING
691      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_split_freq
692      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
693    END FUNCTION cxios_is_defined_field_ts_split_freq
694
695
696    SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
697      USE ISO_C_BINDING
698      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
699      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
700      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
701    END SUBROUTINE cxios_set_field_unit
702
703    SUBROUTINE cxios_get_field_unit(field_hdl, unit, unit_size) BIND(C)
704      USE ISO_C_BINDING
705      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
706      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
707      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
708    END SUBROUTINE cxios_get_field_unit
709
710    FUNCTION cxios_is_defined_field_unit(field_hdl) BIND(C)
711      USE ISO_C_BINDING
712      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_unit
713      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
714    END FUNCTION cxios_is_defined_field_unit
715
716
717    SUBROUTINE cxios_set_field_valid_max(field_hdl, valid_max) BIND(C)
718      USE ISO_C_BINDING
719      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
720      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
721    END SUBROUTINE cxios_set_field_valid_max
722
723    SUBROUTINE cxios_get_field_valid_max(field_hdl, valid_max) BIND(C)
724      USE ISO_C_BINDING
725      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
726      REAL (KIND=C_DOUBLE)             :: valid_max
727    END SUBROUTINE cxios_get_field_valid_max
728
729    FUNCTION cxios_is_defined_field_valid_max(field_hdl) BIND(C)
730      USE ISO_C_BINDING
731      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_max
732      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
733    END FUNCTION cxios_is_defined_field_valid_max
734
735
736    SUBROUTINE cxios_set_field_valid_min(field_hdl, valid_min) BIND(C)
737      USE ISO_C_BINDING
738      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
739      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
740    END SUBROUTINE cxios_set_field_valid_min
741
742    SUBROUTINE cxios_get_field_valid_min(field_hdl, valid_min) BIND(C)
743      USE ISO_C_BINDING
744      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
745      REAL (KIND=C_DOUBLE)             :: valid_min
746    END SUBROUTINE cxios_get_field_valid_min
747
748    FUNCTION cxios_is_defined_field_valid_min(field_hdl) BIND(C)
749      USE ISO_C_BINDING
750      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_valid_min
751      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
752    END FUNCTION cxios_is_defined_field_valid_min
753
754  END INTERFACE
755
756END MODULE field_interface_attr
Note: See TracBrowser for help on using the repository browser.