source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/fieldgroup_interface_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain

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