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

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

Generate fortran interface for new attributes from previous commit.

YM

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