source: XIOS3/trunk/src/interface/fortran_attr/fieldgroup_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: 35.1 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
[532]4#include "../fortran/xios_fortran_prefix.hpp"
[326]5
6MODULE fieldgroup_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_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C)
13      USE ISO_C_BINDING
14      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
15      REAL (KIND=C_DOUBLE)      , VALUE :: add_offset
16    END SUBROUTINE cxios_set_fieldgroup_add_offset
[581]17
[464]18    SUBROUTINE cxios_get_fieldgroup_add_offset(fieldgroup_hdl, add_offset) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
21      REAL (KIND=C_DOUBLE)             :: add_offset
22    END SUBROUTINE cxios_get_fieldgroup_add_offset
[581]23
24    FUNCTION cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl) BIND(C)
[464]25      USE ISO_C_BINDING
26      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_add_offset
27      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
28    END FUNCTION cxios_is_defined_fieldgroup_add_offset
[581]29
30
[326]31    SUBROUTINE cxios_set_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
32      USE ISO_C_BINDING
33      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
34      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
35      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
36    END SUBROUTINE cxios_set_fieldgroup_axis_ref
[581]37
[326]38    SUBROUTINE cxios_get_fieldgroup_axis_ref(fieldgroup_hdl, axis_ref, axis_ref_size) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
41      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: axis_ref
42      INTEGER  (kind = C_INT)     , VALUE        :: axis_ref_size
43    END SUBROUTINE cxios_get_fieldgroup_axis_ref
[581]44
45    FUNCTION cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl) BIND(C)
[432]46      USE ISO_C_BINDING
47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_axis_ref
48      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
49    END FUNCTION cxios_is_defined_fieldgroup_axis_ref
[581]50
51
[2338]52    SUBROUTINE cxios_set_fieldgroup_build_workflow_graph(fieldgroup_hdl, build_workflow_graph) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
55      LOGICAL (KIND=C_BOOL)      , VALUE :: build_workflow_graph
56    END SUBROUTINE cxios_set_fieldgroup_build_workflow_graph
57
58    SUBROUTINE cxios_get_fieldgroup_build_workflow_graph(fieldgroup_hdl, build_workflow_graph) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
61      LOGICAL (KIND=C_BOOL)             :: build_workflow_graph
62    END SUBROUTINE cxios_get_fieldgroup_build_workflow_graph
63
64    FUNCTION cxios_is_defined_fieldgroup_build_workflow_graph(fieldgroup_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_build_workflow_graph
67      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
68    END FUNCTION cxios_is_defined_fieldgroup_build_workflow_graph
69
70
[1021]71    SUBROUTINE cxios_set_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
74      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods
75      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size
76    END SUBROUTINE cxios_set_fieldgroup_cell_methods
77
78    SUBROUTINE cxios_get_fieldgroup_cell_methods(fieldgroup_hdl, cell_methods, cell_methods_size) BIND(C)
79      USE ISO_C_BINDING
80      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
81      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: cell_methods
82      INTEGER  (kind = C_INT)     , VALUE        :: cell_methods_size
83    END SUBROUTINE cxios_get_fieldgroup_cell_methods
84
85    FUNCTION cxios_is_defined_fieldgroup_cell_methods(fieldgroup_hdl) BIND(C)
86      USE ISO_C_BINDING
87      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods
88      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
89    END FUNCTION cxios_is_defined_fieldgroup_cell_methods
90
91
92    SUBROUTINE cxios_set_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C)
93      USE ISO_C_BINDING
94      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_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_fieldgroup_cell_methods_mode
98
99    SUBROUTINE cxios_get_fieldgroup_cell_methods_mode(fieldgroup_hdl, cell_methods_mode, cell_methods_mode_size) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_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_fieldgroup_cell_methods_mode
105
106    FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode(fieldgroup_hdl) BIND(C)
107      USE ISO_C_BINDING
108      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_cell_methods_mode
109      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
110    END FUNCTION cxios_is_defined_fieldgroup_cell_methods_mode
111
112
[1201]113    SUBROUTINE cxios_set_fieldgroup_check_if_active(fieldgroup_hdl, check_if_active) BIND(C)
114      USE ISO_C_BINDING
115      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
116      LOGICAL (KIND=C_BOOL)      , VALUE :: check_if_active
117    END SUBROUTINE cxios_set_fieldgroup_check_if_active
118
119    SUBROUTINE cxios_get_fieldgroup_check_if_active(fieldgroup_hdl, check_if_active) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
122      LOGICAL (KIND=C_BOOL)             :: check_if_active
123    END SUBROUTINE cxios_get_fieldgroup_check_if_active
124
125    FUNCTION cxios_is_defined_fieldgroup_check_if_active(fieldgroup_hdl) BIND(C)
126      USE ISO_C_BINDING
127      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_check_if_active
128      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
129    END FUNCTION cxios_is_defined_fieldgroup_check_if_active
130
131
[2616]132    SUBROUTINE cxios_set_fieldgroup_chunking_blocksize_target(fieldgroup_hdl, chunking_blocksize_target) BIND(C)
133      USE ISO_C_BINDING
134      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
135      REAL (KIND=C_DOUBLE)      , VALUE :: chunking_blocksize_target
136    END SUBROUTINE cxios_set_fieldgroup_chunking_blocksize_target
137
138    SUBROUTINE cxios_get_fieldgroup_chunking_blocksize_target(fieldgroup_hdl, chunking_blocksize_target) BIND(C)
139      USE ISO_C_BINDING
140      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
141      REAL (KIND=C_DOUBLE)             :: chunking_blocksize_target
142    END SUBROUTINE cxios_get_fieldgroup_chunking_blocksize_target
143
144    FUNCTION cxios_is_defined_fieldgroup_chunking_blocksize_target(fieldgroup_hdl) BIND(C)
145      USE ISO_C_BINDING
146      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_chunking_blocksize_target
147      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
148    END FUNCTION cxios_is_defined_fieldgroup_chunking_blocksize_target
149
150
[1492]151    SUBROUTINE cxios_set_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C)
152      USE ISO_C_BINDING
153      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
154      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
155      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
156    END SUBROUTINE cxios_set_fieldgroup_comment
157
158    SUBROUTINE cxios_get_fieldgroup_comment(fieldgroup_hdl, comment, comment_size) BIND(C)
159      USE ISO_C_BINDING
160      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
161      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: comment
162      INTEGER  (kind = C_INT)     , VALUE        :: comment_size
163    END SUBROUTINE cxios_get_fieldgroup_comment
164
165    FUNCTION cxios_is_defined_fieldgroup_comment(fieldgroup_hdl) BIND(C)
166      USE ISO_C_BINDING
167      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_comment
168      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
169    END FUNCTION cxios_is_defined_fieldgroup_comment
170
171
[608]172    SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C)
173      USE ISO_C_BINDING
174      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
175      INTEGER (KIND=C_INT)      , VALUE :: compression_level
176    END SUBROUTINE cxios_set_fieldgroup_compression_level
177
178    SUBROUTINE cxios_get_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C)
179      USE ISO_C_BINDING
180      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
181      INTEGER (KIND=C_INT)             :: compression_level
182    END SUBROUTINE cxios_get_fieldgroup_compression_level
183
184    FUNCTION cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_level
187      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
188    END FUNCTION cxios_is_defined_fieldgroup_compression_level
189
190
[2616]191    SUBROUTINE cxios_set_fieldgroup_compression_params(fieldgroup_hdl, compression_params, extent) BIND(C)
192      USE ISO_C_BINDING
193      INTEGER (kind = C_INTPTR_T), VALUE       :: fieldgroup_hdl
194      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params
195      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
196    END SUBROUTINE cxios_set_fieldgroup_compression_params
197
198    SUBROUTINE cxios_get_fieldgroup_compression_params(fieldgroup_hdl, compression_params, extent) BIND(C)
199      USE ISO_C_BINDING
200      INTEGER (kind = C_INTPTR_T), VALUE       :: fieldgroup_hdl
201      REAL (KIND=C_DOUBLE)     , DIMENSION(*) :: compression_params
202      INTEGER (kind = C_INT), DIMENSION(*)     :: extent
203    END SUBROUTINE cxios_get_fieldgroup_compression_params
204
205    FUNCTION cxios_is_defined_fieldgroup_compression_params(fieldgroup_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_params
208      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
209    END FUNCTION cxios_is_defined_fieldgroup_compression_params
210
211
212    SUBROUTINE cxios_set_fieldgroup_compression_type(fieldgroup_hdl, compression_type, compression_type_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type
216      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size
217    END SUBROUTINE cxios_set_fieldgroup_compression_type
218
219    SUBROUTINE cxios_get_fieldgroup_compression_type(fieldgroup_hdl, compression_type, compression_type_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: compression_type
223      INTEGER  (kind = C_INT)     , VALUE        :: compression_type_size
224    END SUBROUTINE cxios_get_fieldgroup_compression_type
225
226    FUNCTION cxios_is_defined_fieldgroup_compression_type(fieldgroup_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_type
229      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
230    END FUNCTION cxios_is_defined_fieldgroup_compression_type
231
232
[2617]233    SUBROUTINE cxios_set_fieldgroup_conversion_by_netcdf(fieldgroup_hdl, conversion_by_netcdf) BIND(C)
[2616]234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[2617]236      LOGICAL (KIND=C_BOOL)      , VALUE :: conversion_by_netcdf
237    END SUBROUTINE cxios_set_fieldgroup_conversion_by_netcdf
[2616]238
[2617]239    SUBROUTINE cxios_get_fieldgroup_conversion_by_netcdf(fieldgroup_hdl, conversion_by_netcdf) BIND(C)
[2616]240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[2617]242      LOGICAL (KIND=C_BOOL)             :: conversion_by_netcdf
243    END SUBROUTINE cxios_get_fieldgroup_conversion_by_netcdf
[2616]244
[2617]245    FUNCTION cxios_is_defined_fieldgroup_conversion_by_netcdf(fieldgroup_hdl) BIND(C)
[2616]246      USE ISO_C_BINDING
[2617]247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_conversion_by_netcdf
[2616]248      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[2617]249    END FUNCTION cxios_is_defined_fieldgroup_conversion_by_netcdf
[2616]250
251
[326]252    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
253      USE ISO_C_BINDING
254      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
255      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
256    END SUBROUTINE cxios_set_fieldgroup_default_value
[581]257
[326]258    SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
259      USE ISO_C_BINDING
260      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
261      REAL (KIND=C_DOUBLE)             :: default_value
262    END SUBROUTINE cxios_get_fieldgroup_default_value
[581]263
264    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl) BIND(C)
[432]265      USE ISO_C_BINDING
266      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value
267      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
268    END FUNCTION cxios_is_defined_fieldgroup_default_value
[581]269
270
[472]271    SUBROUTINE cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
272      USE ISO_C_BINDING
273      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
274      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
275    END SUBROUTINE cxios_set_fieldgroup_detect_missing_value
[581]276
[472]277    SUBROUTINE cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
278      USE ISO_C_BINDING
279      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
280      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
281    END SUBROUTINE cxios_get_fieldgroup_detect_missing_value
[581]282
283    FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl) BIND(C)
[472]284      USE ISO_C_BINDING
285      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_detect_missing_value
286      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
287    END FUNCTION cxios_is_defined_fieldgroup_detect_missing_value
[581]288
289
[326]290    SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
291      USE ISO_C_BINDING
292      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
293      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
294      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
295    END SUBROUTINE cxios_set_fieldgroup_domain_ref
[581]296
[326]297    SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
298      USE ISO_C_BINDING
299      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
300      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
301      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
302    END SUBROUTINE cxios_get_fieldgroup_domain_ref
[581]303
304    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl) BIND(C)
[432]305      USE ISO_C_BINDING
306      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref
307      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
308    END FUNCTION cxios_is_defined_fieldgroup_domain_ref
[581]309
310
[326]311    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
312      USE ISO_C_BINDING
313      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
314      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
315    END SUBROUTINE cxios_set_fieldgroup_enabled
[581]316
[326]317    SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
318      USE ISO_C_BINDING
319      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
320      LOGICAL (KIND=C_BOOL)             :: enabled
321    END SUBROUTINE cxios_get_fieldgroup_enabled
[581]322
323    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl) BIND(C)
[432]324      USE ISO_C_BINDING
325      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled
326      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
327    END FUNCTION cxios_is_defined_fieldgroup_enabled
[581]328
329
[1021]330    SUBROUTINE cxios_set_fieldgroup_expr(fieldgroup_hdl, expr, expr_size) BIND(C)
331      USE ISO_C_BINDING
332      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
333      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
334      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
335    END SUBROUTINE cxios_set_fieldgroup_expr
336
337    SUBROUTINE cxios_get_fieldgroup_expr(fieldgroup_hdl, expr, expr_size) BIND(C)
338      USE ISO_C_BINDING
339      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
340      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: expr
341      INTEGER  (kind = C_INT)     , VALUE        :: expr_size
342    END SUBROUTINE cxios_get_fieldgroup_expr
343
344    FUNCTION cxios_is_defined_fieldgroup_expr(fieldgroup_hdl) BIND(C)
345      USE ISO_C_BINDING
346      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_expr
347      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
348    END FUNCTION cxios_is_defined_fieldgroup_expr
349
350
[326]351    SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
352      USE ISO_C_BINDING
353      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
354      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
355      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
356    END SUBROUTINE cxios_set_fieldgroup_field_ref
[581]357
[326]358    SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
359      USE ISO_C_BINDING
360      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
361      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
362      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
363    END SUBROUTINE cxios_get_fieldgroup_field_ref
[581]364
365    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl) BIND(C)
[432]366      USE ISO_C_BINDING
367      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref
368      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
369    END FUNCTION cxios_is_defined_fieldgroup_field_ref
[581]370
371
[538]372    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
[326]373      USE ISO_C_BINDING
[545]374      USE IDURATION
[326]375      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]376      TYPE(txios(duration)), VALUE :: freq_offset
[326]377    END SUBROUTINE cxios_set_fieldgroup_freq_offset
[581]378
[538]379    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
[326]380      USE ISO_C_BINDING
[545]381      USE IDURATION
[326]382      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]383      TYPE(txios(duration)) :: freq_offset
[326]384    END SUBROUTINE cxios_get_fieldgroup_freq_offset
[581]385
386    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl) BIND(C)
[432]387      USE ISO_C_BINDING
388      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset
389      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
390    END FUNCTION cxios_is_defined_fieldgroup_freq_offset
[581]391
392
[538]393    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
[326]394      USE ISO_C_BINDING
[545]395      USE IDURATION
[326]396      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]397      TYPE(txios(duration)), VALUE :: freq_op
[326]398    END SUBROUTINE cxios_set_fieldgroup_freq_op
[581]399
[538]400    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
[326]401      USE ISO_C_BINDING
[545]402      USE IDURATION
[326]403      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]404      TYPE(txios(duration)) :: freq_op
[326]405    END SUBROUTINE cxios_get_fieldgroup_freq_op
[581]406
407    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl) BIND(C)
[432]408      USE ISO_C_BINDING
409      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op
410      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
411    END FUNCTION cxios_is_defined_fieldgroup_freq_op
[581]412
413
[790]414    SUBROUTINE cxios_set_fieldgroup_grid_path(fieldgroup_hdl, grid_path, grid_path_size) BIND(C)
415      USE ISO_C_BINDING
416      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
417      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
418      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
419    END SUBROUTINE cxios_set_fieldgroup_grid_path
420
421    SUBROUTINE cxios_get_fieldgroup_grid_path(fieldgroup_hdl, grid_path, grid_path_size) BIND(C)
422      USE ISO_C_BINDING
423      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
424      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
425      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
426    END SUBROUTINE cxios_get_fieldgroup_grid_path
427
428    FUNCTION cxios_is_defined_fieldgroup_grid_path(fieldgroup_hdl) BIND(C)
429      USE ISO_C_BINDING
430      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_path
431      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
432    END FUNCTION cxios_is_defined_fieldgroup_grid_path
433
434
[326]435    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
436      USE ISO_C_BINDING
437      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
438      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
439      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
440    END SUBROUTINE cxios_set_fieldgroup_grid_ref
[581]441
[326]442    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
443      USE ISO_C_BINDING
444      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
445      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
446      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
447    END SUBROUTINE cxios_get_fieldgroup_grid_ref
[581]448
449    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C)
[432]450      USE ISO_C_BINDING
451      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref
452      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
453    END FUNCTION cxios_is_defined_fieldgroup_grid_ref
[581]454
455
[326]456    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
457      USE ISO_C_BINDING
458      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
459      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
460      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
461    END SUBROUTINE cxios_set_fieldgroup_group_ref
[581]462
[326]463    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
464      USE ISO_C_BINDING
465      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
466      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
467      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
468    END SUBROUTINE cxios_get_fieldgroup_group_ref
[581]469
470    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C)
[432]471      USE ISO_C_BINDING
472      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref
473      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
474    END FUNCTION cxios_is_defined_fieldgroup_group_ref
[581]475
476
[676]477    SUBROUTINE cxios_set_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C)
478      USE ISO_C_BINDING
479      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
480      LOGICAL (KIND=C_BOOL)      , VALUE :: indexed_output
481    END SUBROUTINE cxios_set_fieldgroup_indexed_output
482
483    SUBROUTINE cxios_get_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C)
484      USE ISO_C_BINDING
485      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
486      LOGICAL (KIND=C_BOOL)             :: indexed_output
487    END SUBROUTINE cxios_get_fieldgroup_indexed_output
488
489    FUNCTION cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl) BIND(C)
490      USE ISO_C_BINDING
491      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_indexed_output
492      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
493    END FUNCTION cxios_is_defined_fieldgroup_indexed_output
494
495
[326]496    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
497      USE ISO_C_BINDING
498      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
499      INTEGER (KIND=C_INT)      , VALUE :: level
500    END SUBROUTINE cxios_set_fieldgroup_level
[581]501
[326]502    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
503      USE ISO_C_BINDING
504      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
505      INTEGER (KIND=C_INT)             :: level
506    END SUBROUTINE cxios_get_fieldgroup_level
[581]507
508    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C)
[432]509      USE ISO_C_BINDING
510      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level
511      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
512    END FUNCTION cxios_is_defined_fieldgroup_level
[581]513
514
[326]515    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
516      USE ISO_C_BINDING
517      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
518      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
519      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
520    END SUBROUTINE cxios_set_fieldgroup_long_name
[581]521
[326]522    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
523      USE ISO_C_BINDING
524      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
525      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
526      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
527    END SUBROUTINE cxios_get_fieldgroup_long_name
[581]528
529    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C)
[432]530      USE ISO_C_BINDING
531      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name
532      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
533    END FUNCTION cxios_is_defined_fieldgroup_long_name
[581]534
535
[326]536    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
537      USE ISO_C_BINDING
538      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
539      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
540      INTEGER  (kind = C_INT)     , VALUE        :: name_size
541    END SUBROUTINE cxios_set_fieldgroup_name
[581]542
[326]543    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
544      USE ISO_C_BINDING
545      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
546      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
547      INTEGER  (kind = C_INT)     , VALUE        :: name_size
548    END SUBROUTINE cxios_get_fieldgroup_name
[581]549
550    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C)
[432]551      USE ISO_C_BINDING
552      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name
553      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
554    END FUNCTION cxios_is_defined_fieldgroup_name
[581]555
556
[326]557    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
558      USE ISO_C_BINDING
559      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
560      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
561      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
562    END SUBROUTINE cxios_set_fieldgroup_operation
[581]563
[326]564    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
565      USE ISO_C_BINDING
566      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
567      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
568      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
569    END SUBROUTINE cxios_get_fieldgroup_operation
[581]570
571    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C)
[432]572      USE ISO_C_BINDING
573      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation
574      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
575    END FUNCTION cxios_is_defined_fieldgroup_operation
[581]576
577
[326]578    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
579      USE ISO_C_BINDING
580      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
581      INTEGER (KIND=C_INT)      , VALUE :: prec
582    END SUBROUTINE cxios_set_fieldgroup_prec
[581]583
[326]584    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
585      USE ISO_C_BINDING
586      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
587      INTEGER (KIND=C_INT)             :: prec
588    END SUBROUTINE cxios_get_fieldgroup_prec
[581]589
590    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C)
[432]591      USE ISO_C_BINDING
592      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec
593      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
594    END FUNCTION cxios_is_defined_fieldgroup_prec
[581]595
596
[593]597    SUBROUTINE cxios_set_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
598      USE ISO_C_BINDING
599      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
600      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
601    END SUBROUTINE cxios_set_fieldgroup_read_access
602
603    SUBROUTINE cxios_get_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
604      USE ISO_C_BINDING
605      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
606      LOGICAL (KIND=C_BOOL)             :: read_access
607    END SUBROUTINE cxios_get_fieldgroup_read_access
608
609    FUNCTION cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl) BIND(C)
610      USE ISO_C_BINDING
611      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_read_access
612      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
613    END FUNCTION cxios_is_defined_fieldgroup_read_access
614
615
[891]616    SUBROUTINE cxios_set_fieldgroup_scalar_ref(fieldgroup_hdl, scalar_ref, scalar_ref_size) BIND(C)
617      USE ISO_C_BINDING
618      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
619      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: scalar_ref
620      INTEGER  (kind = C_INT)     , VALUE        :: scalar_ref_size
621    END SUBROUTINE cxios_set_fieldgroup_scalar_ref
622
623    SUBROUTINE cxios_get_fieldgroup_scalar_ref(fieldgroup_hdl, scalar_ref, scalar_ref_size) BIND(C)
624      USE ISO_C_BINDING
625      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
626      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: scalar_ref
627      INTEGER  (kind = C_INT)     , VALUE        :: scalar_ref_size
628    END SUBROUTINE cxios_get_fieldgroup_scalar_ref
629
630    FUNCTION cxios_is_defined_fieldgroup_scalar_ref(fieldgroup_hdl) BIND(C)
631      USE ISO_C_BINDING
632      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scalar_ref
633      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
634    END FUNCTION cxios_is_defined_fieldgroup_scalar_ref
635
636
[464]637    SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
638      USE ISO_C_BINDING
639      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
640      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
641    END SUBROUTINE cxios_set_fieldgroup_scale_factor
[581]642
[464]643    SUBROUTINE cxios_get_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
644      USE ISO_C_BINDING
645      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
646      REAL (KIND=C_DOUBLE)             :: scale_factor
647    END SUBROUTINE cxios_get_fieldgroup_scale_factor
[581]648
649    FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C)
[464]650      USE ISO_C_BINDING
651      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scale_factor
652      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
653    END FUNCTION cxios_is_defined_fieldgroup_scale_factor
[581]654
655
[326]656    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
657      USE ISO_C_BINDING
658      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
659      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
660      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
661    END SUBROUTINE cxios_set_fieldgroup_standard_name
[581]662
[326]663    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
664      USE ISO_C_BINDING
665      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
666      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
667      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
668    END SUBROUTINE cxios_get_fieldgroup_standard_name
[581]669
670    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C)
[432]671      USE ISO_C_BINDING
672      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name
673      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
674    END FUNCTION cxios_is_defined_fieldgroup_standard_name
[581]675
676
[711]677    SUBROUTINE cxios_set_fieldgroup_ts_enabled(fieldgroup_hdl, ts_enabled) BIND(C)
678      USE ISO_C_BINDING
679      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
680      LOGICAL (KIND=C_BOOL)      , VALUE :: ts_enabled
681    END SUBROUTINE cxios_set_fieldgroup_ts_enabled
682
683    SUBROUTINE cxios_get_fieldgroup_ts_enabled(fieldgroup_hdl, ts_enabled) BIND(C)
684      USE ISO_C_BINDING
685      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
686      LOGICAL (KIND=C_BOOL)             :: ts_enabled
687    END SUBROUTINE cxios_get_fieldgroup_ts_enabled
688
689    FUNCTION cxios_is_defined_fieldgroup_ts_enabled(fieldgroup_hdl) BIND(C)
690      USE ISO_C_BINDING
691      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_ts_enabled
692      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
693    END FUNCTION cxios_is_defined_fieldgroup_ts_enabled
694
695
696    SUBROUTINE cxios_set_fieldgroup_ts_split_freq(fieldgroup_hdl, ts_split_freq) BIND(C)
697      USE ISO_C_BINDING
698      USE IDURATION
699      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
700      TYPE(txios(duration)), VALUE :: ts_split_freq
701    END SUBROUTINE cxios_set_fieldgroup_ts_split_freq
702
703    SUBROUTINE cxios_get_fieldgroup_ts_split_freq(fieldgroup_hdl, ts_split_freq) BIND(C)
704      USE ISO_C_BINDING
705      USE IDURATION
706      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
707      TYPE(txios(duration)) :: ts_split_freq
708    END SUBROUTINE cxios_get_fieldgroup_ts_split_freq
709
710    FUNCTION cxios_is_defined_fieldgroup_ts_split_freq(fieldgroup_hdl) BIND(C)
711      USE ISO_C_BINDING
712      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_ts_split_freq
713      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
714    END FUNCTION cxios_is_defined_fieldgroup_ts_split_freq
715
716
[326]717    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
718      USE ISO_C_BINDING
719      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
720      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
721      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
722    END SUBROUTINE cxios_set_fieldgroup_unit
[581]723
[326]724    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
725      USE ISO_C_BINDING
726      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
727      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
728      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
729    END SUBROUTINE cxios_get_fieldgroup_unit
[581]730
731    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C)
[432]732      USE ISO_C_BINDING
733      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit
734      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
735    END FUNCTION cxios_is_defined_fieldgroup_unit
[581]736
737
[463]738    SUBROUTINE cxios_set_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
739      USE ISO_C_BINDING
740      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
741      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
742    END SUBROUTINE cxios_set_fieldgroup_valid_max
[581]743
[463]744    SUBROUTINE cxios_get_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
745      USE ISO_C_BINDING
746      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
747      REAL (KIND=C_DOUBLE)             :: valid_max
748    END SUBROUTINE cxios_get_fieldgroup_valid_max
[581]749
750    FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C)
[463]751      USE ISO_C_BINDING
752      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_max
753      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
754    END FUNCTION cxios_is_defined_fieldgroup_valid_max
[581]755
756
[463]757    SUBROUTINE cxios_set_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
758      USE ISO_C_BINDING
759      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
760      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
761    END SUBROUTINE cxios_set_fieldgroup_valid_min
[581]762
[463]763    SUBROUTINE cxios_get_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
764      USE ISO_C_BINDING
765      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
766      REAL (KIND=C_DOUBLE)             :: valid_min
767    END SUBROUTINE cxios_get_fieldgroup_valid_min
[581]768
769    FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C)
[463]770      USE ISO_C_BINDING
771      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_min
772      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
773    END FUNCTION cxios_is_defined_fieldgroup_valid_min
[581]774
775  END INTERFACE
776
[326]777END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.