source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifile_attr.F90 @ 1542

Last change on this file since 1542 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 48.5 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifile_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE file_interface_attr
[581]10
[326]11CONTAINS
[581]12
[326]13  SUBROUTINE xios(set_file_attr)  &
[1492]14    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
15    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
16    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
17    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
18    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]19
[326]20    IMPLICIT NONE
21      TYPE(txios(file))  :: file_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]23      LOGICAL  , OPTIONAL, INTENT(IN) :: append
24      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]26      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[932]27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
[1201]28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
[891]29      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
30      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
32      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
33      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[415]35      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
[598]36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]39      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
[326]40      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
[369]41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[1492]42      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
43      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[779]44      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
[1492]45      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset
[538]46      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
[432]47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[1492]48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
49      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset
[538]50      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
[699]51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[1158]53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
[711]56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[1158]59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
[581]61
[966]62      CALL xios(get_file_handle) &
63      (file_id,file_hdl)
[326]64      CALL xios(set_file_attr_hdl_)   &
[1492]65      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
66      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
67      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
68      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
69      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]70
[326]71  END SUBROUTINE xios(set_file_attr)
[581]72
[326]73  SUBROUTINE xios(set_file_attr_hdl)  &
[1492]74    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
75    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
76    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
77    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
78    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]79
[326]80    IMPLICIT NONE
81      TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]82      LOGICAL  , OPTIONAL, INTENT(IN) :: append
83      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]85      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[932]86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention
[1201]87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str
[891]88      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic
89      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
91      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
92      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
[415]94      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
[598]95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[326]96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
[538]98      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
[326]99      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
[369]100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
[1492]101      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par
102      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[779]103      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
[1492]104      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset
[538]105      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
[432]106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
[1492]107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date
108      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset
[538]109      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
[699]110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
[802]111      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
[1158]112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units
[711]115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
[326]117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[1158]118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format
119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name
[581]120
[326]121      CALL xios(set_file_attr_hdl_)  &
[1492]122      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
123      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
124      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
125      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
126      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]127
[326]128  END SUBROUTINE xios(set_file_attr_hdl)
[581]129
[326]130  SUBROUTINE xios(set_file_attr_hdl_)   &
[1492]131    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  &
[1201]132    , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  &
[1492]133    , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
134    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
135    , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ )
[581]136
[326]137    IMPLICIT NONE
138      TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]139      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
140      LOGICAL (KIND=C_BOOL) :: append__tmp
[1492]141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[608]142      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
[932]143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_
[1201]144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: convention_str_
[891]145      LOGICAL  , OPTIONAL, INTENT(IN) :: cyclic_
146      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
148      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
149      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
[415]151      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
[598]152      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
[326]153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
154      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
[538]155      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
[326]156      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
[369]157      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
[1492]158      LOGICAL  , OPTIONAL, INTENT(IN) :: read_metadata_par_
159      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp
[779]160      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_
[1492]161      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_end_offset_
[538]162      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
[432]163      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
[1492]164      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_last_date_
165      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_start_offset_
[538]166      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
[699]167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
[802]168      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
[1158]169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_format_
170      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_stamp_name_
171      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_units_
[711]172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
173      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
[326]174      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[1158]175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_format_
176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: uuid_name_
[581]177
[528]178      IF (PRESENT(append_)) THEN
[581]179        append__tmp = append_
[966]180        CALL cxios_set_file_append &
181      (file_hdl%daddr, append__tmp)
[528]182      ENDIF
[581]183
[1492]184      IF (PRESENT(comment_)) THEN
185        CALL cxios_set_file_comment &
186      (file_hdl%daddr, comment_, len(comment_))
187      ENDIF
188
[608]189      IF (PRESENT(compression_level_)) THEN
[966]190        CALL cxios_set_file_compression_level &
191      (file_hdl%daddr, compression_level_)
[608]192      ENDIF
193
[932]194      IF (PRESENT(convention_)) THEN
[966]195        CALL cxios_set_file_convention &
196      (file_hdl%daddr, convention_, len(convention_))
[932]197      ENDIF
198
[1201]199      IF (PRESENT(convention_str_)) THEN
200        CALL cxios_set_file_convention_str &
201      (file_hdl%daddr, convention_str_, len(convention_str_))
202      ENDIF
203
[891]204      IF (PRESENT(cyclic_)) THEN
205        cyclic__tmp = cyclic_
[966]206        CALL cxios_set_file_cyclic &
207      (file_hdl%daddr, cyclic__tmp)
[891]208      ENDIF
209
[326]210      IF (PRESENT(description_)) THEN
[966]211        CALL cxios_set_file_description &
212      (file_hdl%daddr, description_, len(description_))
[326]213      ENDIF
[581]214
[326]215      IF (PRESENT(enabled_)) THEN
[581]216        enabled__tmp = enabled_
[966]217        CALL cxios_set_file_enabled &
218      (file_hdl%daddr, enabled__tmp)
[326]219      ENDIF
[581]220
[517]221      IF (PRESENT(format_)) THEN
[966]222        CALL cxios_set_file_format &
223      (file_hdl%daddr, format_, len(format_))
[517]224      ENDIF
[581]225
[415]226      IF (PRESENT(min_digits_)) THEN
[966]227        CALL cxios_set_file_min_digits &
228      (file_hdl%daddr, min_digits_)
[415]229      ENDIF
[581]230
[598]231      IF (PRESENT(mode_)) THEN
[966]232        CALL cxios_set_file_mode &
233      (file_hdl%daddr, mode_, len(mode_))
[598]234      ENDIF
235
[326]236      IF (PRESENT(name_)) THEN
[966]237        CALL cxios_set_file_name &
238      (file_hdl%daddr, name_, len(name_))
[326]239      ENDIF
[581]240
[326]241      IF (PRESENT(name_suffix_)) THEN
[966]242        CALL cxios_set_file_name_suffix &
243      (file_hdl%daddr, name_suffix_, len(name_suffix_))
[326]244      ENDIF
[581]245
[326]246      IF (PRESENT(output_freq_)) THEN
[966]247        CALL cxios_set_file_output_freq &
248      (file_hdl%daddr, output_freq_)
[326]249      ENDIF
[581]250
[326]251      IF (PRESENT(output_level_)) THEN
[966]252        CALL cxios_set_file_output_level &
253      (file_hdl%daddr, output_level_)
[326]254      ENDIF
[581]255
[369]256      IF (PRESENT(par_access_)) THEN
[966]257        CALL cxios_set_file_par_access &
258      (file_hdl%daddr, par_access_, len(par_access_))
[369]259      ENDIF
[581]260
[1492]261      IF (PRESENT(read_metadata_par_)) THEN
262        read_metadata_par__tmp = read_metadata_par_
263        CALL cxios_set_file_read_metadata_par &
264      (file_hdl%daddr, read_metadata_par__tmp)
265      ENDIF
266
[779]267      IF (PRESENT(record_offset_)) THEN
[966]268        CALL cxios_set_file_record_offset &
269      (file_hdl%daddr, record_offset_)
[779]270      ENDIF
271
[1492]272      IF (PRESENT(split_end_offset_)) THEN
273        CALL cxios_set_file_split_end_offset &
274      (file_hdl%daddr, split_end_offset_)
275      ENDIF
276
[326]277      IF (PRESENT(split_freq_)) THEN
[966]278        CALL cxios_set_file_split_freq &
279      (file_hdl%daddr, split_freq_)
[326]280      ENDIF
[581]281
[432]282      IF (PRESENT(split_freq_format_)) THEN
[966]283        CALL cxios_set_file_split_freq_format &
284      (file_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]285      ENDIF
[581]286
[1492]287      IF (PRESENT(split_last_date_)) THEN
288        CALL cxios_set_file_split_last_date &
289      (file_hdl%daddr, split_last_date_, len(split_last_date_))
290      ENDIF
291
292      IF (PRESENT(split_start_offset_)) THEN
293        CALL cxios_set_file_split_start_offset &
294      (file_hdl%daddr, split_start_offset_)
295      ENDIF
296
[326]297      IF (PRESENT(sync_freq_)) THEN
[966]298        CALL cxios_set_file_sync_freq &
299      (file_hdl%daddr, sync_freq_)
[326]300      ENDIF
[581]301
[699]302      IF (PRESENT(time_counter_)) THEN
[966]303        CALL cxios_set_file_time_counter &
304      (file_hdl%daddr, time_counter_, len(time_counter_))
[699]305      ENDIF
306
[802]307      IF (PRESENT(time_counter_name_)) THEN
[966]308        CALL cxios_set_file_time_counter_name &
309      (file_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]310      ENDIF
311
[1158]312      IF (PRESENT(time_stamp_format_)) THEN
313        CALL cxios_set_file_time_stamp_format &
314      (file_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
315      ENDIF
316
317      IF (PRESENT(time_stamp_name_)) THEN
318        CALL cxios_set_file_time_stamp_name &
319      (file_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
320      ENDIF
321
322      IF (PRESENT(time_units_)) THEN
323        CALL cxios_set_file_time_units &
324      (file_hdl%daddr, time_units_, len(time_units_))
325      ENDIF
326
[711]327      IF (PRESENT(timeseries_)) THEN
[966]328        CALL cxios_set_file_timeseries &
329      (file_hdl%daddr, timeseries_, len(timeseries_))
[711]330      ENDIF
331
332      IF (PRESENT(ts_prefix_)) THEN
[966]333        CALL cxios_set_file_ts_prefix &
334      (file_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]335      ENDIF
336
[326]337      IF (PRESENT(type_)) THEN
[966]338        CALL cxios_set_file_type &
339      (file_hdl%daddr, type_, len(type_))
[326]340      ENDIF
[581]341
[1158]342      IF (PRESENT(uuid_format_)) THEN
343        CALL cxios_set_file_uuid_format &
344      (file_hdl%daddr, uuid_format_, len(uuid_format_))
345      ENDIF
346
347      IF (PRESENT(uuid_name_)) THEN
348        CALL cxios_set_file_uuid_name &
349      (file_hdl%daddr, uuid_name_, len(uuid_name_))
350      ENDIF
351
[326]352  END SUBROUTINE xios(set_file_attr_hdl_)
[581]353
[326]354  SUBROUTINE xios(get_file_attr)  &
[1492]355    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
356    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
357    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
358    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
359    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]360
[326]361    IMPLICIT NONE
362      TYPE(txios(file))  :: file_hdl
363      CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]364      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
365      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]367      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[932]368      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[1201]369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
[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
[415]376      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
[598]377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]378      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
379      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]380      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
[326]381      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
[369]382      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[1492]383      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par
384      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[779]385      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
[1492]386      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset
[538]387      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
[432]388      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[1492]389      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date
390      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset
[538]391      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
[699]392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]393      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[1158]394      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
395      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
[711]397      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
398      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]399      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[1158]400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
401      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
[581]402
[966]403      CALL xios(get_file_handle) &
404      (file_id,file_hdl)
[326]405      CALL xios(get_file_attr_hdl_)   &
[1492]406      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
407      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
408      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
409      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
410      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]411
[326]412  END SUBROUTINE xios(get_file_attr)
[581]413
[326]414  SUBROUTINE xios(get_file_attr_hdl)  &
[1492]415    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
416    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
417    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
418    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
419    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]420
[326]421    IMPLICIT NONE
422      TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]423      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
424      LOGICAL (KIND=C_BOOL) :: append_tmp
[1492]425      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]426      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[932]427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention
[1201]428      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str
[891]429      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic
430      LOGICAL (KIND=C_BOOL) :: cyclic_tmp
[326]431      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
432      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
433      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[517]434      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
[415]435      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
[598]436      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[326]437      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
438      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
[538]439      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
[326]440      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
[369]441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
[1492]442      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par
443      LOGICAL (KIND=C_BOOL) :: read_metadata_par_tmp
[779]444      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
[1492]445      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset
[538]446      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
[432]447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
[1492]448      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date
449      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset
[538]450      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
[699]451      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
[802]452      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
[1158]453      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format
454      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name
455      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units
[711]456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
[326]458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[1158]459      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format
460      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name
[581]461
[326]462      CALL xios(get_file_attr_hdl_)  &
[1492]463      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
464      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
465      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
466      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
467      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]468
[326]469  END SUBROUTINE xios(get_file_attr_hdl)
[581]470
[326]471  SUBROUTINE xios(get_file_attr_hdl_)   &
[1492]472    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  &
[1201]473    , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  &
[1492]474    , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
475    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
476    , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ )
[581]477
[326]478    IMPLICIT NONE
479      TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]480      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
481      LOGICAL (KIND=C_BOOL) :: append__tmp
[1492]482      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[608]483      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
[932]484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_
[1201]485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: convention_str_
[891]486      LOGICAL  , OPTIONAL, INTENT(OUT) :: cyclic_
487      LOGICAL (KIND=C_BOOL) :: cyclic__tmp
[326]488      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
489      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
490      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[517]491      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
[415]492      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
[598]493      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
[326]494      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
495      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
[538]496      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
[326]497      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
[369]498      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
[1492]499      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_metadata_par_
500      LOGICAL (KIND=C_BOOL) :: read_metadata_par__tmp
[779]501      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_
[1492]502      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_end_offset_
[538]503      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
[432]504      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
[1492]505      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_last_date_
506      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_start_offset_
[538]507      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
[699]508      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
[802]509      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
[1158]510      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_format_
511      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_stamp_name_
512      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_units_
[711]513      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
514      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
[326]515      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[1158]516      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_format_
517      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: uuid_name_
[581]518
[528]519      IF (PRESENT(append_)) THEN
[966]520        CALL cxios_get_file_append &
521      (file_hdl%daddr, append__tmp)
[581]522        append_ = append__tmp
[528]523      ENDIF
[581]524
[1492]525      IF (PRESENT(comment_)) THEN
526        CALL cxios_get_file_comment &
527      (file_hdl%daddr, comment_, len(comment_))
528      ENDIF
529
[608]530      IF (PRESENT(compression_level_)) THEN
[966]531        CALL cxios_get_file_compression_level &
532      (file_hdl%daddr, compression_level_)
[608]533      ENDIF
534
[932]535      IF (PRESENT(convention_)) THEN
[966]536        CALL cxios_get_file_convention &
537      (file_hdl%daddr, convention_, len(convention_))
[932]538      ENDIF
539
[1201]540      IF (PRESENT(convention_str_)) THEN
541        CALL cxios_get_file_convention_str &
542      (file_hdl%daddr, convention_str_, len(convention_str_))
543      ENDIF
544
[891]545      IF (PRESENT(cyclic_)) THEN
[966]546        CALL cxios_get_file_cyclic &
547      (file_hdl%daddr, cyclic__tmp)
[891]548        cyclic_ = cyclic__tmp
549      ENDIF
550
[326]551      IF (PRESENT(description_)) THEN
[966]552        CALL cxios_get_file_description &
553      (file_hdl%daddr, description_, len(description_))
[326]554      ENDIF
[581]555
[326]556      IF (PRESENT(enabled_)) THEN
[966]557        CALL cxios_get_file_enabled &
558      (file_hdl%daddr, enabled__tmp)
[581]559        enabled_ = enabled__tmp
[326]560      ENDIF
[581]561
[517]562      IF (PRESENT(format_)) THEN
[966]563        CALL cxios_get_file_format &
564      (file_hdl%daddr, format_, len(format_))
[517]565      ENDIF
[581]566
[415]567      IF (PRESENT(min_digits_)) THEN
[966]568        CALL cxios_get_file_min_digits &
569      (file_hdl%daddr, min_digits_)
[415]570      ENDIF
[581]571
[598]572      IF (PRESENT(mode_)) THEN
[966]573        CALL cxios_get_file_mode &
574      (file_hdl%daddr, mode_, len(mode_))
[598]575      ENDIF
576
[326]577      IF (PRESENT(name_)) THEN
[966]578        CALL cxios_get_file_name &
579      (file_hdl%daddr, name_, len(name_))
[326]580      ENDIF
[581]581
[326]582      IF (PRESENT(name_suffix_)) THEN
[966]583        CALL cxios_get_file_name_suffix &
584      (file_hdl%daddr, name_suffix_, len(name_suffix_))
[326]585      ENDIF
[581]586
[326]587      IF (PRESENT(output_freq_)) THEN
[966]588        CALL cxios_get_file_output_freq &
589      (file_hdl%daddr, output_freq_)
[326]590      ENDIF
[581]591
[326]592      IF (PRESENT(output_level_)) THEN
[966]593        CALL cxios_get_file_output_level &
594      (file_hdl%daddr, output_level_)
[326]595      ENDIF
[581]596
[369]597      IF (PRESENT(par_access_)) THEN
[966]598        CALL cxios_get_file_par_access &
599      (file_hdl%daddr, par_access_, len(par_access_))
[369]600      ENDIF
[581]601
[1492]602      IF (PRESENT(read_metadata_par_)) THEN
603        CALL cxios_get_file_read_metadata_par &
604      (file_hdl%daddr, read_metadata_par__tmp)
605        read_metadata_par_ = read_metadata_par__tmp
606      ENDIF
607
[779]608      IF (PRESENT(record_offset_)) THEN
[966]609        CALL cxios_get_file_record_offset &
610      (file_hdl%daddr, record_offset_)
[779]611      ENDIF
612
[1492]613      IF (PRESENT(split_end_offset_)) THEN
614        CALL cxios_get_file_split_end_offset &
615      (file_hdl%daddr, split_end_offset_)
616      ENDIF
617
[326]618      IF (PRESENT(split_freq_)) THEN
[966]619        CALL cxios_get_file_split_freq &
620      (file_hdl%daddr, split_freq_)
[326]621      ENDIF
[581]622
[432]623      IF (PRESENT(split_freq_format_)) THEN
[966]624        CALL cxios_get_file_split_freq_format &
625      (file_hdl%daddr, split_freq_format_, len(split_freq_format_))
[432]626      ENDIF
[581]627
[1492]628      IF (PRESENT(split_last_date_)) THEN
629        CALL cxios_get_file_split_last_date &
630      (file_hdl%daddr, split_last_date_, len(split_last_date_))
631      ENDIF
632
633      IF (PRESENT(split_start_offset_)) THEN
634        CALL cxios_get_file_split_start_offset &
635      (file_hdl%daddr, split_start_offset_)
636      ENDIF
637
[326]638      IF (PRESENT(sync_freq_)) THEN
[966]639        CALL cxios_get_file_sync_freq &
640      (file_hdl%daddr, sync_freq_)
[326]641      ENDIF
[581]642
[699]643      IF (PRESENT(time_counter_)) THEN
[966]644        CALL cxios_get_file_time_counter &
645      (file_hdl%daddr, time_counter_, len(time_counter_))
[699]646      ENDIF
647
[802]648      IF (PRESENT(time_counter_name_)) THEN
[966]649        CALL cxios_get_file_time_counter_name &
650      (file_hdl%daddr, time_counter_name_, len(time_counter_name_))
[802]651      ENDIF
652
[1158]653      IF (PRESENT(time_stamp_format_)) THEN
654        CALL cxios_get_file_time_stamp_format &
655      (file_hdl%daddr, time_stamp_format_, len(time_stamp_format_))
656      ENDIF
657
658      IF (PRESENT(time_stamp_name_)) THEN
659        CALL cxios_get_file_time_stamp_name &
660      (file_hdl%daddr, time_stamp_name_, len(time_stamp_name_))
661      ENDIF
662
663      IF (PRESENT(time_units_)) THEN
664        CALL cxios_get_file_time_units &
665      (file_hdl%daddr, time_units_, len(time_units_))
666      ENDIF
667
[711]668      IF (PRESENT(timeseries_)) THEN
[966]669        CALL cxios_get_file_timeseries &
670      (file_hdl%daddr, timeseries_, len(timeseries_))
[711]671      ENDIF
672
673      IF (PRESENT(ts_prefix_)) THEN
[966]674        CALL cxios_get_file_ts_prefix &
675      (file_hdl%daddr, ts_prefix_, len(ts_prefix_))
[711]676      ENDIF
677
[326]678      IF (PRESENT(type_)) THEN
[966]679        CALL cxios_get_file_type &
680      (file_hdl%daddr, type_, len(type_))
[326]681      ENDIF
[581]682
[1158]683      IF (PRESENT(uuid_format_)) THEN
684        CALL cxios_get_file_uuid_format &
685      (file_hdl%daddr, uuid_format_, len(uuid_format_))
686      ENDIF
687
688      IF (PRESENT(uuid_name_)) THEN
689        CALL cxios_get_file_uuid_name &
690      (file_hdl%daddr, uuid_name_, len(uuid_name_))
691      ENDIF
692
[326]693  END SUBROUTINE xios(get_file_attr_hdl_)
[581]694
[432]695  SUBROUTINE xios(is_defined_file_attr)  &
[1492]696    ( file_id, append, comment, compression_level, convention, convention_str, cyclic, description  &
697    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
698    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
699    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
700    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]701
[432]702    IMPLICIT NONE
703      TYPE(txios(file))  :: file_hdl
704      CHARACTER(LEN=*), INTENT(IN) ::file_id
[528]705      LOGICAL, OPTIONAL, INTENT(OUT) :: append
706      LOGICAL(KIND=C_BOOL) :: append_tmp
[1492]707      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
708      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]709      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
710      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]711      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
712      LOGICAL(KIND=C_BOOL) :: convention_tmp
[1201]713      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
714      LOGICAL(KIND=C_BOOL) :: convention_str_tmp
[891]715      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
716      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]717      LOGICAL, OPTIONAL, INTENT(OUT) :: description
718      LOGICAL(KIND=C_BOOL) :: description_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
720      LOGICAL(KIND=C_BOOL) :: enabled_tmp
[517]721      LOGICAL, OPTIONAL, INTENT(OUT) :: format
722      LOGICAL(KIND=C_BOOL) :: format_tmp
[432]723      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
724      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]725      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
726      LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]727      LOGICAL, OPTIONAL, INTENT(OUT) :: name
728      LOGICAL(KIND=C_BOOL) :: name_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
730      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
732      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
734      LOGICAL(KIND=C_BOOL) :: output_level_tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
736      LOGICAL(KIND=C_BOOL) :: par_access_tmp
[1492]737      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par
738      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp
[779]739      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
740      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[1492]741      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset
742      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp
[432]743      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
744      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
746      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
[1492]747      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date
748      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset
750      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp
[432]751      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
752      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
[699]753      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
754      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]755      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
756      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[1158]757      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
758      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
760      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
761      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
762      LOGICAL(KIND=C_BOOL) :: time_units_tmp
[711]763      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
764      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
766      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
[432]767      LOGICAL, OPTIONAL, INTENT(OUT) :: type
768      LOGICAL(KIND=C_BOOL) :: type_tmp
[1158]769      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
770      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
772      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
[581]773
[966]774      CALL xios(get_file_handle) &
775      (file_id,file_hdl)
[432]776      CALL xios(is_defined_file_attr_hdl_)   &
[1492]777      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
778      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
779      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
780      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
781      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]782
[432]783  END SUBROUTINE xios(is_defined_file_attr)
[581]784
[432]785  SUBROUTINE xios(is_defined_file_attr_hdl)  &
[1492]786    ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
787    , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
788    , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
789    , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
790    , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]791
[432]792    IMPLICIT NONE
793      TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]794      LOGICAL, OPTIONAL, INTENT(OUT) :: append
795      LOGICAL(KIND=C_BOOL) :: append_tmp
[1492]796      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
797      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]798      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
799      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[932]800      LOGICAL, OPTIONAL, INTENT(OUT) :: convention
801      LOGICAL(KIND=C_BOOL) :: convention_tmp
[1201]802      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str
803      LOGICAL(KIND=C_BOOL) :: convention_str_tmp
[891]804      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic
805      LOGICAL(KIND=C_BOOL) :: cyclic_tmp
[432]806      LOGICAL, OPTIONAL, INTENT(OUT) :: description
807      LOGICAL(KIND=C_BOOL) :: description_tmp
808      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
809      LOGICAL(KIND=C_BOOL) :: enabled_tmp
[517]810      LOGICAL, OPTIONAL, INTENT(OUT) :: format
811      LOGICAL(KIND=C_BOOL) :: format_tmp
[432]812      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
813      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
[598]814      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
815      LOGICAL(KIND=C_BOOL) :: mode_tmp
[432]816      LOGICAL, OPTIONAL, INTENT(OUT) :: name
817      LOGICAL(KIND=C_BOOL) :: name_tmp
818      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
819      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
820      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
821      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
822      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
823      LOGICAL(KIND=C_BOOL) :: output_level_tmp
824      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
825      LOGICAL(KIND=C_BOOL) :: par_access_tmp
[1492]826      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par
827      LOGICAL(KIND=C_BOOL) :: read_metadata_par_tmp
[779]828      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
829      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
[1492]830      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset
831      LOGICAL(KIND=C_BOOL) :: split_end_offset_tmp
[432]832      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
833      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
834      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
835      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
[1492]836      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date
837      LOGICAL(KIND=C_BOOL) :: split_last_date_tmp
838      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset
839      LOGICAL(KIND=C_BOOL) :: split_start_offset_tmp
[432]840      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
841      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
[699]842      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
843      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
[802]844      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
845      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
[1158]846      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format
847      LOGICAL(KIND=C_BOOL) :: time_stamp_format_tmp
848      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name
849      LOGICAL(KIND=C_BOOL) :: time_stamp_name_tmp
850      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units
851      LOGICAL(KIND=C_BOOL) :: time_units_tmp
[711]852      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
853      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
854      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
855      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
[432]856      LOGICAL, OPTIONAL, INTENT(OUT) :: type
857      LOGICAL(KIND=C_BOOL) :: type_tmp
[1158]858      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format
859      LOGICAL(KIND=C_BOOL) :: uuid_format_tmp
860      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name
861      LOGICAL(KIND=C_BOOL) :: uuid_name_tmp
[581]862
[432]863      CALL xios(is_defined_file_attr_hdl_)  &
[1492]864      ( file_hdl, append, comment, compression_level, convention, convention_str, cyclic, description  &
865      , enabled, format, min_digits, mode, name, name_suffix, output_freq, output_level, par_access  &
866      , read_metadata_par, record_offset, split_end_offset, split_freq, split_freq_format, split_last_date  &
867      , split_start_offset, sync_freq, time_counter, time_counter_name, time_stamp_format, time_stamp_name  &
868      , time_units, timeseries, ts_prefix, type, uuid_format, uuid_name )
[581]869
[432]870  END SUBROUTINE xios(is_defined_file_attr_hdl)
[581]871
[432]872  SUBROUTINE xios(is_defined_file_attr_hdl_)   &
[1492]873    ( file_hdl, append_, comment_, compression_level_, convention_, convention_str_, cyclic_, description_  &
[1201]874    , enabled_, format_, min_digits_, mode_, name_, name_suffix_, output_freq_, output_level_, par_access_  &
[1492]875    , read_metadata_par_, record_offset_, split_end_offset_, split_freq_, split_freq_format_, split_last_date_  &
876    , split_start_offset_, sync_freq_, time_counter_, time_counter_name_, time_stamp_format_, time_stamp_name_  &
877    , time_units_, timeseries_, ts_prefix_, type_, uuid_format_, uuid_name_ )
[581]878
[432]879    IMPLICIT NONE
880      TYPE(txios(file)) , INTENT(IN) :: file_hdl
[528]881      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
882      LOGICAL(KIND=C_BOOL) :: append__tmp
[1492]883      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
884      LOGICAL(KIND=C_BOOL) :: comment__tmp
[608]885      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
886      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[932]887      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_
888      LOGICAL(KIND=C_BOOL) :: convention__tmp
[1201]889      LOGICAL, OPTIONAL, INTENT(OUT) :: convention_str_
890      LOGICAL(KIND=C_BOOL) :: convention_str__tmp
[891]891      LOGICAL, OPTIONAL, INTENT(OUT) :: cyclic_
892      LOGICAL(KIND=C_BOOL) :: cyclic__tmp
[432]893      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
894      LOGICAL(KIND=C_BOOL) :: description__tmp
895      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
896      LOGICAL(KIND=C_BOOL) :: enabled__tmp
[517]897      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
898      LOGICAL(KIND=C_BOOL) :: format__tmp
[432]899      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
900      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
[598]901      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
902      LOGICAL(KIND=C_BOOL) :: mode__tmp
[432]903      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
904      LOGICAL(KIND=C_BOOL) :: name__tmp
905      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
906      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
907      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
908      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
909      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
910      LOGICAL(KIND=C_BOOL) :: output_level__tmp
911      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
912      LOGICAL(KIND=C_BOOL) :: par_access__tmp
[1492]913      LOGICAL, OPTIONAL, INTENT(OUT) :: read_metadata_par_
914      LOGICAL(KIND=C_BOOL) :: read_metadata_par__tmp
[779]915      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
916      LOGICAL(KIND=C_BOOL) :: record_offset__tmp
[1492]917      LOGICAL, OPTIONAL, INTENT(OUT) :: split_end_offset_
918      LOGICAL(KIND=C_BOOL) :: split_end_offset__tmp
[432]919      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
920      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
921      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
922      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
[1492]923      LOGICAL, OPTIONAL, INTENT(OUT) :: split_last_date_
924      LOGICAL(KIND=C_BOOL) :: split_last_date__tmp
925      LOGICAL, OPTIONAL, INTENT(OUT) :: split_start_offset_
926      LOGICAL(KIND=C_BOOL) :: split_start_offset__tmp
[432]927      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
928      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
[699]929      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
930      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
[802]931      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
932      LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
[1158]933      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_format_
934      LOGICAL(KIND=C_BOOL) :: time_stamp_format__tmp
935      LOGICAL, OPTIONAL, INTENT(OUT) :: time_stamp_name_
936      LOGICAL(KIND=C_BOOL) :: time_stamp_name__tmp
937      LOGICAL, OPTIONAL, INTENT(OUT) :: time_units_
938      LOGICAL(KIND=C_BOOL) :: time_units__tmp
[711]939      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
940      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
941      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
942      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
[432]943      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
944      LOGICAL(KIND=C_BOOL) :: type__tmp
[1158]945      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_format_
946      LOGICAL(KIND=C_BOOL) :: uuid_format__tmp
947      LOGICAL, OPTIONAL, INTENT(OUT) :: uuid_name_
948      LOGICAL(KIND=C_BOOL) :: uuid_name__tmp
[581]949
[528]950      IF (PRESENT(append_)) THEN
[966]951        append__tmp = cxios_is_defined_file_append &
952      (file_hdl%daddr)
[581]953        append_ = append__tmp
[528]954      ENDIF
[581]955
[1492]956      IF (PRESENT(comment_)) THEN
957        comment__tmp = cxios_is_defined_file_comment &
958      (file_hdl%daddr)
959        comment_ = comment__tmp
960      ENDIF
961
[608]962      IF (PRESENT(compression_level_)) THEN
[966]963        compression_level__tmp = cxios_is_defined_file_compression_level &
964      (file_hdl%daddr)
[608]965        compression_level_ = compression_level__tmp
966      ENDIF
967
[932]968      IF (PRESENT(convention_)) THEN
[966]969        convention__tmp = cxios_is_defined_file_convention &
970      (file_hdl%daddr)
[932]971        convention_ = convention__tmp
972      ENDIF
973
[1201]974      IF (PRESENT(convention_str_)) THEN
975        convention_str__tmp = cxios_is_defined_file_convention_str &
976      (file_hdl%daddr)
977        convention_str_ = convention_str__tmp
978      ENDIF
979
[891]980      IF (PRESENT(cyclic_)) THEN
[966]981        cyclic__tmp = cxios_is_defined_file_cyclic &
982      (file_hdl%daddr)
[891]983        cyclic_ = cyclic__tmp
984      ENDIF
985
[432]986      IF (PRESENT(description_)) THEN
[966]987        description__tmp = cxios_is_defined_file_description &
988      (file_hdl%daddr)
[581]989        description_ = description__tmp
[432]990      ENDIF
[581]991
[432]992      IF (PRESENT(enabled_)) THEN
[966]993        enabled__tmp = cxios_is_defined_file_enabled &
994      (file_hdl%daddr)
[581]995        enabled_ = enabled__tmp
[432]996      ENDIF
[581]997
[517]998      IF (PRESENT(format_)) THEN
[966]999        format__tmp = cxios_is_defined_file_format &
1000      (file_hdl%daddr)
[581]1001        format_ = format__tmp
[517]1002      ENDIF
[581]1003
[432]1004      IF (PRESENT(min_digits_)) THEN
[966]1005        min_digits__tmp = cxios_is_defined_file_min_digits &
1006      (file_hdl%daddr)
[581]1007        min_digits_ = min_digits__tmp
[432]1008      ENDIF
[581]1009
[598]1010      IF (PRESENT(mode_)) THEN
[966]1011        mode__tmp = cxios_is_defined_file_mode &
1012      (file_hdl%daddr)
[598]1013        mode_ = mode__tmp
1014      ENDIF
1015
[432]1016      IF (PRESENT(name_)) THEN
[966]1017        name__tmp = cxios_is_defined_file_name &
1018      (file_hdl%daddr)
[581]1019        name_ = name__tmp
[432]1020      ENDIF
[581]1021
[432]1022      IF (PRESENT(name_suffix_)) THEN
[966]1023        name_suffix__tmp = cxios_is_defined_file_name_suffix &
1024      (file_hdl%daddr)
[581]1025        name_suffix_ = name_suffix__tmp
[432]1026      ENDIF
[581]1027
[432]1028      IF (PRESENT(output_freq_)) THEN
[966]1029        output_freq__tmp = cxios_is_defined_file_output_freq &
1030      (file_hdl%daddr)
[581]1031        output_freq_ = output_freq__tmp
[432]1032      ENDIF
[581]1033
[432]1034      IF (PRESENT(output_level_)) THEN
[966]1035        output_level__tmp = cxios_is_defined_file_output_level &
1036      (file_hdl%daddr)
[581]1037        output_level_ = output_level__tmp
[432]1038      ENDIF
[581]1039
[432]1040      IF (PRESENT(par_access_)) THEN
[966]1041        par_access__tmp = cxios_is_defined_file_par_access &
1042      (file_hdl%daddr)
[581]1043        par_access_ = par_access__tmp
[432]1044      ENDIF
[581]1045
[1492]1046      IF (PRESENT(read_metadata_par_)) THEN
1047        read_metadata_par__tmp = cxios_is_defined_file_read_metadata_par &
1048      (file_hdl%daddr)
1049        read_metadata_par_ = read_metadata_par__tmp
1050      ENDIF
1051
[779]1052      IF (PRESENT(record_offset_)) THEN
[966]1053        record_offset__tmp = cxios_is_defined_file_record_offset &
1054      (file_hdl%daddr)
[779]1055        record_offset_ = record_offset__tmp
1056      ENDIF
1057
[1492]1058      IF (PRESENT(split_end_offset_)) THEN
1059        split_end_offset__tmp = cxios_is_defined_file_split_end_offset &
1060      (file_hdl%daddr)
1061        split_end_offset_ = split_end_offset__tmp
1062      ENDIF
1063
[432]1064      IF (PRESENT(split_freq_)) THEN
[966]1065        split_freq__tmp = cxios_is_defined_file_split_freq &
1066      (file_hdl%daddr)
[581]1067        split_freq_ = split_freq__tmp
[432]1068      ENDIF
[581]1069
[432]1070      IF (PRESENT(split_freq_format_)) THEN
[966]1071        split_freq_format__tmp = cxios_is_defined_file_split_freq_format &
1072      (file_hdl%daddr)
[581]1073        split_freq_format_ = split_freq_format__tmp
[432]1074      ENDIF
[581]1075
[1492]1076      IF (PRESENT(split_last_date_)) THEN
1077        split_last_date__tmp = cxios_is_defined_file_split_last_date &
1078      (file_hdl%daddr)
1079        split_last_date_ = split_last_date__tmp
1080      ENDIF
1081
1082      IF (PRESENT(split_start_offset_)) THEN
1083        split_start_offset__tmp = cxios_is_defined_file_split_start_offset &
1084      (file_hdl%daddr)
1085        split_start_offset_ = split_start_offset__tmp
1086      ENDIF
1087
[432]1088      IF (PRESENT(sync_freq_)) THEN
[966]1089        sync_freq__tmp = cxios_is_defined_file_sync_freq &
1090      (file_hdl%daddr)
[581]1091        sync_freq_ = sync_freq__tmp
[432]1092      ENDIF
[581]1093
[699]1094      IF (PRESENT(time_counter_)) THEN
[966]1095        time_counter__tmp = cxios_is_defined_file_time_counter &
1096      (file_hdl%daddr)
[699]1097        time_counter_ = time_counter__tmp
1098      ENDIF
1099
[802]1100      IF (PRESENT(time_counter_name_)) THEN
[966]1101        time_counter_name__tmp = cxios_is_defined_file_time_counter_name &
1102      (file_hdl%daddr)
[802]1103        time_counter_name_ = time_counter_name__tmp
1104      ENDIF
1105
[1158]1106      IF (PRESENT(time_stamp_format_)) THEN
1107        time_stamp_format__tmp = cxios_is_defined_file_time_stamp_format &
1108      (file_hdl%daddr)
1109        time_stamp_format_ = time_stamp_format__tmp
1110      ENDIF
1111
1112      IF (PRESENT(time_stamp_name_)) THEN
1113        time_stamp_name__tmp = cxios_is_defined_file_time_stamp_name &
1114      (file_hdl%daddr)
1115        time_stamp_name_ = time_stamp_name__tmp
1116      ENDIF
1117
1118      IF (PRESENT(time_units_)) THEN
1119        time_units__tmp = cxios_is_defined_file_time_units &
1120      (file_hdl%daddr)
1121        time_units_ = time_units__tmp
1122      ENDIF
1123
[711]1124      IF (PRESENT(timeseries_)) THEN
[966]1125        timeseries__tmp = cxios_is_defined_file_timeseries &
1126      (file_hdl%daddr)
[711]1127        timeseries_ = timeseries__tmp
1128      ENDIF
1129
1130      IF (PRESENT(ts_prefix_)) THEN
[966]1131        ts_prefix__tmp = cxios_is_defined_file_ts_prefix &
1132      (file_hdl%daddr)
[711]1133        ts_prefix_ = ts_prefix__tmp
1134      ENDIF
1135
[432]1136      IF (PRESENT(type_)) THEN
[966]1137        type__tmp = cxios_is_defined_file_type &
1138      (file_hdl%daddr)
[581]1139        type_ = type__tmp
[432]1140      ENDIF
[581]1141
[1158]1142      IF (PRESENT(uuid_format_)) THEN
1143        uuid_format__tmp = cxios_is_defined_file_uuid_format &
1144      (file_hdl%daddr)
1145        uuid_format_ = uuid_format__tmp
1146      ENDIF
1147
1148      IF (PRESENT(uuid_name_)) THEN
1149        uuid_name__tmp = cxios_is_defined_file_uuid_name &
1150      (file_hdl%daddr)
1151        uuid_name_ = uuid_name__tmp
1152      ENDIF
1153
[432]1154  END SUBROUTINE xios(is_defined_file_attr_hdl_)
[581]1155
[326]1156END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.