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

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

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

  • 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: 20.8 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
[608]52    SUBROUTINE cxios_set_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C)
53      USE ISO_C_BINDING
54      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
55      INTEGER (KIND=C_INT)      , VALUE :: compression_level
56    END SUBROUTINE cxios_set_fieldgroup_compression_level
57
58    SUBROUTINE cxios_get_fieldgroup_compression_level(fieldgroup_hdl, compression_level) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
61      INTEGER (KIND=C_INT)             :: compression_level
62    END SUBROUTINE cxios_get_fieldgroup_compression_level
63
64    FUNCTION cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl) BIND(C)
65      USE ISO_C_BINDING
66      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_compression_level
67      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
68    END FUNCTION cxios_is_defined_fieldgroup_compression_level
69
70
[326]71    SUBROUTINE cxios_set_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
72      USE ISO_C_BINDING
73      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
74      REAL (KIND=C_DOUBLE)      , VALUE :: default_value
75    END SUBROUTINE cxios_set_fieldgroup_default_value
[581]76
[326]77    SUBROUTINE cxios_get_fieldgroup_default_value(fieldgroup_hdl, default_value) BIND(C)
78      USE ISO_C_BINDING
79      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
80      REAL (KIND=C_DOUBLE)             :: default_value
81    END SUBROUTINE cxios_get_fieldgroup_default_value
[581]82
83    FUNCTION cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl) BIND(C)
[432]84      USE ISO_C_BINDING
85      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_default_value
86      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
87    END FUNCTION cxios_is_defined_fieldgroup_default_value
[581]88
89
[472]90    SUBROUTINE cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
91      USE ISO_C_BINDING
92      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
93      LOGICAL (KIND=C_BOOL)      , VALUE :: detect_missing_value
94    END SUBROUTINE cxios_set_fieldgroup_detect_missing_value
[581]95
[472]96    SUBROUTINE cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl, detect_missing_value) BIND(C)
97      USE ISO_C_BINDING
98      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
99      LOGICAL (KIND=C_BOOL)             :: detect_missing_value
100    END SUBROUTINE cxios_get_fieldgroup_detect_missing_value
[581]101
102    FUNCTION cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl) BIND(C)
[472]103      USE ISO_C_BINDING
104      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_detect_missing_value
105      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
106    END FUNCTION cxios_is_defined_fieldgroup_detect_missing_value
[581]107
108
[326]109    SUBROUTINE cxios_set_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
110      USE ISO_C_BINDING
111      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
112      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
113      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
114    END SUBROUTINE cxios_set_fieldgroup_domain_ref
[581]115
[326]116    SUBROUTINE cxios_get_fieldgroup_domain_ref(fieldgroup_hdl, domain_ref, domain_ref_size) BIND(C)
117      USE ISO_C_BINDING
118      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
119      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_ref
120      INTEGER  (kind = C_INT)     , VALUE        :: domain_ref_size
121    END SUBROUTINE cxios_get_fieldgroup_domain_ref
[581]122
123    FUNCTION cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl) BIND(C)
[432]124      USE ISO_C_BINDING
125      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_domain_ref
126      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
127    END FUNCTION cxios_is_defined_fieldgroup_domain_ref
[581]128
129
[326]130    SUBROUTINE cxios_set_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
131      USE ISO_C_BINDING
132      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
133      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
134    END SUBROUTINE cxios_set_fieldgroup_enabled
[581]135
[326]136    SUBROUTINE cxios_get_fieldgroup_enabled(fieldgroup_hdl, enabled) BIND(C)
137      USE ISO_C_BINDING
138      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
139      LOGICAL (KIND=C_BOOL)             :: enabled
140    END SUBROUTINE cxios_get_fieldgroup_enabled
[581]141
142    FUNCTION cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl) BIND(C)
[432]143      USE ISO_C_BINDING
144      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_enabled
145      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
146    END FUNCTION cxios_is_defined_fieldgroup_enabled
[581]147
148
[326]149    SUBROUTINE cxios_set_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
150      USE ISO_C_BINDING
151      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
152      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
153      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
154    END SUBROUTINE cxios_set_fieldgroup_field_ref
[581]155
[326]156    SUBROUTINE cxios_get_fieldgroup_field_ref(fieldgroup_hdl, field_ref, field_ref_size) BIND(C)
157      USE ISO_C_BINDING
158      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
159      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: field_ref
160      INTEGER  (kind = C_INT)     , VALUE        :: field_ref_size
161    END SUBROUTINE cxios_get_fieldgroup_field_ref
[581]162
163    FUNCTION cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl) BIND(C)
[432]164      USE ISO_C_BINDING
165      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_field_ref
166      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
167    END FUNCTION cxios_is_defined_fieldgroup_field_ref
[581]168
169
[538]170    SUBROUTINE cxios_set_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
[326]171      USE ISO_C_BINDING
[545]172      USE IDURATION
[326]173      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]174      TYPE(txios(duration)), VALUE :: freq_offset
[326]175    END SUBROUTINE cxios_set_fieldgroup_freq_offset
[581]176
[538]177    SUBROUTINE cxios_get_fieldgroup_freq_offset(fieldgroup_hdl, freq_offset) BIND(C)
[326]178      USE ISO_C_BINDING
[545]179      USE IDURATION
[326]180      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]181      TYPE(txios(duration)) :: freq_offset
[326]182    END SUBROUTINE cxios_get_fieldgroup_freq_offset
[581]183
184    FUNCTION cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl) BIND(C)
[432]185      USE ISO_C_BINDING
186      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_offset
187      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
188    END FUNCTION cxios_is_defined_fieldgroup_freq_offset
[581]189
190
[538]191    SUBROUTINE cxios_set_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
[326]192      USE ISO_C_BINDING
[545]193      USE IDURATION
[326]194      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]195      TYPE(txios(duration)), VALUE :: freq_op
[326]196    END SUBROUTINE cxios_set_fieldgroup_freq_op
[581]197
[538]198    SUBROUTINE cxios_get_fieldgroup_freq_op(fieldgroup_hdl, freq_op) BIND(C)
[326]199      USE ISO_C_BINDING
[545]200      USE IDURATION
[326]201      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
[538]202      TYPE(txios(duration)) :: freq_op
[326]203    END SUBROUTINE cxios_get_fieldgroup_freq_op
[581]204
205    FUNCTION cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl) BIND(C)
[432]206      USE ISO_C_BINDING
207      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_freq_op
208      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
209    END FUNCTION cxios_is_defined_fieldgroup_freq_op
[581]210
211
[326]212    SUBROUTINE cxios_set_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
213      USE ISO_C_BINDING
214      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
215      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
216      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
217    END SUBROUTINE cxios_set_fieldgroup_grid_ref
[581]218
[326]219    SUBROUTINE cxios_get_fieldgroup_grid_ref(fieldgroup_hdl, grid_ref, grid_ref_size) BIND(C)
220      USE ISO_C_BINDING
221      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
222      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: grid_ref
223      INTEGER  (kind = C_INT)     , VALUE        :: grid_ref_size
224    END SUBROUTINE cxios_get_fieldgroup_grid_ref
[581]225
226    FUNCTION cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl) BIND(C)
[432]227      USE ISO_C_BINDING
228      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_grid_ref
229      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
230    END FUNCTION cxios_is_defined_fieldgroup_grid_ref
[581]231
232
[326]233    SUBROUTINE cxios_set_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
234      USE ISO_C_BINDING
235      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
236      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
237      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
238    END SUBROUTINE cxios_set_fieldgroup_group_ref
[581]239
[326]240    SUBROUTINE cxios_get_fieldgroup_group_ref(fieldgroup_hdl, group_ref, group_ref_size) BIND(C)
241      USE ISO_C_BINDING
242      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
243      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
244      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
245    END SUBROUTINE cxios_get_fieldgroup_group_ref
[581]246
247    FUNCTION cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl) BIND(C)
[432]248      USE ISO_C_BINDING
249      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_group_ref
250      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
251    END FUNCTION cxios_is_defined_fieldgroup_group_ref
[581]252
253
[326]254    SUBROUTINE cxios_set_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
255      USE ISO_C_BINDING
256      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
257      INTEGER (KIND=C_INT)      , VALUE :: level
258    END SUBROUTINE cxios_set_fieldgroup_level
[581]259
[326]260    SUBROUTINE cxios_get_fieldgroup_level(fieldgroup_hdl, level) BIND(C)
261      USE ISO_C_BINDING
262      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
263      INTEGER (KIND=C_INT)             :: level
264    END SUBROUTINE cxios_get_fieldgroup_level
[581]265
266    FUNCTION cxios_is_defined_fieldgroup_level(fieldgroup_hdl) BIND(C)
[432]267      USE ISO_C_BINDING
268      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_level
269      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
270    END FUNCTION cxios_is_defined_fieldgroup_level
[581]271
272
[326]273    SUBROUTINE cxios_set_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
274      USE ISO_C_BINDING
275      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
276      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
277      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
278    END SUBROUTINE cxios_set_fieldgroup_long_name
[581]279
[326]280    SUBROUTINE cxios_get_fieldgroup_long_name(fieldgroup_hdl, long_name, long_name_size) BIND(C)
281      USE ISO_C_BINDING
282      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
283      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: long_name
284      INTEGER  (kind = C_INT)     , VALUE        :: long_name_size
285    END SUBROUTINE cxios_get_fieldgroup_long_name
[581]286
287    FUNCTION cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl) BIND(C)
[432]288      USE ISO_C_BINDING
289      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_long_name
290      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
291    END FUNCTION cxios_is_defined_fieldgroup_long_name
[581]292
293
[326]294    SUBROUTINE cxios_set_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
295      USE ISO_C_BINDING
296      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
297      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
298      INTEGER  (kind = C_INT)     , VALUE        :: name_size
299    END SUBROUTINE cxios_set_fieldgroup_name
[581]300
[326]301    SUBROUTINE cxios_get_fieldgroup_name(fieldgroup_hdl, name, name_size) BIND(C)
302      USE ISO_C_BINDING
303      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
304      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
305      INTEGER  (kind = C_INT)     , VALUE        :: name_size
306    END SUBROUTINE cxios_get_fieldgroup_name
[581]307
308    FUNCTION cxios_is_defined_fieldgroup_name(fieldgroup_hdl) BIND(C)
[432]309      USE ISO_C_BINDING
310      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_name
311      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
312    END FUNCTION cxios_is_defined_fieldgroup_name
[581]313
314
[326]315    SUBROUTINE cxios_set_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
316      USE ISO_C_BINDING
317      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
318      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
319      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
320    END SUBROUTINE cxios_set_fieldgroup_operation
[581]321
[326]322    SUBROUTINE cxios_get_fieldgroup_operation(fieldgroup_hdl, operation, operation_size) BIND(C)
323      USE ISO_C_BINDING
324      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
325      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: operation
326      INTEGER  (kind = C_INT)     , VALUE        :: operation_size
327    END SUBROUTINE cxios_get_fieldgroup_operation
[581]328
329    FUNCTION cxios_is_defined_fieldgroup_operation(fieldgroup_hdl) BIND(C)
[432]330      USE ISO_C_BINDING
331      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_operation
332      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
333    END FUNCTION cxios_is_defined_fieldgroup_operation
[581]334
335
[326]336    SUBROUTINE cxios_set_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
337      USE ISO_C_BINDING
338      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
339      INTEGER (KIND=C_INT)      , VALUE :: prec
340    END SUBROUTINE cxios_set_fieldgroup_prec
[581]341
[326]342    SUBROUTINE cxios_get_fieldgroup_prec(fieldgroup_hdl, prec) BIND(C)
343      USE ISO_C_BINDING
344      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
345      INTEGER (KIND=C_INT)             :: prec
346    END SUBROUTINE cxios_get_fieldgroup_prec
[581]347
348    FUNCTION cxios_is_defined_fieldgroup_prec(fieldgroup_hdl) BIND(C)
[432]349      USE ISO_C_BINDING
350      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_prec
351      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
352    END FUNCTION cxios_is_defined_fieldgroup_prec
[581]353
354
[593]355    SUBROUTINE cxios_set_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
356      USE ISO_C_BINDING
357      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
358      LOGICAL (KIND=C_BOOL)      , VALUE :: read_access
359    END SUBROUTINE cxios_set_fieldgroup_read_access
360
361    SUBROUTINE cxios_get_fieldgroup_read_access(fieldgroup_hdl, read_access) BIND(C)
362      USE ISO_C_BINDING
363      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
364      LOGICAL (KIND=C_BOOL)             :: read_access
365    END SUBROUTINE cxios_get_fieldgroup_read_access
366
367    FUNCTION cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl) BIND(C)
368      USE ISO_C_BINDING
369      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_read_access
370      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
371    END FUNCTION cxios_is_defined_fieldgroup_read_access
372
373
[464]374    SUBROUTINE cxios_set_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
375      USE ISO_C_BINDING
376      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
377      REAL (KIND=C_DOUBLE)      , VALUE :: scale_factor
378    END SUBROUTINE cxios_set_fieldgroup_scale_factor
[581]379
[464]380    SUBROUTINE cxios_get_fieldgroup_scale_factor(fieldgroup_hdl, scale_factor) BIND(C)
381      USE ISO_C_BINDING
382      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
383      REAL (KIND=C_DOUBLE)             :: scale_factor
384    END SUBROUTINE cxios_get_fieldgroup_scale_factor
[581]385
386    FUNCTION cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl) BIND(C)
[464]387      USE ISO_C_BINDING
388      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_scale_factor
389      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
390    END FUNCTION cxios_is_defined_fieldgroup_scale_factor
[581]391
392
[326]393    SUBROUTINE cxios_set_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
394      USE ISO_C_BINDING
395      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
396      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
397      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
398    END SUBROUTINE cxios_set_fieldgroup_standard_name
[581]399
[326]400    SUBROUTINE cxios_get_fieldgroup_standard_name(fieldgroup_hdl, standard_name, standard_name_size) BIND(C)
401      USE ISO_C_BINDING
402      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
403      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: standard_name
404      INTEGER  (kind = C_INT)     , VALUE        :: standard_name_size
405    END SUBROUTINE cxios_get_fieldgroup_standard_name
[581]406
407    FUNCTION cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl) BIND(C)
[432]408      USE ISO_C_BINDING
409      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_standard_name
410      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
411    END FUNCTION cxios_is_defined_fieldgroup_standard_name
[581]412
413
[326]414    SUBROUTINE cxios_set_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
415      USE ISO_C_BINDING
416      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
417      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
418      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
419    END SUBROUTINE cxios_set_fieldgroup_unit
[581]420
[326]421    SUBROUTINE cxios_get_fieldgroup_unit(fieldgroup_hdl, unit, unit_size) BIND(C)
422      USE ISO_C_BINDING
423      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
424      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: unit
425      INTEGER  (kind = C_INT)     , VALUE        :: unit_size
426    END SUBROUTINE cxios_get_fieldgroup_unit
[581]427
428    FUNCTION cxios_is_defined_fieldgroup_unit(fieldgroup_hdl) BIND(C)
[432]429      USE ISO_C_BINDING
430      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_unit
431      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
432    END FUNCTION cxios_is_defined_fieldgroup_unit
[581]433
434
[463]435    SUBROUTINE cxios_set_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
436      USE ISO_C_BINDING
437      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
438      REAL (KIND=C_DOUBLE)      , VALUE :: valid_max
439    END SUBROUTINE cxios_set_fieldgroup_valid_max
[581]440
[463]441    SUBROUTINE cxios_get_fieldgroup_valid_max(fieldgroup_hdl, valid_max) BIND(C)
442      USE ISO_C_BINDING
443      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
444      REAL (KIND=C_DOUBLE)             :: valid_max
445    END SUBROUTINE cxios_get_fieldgroup_valid_max
[581]446
447    FUNCTION cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl) BIND(C)
[463]448      USE ISO_C_BINDING
449      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_max
450      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
451    END FUNCTION cxios_is_defined_fieldgroup_valid_max
[581]452
453
[463]454    SUBROUTINE cxios_set_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
455      USE ISO_C_BINDING
456      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
457      REAL (KIND=C_DOUBLE)      , VALUE :: valid_min
458    END SUBROUTINE cxios_set_fieldgroup_valid_min
[581]459
[463]460    SUBROUTINE cxios_get_fieldgroup_valid_min(fieldgroup_hdl, valid_min) BIND(C)
461      USE ISO_C_BINDING
462      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
463      REAL (KIND=C_DOUBLE)             :: valid_min
464    END SUBROUTINE cxios_get_fieldgroup_valid_min
[581]465
466    FUNCTION cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl) BIND(C)
[463]467      USE ISO_C_BINDING
468      LOGICAL(kind=C_BOOL) :: cxios_is_defined_fieldgroup_valid_min
469      INTEGER (kind = C_INTPTR_T), VALUE :: fieldgroup_hdl
470    END FUNCTION cxios_is_defined_fieldgroup_valid_min
[581]471
472  END INTERFACE
473
[326]474END MODULE fieldgroup_interface_attr
Note: See TracBrowser for help on using the repository browser.