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

Last change on this file since 802 was 802, checked in by rlacroix, 9 years ago

Add a new file attribute time_counter_name.

Users can now modify the name of the time counter dimension and axis name.
  • 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: 29.2 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, description, enabled, format, min_digits, mode, name, name_suffix  &
15    , output_freq, output_level, par_access, record_offset, split_freq, split_freq_format, sync_freq  &
16    , time_counter, time_counter_name, timeseries, ts_prefix, type )
17
18    IMPLICIT NONE
19      TYPE(txios(file))  :: file_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::file_id
21      LOGICAL  , OPTIONAL, INTENT(IN) :: append
22      LOGICAL (KIND=C_BOOL) :: append_tmp
23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
25      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
26      LOGICAL (KIND=C_BOOL) :: enabled_tmp
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
28      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
33      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
35      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
36      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
38      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
44
45      CALL xios(get_file_handle)(file_id,file_hdl)
46      CALL xios(set_file_attr_hdl_)   &
47      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
48      , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
49      , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
50
51  END SUBROUTINE xios(set_file_attr)
52
53  SUBROUTINE xios(set_file_attr_hdl)  &
54    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
55    , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
56    , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
57
58    IMPLICIT NONE
59      TYPE(txios(file)) , INTENT(IN) :: file_hdl
60      LOGICAL  , OPTIONAL, INTENT(IN) :: append
61      LOGICAL (KIND=C_BOOL) :: append_tmp
62      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
64      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
65      LOGICAL (KIND=C_BOOL) :: enabled_tmp
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
67      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
71      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
72      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
74      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset
75      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
77      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
83
84      CALL xios(set_file_attr_hdl_)  &
85      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
86      , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
87      , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
88
89  END SUBROUTINE xios(set_file_attr_hdl)
90
91  SUBROUTINE xios(set_file_attr_hdl_)   &
92    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  &
93    , name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  &
94    , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_  &
95    , type_ )
96
97    IMPLICIT NONE
98      TYPE(txios(file)) , INTENT(IN) :: file_hdl
99      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
100      LOGICAL (KIND=C_BOOL) :: append__tmp
101      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
103      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
104      LOGICAL (KIND=C_BOOL) :: enabled__tmp
105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
106      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
110      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
111      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
113      INTEGER  , OPTIONAL, INTENT(IN) :: record_offset_
114      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
116      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_name_
119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
122
123      IF (PRESENT(append_)) THEN
124        append__tmp = append_
125        CALL cxios_set_file_append(file_hdl%daddr, append__tmp)
126      ENDIF
127
128      IF (PRESENT(compression_level_)) THEN
129        CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_)
130      ENDIF
131
132      IF (PRESENT(description_)) THEN
133        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
134      ENDIF
135
136      IF (PRESENT(enabled_)) THEN
137        enabled__tmp = enabled_
138        CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
139      ENDIF
140
141      IF (PRESENT(format_)) THEN
142        CALL cxios_set_file_format(file_hdl%daddr, format_, len(format_))
143      ENDIF
144
145      IF (PRESENT(min_digits_)) THEN
146        CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_)
147      ENDIF
148
149      IF (PRESENT(mode_)) THEN
150        CALL cxios_set_file_mode(file_hdl%daddr, mode_, len(mode_))
151      ENDIF
152
153      IF (PRESENT(name_)) THEN
154        CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))
155      ENDIF
156
157      IF (PRESENT(name_suffix_)) THEN
158        CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
159      ENDIF
160
161      IF (PRESENT(output_freq_)) THEN
162        CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_)
163      ENDIF
164
165      IF (PRESENT(output_level_)) THEN
166        CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)
167      ENDIF
168
169      IF (PRESENT(par_access_)) THEN
170        CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
171      ENDIF
172
173      IF (PRESENT(record_offset_)) THEN
174        CALL cxios_set_file_record_offset(file_hdl%daddr, record_offset_)
175      ENDIF
176
177      IF (PRESENT(split_freq_)) THEN
178        CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_)
179      ENDIF
180
181      IF (PRESENT(split_freq_format_)) THEN
182        CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
183      ENDIF
184
185      IF (PRESENT(sync_freq_)) THEN
186        CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_)
187      ENDIF
188
189      IF (PRESENT(time_counter_)) THEN
190        CALL cxios_set_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_))
191      ENDIF
192
193      IF (PRESENT(time_counter_name_)) THEN
194        CALL cxios_set_file_time_counter_name(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
195      ENDIF
196
197      IF (PRESENT(timeseries_)) THEN
198        CALL cxios_set_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_))
199      ENDIF
200
201      IF (PRESENT(ts_prefix_)) THEN
202        CALL cxios_set_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
203      ENDIF
204
205      IF (PRESENT(type_)) THEN
206        CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))
207      ENDIF
208
209  END SUBROUTINE xios(set_file_attr_hdl_)
210
211  SUBROUTINE xios(get_file_attr)  &
212    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  &
213    , output_freq, output_level, par_access, record_offset, split_freq, split_freq_format, sync_freq  &
214    , time_counter, time_counter_name, timeseries, ts_prefix, type )
215
216    IMPLICIT NONE
217      TYPE(txios(file))  :: file_hdl
218      CHARACTER(LEN=*), INTENT(IN) ::file_id
219      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
220      LOGICAL (KIND=C_BOOL) :: append_tmp
221      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
223      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
224      LOGICAL (KIND=C_BOOL) :: enabled_tmp
225      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
226      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
228      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
230      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
231      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
233      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
234      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
236      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
240      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
241      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
242
243      CALL xios(get_file_handle)(file_id,file_hdl)
244      CALL xios(get_file_attr_hdl_)   &
245      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
246      , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
247      , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
248
249  END SUBROUTINE xios(get_file_attr)
250
251  SUBROUTINE xios(get_file_attr_hdl)  &
252    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
253    , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
254    , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
255
256    IMPLICIT NONE
257      TYPE(txios(file)) , INTENT(IN) :: file_hdl
258      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
259      LOGICAL (KIND=C_BOOL) :: append_tmp
260      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
261      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
262      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
263      LOGICAL (KIND=C_BOOL) :: enabled_tmp
264      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
265      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
266      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
267      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
269      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
270      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
271      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
272      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset
273      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
274      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
275      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
276      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name
278      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
279      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
280      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
281
282      CALL xios(get_file_attr_hdl_)  &
283      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
284      , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
285      , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
286
287  END SUBROUTINE xios(get_file_attr_hdl)
288
289  SUBROUTINE xios(get_file_attr_hdl_)   &
290    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  &
291    , name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  &
292    , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_  &
293    , type_ )
294
295    IMPLICIT NONE
296      TYPE(txios(file)) , INTENT(IN) :: file_hdl
297      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
298      LOGICAL (KIND=C_BOOL) :: append__tmp
299      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
300      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
301      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
302      LOGICAL (KIND=C_BOOL) :: enabled__tmp
303      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
304      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
306      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
308      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
309      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
310      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
311      INTEGER  , OPTIONAL, INTENT(OUT) :: record_offset_
312      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
313      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
314      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
315      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
316      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_name_
317      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
318      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
319      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
320
321      IF (PRESENT(append_)) THEN
322        CALL cxios_get_file_append(file_hdl%daddr, append__tmp)
323        append_ = append__tmp
324      ENDIF
325
326      IF (PRESENT(compression_level_)) THEN
327        CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_)
328      ENDIF
329
330      IF (PRESENT(description_)) THEN
331        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
332      ENDIF
333
334      IF (PRESENT(enabled_)) THEN
335        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
336        enabled_ = enabled__tmp
337      ENDIF
338
339      IF (PRESENT(format_)) THEN
340        CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_))
341      ENDIF
342
343      IF (PRESENT(min_digits_)) THEN
344        CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_)
345      ENDIF
346
347      IF (PRESENT(mode_)) THEN
348        CALL cxios_get_file_mode(file_hdl%daddr, mode_, len(mode_))
349      ENDIF
350
351      IF (PRESENT(name_)) THEN
352        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
353      ENDIF
354
355      IF (PRESENT(name_suffix_)) THEN
356        CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
357      ENDIF
358
359      IF (PRESENT(output_freq_)) THEN
360        CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_)
361      ENDIF
362
363      IF (PRESENT(output_level_)) THEN
364        CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
365      ENDIF
366
367      IF (PRESENT(par_access_)) THEN
368        CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
369      ENDIF
370
371      IF (PRESENT(record_offset_)) THEN
372        CALL cxios_get_file_record_offset(file_hdl%daddr, record_offset_)
373      ENDIF
374
375      IF (PRESENT(split_freq_)) THEN
376        CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_)
377      ENDIF
378
379      IF (PRESENT(split_freq_format_)) THEN
380        CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
381      ENDIF
382
383      IF (PRESENT(sync_freq_)) THEN
384        CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_)
385      ENDIF
386
387      IF (PRESENT(time_counter_)) THEN
388        CALL cxios_get_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_))
389      ENDIF
390
391      IF (PRESENT(time_counter_name_)) THEN
392        CALL cxios_get_file_time_counter_name(file_hdl%daddr, time_counter_name_, len(time_counter_name_))
393      ENDIF
394
395      IF (PRESENT(timeseries_)) THEN
396        CALL cxios_get_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_))
397      ENDIF
398
399      IF (PRESENT(ts_prefix_)) THEN
400        CALL cxios_get_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
401      ENDIF
402
403      IF (PRESENT(type_)) THEN
404        CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
405      ENDIF
406
407  END SUBROUTINE xios(get_file_attr_hdl_)
408
409  SUBROUTINE xios(is_defined_file_attr)  &
410    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  &
411    , output_freq, output_level, par_access, record_offset, split_freq, split_freq_format, sync_freq  &
412    , time_counter, time_counter_name, timeseries, ts_prefix, type )
413
414    IMPLICIT NONE
415      TYPE(txios(file))  :: file_hdl
416      CHARACTER(LEN=*), INTENT(IN) ::file_id
417      LOGICAL, OPTIONAL, INTENT(OUT) :: append
418      LOGICAL(KIND=C_BOOL) :: append_tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
420      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: description
422      LOGICAL(KIND=C_BOOL) :: description_tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
424      LOGICAL(KIND=C_BOOL) :: enabled_tmp
425      LOGICAL, OPTIONAL, INTENT(OUT) :: format
426      LOGICAL(KIND=C_BOOL) :: format_tmp
427      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
428      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
429      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
430      LOGICAL(KIND=C_BOOL) :: mode_tmp
431      LOGICAL, OPTIONAL, INTENT(OUT) :: name
432      LOGICAL(KIND=C_BOOL) :: name_tmp
433      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
434      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
435      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
436      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
437      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
438      LOGICAL(KIND=C_BOOL) :: output_level_tmp
439      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
440      LOGICAL(KIND=C_BOOL) :: par_access_tmp
441      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
442      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
443      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
444      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
445      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
446      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
448      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
449      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
450      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
451      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
452      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
453      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
454      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
455      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
456      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
457      LOGICAL, OPTIONAL, INTENT(OUT) :: type
458      LOGICAL(KIND=C_BOOL) :: type_tmp
459
460      CALL xios(get_file_handle)(file_id,file_hdl)
461      CALL xios(is_defined_file_attr_hdl_)   &
462      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
463      , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
464      , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
465
466  END SUBROUTINE xios(is_defined_file_attr)
467
468  SUBROUTINE xios(is_defined_file_attr_hdl)  &
469    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
470    , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
471    , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
472
473    IMPLICIT NONE
474      TYPE(txios(file)) , INTENT(IN) :: file_hdl
475      LOGICAL, OPTIONAL, INTENT(OUT) :: append
476      LOGICAL(KIND=C_BOOL) :: append_tmp
477      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
478      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
479      LOGICAL, OPTIONAL, INTENT(OUT) :: description
480      LOGICAL(KIND=C_BOOL) :: description_tmp
481      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
482      LOGICAL(KIND=C_BOOL) :: enabled_tmp
483      LOGICAL, OPTIONAL, INTENT(OUT) :: format
484      LOGICAL(KIND=C_BOOL) :: format_tmp
485      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
486      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
487      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
488      LOGICAL(KIND=C_BOOL) :: mode_tmp
489      LOGICAL, OPTIONAL, INTENT(OUT) :: name
490      LOGICAL(KIND=C_BOOL) :: name_tmp
491      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
492      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
493      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
494      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
495      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
496      LOGICAL(KIND=C_BOOL) :: output_level_tmp
497      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
498      LOGICAL(KIND=C_BOOL) :: par_access_tmp
499      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset
500      LOGICAL(KIND=C_BOOL) :: record_offset_tmp
501      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
502      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
503      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
504      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
505      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
506      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
507      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
508      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
509      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name
510      LOGICAL(KIND=C_BOOL) :: time_counter_name_tmp
511      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
512      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
513      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
514      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
515      LOGICAL, OPTIONAL, INTENT(OUT) :: type
516      LOGICAL(KIND=C_BOOL) :: type_tmp
517
518      CALL xios(is_defined_file_attr_hdl_)  &
519      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
520      , name_suffix, output_freq, output_level, par_access, record_offset, split_freq, split_freq_format  &
521      , sync_freq, time_counter, time_counter_name, timeseries, ts_prefix, type )
522
523  END SUBROUTINE xios(is_defined_file_attr_hdl)
524
525  SUBROUTINE xios(is_defined_file_attr_hdl_)   &
526    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  &
527    , name_, name_suffix_, output_freq_, output_level_, par_access_, record_offset_, split_freq_  &
528    , split_freq_format_, sync_freq_, time_counter_, time_counter_name_, timeseries_, ts_prefix_  &
529    , type_ )
530
531    IMPLICIT NONE
532      TYPE(txios(file)) , INTENT(IN) :: file_hdl
533      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
534      LOGICAL(KIND=C_BOOL) :: append__tmp
535      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
536      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
537      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
538      LOGICAL(KIND=C_BOOL) :: description__tmp
539      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
540      LOGICAL(KIND=C_BOOL) :: enabled__tmp
541      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
542      LOGICAL(KIND=C_BOOL) :: format__tmp
543      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
544      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
545      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
546      LOGICAL(KIND=C_BOOL) :: mode__tmp
547      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
548      LOGICAL(KIND=C_BOOL) :: name__tmp
549      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
550      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
551      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
552      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
553      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
554      LOGICAL(KIND=C_BOOL) :: output_level__tmp
555      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
556      LOGICAL(KIND=C_BOOL) :: par_access__tmp
557      LOGICAL, OPTIONAL, INTENT(OUT) :: record_offset_
558      LOGICAL(KIND=C_BOOL) :: record_offset__tmp
559      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
560      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
561      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
562      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
563      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
564      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
565      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
566      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
567      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_name_
568      LOGICAL(KIND=C_BOOL) :: time_counter_name__tmp
569      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
570      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
571      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
572      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
573      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
574      LOGICAL(KIND=C_BOOL) :: type__tmp
575
576      IF (PRESENT(append_)) THEN
577        append__tmp = cxios_is_defined_file_append(file_hdl%daddr)
578        append_ = append__tmp
579      ENDIF
580
581      IF (PRESENT(compression_level_)) THEN
582        compression_level__tmp = cxios_is_defined_file_compression_level(file_hdl%daddr)
583        compression_level_ = compression_level__tmp
584      ENDIF
585
586      IF (PRESENT(description_)) THEN
587        description__tmp = cxios_is_defined_file_description(file_hdl%daddr)
588        description_ = description__tmp
589      ENDIF
590
591      IF (PRESENT(enabled_)) THEN
592        enabled__tmp = cxios_is_defined_file_enabled(file_hdl%daddr)
593        enabled_ = enabled__tmp
594      ENDIF
595
596      IF (PRESENT(format_)) THEN
597        format__tmp = cxios_is_defined_file_format(file_hdl%daddr)
598        format_ = format__tmp
599      ENDIF
600
601      IF (PRESENT(min_digits_)) THEN
602        min_digits__tmp = cxios_is_defined_file_min_digits(file_hdl%daddr)
603        min_digits_ = min_digits__tmp
604      ENDIF
605
606      IF (PRESENT(mode_)) THEN
607        mode__tmp = cxios_is_defined_file_mode(file_hdl%daddr)
608        mode_ = mode__tmp
609      ENDIF
610
611      IF (PRESENT(name_)) THEN
612        name__tmp = cxios_is_defined_file_name(file_hdl%daddr)
613        name_ = name__tmp
614      ENDIF
615
616      IF (PRESENT(name_suffix_)) THEN
617        name_suffix__tmp = cxios_is_defined_file_name_suffix(file_hdl%daddr)
618        name_suffix_ = name_suffix__tmp
619      ENDIF
620
621      IF (PRESENT(output_freq_)) THEN
622        output_freq__tmp = cxios_is_defined_file_output_freq(file_hdl%daddr)
623        output_freq_ = output_freq__tmp
624      ENDIF
625
626      IF (PRESENT(output_level_)) THEN
627        output_level__tmp = cxios_is_defined_file_output_level(file_hdl%daddr)
628        output_level_ = output_level__tmp
629      ENDIF
630
631      IF (PRESENT(par_access_)) THEN
632        par_access__tmp = cxios_is_defined_file_par_access(file_hdl%daddr)
633        par_access_ = par_access__tmp
634      ENDIF
635
636      IF (PRESENT(record_offset_)) THEN
637        record_offset__tmp = cxios_is_defined_file_record_offset(file_hdl%daddr)
638        record_offset_ = record_offset__tmp
639      ENDIF
640
641      IF (PRESENT(split_freq_)) THEN
642        split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr)
643        split_freq_ = split_freq__tmp
644      ENDIF
645
646      IF (PRESENT(split_freq_format_)) THEN
647        split_freq_format__tmp = cxios_is_defined_file_split_freq_format(file_hdl%daddr)
648        split_freq_format_ = split_freq_format__tmp
649      ENDIF
650
651      IF (PRESENT(sync_freq_)) THEN
652        sync_freq__tmp = cxios_is_defined_file_sync_freq(file_hdl%daddr)
653        sync_freq_ = sync_freq__tmp
654      ENDIF
655
656      IF (PRESENT(time_counter_)) THEN
657        time_counter__tmp = cxios_is_defined_file_time_counter(file_hdl%daddr)
658        time_counter_ = time_counter__tmp
659      ENDIF
660
661      IF (PRESENT(time_counter_name_)) THEN
662        time_counter_name__tmp = cxios_is_defined_file_time_counter_name(file_hdl%daddr)
663        time_counter_name_ = time_counter_name__tmp
664      ENDIF
665
666      IF (PRESENT(timeseries_)) THEN
667        timeseries__tmp = cxios_is_defined_file_timeseries(file_hdl%daddr)
668        timeseries_ = timeseries__tmp
669      ENDIF
670
671      IF (PRESENT(ts_prefix_)) THEN
672        ts_prefix__tmp = cxios_is_defined_file_ts_prefix(file_hdl%daddr)
673        ts_prefix_ = ts_prefix__tmp
674      ENDIF
675
676      IF (PRESENT(type_)) THEN
677        type__tmp = cxios_is_defined_file_type(file_hdl%daddr)
678        type_ = type__tmp
679      ENDIF
680
681  END SUBROUTINE xios(is_defined_file_attr_hdl_)
682
683END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.