source: XIOS3/trunk/src/interface/fortran_attr/ifilegroup_attr.F90 @ 2620

Last change on this file since 2620 was 2620, checked in by jderouillat, 4 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.

  • 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: 61.2 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifilegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE filegroup_interface_attr
[2620]10  USE LOGICAL_BOOL_CONVERSION
[581]11
[326]12CONTAINS
[581]13
[326]14  SUBROUTINE xios(set_filegroup_attr)  &
[1492]15    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]16    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
17    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
18    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
19    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
20    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]21
[326]22    IMPLICIT NONE
23      TYPE(txios(filegroup))  :: filegroup_hdl
24      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
[528]25      LOGICAL  , OPTIONAL, INTENT(IN) :: append
26      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]28      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[932]29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
[1201]30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
[891]31      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
32      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
34      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
35      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[2616]37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer
[326]38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[415]39      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
[598]40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]43      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
[326]44      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
[369]45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[2616]46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer
[1492]49      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
50      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[2616]51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader
[779]52      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
[1492]53      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset
[538]54      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
[432]55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[1492]56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
57      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset
[538]58      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
[699]59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[1158]61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
[711]64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[2616]67      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2
68      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
[1158]69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
[2616]71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer
[581]72
[966]73      CALL xios(get_filegroup_handle) &
74      (filegroup_id,filegroup_hdl)
[326]75      CALL xios(set_filegroup_attr_hdl_)   &
[1492]76      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]77      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
78      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
79      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
80      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
81      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]82
[326]83  END SUBROUTINE xios(set_filegroup_attr)
[581]84
[326]85  SUBROUTINE xios(set_filegroup_attr_hdl)  &
[1492]86    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]87    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
88    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
89    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
90    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
91    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]92
[326]93    IMPLICIT NONE
94      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
[528]95      LOGICAL  , OPTIONAL, INTENT(IN) :: append
96      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]98      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[932]99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
[1201]100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
[891]101      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
102      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
104      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
105      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[2616]107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer
[326]108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[415]109      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
[598]110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]111      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]113      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
[326]114      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
[369]115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[2616]116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer
[1492]119      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
120      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[2616]121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader
[779]122      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
[1492]123      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset
[538]124      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
[432]125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[1492]126      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
127      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset
[538]128      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
[699]129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[1158]131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
[711]134      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[2616]137      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2
138      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
[1158]139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
[2616]141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer
[581]142
[326]143      CALL xios(set_filegroup_attr_hdl_)  &
[1492]144      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]145      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
146      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
147      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
148      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
149      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]150
[326]151  END SUBROUTINE xios(set_filegroup_attr_hdl)
[581]152
[326]153  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
[1492]154    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  &
[2616]155    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  &
156    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  &
157    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
158    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
159    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  &
160     )
[581]161
[326]162    IMPLICIT NONE
163      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
[528]164      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
165      LOGICAL (KIND=C_BOOL) :: append__tmp
[1492]166      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[608]167      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
[932]168      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_
[1201]169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str_
[891]170      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic_
171      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
173      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
174      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
[2616]176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: gatherer_
[326]177      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[415]178      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
[598]179      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
[326]180      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
181      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
[538]182      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
[326]183      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
[369]184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
[2616]185      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_gatherer_
186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_reader_
187      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: pool_writer_
[1492]188      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_
189      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp
[2616]190      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: reader_
[779]191      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_
[1492]192      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_
[538]193      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
[432]194      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
[1492]195      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_
196      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset_
[538]197      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
[699]198      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
[802]199      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
[1158]200      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_
201      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_
202      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_
[711]203      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
204      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
[326]205      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[2616]206      LOGICAL  , OPTIONAL, INTENT(IN) :: using_server2_
207      LOGICAL (KIND=C_BOOL) :: using_server2__tmp
[1158]208      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_
209      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_
[2616]210      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: writer_
[581]211
[528]212      IF (PRESENT(append_)) THEN
[581]213        append__tmp = append_
[2620]214        CALL xios_logical_to_bool_0d(append__tmp)
[966]215        CALL cxios_set_filegroup_append &
216      (filegroup_hdl%daddr, append__tmp)
[528]217      ENDIF
[581]218
[1492]219      IF (PRESENT(comment_)) THEN
220        CALL cxios_set_filegroup_comment &
221      (filegroup_hdl%daddr, comment_, len(comment_))
222      ENDIF
223
[608]224      IF (PRESENT(compression_level_)) THEN
[966]225        CALL cxios_set_filegroup_compression_level &
226      (filegroup_hdl%daddr, compression_level_)
[608]227      ENDIF
228
[932]229      IF (PRESENT(convention_)) THEN
[966]230        CALL cxios_set_filegroup_convention &
231      (filegroup_hdl%daddr, convention_, len(convention_))
[932]232      ENDIF
233
[1201]234      IF (PRESENT(convention_str_)) THEN
235        CALL cxios_set_filegroup_convention_str &
236      (filegroup_hdl%daddr, convention_str_, len(convention_str_))
237      ENDIF
238
[891]239      IF (PRESENT(cyclic_)) THEN
240        cyclic__tmp = cyclic_
[2620]241        CALL xios_logical_to_bool_0d(cyclic__tmp)
[966]242        CALL cxios_set_filegroup_cyclic &
243      (filegroup_hdl%daddr, cyclic__tmp)
[891]244      ENDIF
245
[326]246      IF (PRESENT(description_)) THEN
[966]247        CALL cxios_set_filegroup_description &
248      (filegroup_hdl%daddr, description_, len(description_))
[326]249      ENDIF
[581]250
[326]251      IF (PRESENT(enabled_)) THEN
[581]252        enabled__tmp = enabled_
[2620]253        CALL xios_logical_to_bool_0d(enabled__tmp)
[966]254        CALL cxios_set_filegroup_enabled &
255      (filegroup_hdl%daddr, enabled__tmp)
[326]256      ENDIF
[581]257
[517]258      IF (PRESENT(format_)) THEN
[966]259        CALL cxios_set_filegroup_format &
260      (filegroup_hdl%daddr, format_, len(format_))
[517]261      ENDIF
[581]262
[2616]263      IF (PRESENT(gatherer_)) THEN
264        CALL cxios_set_filegroup_gatherer &
265      (filegroup_hdl%daddr, gatherer_, len(gatherer_))
266      ENDIF
267
[326]268      IF (PRESENT(group_ref_)) THEN
[966]269        CALL cxios_set_filegroup_group_ref &
270      (filegroup_hdl%daddr, group_ref_, len(group_ref_))
[326]271      ENDIF
[581]272
[415]273      IF (PRESENT(min_digits_)) THEN
[966]274        CALL cxios_set_filegroup_min_digits &
275      (filegroup_hdl%daddr, min_digits_)
[415]276      ENDIF
[581]277
[598]278      IF (PRESENT(mode_)) THEN
[966]279        CALL cxios_set_filegroup_mode &
280      (filegroup_hdl%daddr, mode_, len(mode_))
[598]281      ENDIF
282
[326]283      IF (PRESENT(name_)) THEN
[966]284        CALL cxios_set_filegroup_name &
285      (filegroup_hdl%daddr, name_, len(name_))
[326]286      ENDIF
[581]287
[326]288      IF (PRESENT(name_suffix_)) THEN
[966]289        CALL cxios_set_filegroup_name_suffix &
290      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
[326]291      ENDIF
[581]292
[326]293      IF (PRESENT(output_freq_)) THEN
[966]294        CALL cxios_set_filegroup_output_freq &
295      (filegroup_hdl%daddr, output_freq_)
[326]296      ENDIF
[581]297
[326]298      IF (PRESENT(output_level_)) THEN
[966]299        CALL cxios_set_filegroup_output_level &
300      (filegroup_hdl%daddr, output_level_)
[326]301      ENDIF
[581]302
[369]303      IF (PRESENT(par_access_)) THEN
[966]304        CALL cxios_set_filegroup_par_access &
305      (filegroup_hdl%daddr, par_access_, len(par_access_))
[369]306      ENDIF
[581]307
[2616]308      IF (PRESENT(pool_gatherer_)) THEN
309        CALL cxios_set_filegroup_pool_gatherer &
310      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_))
311      ENDIF
312
313      IF (PRESENT(pool_reader_)) THEN
314        CALL cxios_set_filegroup_pool_reader &
315      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_))
316      ENDIF
317
318      IF (PRESENT(pool_writer_)) THEN
319        CALL cxios_set_filegroup_pool_writer &
320      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_))
321      ENDIF
322
[1492]323      IF (PRESENT(read_metadata_par_)) THEN
324        read_metadata_par__tmp = read_metadata_par_
[2620]325        CALL xios_logical_to_bool_0d(read_metadata_par__tmp)
[1492]326        CALL cxios_set_filegroup_read_metadata_par &
327      (filegroup_hdl%daddr, read_metadata_par__tmp)
328      ENDIF
329
[2616]330      IF (PRESENT(reader_)) THEN
331        CALL cxios_set_filegroup_reader &
332      (filegroup_hdl%daddr, reader_, len(reader_))
333      ENDIF
334
[779]335      IF (PRESENT(record_offset_)) THEN
[966]336        CALL cxios_set_filegroup_record_offset &
337      (filegroup_hdl%daddr, record_offset_)
[779]338      ENDIF
339
[1492]340      IF (PRESENT(split_end_offset_)) THEN
341        CALL cxios_set_filegroup_split_end_offset &
342      (filegroup_hdl%daddr, split_end_offset_)
343      ENDIF
344
[326]345      IF (PRESENT(split_freq_)) THEN
[966]346        CALL cxios_set_filegroup_split_freq &
347      (filegroup_hdl%daddr, split_freq_)
[326]348      ENDIF
[581]349
[432]350      IF (PRESENT(split_freq_format_)) THEN
[966]351        CALL cxios_set_filegroup_split_freq_format &
352      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]353      ENDIF
[581]354
[1492]355      IF (PRESENT(split_last_date_)) THEN
356        CALL cxios_set_filegroup_split_last_date &
357      (filegroup_hdl%daddr, split_last_date_, len(split_last_date_))
358      ENDIF
359
360      IF (PRESENT(split_start_offset_)) THEN
361        CALL cxios_set_filegroup_split_start_offset &
362      (filegroup_hdl%daddr, split_start_offset_)
363      ENDIF
364
[326]365      IF (PRESENT(sync_freq_)) THEN
[966]366        CALL cxios_set_filegroup_sync_freq &
367      (filegroup_hdl%daddr, sync_freq_)
[326]368      ENDIF
[581]369
[699]370      IF (PRESENT(time_counter_)) THEN
[966]371        CALL cxios_set_filegroup_time_counter &
372      (filegroup_hdl%daddr, time_counter_, len(time_counter_))
[699]373      ENDIF
374
[802]375      IF (PRESENT(time_counter_name_)) THEN
[966]376        CALL cxios_set_filegroup_time_counter_name &
377      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]378      ENDIF
379
[1158]380      IF (PRESENT(time_stamp_format_)) THEN
381        CALL cxios_set_filegroup_time_stamp_format &
382      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
383      ENDIF
384
385      IF (PRESENT(time_stamp_name_)) THEN
386        CALL cxios_set_filegroup_time_stamp_name &
387      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
388      ENDIF
389
390      IF (PRESENT(time_units_)) THEN
391        CALL cxios_set_filegroup_time_units &
392      (filegroup_hdl%daddr, time_units_, len(time_units_))
393      ENDIF
394
[711]395      IF (PRESENT(timeseries_)) THEN
[966]396        CALL cxios_set_filegroup_timeseries &
397      (filegroup_hdl%daddr, timeseries_, len(timeseries_))
[711]398      ENDIF
399
400      IF (PRESENT(ts_prefix_)) THEN
[966]401        CALL cxios_set_filegroup_ts_prefix &
402      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]403      ENDIF
404
[326]405      IF (PRESENT(type_)) THEN
[966]406        CALL cxios_set_filegroup_type &
407      (filegroup_hdl%daddr, type_, len(type_))
[326]408      ENDIF
[581]409
[2616]410      IF (PRESENT(using_server2_)) THEN
411        using_server2__tmp = using_server2_
[2620]412        CALL xios_logical_to_bool_0d(using_server2__tmp)
[2616]413        CALL cxios_set_filegroup_using_server2 &
414      (filegroup_hdl%daddr, using_server2__tmp)
415      ENDIF
416
[1158]417      IF (PRESENT(uuid_format_)) THEN
418        CALL cxios_set_filegroup_uuid_format &
419      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_))
420      ENDIF
421
422      IF (PRESENT(uuid_name_)) THEN
423        CALL cxios_set_filegroup_uuid_name &
424      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_))
425      ENDIF
426
[2616]427      IF (PRESENT(writer_)) THEN
428        CALL cxios_set_filegroup_writer &
429      (filegroup_hdl%daddr, writer_, len(writer_))
430      ENDIF
431
[326]432  END SUBROUTINE xios(set_filegroup_attr_hdl_)
[581]433
[326]434  SUBROUTINE xios(get_filegroup_attr)  &
[1492]435    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]436    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
437    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
438    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
439    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
440    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]441
[326]442    IMPLICIT NONE
443      TYPE(txios(filegroup))  :: filegroup_hdl
444      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
[528]445      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
446      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]448      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[932]449      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[1201]450      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
[891]451      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic
452      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]453      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
454      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
455      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
[2616]457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer
[326]458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[415]459      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
[598]460      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]461      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
462      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]463      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
[326]464      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
[369]465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[2616]466      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer
467      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader
468      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer
[1492]469      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par
470      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[2616]471      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader
[779]472      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
[1492]473      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset
[538]474      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
[432]475      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[1492]476      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date
477      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset
[538]478      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
[699]479      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]480      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[1158]481      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
482      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
[711]484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]486      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[2616]487      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2
488      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
[1158]489      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
490      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
[2616]491      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer
[581]492
[966]493      CALL xios(get_filegroup_handle) &
494      (filegroup_id,filegroup_hdl)
[326]495      CALL xios(get_filegroup_attr_hdl_)   &
[1492]496      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]497      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
498      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
499      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
500      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
501      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]502
[326]503  END SUBROUTINE xios(get_filegroup_attr)
[581]504
[326]505  SUBROUTINE xios(get_filegroup_attr_hdl)  &
[1492]506    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]507    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
508    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
509    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
510    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
511    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]512
[326]513    IMPLICIT NONE
514      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
[528]515      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
516      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]517      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]518      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[932]519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[1201]520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
[891]521      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic
522      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]523      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
524      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
525      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]526      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
[2616]527      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer
[326]528      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[415]529      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
[598]530      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]531      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
532      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]533      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
[326]534      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
[369]535      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[2616]536      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer
537      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader
538      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer
[1492]539      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par
540      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[2616]541      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader
[779]542      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
[1492]543      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset
[538]544      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
[432]545      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[1492]546      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date
547      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset
[538]548      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
[699]549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]550      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[1158]551      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
552      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
553      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
[711]554      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
555      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]556      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[2616]557      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2
558      LOGICAL (KIND=C_BOOL) :: using_server2_tmp
[1158]559      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
560      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
[2616]561      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer
[581]562
[326]563      CALL xios(get_filegroup_attr_hdl_)  &
[1492]564      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]565      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
566      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
567      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
568      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
569      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]570
[326]571  END SUBROUTINE xios(get_filegroup_attr_hdl)
[581]572
[326]573  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
[1492]574    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  &
[2616]575    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  &
576    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  &
577    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
578    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
579    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  &
580     )
[581]581
[326]582    IMPLICIT NONE
583      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
[528]584      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
585      LOGICAL (KIND=C_BOOL) :: append__tmp
[1492]586      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[608]587      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
[932]588      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_
[1201]589      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str_
[891]590      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic_
591      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]592      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
593      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
594      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]595      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
[2616]596      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: gatherer_
[326]597      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[415]598      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
[598]599      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
[326]600      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
601      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
[538]602      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
[326]603      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
[369]604      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
[2616]605      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_gatherer_
606      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_reader_
607      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: pool_writer_
[1492]608      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_
609      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp
[2616]610      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: reader_
[779]611      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_
[1492]612      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_
[538]613      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
[432]614      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
[1492]615      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_
616      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset_
[538]617      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
[699]618      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
[802]619      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
[1158]620      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_
621      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_
622      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_
[711]623      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
624      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
[326]625      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[2616]626      LOGICAL  , OPTIONAL, INTENT(OUT) :: using_server2_
627      LOGICAL (KIND=C_BOOL) :: using_server2__tmp
[1158]628      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_
629      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_
[2616]630      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: writer_
[581]631
[528]632      IF (PRESENT(append_)) THEN
[966]633        CALL cxios_get_filegroup_append &
634      (filegroup_hdl%daddr, append__tmp)
[2620]635        CALL xios_bool_to_logical_0d(append__tmp)
[581]636        append_ = append__tmp
[528]637      ENDIF
[581]638
[1492]639      IF (PRESENT(comment_)) THEN
640        CALL cxios_get_filegroup_comment &
641      (filegroup_hdl%daddr, comment_, len(comment_))
642      ENDIF
643
[608]644      IF (PRESENT(compression_level_)) THEN
[966]645        CALL cxios_get_filegroup_compression_level &
646      (filegroup_hdl%daddr, compression_level_)
[608]647      ENDIF
648
[932]649      IF (PRESENT(convention_)) THEN
[966]650        CALL cxios_get_filegroup_convention &
651      (filegroup_hdl%daddr, convention_, len(convention_))
[932]652      ENDIF
653
[1201]654      IF (PRESENT(convention_str_)) THEN
655        CALL cxios_get_filegroup_convention_str &
656      (filegroup_hdl%daddr, convention_str_, len(convention_str_))
657      ENDIF
658
[891]659      IF (PRESENT(cyclic_)) THEN
[966]660        CALL cxios_get_filegroup_cyclic &
661      (filegroup_hdl%daddr, cyclic__tmp)
[2620]662        CALL xios_bool_to_logical_0d(cyclic__tmp)
[891]663        cyclic_ = cyclic__tmp
664      ENDIF
665
[326]666      IF (PRESENT(description_)) THEN
[966]667        CALL cxios_get_filegroup_description &
668      (filegroup_hdl%daddr, description_, len(description_))
[326]669      ENDIF
[581]670
[326]671      IF (PRESENT(enabled_)) THEN
[966]672        CALL cxios_get_filegroup_enabled &
673      (filegroup_hdl%daddr, enabled__tmp)
[2620]674        CALL xios_bool_to_logical_0d(enabled__tmp)
[581]675        enabled_ = enabled__tmp
[326]676      ENDIF
[581]677
[517]678      IF (PRESENT(format_)) THEN
[966]679        CALL cxios_get_filegroup_format &
680      (filegroup_hdl%daddr, format_, len(format_))
[517]681      ENDIF
[581]682
[2616]683      IF (PRESENT(gatherer_)) THEN
684        CALL cxios_get_filegroup_gatherer &
685      (filegroup_hdl%daddr, gatherer_, len(gatherer_))
686      ENDIF
687
[326]688      IF (PRESENT(group_ref_)) THEN
[966]689        CALL cxios_get_filegroup_group_ref &
690      (filegroup_hdl%daddr, group_ref_, len(group_ref_))
[326]691      ENDIF
[581]692
[415]693      IF (PRESENT(min_digits_)) THEN
[966]694        CALL cxios_get_filegroup_min_digits &
695      (filegroup_hdl%daddr, min_digits_)
[415]696      ENDIF
[581]697
[598]698      IF (PRESENT(mode_)) THEN
[966]699        CALL cxios_get_filegroup_mode &
700      (filegroup_hdl%daddr, mode_, len(mode_))
[598]701      ENDIF
702
[326]703      IF (PRESENT(name_)) THEN
[966]704        CALL cxios_get_filegroup_name &
705      (filegroup_hdl%daddr, name_, len(name_))
[326]706      ENDIF
[581]707
[326]708      IF (PRESENT(name_suffix_)) THEN
[966]709        CALL cxios_get_filegroup_name_suffix &
710      (filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
[326]711      ENDIF
[581]712
[326]713      IF (PRESENT(output_freq_)) THEN
[966]714        CALL cxios_get_filegroup_output_freq &
715      (filegroup_hdl%daddr, output_freq_)
[326]716      ENDIF
[581]717
[326]718      IF (PRESENT(output_level_)) THEN
[966]719        CALL cxios_get_filegroup_output_level &
720      (filegroup_hdl%daddr, output_level_)
[326]721      ENDIF
[581]722
[369]723      IF (PRESENT(par_access_)) THEN
[966]724        CALL cxios_get_filegroup_par_access &
725      (filegroup_hdl%daddr, par_access_, len(par_access_))
[369]726      ENDIF
[581]727
[2616]728      IF (PRESENT(pool_gatherer_)) THEN
729        CALL cxios_get_filegroup_pool_gatherer &
730      (filegroup_hdl%daddr, pool_gatherer_, len(pool_gatherer_))
731      ENDIF
732
733      IF (PRESENT(pool_reader_)) THEN
734        CALL cxios_get_filegroup_pool_reader &
735      (filegroup_hdl%daddr, pool_reader_, len(pool_reader_))
736      ENDIF
737
738      IF (PRESENT(pool_writer_)) THEN
739        CALL cxios_get_filegroup_pool_writer &
740      (filegroup_hdl%daddr, pool_writer_, len(pool_writer_))
741      ENDIF
742
[1492]743      IF (PRESENT(read_metadata_par_)) THEN
744        CALL cxios_get_filegroup_read_metadata_par &
745      (filegroup_hdl%daddr, read_metadata_par__tmp)
[2620]746        CALL xios_bool_to_logical_0d(read_metadata_par__tmp)
[1492]747        read_metadata_par_ = read_metadata_par__tmp
748      ENDIF
749
[2616]750      IF (PRESENT(reader_)) THEN
751        CALL cxios_get_filegroup_reader &
752      (filegroup_hdl%daddr, reader_, len(reader_))
753      ENDIF
754
[779]755      IF (PRESENT(record_offset_)) THEN
[966]756        CALL cxios_get_filegroup_record_offset &
757      (filegroup_hdl%daddr, record_offset_)
[779]758      ENDIF
759
[1492]760      IF (PRESENT(split_end_offset_)) THEN
761        CALL cxios_get_filegroup_split_end_offset &
762      (filegroup_hdl%daddr, split_end_offset_)
763      ENDIF
764
[326]765      IF (PRESENT(split_freq_)) THEN
[966]766        CALL cxios_get_filegroup_split_freq &
767      (filegroup_hdl%daddr, split_freq_)
[326]768      ENDIF
[581]769
[432]770      IF (PRESENT(split_freq_format_)) THEN
[966]771        CALL cxios_get_filegroup_split_freq_format &
772      (filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]773      ENDIF
[581]774
[1492]775      IF (PRESENT(split_last_date_)) THEN
776        CALL cxios_get_filegroup_split_last_date &
777      (filegroup_hdl%daddr, split_last_date_, len(split_last_date_))
778      ENDIF
779
780      IF (PRESENT(split_start_offset_)) THEN
781        CALL cxios_get_filegroup_split_start_offset &
782      (filegroup_hdl%daddr, split_start_offset_)
783      ENDIF
784
[326]785      IF (PRESENT(sync_freq_)) THEN
[966]786        CALL cxios_get_filegroup_sync_freq &
787      (filegroup_hdl%daddr, sync_freq_)
[326]788      ENDIF
[581]789
[699]790      IF (PRESENT(time_counter_)) THEN
[966]791        CALL cxios_get_filegroup_time_counter &
792      (filegroup_hdl%daddr, time_counter_, len(time_counter_))
[699]793      ENDIF
794
[802]795      IF (PRESENT(time_counter_name_)) THEN
[966]796        CALL cxios_get_filegroup_time_counter_name &
797      (filegroup_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]798      ENDIF
799
[1158]800      IF (PRESENT(time_stamp_format_)) THEN
801        CALL cxios_get_filegroup_time_stamp_format &
802      (filegroup_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
803      ENDIF
804
805      IF (PRESENT(time_stamp_name_)) THEN
806        CALL cxios_get_filegroup_time_stamp_name &
807      (filegroup_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
808      ENDIF
809
810      IF (PRESENT(time_units_)) THEN
811        CALL cxios_get_filegroup_time_units &
812      (filegroup_hdl%daddr, time_units_, len(time_units_))
813      ENDIF
814
[711]815      IF (PRESENT(timeseries_)) THEN
[966]816        CALL cxios_get_filegroup_timeseries &
817      (filegroup_hdl%daddr, timeseries_, len(timeseries_))
[711]818      ENDIF
819
820      IF (PRESENT(ts_prefix_)) THEN
[966]821        CALL cxios_get_filegroup_ts_prefix &
822      (filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]823      ENDIF
824
[326]825      IF (PRESENT(type_)) THEN
[966]826        CALL cxios_get_filegroup_type &
827      (filegroup_hdl%daddr, type_, len(type_))
[326]828      ENDIF
[581]829
[2616]830      IF (PRESENT(using_server2_)) THEN
831        CALL cxios_get_filegroup_using_server2 &
832      (filegroup_hdl%daddr, using_server2__tmp)
[2620]833        CALL xios_bool_to_logical_0d(using_server2__tmp)
[2616]834        using_server2_ = using_server2__tmp
835      ENDIF
836
[1158]837      IF (PRESENT(uuid_format_)) THEN
838        CALL cxios_get_filegroup_uuid_format &
839      (filegroup_hdl%daddr, uuid_format_, len(uuid_format_))
840      ENDIF
841
842      IF (PRESENT(uuid_name_)) THEN
843        CALL cxios_get_filegroup_uuid_name &
844      (filegroup_hdl%daddr, uuid_name_, len(uuid_name_))
845      ENDIF
846
[2616]847      IF (PRESENT(writer_)) THEN
848        CALL cxios_get_filegroup_writer &
849      (filegroup_hdl%daddr, writer_, len(writer_))
850      ENDIF
851
[326]852  END SUBROUTINE xios(get_filegroup_attr_hdl_)
[581]853
[432]854  SUBROUTINE xios(is_defined_filegroup_attr)  &
[1492]855    ( filegroup_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]856    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
857    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
858    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
859    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
860    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]861
[432]862    IMPLICIT NONE
863      TYPE(txios(filegroup))  :: filegroup_hdl
864      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
[528]865      LOGICAL, OPTIONAL, INTENT(OUT) :: append
866      LOGICAL(KIND=C_BOOL) :: append_tmp
[1492]867      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
868      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]869      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
870      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]871      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
872      LOGICAL(KIND=C_BOOL) :: convention_tmp
[1201]873      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
874      LOGICAL(KIND=C_BOOL) :: convention_str_tmp
[891]875      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
876      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]877      LOGICAL, OPTIONAL, INTENT(OUT) :: description
878      LOGICAL(KIND=C_BOOL) :: description_tmp
879      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
880      LOGICAL(KIND=C_BOOL) :: enabled_tmp
[517]881      LOGICAL, OPTIONAL, INTENT(OUT) :: format
882      LOGICAL(KIND=C_BOOL) :: format_tmp
[2616]883      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer
884      LOGICAL(KIND=C_BOOL) :: gatherer_tmp
[432]885      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
886      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
887      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
888      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]889      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
890      LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]891      LOGICAL, OPTIONAL, INTENT(OUT) :: name
892      LOGICAL(KIND=C_BOOL) :: name_tmp
893      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
894      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
895      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
896      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
897      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
898      LOGICAL(KIND=C_BOOL) :: output_level_tmp
899      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
900      LOGICAL(KIND=C_BOOL) :: par_access_tmp
[2616]901      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer
902      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp
903      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader
904      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp
905      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer
906      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp
[1492]907      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par
908      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp
[2616]909      LOGICAL, OPTIONAL, INTENT(OUT) :: reader
910      LOGICAL(KIND=C_BOOL) :: reader_tmp
[779]911      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
912      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[1492]913      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset
914      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp
[432]915      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
916      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
917      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
918      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
[1492]919      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date
920      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp
921      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset
922      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp
[432]923      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
924      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
[699]925      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
926      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]927      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
928      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[1158]929      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
930      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
931      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
932      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
933      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
934      LOGICAL(KIND=C_BOOL) :: time_units_tmp
[711]935      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
936      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
937      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
938      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
[432]939      LOGICAL, OPTIONAL, INTENT(OUT) :: type
940      LOGICAL(KIND=C_BOOL) :: type_tmp
[2616]941      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2
942      LOGICAL(KIND=C_BOOL) :: using_server2_tmp
[1158]943      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
944      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
945      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
946      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
[2616]947      LOGICAL, OPTIONAL, INTENT(OUT) :: writer
948      LOGICAL(KIND=C_BOOL) :: writer_tmp
[581]949
[966]950      CALL xios(get_filegroup_handle) &
951      (filegroup_id,filegroup_hdl)
[432]952      CALL xios(is_defined_filegroup_attr_hdl_)   &
[1492]953      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]954      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
955      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
956      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
957      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
958      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]959
[432]960  END SUBROUTINE xios(is_defined_filegroup_attr)
[581]961
[432]962  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  &
[1492]963    ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]964    , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
965    , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
966    , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
967    , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
968    , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]969
[432]970    IMPLICIT NONE
971      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
[528]972      LOGICAL, OPTIONAL, INTENT(OUT) :: append
973      LOGICAL(KIND=C_BOOL) :: append_tmp
[1492]974      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
975      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]976      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
977      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]978      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
979      LOGICAL(KIND=C_BOOL) :: convention_tmp
[1201]980      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
981      LOGICAL(KIND=C_BOOL) :: convention_str_tmp
[891]982      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
983      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]984      LOGICAL, OPTIONAL, INTENT(OUT) :: description
985      LOGICAL(KIND=C_BOOL) :: description_tmp
986      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
987      LOGICAL(KIND=C_BOOL) :: enabled_tmp
[517]988      LOGICAL, OPTIONAL, INTENT(OUT) :: format
989      LOGICAL(KIND=C_BOOL) :: format_tmp
[2616]990      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer
991      LOGICAL(KIND=C_BOOL) :: gatherer_tmp
[432]992      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
993      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
994      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
995      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]996      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
997      LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]998      LOGICAL, OPTIONAL, INTENT(OUT) :: name
999      LOGICAL(KIND=C_BOOL) :: name_tmp
1000      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
1001      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
1002      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
1003      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
1004      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
1005      LOGICAL(KIND=C_BOOL) :: output_level_tmp
1006      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
1007      LOGICAL(KIND=C_BOOL) :: par_access_tmp
[2616]1008      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer
1009      LOGICAL(KIND=C_BOOL) :: pool_gatherer_tmp
1010      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader
1011      LOGICAL(KIND=C_BOOL) :: pool_reader_tmp
1012      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer
1013      LOGICAL(KIND=C_BOOL) :: pool_writer_tmp
[1492]1014      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par
1015      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp
[2616]1016      LOGICAL, OPTIONAL, INTENT(OUT) :: reader
1017      LOGICAL(KIND=C_BOOL) :: reader_tmp
[779]1018      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
1019      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[1492]1020      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset
1021      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp
[432]1022      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
1023      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
1024      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
1025      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
[1492]1026      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date
1027      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp
1028      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset
1029      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp
[432]1030      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
1031      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
[699]1032      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
1033      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]1034      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
1035      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[1158]1036      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
1037      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
1038      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
1039      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
1040      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
1041      LOGICAL(KIND=C_BOOL) :: time_units_tmp
[711]1042      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
1043      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
1044      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
1045      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
[432]1046      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1047      LOGICAL(KIND=C_BOOL) :: type_tmp
[2616]1048      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2
1049      LOGICAL(KIND=C_BOOL) :: using_server2_tmp
[1158]1050      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
1051      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
1052      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
1053      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
[2616]1054      LOGICAL, OPTIONAL, INTENT(OUT) :: writer
1055      LOGICAL(KIND=C_BOOL) :: writer_tmp
[581]1056
[432]1057      CALL xios(is_defined_filegroup_attr_hdl_)  &
[1492]1058      ( filegroup_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
[2616]1059      , enabled, format, gatherer, group_ref, min_digits, mode, name, name_suffix, output_freq, output_level  &
1060      , par_access, pool_gatherer, pool_reader, pool_writer, read_metadata_par, reader, record_offset  &
1061      , split_end_offset, split_freq, split_freq_format, split_last_date, split_start_offset, sync_freq  &
1062      , time_counter, time_counter_name, time_stamp_format, time_stamp_name, time_units, timeseries  &
1063      , ts_prefix, type, using_server2, uuid_format, uuid_name, writer )
[581]1064
[432]1065  END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
[581]1066
[432]1067  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   &
[1492]1068    ( filegroup_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_  &
[2616]1069    , description_, enabled_, format_, gatherer_, group_ref_, min_digits_, mode_, name_, name_suffix_  &
1070    , output_freq_, output_level_, par_access_, pool_gatherer_, pool_reader_, pool_writer_, read_metadata_par_  &
1071    , reader_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
1072    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
1073    , time_units_, timeseries_, ts_prefix_, type_, using_server2_, uuid_format_, uuid_name_, writer_  &
1074     )
[581]1075
[432]1076    IMPLICIT NONE
1077      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
[528]1078      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
1079      LOGICAL(KIND=C_BOOL) :: append__tmp
[1492]1080      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1081      LOGICAL(KIND=C_BOOL) :: comment__tmp
[608]1082      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
1083      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[932]1084      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_
1085      LOGICAL(KIND=C_BOOL) :: convention__tmp
[1201]1086      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str_
1087      LOGICAL(KIND=C_BOOL) :: convention_str__tmp
[891]1088      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_
1089      LOGICAL(KIND=C_BOOL) :: cyclic__tmp
[432]1090      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
1091      LOGICAL(KIND=C_BOOL) :: description__tmp
1092      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
1093      LOGICAL(KIND=C_BOOL) :: enabled__tmp
[517]1094      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
1095      LOGICAL(KIND=C_BOOL) :: format__tmp
[2616]1096      LOGICAL, OPTIONAL, INTENT(OUT) :: gatherer_
1097      LOGICAL(KIND=C_BOOL) :: gatherer__tmp
[432]1098      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
1099      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
1100      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
1101      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
[598]1102      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
1103      LOGICAL(KIND=C_BOOL) :: mode__tmp
[432]1104      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1105      LOGICAL(KIND=C_BOOL) :: name__tmp
1106      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
1107      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
1108      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
1109      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
1110      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
1111      LOGICAL(KIND=C_BOOL) :: output_level__tmp
1112      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
1113      LOGICAL(KIND=C_BOOL) :: par_access__tmp
[2616]1114      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_gatherer_
1115      LOGICAL(KIND=C_BOOL) :: pool_gatherer__tmp
1116      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_reader_
1117      LOGICAL(KIND=C_BOOL) :: pool_reader__tmp
1118      LOGICAL, OPTIONAL, INTENT(OUT) :: pool_writer_
1119      LOGICAL(KIND=C_BOOL) :: pool_writer__tmp
[1492]1120      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_
1121      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp
[2616]1122      LOGICAL, OPTIONAL, INTENT(OUT) :: reader_
1123      LOGICAL(KIND=C_BOOL) :: reader__tmp
[779]1124      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
1125      LOGICAL(KIND=C_BOOL) :: record_offset__tmp
[1492]1126      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_
1127      LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp
[432]1128      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
1129      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
1130      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
1131      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
[1492]1132      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_
1133      LOGICAL(KIND=C_BOOL) :: split_last_date__tmp
1134      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_
1135      LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp
[432]1136      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
1137      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
[699]1138      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
1139      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
[802]1140      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
1141      LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
[1158]1142      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_
1143      LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp
1144      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_
1145      LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp
1146      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_
1147      LOGICAL(KIND=C_BOOL) :: time_units__tmp
[711]1148      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
1149      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
1150      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
1151      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
[432]1152      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1153      LOGICAL(KIND=C_BOOL) :: type__tmp
[2616]1154      LOGICAL, OPTIONAL, INTENT(OUT) :: using_server2_
1155      LOGICAL(KIND=C_BOOL) :: using_server2__tmp
[1158]1156      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_
1157      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp
1158      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_
1159      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp
[2616]1160      LOGICAL, OPTIONAL, INTENT(OUT) :: writer_
1161      LOGICAL(KIND=C_BOOL) :: writer__tmp
[581]1162
[528]1163      IF (PRESENT(append_)) THEN
[966]1164        append__tmp = cxios_is_defined_filegroup_append &
1165      (filegroup_hdl%daddr)
[581]1166        append_ = append__tmp
[528]1167      ENDIF
[581]1168
[1492]1169      IF (PRESENT(comment_)) THEN
1170        comment__tmp = cxios_is_defined_filegroup_comment &
1171      (filegroup_hdl%daddr)
1172        comment_ = comment__tmp
1173      ENDIF
1174
[608]1175      IF (PRESENT(compression_level_)) THEN
[966]1176        compression_level__tmp = cxios_is_defined_filegroup_compression_level &
1177      (filegroup_hdl%daddr)
[608]1178        compression_level_ = compression_level__tmp
1179      ENDIF
1180
[932]1181      IF (PRESENT(convention_)) THEN
[966]1182        convention__tmp = cxios_is_defined_filegroup_convention &
1183      (filegroup_hdl%daddr)
[932]1184        convention_ = convention__tmp
1185      ENDIF
1186
[1201]1187      IF (PRESENT(convention_str_)) THEN
1188        convention_str__tmp = cxios_is_defined_filegroup_convention_str &
1189      (filegroup_hdl%daddr)
1190        convention_str_ = convention_str__tmp
1191      ENDIF
1192
[891]1193      IF (PRESENT(cyclic_)) THEN
[966]1194        cyclic__tmp = cxios_is_defined_filegroup_cyclic &
1195      (filegroup_hdl%daddr)
[891]1196        cyclic_ = cyclic__tmp
1197      ENDIF
1198
[432]1199      IF (PRESENT(description_)) THEN
[966]1200        description__tmp = cxios_is_defined_filegroup_description &
1201      (filegroup_hdl%daddr)
[581]1202        description_ = description__tmp
[432]1203      ENDIF
[581]1204
[432]1205      IF (PRESENT(enabled_)) THEN
[966]1206        enabled__tmp = cxios_is_defined_filegroup_enabled &
1207      (filegroup_hdl%daddr)
[581]1208        enabled_ = enabled__tmp
[432]1209      ENDIF
[581]1210
[517]1211      IF (PRESENT(format_)) THEN
[966]1212        format__tmp = cxios_is_defined_filegroup_format &
1213      (filegroup_hdl%daddr)
[581]1214        format_ = format__tmp
[517]1215      ENDIF
[581]1216
[2616]1217      IF (PRESENT(gatherer_)) THEN
1218        gatherer__tmp = cxios_is_defined_filegroup_gatherer &
1219      (filegroup_hdl%daddr)
1220        gatherer_ = gatherer__tmp
1221      ENDIF
1222
[432]1223      IF (PRESENT(group_ref_)) THEN
[966]1224        group_ref__tmp = cxios_is_defined_filegroup_group_ref &
1225      (filegroup_hdl%daddr)
[581]1226        group_ref_ = group_ref__tmp
[432]1227      ENDIF
[581]1228
[432]1229      IF (PRESENT(min_digits_)) THEN
[966]1230        min_digits__tmp = cxios_is_defined_filegroup_min_digits &
1231      (filegroup_hdl%daddr)
[581]1232        min_digits_ = min_digits__tmp
[432]1233      ENDIF
[581]1234
[598]1235      IF (PRESENT(mode_)) THEN
[966]1236        mode__tmp = cxios_is_defined_filegroup_mode &
1237      (filegroup_hdl%daddr)
[598]1238        mode_ = mode__tmp
1239      ENDIF
1240
[432]1241      IF (PRESENT(name_)) THEN
[966]1242        name__tmp = cxios_is_defined_filegroup_name &
1243      (filegroup_hdl%daddr)
[581]1244        name_ = name__tmp
[432]1245      ENDIF
[581]1246
[432]1247      IF (PRESENT(name_suffix_)) THEN
[966]1248        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix &
1249      (filegroup_hdl%daddr)
[581]1250        name_suffix_ = name_suffix__tmp
[432]1251      ENDIF
[581]1252
[432]1253      IF (PRESENT(output_freq_)) THEN
[966]1254        output_freq__tmp = cxios_is_defined_filegroup_output_freq &
1255      (filegroup_hdl%daddr)
[581]1256        output_freq_ = output_freq__tmp
[432]1257      ENDIF
[581]1258
[432]1259      IF (PRESENT(output_level_)) THEN
[966]1260        output_level__tmp = cxios_is_defined_filegroup_output_level &
1261      (filegroup_hdl%daddr)
[581]1262        output_level_ = output_level__tmp
[432]1263      ENDIF
[581]1264
[432]1265      IF (PRESENT(par_access_)) THEN
[966]1266        par_access__tmp = cxios_is_defined_filegroup_par_access &
1267      (filegroup_hdl%daddr)
[581]1268        par_access_ = par_access__tmp
[432]1269      ENDIF
[581]1270
[2616]1271      IF (PRESENT(pool_gatherer_)) THEN
1272        pool_gatherer__tmp = cxios_is_defined_filegroup_pool_gatherer &
1273      (filegroup_hdl%daddr)
1274        pool_gatherer_ = pool_gatherer__tmp
1275      ENDIF
1276
1277      IF (PRESENT(pool_reader_)) THEN
1278        pool_reader__tmp = cxios_is_defined_filegroup_pool_reader &
1279      (filegroup_hdl%daddr)
1280        pool_reader_ = pool_reader__tmp
1281      ENDIF
1282
1283      IF (PRESENT(pool_writer_)) THEN
1284        pool_writer__tmp = cxios_is_defined_filegroup_pool_writer &
1285      (filegroup_hdl%daddr)
1286        pool_writer_ = pool_writer__tmp
1287      ENDIF
1288
[1492]1289      IF (PRESENT(read_metadata_par_)) THEN
1290        read_metadata_par__tmp = cxios_is_defined_filegroup_read_metadata_par &
1291      (filegroup_hdl%daddr)
1292        read_metadata_par_ = read_metadata_par__tmp
1293      ENDIF
1294
[2616]1295      IF (PRESENT(reader_)) THEN
1296        reader__tmp = cxios_is_defined_filegroup_reader &
1297      (filegroup_hdl%daddr)
1298        reader_ = reader__tmp
1299      ENDIF
1300
[779]1301      IF (PRESENT(record_offset_)) THEN
[966]1302        record_offset__tmp = cxios_is_defined_filegroup_record_offset &
1303      (filegroup_hdl%daddr)
[779]1304        record_offset_ = record_offset__tmp
1305      ENDIF
1306
[1492]1307      IF (PRESENT(split_end_offset_)) THEN
1308        split_end_offset__tmp = cxios_is_defined_filegroup_split_end_offset &
1309      (filegroup_hdl%daddr)
1310        split_end_offset_ = split_end_offset__tmp
1311      ENDIF
1312
[432]1313      IF (PRESENT(split_freq_)) THEN
[966]1314        split_freq__tmp = cxios_is_defined_filegroup_split_freq &
1315      (filegroup_hdl%daddr)
[581]1316        split_freq_ = split_freq__tmp
[432]1317      ENDIF
[581]1318
[432]1319      IF (PRESENT(split_freq_format_)) THEN
[966]1320        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format &
1321      (filegroup_hdl%daddr)
[581]1322        split_freq_format_ = split_freq_format__tmp
[432]1323      ENDIF
[581]1324
[1492]1325      IF (PRESENT(split_last_date_)) THEN
1326        split_last_date__tmp = cxios_is_defined_filegroup_split_last_date &
1327      (filegroup_hdl%daddr)
1328        split_last_date_ = split_last_date__tmp
1329      ENDIF
1330
1331      IF (PRESENT(split_start_offset_)) THEN
1332        split_start_offset__tmp = cxios_is_defined_filegroup_split_start_offset &
1333      (filegroup_hdl%daddr)
1334        split_start_offset_ = split_start_offset__tmp
1335      ENDIF
1336
[432]1337      IF (PRESENT(sync_freq_)) THEN
[966]1338        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq &
1339      (filegroup_hdl%daddr)
[581]1340        sync_freq_ = sync_freq__tmp
[432]1341      ENDIF
[581]1342
[699]1343      IF (PRESENT(time_counter_)) THEN
[966]1344        time_counter__tmp = cxios_is_defined_filegroup_time_counter &
1345      (filegroup_hdl%daddr)
[699]1346        time_counter_ = time_counter__tmp
1347      ENDIF
1348
[802]1349      IF (PRESENT(time_counter_name_)) THEN
[966]1350        time_counter_name__tmp = cxios_is_defined_filegroup_time_counter_name &
1351      (filegroup_hdl%daddr)
[802]1352        time_counter_name_ = time_counter_name__tmp
1353      ENDIF
1354
[1158]1355      IF (PRESENT(time_stamp_format_)) THEN
1356        time_stamp_format__tmp = cxios_is_defined_filegroup_time_stamp_format &
1357      (filegroup_hdl%daddr)
1358        time_stamp_format_ = time_stamp_format__tmp
1359      ENDIF
1360
1361      IF (PRESENT(time_stamp_name_)) THEN
1362        time_stamp_name__tmp = cxios_is_defined_filegroup_time_stamp_name &
1363      (filegroup_hdl%daddr)
1364        time_stamp_name_ = time_stamp_name__tmp
1365      ENDIF
1366
1367      IF (PRESENT(time_units_)) THEN
1368        time_units__tmp = cxios_is_defined_filegroup_time_units &
1369      (filegroup_hdl%daddr)
1370        time_units_ = time_units__tmp
1371      ENDIF
1372
[711]1373      IF (PRESENT(timeseries_)) THEN
[966]1374        timeseries__tmp = cxios_is_defined_filegroup_timeseries &
1375      (filegroup_hdl%daddr)
[711]1376        timeseries_ = timeseries__tmp
1377      ENDIF
1378
1379      IF (PRESENT(ts_prefix_)) THEN
[966]1380        ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix &
1381      (filegroup_hdl%daddr)
[711]1382        ts_prefix_ = ts_prefix__tmp
1383      ENDIF
1384
[432]1385      IF (PRESENT(type_)) THEN
[966]1386        type__tmp = cxios_is_defined_filegroup_type &
1387      (filegroup_hdl%daddr)
[581]1388        type_ = type__tmp
[432]1389      ENDIF
[581]1390
[2616]1391      IF (PRESENT(using_server2_)) THEN
1392        using_server2__tmp = cxios_is_defined_filegroup_using_server2 &
1393      (filegroup_hdl%daddr)
1394        using_server2_ = using_server2__tmp
1395      ENDIF
1396
[1158]1397      IF (PRESENT(uuid_format_)) THEN
1398        uuid_format__tmp = cxios_is_defined_filegroup_uuid_format &
1399      (filegroup_hdl%daddr)
1400        uuid_format_ = uuid_format__tmp
1401      ENDIF
1402
1403      IF (PRESENT(uuid_name_)) THEN
1404        uuid_name__tmp = cxios_is_defined_filegroup_uuid_name &
1405      (filegroup_hdl%daddr)
1406        uuid_name_ = uuid_name__tmp
1407      ENDIF
1408
[2616]1409      IF (PRESENT(writer_)) THEN
1410        writer__tmp = cxios_is_defined_filegroup_writer &
1411      (filegroup_hdl%daddr)
1412        writer_ = writer__tmp
1413      ENDIF
1414
[432]1415  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
[581]1416
[326]1417END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.