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

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

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