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

Last change on this file since 1005 was 1005, checked in by mhnguyen, 7 years ago

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