source: XIOS2/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90

Last change on this file was 2618, checked in by jderouillat, 4 months ago

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