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
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_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
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
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
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
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
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
233    SUBROUTINE cxios_set_fieldgroup_conversion_by_netcdf(fieldgroup_hdl, conversion_by_netcdf) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
236      LOGICAL (KIND=C_BOOL)      , VALUE :: conversion_by_netcdf
237    END SUBROUTINE cxios_set_fieldgroup_conversion_by_netcdf
238
239    SUBROUTINE cxios_get_fieldgroup_conversion_by_netcdf(fieldgroup_hdl, conversion_by_netcdf) BIND(C)
240      USE ISO_C_BINDING
241      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
242      LOGICAL (KIND=C_BOOL)             :: conversion_by_netcdf
243    END SUBROUTINE cxios_get_fieldgroup_conversion_by_netcdf
244
245    FUNCTION cxios_is_defined_fieldgroup_conversion_by_netcdf(fieldgroup_hdl) BIND(C)
246      USE ISO_C_BINDING
247      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_conversion_by_netcdf
248      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
249    END FUNCTION cxios_is_defined_fieldgroup_conversion_by_netcdf
250
251
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
257
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
263
264    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl) BIND(C)
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
269
270
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
276
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
282
283    FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl) BIND(C)
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
288
289
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
296
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
303
304    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl) BIND(C)
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
309
310
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
316
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
322
323    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl) BIND(C)
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
328
329
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
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
357
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
364
365    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl) BIND(C)
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
370
371
372    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
373      USE ISO_C_BINDING
374      USE IDURATION
375      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
376      TYPE(txios(duration)), VALUE :: freq_offset
377    END SUBROUTINE cxios_set_fieldgroup_freq_offset
378
379    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
380      USE ISO_C_BINDING
381      USE IDURATION
382      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
383      TYPE(txios(duration)) :: freq_offset
384    END SUBROUTINE cxios_get_fieldgroup_freq_offset
385
386    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl) BIND(C)
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
391
392
393    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
394      USE ISO_C_BINDING
395      USE IDURATION
396      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
397      TYPE(txios(duration)), VALUE :: freq_op
398    END SUBROUTINE cxios_set_fieldgroup_freq_op
399
400    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
401      USE ISO_C_BINDING
402      USE IDURATION
403      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
404      TYPE(txios(duration)) :: freq_op
405    END SUBROUTINE cxios_get_fieldgroup_freq_op
406
407    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl) BIND(C)
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
412
413
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
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
441
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
448
449    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C)
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
454
455
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
462
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
469
470    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C)
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
475
476
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
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
501
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
507
508    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C)
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
513
514
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
521
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
528
529    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C)
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
534
535
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
542
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
549
550    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C)
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
555
556
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
563
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
570
571    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C)
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
576
577
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
583
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
589
590    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C)
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
595
596
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
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
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
642
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
648
649    FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C)
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
654
655
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
662
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
669
670    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C)
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
675
676
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
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
723
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
730
731    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C)
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
736
737
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
743
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
749
750    FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C)
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
755
756
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
762
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
768
769    FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C)
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
774
775  END INTERFACE
776
777END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.