source: XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90 @ 1052

Last change on this file since 1052 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

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