source: XIOS2/trunk/src/interface/fortran_attr/ifile_attr.F90 @ 2623

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

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