source: XIOS2/trunk/src/interface/fortran_attr/ifilegroup_attr.F90

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