source: XIOS/trunk/src/interface/fortran_attr/fieldgroup_interface_attr.F90 @ 778

Last change on this file since 778 was 711, checked in by rlacroix, 9 years ago

Support creating the timeseries automatically.

Fields which should be outputted as timeseries must have the ts_enabled attribute set to true.

Files have a new attribute timeseries which must be one of:

  • none: no timeseries are outputted, only the regular file (default behavior when the attribute is ommited).
  • only: only the timeseries are outputted, the regular file is not created.
  • both: both the timeseries and the regular files are outputted.
  • exclusive: the timeseries are outputted and a regular file is created with only the fields which were not marked for output as a timeserie (if any).

The name of the files created for the timeseries is composed of a prefix followed by the name of the variable. The file attribute ts_prefix can be used to control the prefix used (by default, the name of the regular file is used).

All the attributes of the regular file are inherited by the files created for the timeseries. The field attribute ts_split_freq can be used to configure the splitting for each timeseries (by default, the splitting frequency of the regular file is used).
  • 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: 23.3 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_compression_level(fieldgroup_hdl, compression_level) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
55      INTEGER (KIND=C_INT)      , VALUE :: compression_level
56    END SUBROUTINE cxios_set_fieldgroup_compression_level
57
58    SUBROUTINE cxios_get_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
61      INTEGER (KIND=C_INT)             :: compression_level
62    END SUBROUTINE cxios_get_fieldgroup_compression_level
63
64    FUNCTION cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_level
67      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
68    END FUNCTION cxios_is_defined_fieldgroup_compression_level
69
70
71    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
74      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
75    END SUBROUTINE cxios_set_fieldgroup_default_value
76
77    SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
80      REAL (KIND=C_DOUBLE)             :: default_value
81    END SUBROUTINE cxios_get_fieldgroup_default_value
82
83    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl) BIND(C)
84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value
86      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
87    END FUNCTION cxios_is_defined_fieldgroup_default_value
88
89
90    SUBROUTINE cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
93      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
94    END SUBROUTINE cxios_set_fieldgroup_detect_missing_value
95
96    SUBROUTINE cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
99      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
100    END SUBROUTINE cxios_get_fieldgroup_detect_missing_value
101
102    FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl) BIND(C)
103      USE ISO_C_BINDING
104      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_detect_missing_value
105      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
106    END FUNCTION cxios_is_defined_fieldgroup_detect_missing_value
107
108
109    SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
110      USE ISO_C_BINDING
111      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
112      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
113      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
114    END SUBROUTINE cxios_set_fieldgroup_domain_ref
115
116    SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
117      USE ISO_C_BINDING
118      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
119      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
120      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
121    END SUBROUTINE cxios_get_fieldgroup_domain_ref
122
123    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl) BIND(C)
124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref
126      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
127    END FUNCTION cxios_is_defined_fieldgroup_domain_ref
128
129
130    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
133      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
134    END SUBROUTINE cxios_set_fieldgroup_enabled
135
136    SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
139      LOGICAL (KIND=C_BOOL)             :: enabled
140    END SUBROUTINE cxios_get_fieldgroup_enabled
141
142    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl) BIND(C)
143      USE ISO_C_BINDING
144      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled
145      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
146    END FUNCTION cxios_is_defined_fieldgroup_enabled
147
148
149    SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
150      USE ISO_C_BINDING
151      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
152      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
153      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
154    END SUBROUTINE cxios_set_fieldgroup_field_ref
155
156    SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
157      USE ISO_C_BINDING
158      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
159      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
160      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
161    END SUBROUTINE cxios_get_fieldgroup_field_ref
162
163    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl) BIND(C)
164      USE ISO_C_BINDING
165      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref
166      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
167    END FUNCTION cxios_is_defined_fieldgroup_field_ref
168
169
170    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
171      USE ISO_C_BINDING
172      USE IDURATION
173      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
174      TYPE(txios(duration)), VALUE :: freq_offset
175    END SUBROUTINE cxios_set_fieldgroup_freq_offset
176
177    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
178      USE ISO_C_BINDING
179      USE IDURATION
180      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
181      TYPE(txios(duration)) :: freq_offset
182    END SUBROUTINE cxios_get_fieldgroup_freq_offset
183
184    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl) BIND(C)
185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset
187      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
188    END FUNCTION cxios_is_defined_fieldgroup_freq_offset
189
190
191    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
192      USE ISO_C_BINDING
193      USE IDURATION
194      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
195      TYPE(txios(duration)), VALUE :: freq_op
196    END SUBROUTINE cxios_set_fieldgroup_freq_op
197
198    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
199      USE ISO_C_BINDING
200      USE IDURATION
201      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
202      TYPE(txios(duration)) :: freq_op
203    END SUBROUTINE cxios_get_fieldgroup_freq_op
204
205    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl) BIND(C)
206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op
208      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
209    END FUNCTION cxios_is_defined_fieldgroup_freq_op
210
211
212    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
216      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
217    END SUBROUTINE cxios_set_fieldgroup_grid_ref
218
219    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
223      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
224    END SUBROUTINE cxios_get_fieldgroup_grid_ref
225
226    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref
229      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
230    END FUNCTION cxios_is_defined_fieldgroup_grid_ref
231
232
233    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
236      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
237      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
238    END SUBROUTINE cxios_set_fieldgroup_group_ref
239
240    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
241      USE ISO_C_BINDING
242      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
243      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
244      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
245    END SUBROUTINE cxios_get_fieldgroup_group_ref
246
247    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref
250      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
251    END FUNCTION cxios_is_defined_fieldgroup_group_ref
252
253
254    SUBROUTINE cxios_set_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
257      LOGICAL (KIND=C_BOOL)      , VALUE :: indexed_output
258    END SUBROUTINE cxios_set_fieldgroup_indexed_output
259
260    SUBROUTINE cxios_get_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C)
261      USE ISO_C_BINDING
262      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
263      LOGICAL (KIND=C_BOOL)             :: indexed_output
264    END SUBROUTINE cxios_get_fieldgroup_indexed_output
265
266    FUNCTION cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl) BIND(C)
267      USE ISO_C_BINDING
268      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_indexed_output
269      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
270    END FUNCTION cxios_is_defined_fieldgroup_indexed_output
271
272
273    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
274      USE ISO_C_BINDING
275      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
276      INTEGER (KIND=C_INT)      , VALUE :: level
277    END SUBROUTINE cxios_set_fieldgroup_level
278
279    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
280      USE ISO_C_BINDING
281      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
282      INTEGER (KIND=C_INT)             :: level
283    END SUBROUTINE cxios_get_fieldgroup_level
284
285    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C)
286      USE ISO_C_BINDING
287      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level
288      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
289    END FUNCTION cxios_is_defined_fieldgroup_level
290
291
292    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
293      USE ISO_C_BINDING
294      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
295      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
296      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
297    END SUBROUTINE cxios_set_fieldgroup_long_name
298
299    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
300      USE ISO_C_BINDING
301      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
302      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
303      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
304    END SUBROUTINE cxios_get_fieldgroup_long_name
305
306    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C)
307      USE ISO_C_BINDING
308      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name
309      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
310    END FUNCTION cxios_is_defined_fieldgroup_long_name
311
312
313    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
314      USE ISO_C_BINDING
315      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
316      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
317      INTEGER  (kind = C_INT)     , VALUE        :: name_size
318    END SUBROUTINE cxios_set_fieldgroup_name
319
320    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
321      USE ISO_C_BINDING
322      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
323      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
324      INTEGER  (kind = C_INT)     , VALUE        :: name_size
325    END SUBROUTINE cxios_get_fieldgroup_name
326
327    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name
330      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
331    END FUNCTION cxios_is_defined_fieldgroup_name
332
333
334    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
335      USE ISO_C_BINDING
336      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
337      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
338      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
339    END SUBROUTINE cxios_set_fieldgroup_operation
340
341    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
342      USE ISO_C_BINDING
343      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
344      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
345      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
346    END SUBROUTINE cxios_get_fieldgroup_operation
347
348    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation
351      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
352    END FUNCTION cxios_is_defined_fieldgroup_operation
353
354
355    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
358      INTEGER (KIND=C_INT)      , VALUE :: prec
359    END SUBROUTINE cxios_set_fieldgroup_prec
360
361    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
362      USE ISO_C_BINDING
363      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
364      INTEGER (KIND=C_INT)             :: prec
365    END SUBROUTINE cxios_get_fieldgroup_prec
366
367    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C)
368      USE ISO_C_BINDING
369      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec
370      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
371    END FUNCTION cxios_is_defined_fieldgroup_prec
372
373
374    SUBROUTINE cxios_set_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
375      USE ISO_C_BINDING
376      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
377      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
378    END SUBROUTINE cxios_set_fieldgroup_read_access
379
380    SUBROUTINE cxios_get_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
381      USE ISO_C_BINDING
382      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
383      LOGICAL (KIND=C_BOOL)             :: read_access
384    END SUBROUTINE cxios_get_fieldgroup_read_access
385
386    FUNCTION cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl) BIND(C)
387      USE ISO_C_BINDING
388      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_read_access
389      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
390    END FUNCTION cxios_is_defined_fieldgroup_read_access
391
392
393    SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
394      USE ISO_C_BINDING
395      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
396      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
397    END SUBROUTINE cxios_set_fieldgroup_scale_factor
398
399    SUBROUTINE cxios_get_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
400      USE ISO_C_BINDING
401      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
402      REAL (KIND=C_DOUBLE)             :: scale_factor
403    END SUBROUTINE cxios_get_fieldgroup_scale_factor
404
405    FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C)
406      USE ISO_C_BINDING
407      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scale_factor
408      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
409    END FUNCTION cxios_is_defined_fieldgroup_scale_factor
410
411
412    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
413      USE ISO_C_BINDING
414      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
415      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
416      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
417    END SUBROUTINE cxios_set_fieldgroup_standard_name
418
419    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
420      USE ISO_C_BINDING
421      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
422      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
423      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
424    END SUBROUTINE cxios_get_fieldgroup_standard_name
425
426    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C)
427      USE ISO_C_BINDING
428      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name
429      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
430    END FUNCTION cxios_is_defined_fieldgroup_standard_name
431
432
433    SUBROUTINE cxios_set_fieldgroup_ts_enabled(fieldgroup_hdl, ts_enabled) BIND(C)
434      USE ISO_C_BINDING
435      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
436      LOGICAL (KIND=C_BOOL)      , VALUE :: ts_enabled
437    END SUBROUTINE cxios_set_fieldgroup_ts_enabled
438
439    SUBROUTINE cxios_get_fieldgroup_ts_enabled(fieldgroup_hdl, ts_enabled) BIND(C)
440      USE ISO_C_BINDING
441      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
442      LOGICAL (KIND=C_BOOL)             :: ts_enabled
443    END SUBROUTINE cxios_get_fieldgroup_ts_enabled
444
445    FUNCTION cxios_is_defined_fieldgroup_ts_enabled(fieldgroup_hdl) BIND(C)
446      USE ISO_C_BINDING
447      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_ts_enabled
448      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
449    END FUNCTION cxios_is_defined_fieldgroup_ts_enabled
450
451
452    SUBROUTINE cxios_set_fieldgroup_ts_split_freq(fieldgroup_hdl, ts_split_freq) BIND(C)
453      USE ISO_C_BINDING
454      USE IDURATION
455      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
456      TYPE(txios(duration)), VALUE :: ts_split_freq
457    END SUBROUTINE cxios_set_fieldgroup_ts_split_freq
458
459    SUBROUTINE cxios_get_fieldgroup_ts_split_freq(fieldgroup_hdl, ts_split_freq) BIND(C)
460      USE ISO_C_BINDING
461      USE IDURATION
462      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
463      TYPE(txios(duration)) :: ts_split_freq
464    END SUBROUTINE cxios_get_fieldgroup_ts_split_freq
465
466    FUNCTION cxios_is_defined_fieldgroup_ts_split_freq(fieldgroup_hdl) BIND(C)
467      USE ISO_C_BINDING
468      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_ts_split_freq
469      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
470    END FUNCTION cxios_is_defined_fieldgroup_ts_split_freq
471
472
473    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
474      USE ISO_C_BINDING
475      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
476      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
477      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
478    END SUBROUTINE cxios_set_fieldgroup_unit
479
480    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
481      USE ISO_C_BINDING
482      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
483      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
484      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
485    END SUBROUTINE cxios_get_fieldgroup_unit
486
487    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C)
488      USE ISO_C_BINDING
489      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit
490      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
491    END FUNCTION cxios_is_defined_fieldgroup_unit
492
493
494    SUBROUTINE cxios_set_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
495      USE ISO_C_BINDING
496      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
497      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
498    END SUBROUTINE cxios_set_fieldgroup_valid_max
499
500    SUBROUTINE cxios_get_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
501      USE ISO_C_BINDING
502      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
503      REAL (KIND=C_DOUBLE)             :: valid_max
504    END SUBROUTINE cxios_get_fieldgroup_valid_max
505
506    FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C)
507      USE ISO_C_BINDING
508      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_max
509      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
510    END FUNCTION cxios_is_defined_fieldgroup_valid_max
511
512
513    SUBROUTINE cxios_set_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
514      USE ISO_C_BINDING
515      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
516      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
517    END SUBROUTINE cxios_set_fieldgroup_valid_min
518
519    SUBROUTINE cxios_get_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
520      USE ISO_C_BINDING
521      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
522      REAL (KIND=C_DOUBLE)             :: valid_min
523    END SUBROUTINE cxios_get_fieldgroup_valid_min
524
525    FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C)
526      USE ISO_C_BINDING
527      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_min
528      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
529    END FUNCTION cxios_is_defined_fieldgroup_valid_min
530
531  END INTERFACE
532
533END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.