source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/fieldgroup_interface_attr.F90 @ 1205

Last change on this file since 1205 was 1205, checked in by yushan, 7 years ago

branch merged with trunk @1200

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