source: XIOS/dev/dev_olga/src/interface/fortran_attr/field_interface_attr.F90 @ 1314

Last change on this file since 1314 was 1201, checked in by oabramkina, 7 years ago

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