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

Last change on this file since 802 was 790, checked in by rlacroix, 9 years ago

Add a new field attribute grid_path to allow chaining spatial transformations.

Intermediate grids must be separated by comma and the source/destination grids must not be listed.
  • 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: 24.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_path(fieldgroup_hdl, grid_path, grid_path_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
216      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
217    END SUBROUTINE cxios_set_fieldgroup_grid_path
218
219    SUBROUTINE cxios_get_fieldgroup_grid_path(fieldgroup_hdl, grid_path, grid_path_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_path
223      INTEGER  (kind = C_INT)     , VALUE        :: grid_path_size
224    END SUBROUTINE cxios_get_fieldgroup_grid_path
225
226    FUNCTION cxios_is_defined_fieldgroup_grid_path(fieldgroup_hdl) BIND(C)
227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_path
229      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
230    END FUNCTION cxios_is_defined_fieldgroup_grid_path
231
232
233    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
236      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
237      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
238    END SUBROUTINE cxios_set_fieldgroup_grid_ref
239
240    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
241      USE ISO_C_BINDING
242      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
243      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
244      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
245    END SUBROUTINE cxios_get_fieldgroup_grid_ref
246
247    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C)
248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref
250      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
251    END FUNCTION cxios_is_defined_fieldgroup_grid_ref
252
253
254    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
257      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
258      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
259    END SUBROUTINE cxios_set_fieldgroup_group_ref
260
261    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
262      USE ISO_C_BINDING
263      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
264      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
265      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
266    END SUBROUTINE cxios_get_fieldgroup_group_ref
267
268    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C)
269      USE ISO_C_BINDING
270      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref
271      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
272    END FUNCTION cxios_is_defined_fieldgroup_group_ref
273
274
275    SUBROUTINE cxios_set_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C)
276      USE ISO_C_BINDING
277      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
278      LOGICAL (KIND=C_BOOL)      , VALUE :: indexed_output
279    END SUBROUTINE cxios_set_fieldgroup_indexed_output
280
281    SUBROUTINE cxios_get_fieldgroup_indexed_output(fieldgroup_hdl, indexed_output) BIND(C)
282      USE ISO_C_BINDING
283      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
284      LOGICAL (KIND=C_BOOL)             :: indexed_output
285    END SUBROUTINE cxios_get_fieldgroup_indexed_output
286
287    FUNCTION cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl) BIND(C)
288      USE ISO_C_BINDING
289      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_indexed_output
290      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
291    END FUNCTION cxios_is_defined_fieldgroup_indexed_output
292
293
294    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
297      INTEGER (KIND=C_INT)      , VALUE :: level
298    END SUBROUTINE cxios_set_fieldgroup_level
299
300    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
301      USE ISO_C_BINDING
302      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
303      INTEGER (KIND=C_INT)             :: level
304    END SUBROUTINE cxios_get_fieldgroup_level
305
306    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C)
307      USE ISO_C_BINDING
308      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level
309      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
310    END FUNCTION cxios_is_defined_fieldgroup_level
311
312
313    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
314      USE ISO_C_BINDING
315      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
316      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
317      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
318    END SUBROUTINE cxios_set_fieldgroup_long_name
319
320    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
321      USE ISO_C_BINDING
322      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
323      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
324      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
325    END SUBROUTINE cxios_get_fieldgroup_long_name
326
327    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C)
328      USE ISO_C_BINDING
329      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name
330      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
331    END FUNCTION cxios_is_defined_fieldgroup_long_name
332
333
334    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
335      USE ISO_C_BINDING
336      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
337      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
338      INTEGER  (kind = C_INT)     , VALUE        :: name_size
339    END SUBROUTINE cxios_set_fieldgroup_name
340
341    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
342      USE ISO_C_BINDING
343      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
344      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
345      INTEGER  (kind = C_INT)     , VALUE        :: name_size
346    END SUBROUTINE cxios_get_fieldgroup_name
347
348    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C)
349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name
351      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
352    END FUNCTION cxios_is_defined_fieldgroup_name
353
354
355    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
358      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
359      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
360    END SUBROUTINE cxios_set_fieldgroup_operation
361
362    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
363      USE ISO_C_BINDING
364      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
365      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
366      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
367    END SUBROUTINE cxios_get_fieldgroup_operation
368
369    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C)
370      USE ISO_C_BINDING
371      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation
372      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
373    END FUNCTION cxios_is_defined_fieldgroup_operation
374
375
376    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
377      USE ISO_C_BINDING
378      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
379      INTEGER (KIND=C_INT)      , VALUE :: prec
380    END SUBROUTINE cxios_set_fieldgroup_prec
381
382    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
383      USE ISO_C_BINDING
384      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
385      INTEGER (KIND=C_INT)             :: prec
386    END SUBROUTINE cxios_get_fieldgroup_prec
387
388    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C)
389      USE ISO_C_BINDING
390      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec
391      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
392    END FUNCTION cxios_is_defined_fieldgroup_prec
393
394
395    SUBROUTINE cxios_set_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
396      USE ISO_C_BINDING
397      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
398      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
399    END SUBROUTINE cxios_set_fieldgroup_read_access
400
401    SUBROUTINE cxios_get_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
402      USE ISO_C_BINDING
403      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
404      LOGICAL (KIND=C_BOOL)             :: read_access
405    END SUBROUTINE cxios_get_fieldgroup_read_access
406
407    FUNCTION cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl) BIND(C)
408      USE ISO_C_BINDING
409      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_read_access
410      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
411    END FUNCTION cxios_is_defined_fieldgroup_read_access
412
413
414    SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
415      USE ISO_C_BINDING
416      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
417      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
418    END SUBROUTINE cxios_set_fieldgroup_scale_factor
419
420    SUBROUTINE cxios_get_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
421      USE ISO_C_BINDING
422      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
423      REAL (KIND=C_DOUBLE)             :: scale_factor
424    END SUBROUTINE cxios_get_fieldgroup_scale_factor
425
426    FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C)
427      USE ISO_C_BINDING
428      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scale_factor
429      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
430    END FUNCTION cxios_is_defined_fieldgroup_scale_factor
431
432
433    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
434      USE ISO_C_BINDING
435      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
436      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
437      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
438    END SUBROUTINE cxios_set_fieldgroup_standard_name
439
440    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
441      USE ISO_C_BINDING
442      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
443      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
444      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
445    END SUBROUTINE cxios_get_fieldgroup_standard_name
446
447    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C)
448      USE ISO_C_BINDING
449      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name
450      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
451    END FUNCTION cxios_is_defined_fieldgroup_standard_name
452
453
454    SUBROUTINE cxios_set_fieldgroup_ts_enabled(fieldgroup_hdl, ts_enabled) BIND(C)
455      USE ISO_C_BINDING
456      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
457      LOGICAL (KIND=C_BOOL)      , VALUE :: ts_enabled
458    END SUBROUTINE cxios_set_fieldgroup_ts_enabled
459
460    SUBROUTINE cxios_get_fieldgroup_ts_enabled(fieldgroup_hdl, ts_enabled) BIND(C)
461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
463      LOGICAL (KIND=C_BOOL)             :: ts_enabled
464    END SUBROUTINE cxios_get_fieldgroup_ts_enabled
465
466    FUNCTION cxios_is_defined_fieldgroup_ts_enabled(fieldgroup_hdl) BIND(C)
467      USE ISO_C_BINDING
468      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_ts_enabled
469      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
470    END FUNCTION cxios_is_defined_fieldgroup_ts_enabled
471
472
473    SUBROUTINE cxios_set_fieldgroup_ts_split_freq(fieldgroup_hdl, ts_split_freq) BIND(C)
474      USE ISO_C_BINDING
475      USE IDURATION
476      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
477      TYPE(txios(duration)), VALUE :: ts_split_freq
478    END SUBROUTINE cxios_set_fieldgroup_ts_split_freq
479
480    SUBROUTINE cxios_get_fieldgroup_ts_split_freq(fieldgroup_hdl, ts_split_freq) BIND(C)
481      USE ISO_C_BINDING
482      USE IDURATION
483      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
484      TYPE(txios(duration)) :: ts_split_freq
485    END SUBROUTINE cxios_get_fieldgroup_ts_split_freq
486
487    FUNCTION cxios_is_defined_fieldgroup_ts_split_freq(fieldgroup_hdl) BIND(C)
488      USE ISO_C_BINDING
489      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_ts_split_freq
490      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
491    END FUNCTION cxios_is_defined_fieldgroup_ts_split_freq
492
493
494    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
495      USE ISO_C_BINDING
496      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
497      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
498      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
499    END SUBROUTINE cxios_set_fieldgroup_unit
500
501    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
502      USE ISO_C_BINDING
503      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
504      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
505      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
506    END SUBROUTINE cxios_get_fieldgroup_unit
507
508    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C)
509      USE ISO_C_BINDING
510      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit
511      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
512    END FUNCTION cxios_is_defined_fieldgroup_unit
513
514
515    SUBROUTINE cxios_set_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
516      USE ISO_C_BINDING
517      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
518      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
519    END SUBROUTINE cxios_set_fieldgroup_valid_max
520
521    SUBROUTINE cxios_get_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
522      USE ISO_C_BINDING
523      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
524      REAL (KIND=C_DOUBLE)             :: valid_max
525    END SUBROUTINE cxios_get_fieldgroup_valid_max
526
527    FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C)
528      USE ISO_C_BINDING
529      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_max
530      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
531    END FUNCTION cxios_is_defined_fieldgroup_valid_max
532
533
534    SUBROUTINE cxios_set_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
535      USE ISO_C_BINDING
536      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
537      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
538    END SUBROUTINE cxios_set_fieldgroup_valid_min
539
540    SUBROUTINE cxios_get_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
541      USE ISO_C_BINDING
542      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
543      REAL (KIND=C_DOUBLE)             :: valid_min
544    END SUBROUTINE cxios_get_fieldgroup_valid_min
545
546    FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C)
547      USE ISO_C_BINDING
548      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_min
549      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
550    END FUNCTION cxios_is_defined_fieldgroup_valid_min
551
552  END INTERFACE
553
554END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.