source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 2287

Last change on this file since 2287 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: 47.9 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifieldgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE fieldgroup_interface_attr
[581]10
[326]11CONTAINS
[581]12
[326]13  SUBROUTINE xios(set_fieldgroup_attr)  &
[1492]14    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
15    , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
16    , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
17    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
18    , unit, valid_max, valid_min )
[581]19
[326]20    IMPLICIT NONE
21      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[1021]25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[1201]27      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
28      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]30      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[326]31      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]32      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
33      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
35      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
36      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]39      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
40      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
[790]41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[676]44      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
45      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]46      INTEGER  , OPTIONAL, INTENT(IN) :: level
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
50      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[593]51      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
52      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]54      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]56      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
57      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
58      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]60      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
61      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]62
[966]63      CALL xios(get_fieldgroup_handle) &
64      (fieldgroup_id,fieldgroup_hdl)
[326]65      CALL xios(set_fieldgroup_attr_hdl_)   &
[1492]66      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
67      , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
68      , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
69      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
70      , unit, valid_max, valid_min )
[581]71
[326]72  END SUBROUTINE xios(set_fieldgroup_attr)
[581]73
[326]74  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
[1492]75    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
76    , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
77    , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
78    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
79    , unit, valid_max, valid_min )
[581]80
[326]81    IMPLICIT NONE
82      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[1021]85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[1201]87      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
88      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]90      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[326]91      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]92      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
93      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
95      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
96      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]99      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
100      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
[790]101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[676]104      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
105      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]106      INTEGER  , OPTIONAL, INTENT(IN) :: level
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
110      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[593]111      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
112      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]114      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]116      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
117      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
118      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]120      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]122
[326]123      CALL xios(set_fieldgroup_attr_hdl_)  &
[1492]124      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
125      , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
126      , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
127      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
128      , unit, valid_max, valid_min )
[581]129
[326]130  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
[581]131
[326]132  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
[1201]133    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_  &
[1492]134    , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_  &
135    , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  &
136    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  &
137    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]138
[326]139    IMPLICIT NONE
140      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]141      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]142      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[1021]143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_
144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_
[1201]145      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active_
146      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
[1492]147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[608]148      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
[326]149      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]150      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
151      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]152      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
153      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
154      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1021]155      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_
[326]156      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]157      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
158      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
[790]159      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
[326]160      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
161      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[676]162      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output_
163      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]164      INTEGER  , OPTIONAL, INTENT(IN) :: level_
165      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
166      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
168      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
[593]169      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
170      LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]171      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
[464]172      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]173      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[711]174      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled_
175      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
176      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq_
[326]177      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]178      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
179      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]180
[464]181      IF (PRESENT(add_offset_)) THEN
[966]182        CALL cxios_set_fieldgroup_add_offset &
183      (fieldgroup_hdl%daddr, add_offset_)
[464]184      ENDIF
[581]185
[326]186      IF (PRESENT(axis_ref_)) THEN
[966]187        CALL cxios_set_fieldgroup_axis_ref &
188      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[326]189      ENDIF
[581]190
[1021]191      IF (PRESENT(cell_methods_)) THEN
192        CALL cxios_set_fieldgroup_cell_methods &
193      (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))
194      ENDIF
195
196      IF (PRESENT(cell_methods_mode_)) THEN
197        CALL cxios_set_fieldgroup_cell_methods_mode &
198      (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
199      ENDIF
200
[1201]201      IF (PRESENT(check_if_active_)) THEN
202        check_if_active__tmp = check_if_active_
203        CALL cxios_set_fieldgroup_check_if_active &
204      (fieldgroup_hdl%daddr, check_if_active__tmp)
205      ENDIF
206
[1492]207      IF (PRESENT(comment_)) THEN
208        CALL cxios_set_fieldgroup_comment &
209      (fieldgroup_hdl%daddr, comment_, len(comment_))
210      ENDIF
211
[608]212      IF (PRESENT(compression_level_)) THEN
[966]213        CALL cxios_set_fieldgroup_compression_level &
214      (fieldgroup_hdl%daddr, compression_level_)
[608]215      ENDIF
216
[326]217      IF (PRESENT(default_value_)) THEN
[966]218        CALL cxios_set_fieldgroup_default_value &
219      (fieldgroup_hdl%daddr, default_value_)
[326]220      ENDIF
[581]221
[472]222      IF (PRESENT(detect_missing_value_)) THEN
[581]223        detect_missing_value__tmp = detect_missing_value_
[966]224        CALL cxios_set_fieldgroup_detect_missing_value &
225      (fieldgroup_hdl%daddr, detect_missing_value__tmp)
[472]226      ENDIF
[581]227
[326]228      IF (PRESENT(domain_ref_)) THEN
[966]229        CALL cxios_set_fieldgroup_domain_ref &
230      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
[326]231      ENDIF
[581]232
[326]233      IF (PRESENT(enabled_)) THEN
[581]234        enabled__tmp = enabled_
[966]235        CALL cxios_set_fieldgroup_enabled &
236      (fieldgroup_hdl%daddr, enabled__tmp)
[326]237      ENDIF
[581]238
[1021]239      IF (PRESENT(expr_)) THEN
240        CALL cxios_set_fieldgroup_expr &
241      (fieldgroup_hdl%daddr, expr_, len(expr_))
242      ENDIF
243
[326]244      IF (PRESENT(field_ref_)) THEN
[966]245        CALL cxios_set_fieldgroup_field_ref &
246      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
[326]247      ENDIF
[581]248
[326]249      IF (PRESENT(freq_offset_)) THEN
[966]250        CALL cxios_set_fieldgroup_freq_offset &
251      (fieldgroup_hdl%daddr, freq_offset_)
[326]252      ENDIF
[581]253
[326]254      IF (PRESENT(freq_op_)) THEN
[966]255        CALL cxios_set_fieldgroup_freq_op &
256      (fieldgroup_hdl%daddr, freq_op_)
[326]257      ENDIF
[581]258
[790]259      IF (PRESENT(grid_path_)) THEN
[966]260        CALL cxios_set_fieldgroup_grid_path &
261      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
[790]262      ENDIF
263
[326]264      IF (PRESENT(grid_ref_)) THEN
[966]265        CALL cxios_set_fieldgroup_grid_ref &
266      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
[326]267      ENDIF
[581]268
[326]269      IF (PRESENT(group_ref_)) THEN
[966]270        CALL cxios_set_fieldgroup_group_ref &
271      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]272      ENDIF
[581]273
[676]274      IF (PRESENT(indexed_output_)) THEN
275        indexed_output__tmp = indexed_output_
[966]276        CALL cxios_set_fieldgroup_indexed_output &
277      (fieldgroup_hdl%daddr, indexed_output__tmp)
[676]278      ENDIF
279
[326]280      IF (PRESENT(level_)) THEN
[966]281        CALL cxios_set_fieldgroup_level &
282      (fieldgroup_hdl%daddr, level_)
[326]283      ENDIF
[581]284
[326]285      IF (PRESENT(long_name_)) THEN
[966]286        CALL cxios_set_fieldgroup_long_name &
287      (fieldgroup_hdl%daddr, long_name_, len(long_name_))
[326]288      ENDIF
[581]289
[326]290      IF (PRESENT(name_)) THEN
[966]291        CALL cxios_set_fieldgroup_name &
292      (fieldgroup_hdl%daddr, name_, len(name_))
[326]293      ENDIF
[581]294
[326]295      IF (PRESENT(operation_)) THEN
[966]296        CALL cxios_set_fieldgroup_operation &
297      (fieldgroup_hdl%daddr, operation_, len(operation_))
[326]298      ENDIF
[581]299
[326]300      IF (PRESENT(prec_)) THEN
[966]301        CALL cxios_set_fieldgroup_prec &
302      (fieldgroup_hdl%daddr, prec_)
[326]303      ENDIF
[581]304
[593]305      IF (PRESENT(read_access_)) THEN
306        read_access__tmp = read_access_
[966]307        CALL cxios_set_fieldgroup_read_access &
308      (fieldgroup_hdl%daddr, read_access__tmp)
[593]309      ENDIF
310
[891]311      IF (PRESENT(scalar_ref_)) THEN
[966]312        CALL cxios_set_fieldgroup_scalar_ref &
313      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]314      ENDIF
315
[464]316      IF (PRESENT(scale_factor_)) THEN
[966]317        CALL cxios_set_fieldgroup_scale_factor &
318      (fieldgroup_hdl%daddr, scale_factor_)
[464]319      ENDIF
[581]320
[326]321      IF (PRESENT(standard_name_)) THEN
[966]322        CALL cxios_set_fieldgroup_standard_name &
323      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]324      ENDIF
[581]325
[711]326      IF (PRESENT(ts_enabled_)) THEN
327        ts_enabled__tmp = ts_enabled_
[966]328        CALL cxios_set_fieldgroup_ts_enabled &
329      (fieldgroup_hdl%daddr, ts_enabled__tmp)
[711]330      ENDIF
331
332      IF (PRESENT(ts_split_freq_)) THEN
[966]333        CALL cxios_set_fieldgroup_ts_split_freq &
334      (fieldgroup_hdl%daddr, ts_split_freq_)
[711]335      ENDIF
336
[326]337      IF (PRESENT(unit_)) THEN
[966]338        CALL cxios_set_fieldgroup_unit &
339      (fieldgroup_hdl%daddr, unit_, len(unit_))
[326]340      ENDIF
[581]341
[463]342      IF (PRESENT(valid_max_)) THEN
[966]343        CALL cxios_set_fieldgroup_valid_max &
344      (fieldgroup_hdl%daddr, valid_max_)
[463]345      ENDIF
[581]346
[463]347      IF (PRESENT(valid_min_)) THEN
[966]348        CALL cxios_set_fieldgroup_valid_min &
349      (fieldgroup_hdl%daddr, valid_min_)
[463]350      ENDIF
[581]351
[326]352  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
[581]353
[326]354  SUBROUTINE xios(get_fieldgroup_attr)  &
[1492]355    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
356    , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
357    , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
358    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
359    , unit, valid_max, valid_min )
[581]360
[326]361    IMPLICIT NONE
362      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
363      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]364      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]365      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[1021]366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
367      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[1201]368      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active
369      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]370      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]371      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[326]372      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]373      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
374      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]375      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
376      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
377      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]378      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]379      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]380      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
381      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
[790]382      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]383      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]385      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
386      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]387      INTEGER  , OPTIONAL, INTENT(OUT) :: level
388      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
389      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
390      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
391      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[593]392      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
393      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]394      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]395      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]397      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
398      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
399      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]401      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
402      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]403
[966]404      CALL xios(get_fieldgroup_handle) &
405      (fieldgroup_id,fieldgroup_hdl)
[326]406      CALL xios(get_fieldgroup_attr_hdl_)   &
[1492]407      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
408      , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
409      , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
410      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
411      , unit, valid_max, valid_min )
[581]412
[326]413  END SUBROUTINE xios(get_fieldgroup_attr)
[581]414
[326]415  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
[1492]416    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
417    , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
418    , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
419    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
420    , unit, valid_max, valid_min )
[581]421
[326]422    IMPLICIT NONE
423      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]424      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]425      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[1021]426      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[1201]428      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active
429      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]431      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[326]432      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]433      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
434      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]435      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
436      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
437      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]438      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]439      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]440      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
441      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
[790]442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]443      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
444      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]445      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
446      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]447      INTEGER  , OPTIONAL, INTENT(OUT) :: level
448      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
449      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
450      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
451      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[593]452      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
453      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]454      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]455      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]457      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
458      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
459      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]460      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]461      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
462      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]463
[326]464      CALL xios(get_fieldgroup_attr_hdl_)  &
[1492]465      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
466      , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
467      , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
468      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
469      , unit, valid_max, valid_min )
[581]470
[326]471  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
[581]472
[326]473  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
[1201]474    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_  &
[1492]475    , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_  &
476    , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  &
477    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  &
478    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]479
[326]480    IMPLICIT NONE
481      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]482      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[1021]484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_
485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_
[1201]486      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active_
487      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
[1492]488      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[608]489      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
[326]490      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]491      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
492      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]493      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
494      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
495      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1021]496      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_
[326]497      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]498      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
499      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
[790]500      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
[326]501      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[676]503      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output_
504      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]505      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
506      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
507      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
508      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
509      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
[593]510      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
511      LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]512      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
[464]513      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]514      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[711]515      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled_
516      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
517      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq_
[326]518      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]519      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
520      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]521
[464]522      IF (PRESENT(add_offset_)) THEN
[966]523        CALL cxios_get_fieldgroup_add_offset &
524      (fieldgroup_hdl%daddr, add_offset_)
[464]525      ENDIF
[581]526
[326]527      IF (PRESENT(axis_ref_)) THEN
[966]528        CALL cxios_get_fieldgroup_axis_ref &
529      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[326]530      ENDIF
[581]531
[1021]532      IF (PRESENT(cell_methods_)) THEN
533        CALL cxios_get_fieldgroup_cell_methods &
534      (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))
535      ENDIF
536
537      IF (PRESENT(cell_methods_mode_)) THEN
538        CALL cxios_get_fieldgroup_cell_methods_mode &
539      (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
540      ENDIF
541
[1201]542      IF (PRESENT(check_if_active_)) THEN
543        CALL cxios_get_fieldgroup_check_if_active &
544      (fieldgroup_hdl%daddr, check_if_active__tmp)
545        check_if_active_ = check_if_active__tmp
546      ENDIF
547
[1492]548      IF (PRESENT(comment_)) THEN
549        CALL cxios_get_fieldgroup_comment &
550      (fieldgroup_hdl%daddr, comment_, len(comment_))
551      ENDIF
552
[608]553      IF (PRESENT(compression_level_)) THEN
[966]554        CALL cxios_get_fieldgroup_compression_level &
555      (fieldgroup_hdl%daddr, compression_level_)
[608]556      ENDIF
557
[326]558      IF (PRESENT(default_value_)) THEN
[966]559        CALL cxios_get_fieldgroup_default_value &
560      (fieldgroup_hdl%daddr, default_value_)
[326]561      ENDIF
[581]562
[472]563      IF (PRESENT(detect_missing_value_)) THEN
[966]564        CALL cxios_get_fieldgroup_detect_missing_value &
565      (fieldgroup_hdl%daddr, detect_missing_value__tmp)
[581]566        detect_missing_value_ = detect_missing_value__tmp
[472]567      ENDIF
[581]568
[326]569      IF (PRESENT(domain_ref_)) THEN
[966]570        CALL cxios_get_fieldgroup_domain_ref &
571      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
[326]572      ENDIF
[581]573
[326]574      IF (PRESENT(enabled_)) THEN
[966]575        CALL cxios_get_fieldgroup_enabled &
576      (fieldgroup_hdl%daddr, enabled__tmp)
[581]577        enabled_ = enabled__tmp
[326]578      ENDIF
[581]579
[1021]580      IF (PRESENT(expr_)) THEN
581        CALL cxios_get_fieldgroup_expr &
582      (fieldgroup_hdl%daddr, expr_, len(expr_))
583      ENDIF
584
[326]585      IF (PRESENT(field_ref_)) THEN
[966]586        CALL cxios_get_fieldgroup_field_ref &
587      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
[326]588      ENDIF
[581]589
[326]590      IF (PRESENT(freq_offset_)) THEN
[966]591        CALL cxios_get_fieldgroup_freq_offset &
592      (fieldgroup_hdl%daddr, freq_offset_)
[326]593      ENDIF
[581]594
[326]595      IF (PRESENT(freq_op_)) THEN
[966]596        CALL cxios_get_fieldgroup_freq_op &
597      (fieldgroup_hdl%daddr, freq_op_)
[326]598      ENDIF
[581]599
[790]600      IF (PRESENT(grid_path_)) THEN
[966]601        CALL cxios_get_fieldgroup_grid_path &
602      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
[790]603      ENDIF
604
[326]605      IF (PRESENT(grid_ref_)) THEN
[966]606        CALL cxios_get_fieldgroup_grid_ref &
607      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
[326]608      ENDIF
[581]609
[326]610      IF (PRESENT(group_ref_)) THEN
[966]611        CALL cxios_get_fieldgroup_group_ref &
612      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]613      ENDIF
[581]614
[676]615      IF (PRESENT(indexed_output_)) THEN
[966]616        CALL cxios_get_fieldgroup_indexed_output &
617      (fieldgroup_hdl%daddr, indexed_output__tmp)
[676]618        indexed_output_ = indexed_output__tmp
619      ENDIF
620
[326]621      IF (PRESENT(level_)) THEN
[966]622        CALL cxios_get_fieldgroup_level &
623      (fieldgroup_hdl%daddr, level_)
[326]624      ENDIF
[581]625
[326]626      IF (PRESENT(long_name_)) THEN
[966]627        CALL cxios_get_fieldgroup_long_name &
628      (fieldgroup_hdl%daddr, long_name_, len(long_name_))
[326]629      ENDIF
[581]630
[326]631      IF (PRESENT(name_)) THEN
[966]632        CALL cxios_get_fieldgroup_name &
633      (fieldgroup_hdl%daddr, name_, len(name_))
[326]634      ENDIF
[581]635
[326]636      IF (PRESENT(operation_)) THEN
[966]637        CALL cxios_get_fieldgroup_operation &
638      (fieldgroup_hdl%daddr, operation_, len(operation_))
[326]639      ENDIF
[581]640
[326]641      IF (PRESENT(prec_)) THEN
[966]642        CALL cxios_get_fieldgroup_prec &
643      (fieldgroup_hdl%daddr, prec_)
[326]644      ENDIF
[581]645
[593]646      IF (PRESENT(read_access_)) THEN
[966]647        CALL cxios_get_fieldgroup_read_access &
648      (fieldgroup_hdl%daddr, read_access__tmp)
[593]649        read_access_ = read_access__tmp
650      ENDIF
651
[891]652      IF (PRESENT(scalar_ref_)) THEN
[966]653        CALL cxios_get_fieldgroup_scalar_ref &
654      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]655      ENDIF
656
[464]657      IF (PRESENT(scale_factor_)) THEN
[966]658        CALL cxios_get_fieldgroup_scale_factor &
659      (fieldgroup_hdl%daddr, scale_factor_)
[464]660      ENDIF
[581]661
[326]662      IF (PRESENT(standard_name_)) THEN
[966]663        CALL cxios_get_fieldgroup_standard_name &
664      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]665      ENDIF
[581]666
[711]667      IF (PRESENT(ts_enabled_)) THEN
[966]668        CALL cxios_get_fieldgroup_ts_enabled &
669      (fieldgroup_hdl%daddr, ts_enabled__tmp)
[711]670        ts_enabled_ = ts_enabled__tmp
671      ENDIF
672
673      IF (PRESENT(ts_split_freq_)) THEN
[966]674        CALL cxios_get_fieldgroup_ts_split_freq &
675      (fieldgroup_hdl%daddr, ts_split_freq_)
[711]676      ENDIF
677
[326]678      IF (PRESENT(unit_)) THEN
[966]679        CALL cxios_get_fieldgroup_unit &
680      (fieldgroup_hdl%daddr, unit_, len(unit_))
[326]681      ENDIF
[581]682
[463]683      IF (PRESENT(valid_max_)) THEN
[966]684        CALL cxios_get_fieldgroup_valid_max &
685      (fieldgroup_hdl%daddr, valid_max_)
[463]686      ENDIF
[581]687
[463]688      IF (PRESENT(valid_min_)) THEN
[966]689        CALL cxios_get_fieldgroup_valid_min &
690      (fieldgroup_hdl%daddr, valid_min_)
[463]691      ENDIF
[581]692
[326]693  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
[581]694
[432]695  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
[1492]696    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
697    , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
698    , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
699    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
700    , unit, valid_max, valid_min )
[581]701
[432]702    IMPLICIT NONE
703      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
704      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]705      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
706      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]707      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
708      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[1021]709      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
710      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
712      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
[1201]713      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
714      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
[1492]715      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
716      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]717      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
718      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]719      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
720      LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]721      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
722      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]723      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
724      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
726      LOGICAL(KIND=C_BOOL) :: enabled_tmp
[1021]727      LOGICAL, OPTIONAL, INTENT(OUT) :: expr
728      LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]729      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
730      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
732      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
734      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]735      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
736      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]737      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
738      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
740      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[676]741      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
742      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]743      LOGICAL, OPTIONAL, INTENT(OUT) :: level
744      LOGICAL(KIND=C_BOOL) :: level_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
746      LOGICAL(KIND=C_BOOL) :: long_name_tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: name
748      LOGICAL(KIND=C_BOOL) :: name_tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
750      LOGICAL(KIND=C_BOOL) :: operation_tmp
751      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
752      LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]753      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
754      LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]755      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
756      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]757      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
758      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]759      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
760      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]761      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
762      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
764      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]765      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
766      LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]767      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
768      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
770      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]771
[966]772      CALL xios(get_fieldgroup_handle) &
773      (fieldgroup_id,fieldgroup_hdl)
[432]774      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
[1492]775      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
776      , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
777      , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
778      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
779      , unit, valid_max, valid_min )
[581]780
[432]781  END SUBROUTINE xios(is_defined_fieldgroup_attr)
[581]782
[432]783  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
[1492]784    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
785    , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
786    , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
787    , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
788    , unit, valid_max, valid_min )
[581]789
[432]790    IMPLICIT NONE
791      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]792      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
793      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]794      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
795      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[1021]796      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
797      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
798      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
799      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
[1201]800      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
801      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
[1492]802      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
803      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]804      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
805      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]806      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
807      LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]808      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
809      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]810      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
811      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
812      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
813      LOGICAL(KIND=C_BOOL) :: enabled_tmp
[1021]814      LOGICAL, OPTIONAL, INTENT(OUT) :: expr
815      LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]816      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
817      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
818      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
819      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
820      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
821      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]822      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
823      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]824      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
825      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
826      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
827      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[676]828      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
829      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]830      LOGICAL, OPTIONAL, INTENT(OUT) :: level
831      LOGICAL(KIND=C_BOOL) :: level_tmp
832      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
833      LOGICAL(KIND=C_BOOL) :: long_name_tmp
834      LOGICAL, OPTIONAL, INTENT(OUT) :: name
835      LOGICAL(KIND=C_BOOL) :: name_tmp
836      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
837      LOGICAL(KIND=C_BOOL) :: operation_tmp
838      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
839      LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]840      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
841      LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]842      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
843      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]844      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
845      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]846      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
847      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]848      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
849      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
850      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
851      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]852      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
853      LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]854      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
855      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
856      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
857      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]858
[432]859      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
[1492]860      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, check_if_active, comment  &
861      , compression_level, default_value, detect_missing_value, domain_ref, enabled, expr, field_ref  &
862      , freq_offset, freq_op, grid_path, grid_ref, group_ref, indexed_output, level, long_name, name  &
863      , operation, prec, read_access, scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq  &
864      , unit, valid_max, valid_min )
[581]865
[432]866  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
[581]867
[432]868  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
[1201]869    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, check_if_active_  &
[1492]870    , comment_, compression_level_, default_value_, detect_missing_value_, domain_ref_, enabled_  &
871    , expr_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_  &
872    , level_, long_name_, name_, operation_, prec_, read_access_, scalar_ref_, scale_factor_, standard_name_  &
873    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]874
[432]875    IMPLICIT NONE
876      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]877      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
878      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]879      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
880      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[1021]881      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_
882      LOGICAL(KIND=C_BOOL) :: cell_methods__tmp
883      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_
884      LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp
[1201]885      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_
886      LOGICAL(KIND=C_BOOL) :: check_if_active__tmp
[1492]887      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
888      LOGICAL(KIND=C_BOOL) :: comment__tmp
[608]889      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
890      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]891      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
892      LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]893      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
894      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]895      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
896      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
897      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
898      LOGICAL(KIND=C_BOOL) :: enabled__tmp
[1021]899      LOGICAL, OPTIONAL, INTENT(OUT) :: expr_
900      LOGICAL(KIND=C_BOOL) :: expr__tmp
[432]901      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
902      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
903      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
904      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
905      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
906      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
[790]907      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
908      LOGICAL(KIND=C_BOOL) :: grid_path__tmp
[432]909      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
910      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
911      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
912      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[676]913      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
914      LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
[432]915      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
916      LOGICAL(KIND=C_BOOL) :: level__tmp
917      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
918      LOGICAL(KIND=C_BOOL) :: long_name__tmp
919      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
920      LOGICAL(KIND=C_BOOL) :: name__tmp
921      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
922      LOGICAL(KIND=C_BOOL) :: operation__tmp
923      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
924      LOGICAL(KIND=C_BOOL) :: prec__tmp
[593]925      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
926      LOGICAL(KIND=C_BOOL) :: read_access__tmp
[891]927      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
928      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
[464]929      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
930      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]931      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
932      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[711]933      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
934      LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
935      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
936      LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
[432]937      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
938      LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]939      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
940      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
941      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
942      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
[581]943
[464]944      IF (PRESENT(add_offset_)) THEN
[966]945        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset &
946      (fieldgroup_hdl%daddr)
[581]947        add_offset_ = add_offset__tmp
[464]948      ENDIF
[581]949
[432]950      IF (PRESENT(axis_ref_)) THEN
[966]951        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref &
952      (fieldgroup_hdl%daddr)
[581]953        axis_ref_ = axis_ref__tmp
[432]954      ENDIF
[581]955
[1021]956      IF (PRESENT(cell_methods_)) THEN
957        cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods &
958      (fieldgroup_hdl%daddr)
959        cell_methods_ = cell_methods__tmp
960      ENDIF
961
962      IF (PRESENT(cell_methods_mode_)) THEN
963        cell_methods_mode__tmp = cxios_is_defined_fieldgroup_cell_methods_mode &
964      (fieldgroup_hdl%daddr)
965        cell_methods_mode_ = cell_methods_mode__tmp
966      ENDIF
967
[1201]968      IF (PRESENT(check_if_active_)) THEN
969        check_if_active__tmp = cxios_is_defined_fieldgroup_check_if_active &
970      (fieldgroup_hdl%daddr)
971        check_if_active_ = check_if_active__tmp
972      ENDIF
973
[1492]974      IF (PRESENT(comment_)) THEN
975        comment__tmp = cxios_is_defined_fieldgroup_comment &
976      (fieldgroup_hdl%daddr)
977        comment_ = comment__tmp
978      ENDIF
979
[608]980      IF (PRESENT(compression_level_)) THEN
[966]981        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level &
982      (fieldgroup_hdl%daddr)
[608]983        compression_level_ = compression_level__tmp
984      ENDIF
985
[432]986      IF (PRESENT(default_value_)) THEN
[966]987        default_value__tmp = cxios_is_defined_fieldgroup_default_value &
988      (fieldgroup_hdl%daddr)
[581]989        default_value_ = default_value__tmp
[432]990      ENDIF
[581]991
[472]992      IF (PRESENT(detect_missing_value_)) THEN
[966]993        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value &
994      (fieldgroup_hdl%daddr)
[581]995        detect_missing_value_ = detect_missing_value__tmp
[472]996      ENDIF
[581]997
[432]998      IF (PRESENT(domain_ref_)) THEN
[966]999        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref &
1000      (fieldgroup_hdl%daddr)
[581]1001        domain_ref_ = domain_ref__tmp
[432]1002      ENDIF
[581]1003
[432]1004      IF (PRESENT(enabled_)) THEN
[966]1005        enabled__tmp = cxios_is_defined_fieldgroup_enabled &
1006      (fieldgroup_hdl%daddr)
[581]1007        enabled_ = enabled__tmp
[432]1008      ENDIF
[581]1009
[1021]1010      IF (PRESENT(expr_)) THEN
1011        expr__tmp = cxios_is_defined_fieldgroup_expr &
1012      (fieldgroup_hdl%daddr)
1013        expr_ = expr__tmp
1014      ENDIF
1015
[432]1016      IF (PRESENT(field_ref_)) THEN
[966]1017        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref &
1018      (fieldgroup_hdl%daddr)
[581]1019        field_ref_ = field_ref__tmp
[432]1020      ENDIF
[581]1021
[432]1022      IF (PRESENT(freq_offset_)) THEN
[966]1023        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset &
1024      (fieldgroup_hdl%daddr)
[581]1025        freq_offset_ = freq_offset__tmp
[432]1026      ENDIF
[581]1027
[432]1028      IF (PRESENT(freq_op_)) THEN
[966]1029        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op &
1030      (fieldgroup_hdl%daddr)
[581]1031        freq_op_ = freq_op__tmp
[432]1032      ENDIF
[581]1033
[790]1034      IF (PRESENT(grid_path_)) THEN
[966]1035        grid_path__tmp = cxios_is_defined_fieldgroup_grid_path &
1036      (fieldgroup_hdl%daddr)
[790]1037        grid_path_ = grid_path__tmp
1038      ENDIF
1039
[432]1040      IF (PRESENT(grid_ref_)) THEN
[966]1041        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref &
1042      (fieldgroup_hdl%daddr)
[581]1043        grid_ref_ = grid_ref__tmp
[432]1044      ENDIF
[581]1045
[432]1046      IF (PRESENT(group_ref_)) THEN
[966]1047        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref &
1048      (fieldgroup_hdl%daddr)
[581]1049        group_ref_ = group_ref__tmp
[432]1050      ENDIF
[581]1051
[676]1052      IF (PRESENT(indexed_output_)) THEN
[966]1053        indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output &
1054      (fieldgroup_hdl%daddr)
[676]1055        indexed_output_ = indexed_output__tmp
1056      ENDIF
1057
[432]1058      IF (PRESENT(level_)) THEN
[966]1059        level__tmp = cxios_is_defined_fieldgroup_level &
1060      (fieldgroup_hdl%daddr)
[581]1061        level_ = level__tmp
[432]1062      ENDIF
[581]1063
[432]1064      IF (PRESENT(long_name_)) THEN
[966]1065        long_name__tmp = cxios_is_defined_fieldgroup_long_name &
1066      (fieldgroup_hdl%daddr)
[581]1067        long_name_ = long_name__tmp
[432]1068      ENDIF
[581]1069
[432]1070      IF (PRESENT(name_)) THEN
[966]1071        name__tmp = cxios_is_defined_fieldgroup_name &
1072      (fieldgroup_hdl%daddr)
[581]1073        name_ = name__tmp
[432]1074      ENDIF
[581]1075
[432]1076      IF (PRESENT(operation_)) THEN
[966]1077        operation__tmp = cxios_is_defined_fieldgroup_operation &
1078      (fieldgroup_hdl%daddr)
[581]1079        operation_ = operation__tmp
[432]1080      ENDIF
[581]1081
[432]1082      IF (PRESENT(prec_)) THEN
[966]1083        prec__tmp = cxios_is_defined_fieldgroup_prec &
1084      (fieldgroup_hdl%daddr)
[581]1085        prec_ = prec__tmp
[432]1086      ENDIF
[581]1087
[593]1088      IF (PRESENT(read_access_)) THEN
[966]1089        read_access__tmp = cxios_is_defined_fieldgroup_read_access &
1090      (fieldgroup_hdl%daddr)
[593]1091        read_access_ = read_access__tmp
1092      ENDIF
1093
[891]1094      IF (PRESENT(scalar_ref_)) THEN
[966]1095        scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref &
1096      (fieldgroup_hdl%daddr)
[891]1097        scalar_ref_ = scalar_ref__tmp
1098      ENDIF
1099
[464]1100      IF (PRESENT(scale_factor_)) THEN
[966]1101        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor &
1102      (fieldgroup_hdl%daddr)
[581]1103        scale_factor_ = scale_factor__tmp
[464]1104      ENDIF
[581]1105
[432]1106      IF (PRESENT(standard_name_)) THEN
[966]1107        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name &
1108      (fieldgroup_hdl%daddr)
[581]1109        standard_name_ = standard_name__tmp
[432]1110      ENDIF
[581]1111
[711]1112      IF (PRESENT(ts_enabled_)) THEN
[966]1113        ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled &
1114      (fieldgroup_hdl%daddr)
[711]1115        ts_enabled_ = ts_enabled__tmp
1116      ENDIF
1117
1118      IF (PRESENT(ts_split_freq_)) THEN
[966]1119        ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq &
1120      (fieldgroup_hdl%daddr)
[711]1121        ts_split_freq_ = ts_split_freq__tmp
1122      ENDIF
1123
[432]1124      IF (PRESENT(unit_)) THEN
[966]1125        unit__tmp = cxios_is_defined_fieldgroup_unit &
1126      (fieldgroup_hdl%daddr)
[581]1127        unit_ = unit__tmp
[432]1128      ENDIF
[581]1129
[463]1130      IF (PRESENT(valid_max_)) THEN
[966]1131        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max &
1132      (fieldgroup_hdl%daddr)
[581]1133        valid_max_ = valid_max__tmp
[463]1134      ENDIF
[581]1135
[463]1136      IF (PRESENT(valid_min_)) THEN
[966]1137        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min &
1138      (fieldgroup_hdl%daddr)
[581]1139        valid_min_ = valid_min__tmp
[463]1140      ENDIF
[581]1141
[432]1142  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
[581]1143
[326]1144END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.