source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/fieldgroup_interface_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

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