source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/ifilegroup_attr.F90 @ 1205

Last change on this file since 1205 was 1205, checked in by yushan, 7 years ago

branch merged with trunk @1200

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