source: XIOS3/trunk/src/interface/fortran_attr/ifile_attr.F90 @ 2616

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

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