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

Last change on this file since 779 was 779, checked in by rlacroix, 8 years ago

Update the Fortran API.

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