source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifile_attr.F90 @ 608

Last change on this file since 608 was 608, checked in by rlacroix, 7 years ago

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

  • 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: 19.3 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, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
15    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
16   
17    IMPLICIT NONE
18      TYPE(txios(file))  :: file_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::file_id
20      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
22      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
23      LOGICAL (KIND=C_BOOL) :: enabled_tmp
24      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
28      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
34     
35      CALL xios(get_file_handle)(file_id,file_hdl)
36      CALL xios(set_file_attr_hdl_)   &
37      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
38      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
39   
40  END SUBROUTINE xios(set_file_attr)
41 
42  SUBROUTINE xios(set_file_attr_hdl)  &
43    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
44    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
45   
46    IMPLICIT NONE
47      TYPE(txios(file)) , INTENT(IN) :: file_hdl
48      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
50      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
51      LOGICAL (KIND=C_BOOL) :: enabled_tmp
52      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
56      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
62     
63      CALL xios(set_file_attr_hdl_)  &
64      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
65      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
66   
67  END SUBROUTINE xios(set_file_attr_hdl)
68 
69  SUBROUTINE xios(set_file_attr_hdl_)   &
70    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  &
71    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
72   
73    IMPLICIT NONE
74      TYPE(txios(file)) , INTENT(IN) :: file_hdl
75      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
77      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
78      LOGICAL (KIND=C_BOOL) :: enabled__tmp
79      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_
83      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
89     
90      IF (PRESENT(compression_level_)) THEN
91        CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_)
92      ENDIF
93     
94      IF (PRESENT(description_)) THEN
95        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
96      ENDIF
97     
98      IF (PRESENT(enabled_)) THEN
99        enabled__tmp=enabled_
100        CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
101      ENDIF
102     
103      IF (PRESENT(min_digits_)) THEN
104        CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_)
105      ENDIF
106     
107      IF (PRESENT(name_)) THEN
108        CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))
109      ENDIF
110     
111      IF (PRESENT(name_suffix_)) THEN
112        CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
113      ENDIF
114     
115      IF (PRESENT(output_freq_)) THEN
116        CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
117      ENDIF
118     
119      IF (PRESENT(output_level_)) THEN
120        CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)
121      ENDIF
122     
123      IF (PRESENT(par_access_)) THEN
124        CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
125      ENDIF
126     
127      IF (PRESENT(split_freq_)) THEN
128        CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_, len(split_freq_))
129      ENDIF
130     
131      IF (PRESENT(split_freq_format_)) THEN
132        CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
133      ENDIF
134     
135      IF (PRESENT(sync_freq_)) THEN
136        CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_))
137      ENDIF
138     
139      IF (PRESENT(type_)) THEN
140        CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))
141      ENDIF
142     
143     
144   
145  END SUBROUTINE xios(set_file_attr_hdl_)
146 
147  SUBROUTINE xios(get_file_attr)  &
148    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
149    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
150   
151    IMPLICIT NONE
152      TYPE(txios(file))  :: file_hdl
153      CHARACTER(LEN=*), INTENT(IN) ::file_id
154      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
155      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
156      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
157      LOGICAL (KIND=C_BOOL) :: enabled_tmp
158      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
159      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
160      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
162      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
163      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
164      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
165      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
167      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
168     
169      CALL xios(get_file_handle)(file_id,file_hdl)
170      CALL xios(get_file_attr_hdl_)   &
171      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
172      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
173   
174  END SUBROUTINE xios(get_file_attr)
175 
176  SUBROUTINE xios(get_file_attr_hdl)  &
177    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
178    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
179   
180    IMPLICIT NONE
181      TYPE(txios(file)) , INTENT(IN) :: file_hdl
182      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
184      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
185      LOGICAL (KIND=C_BOOL) :: enabled_tmp
186      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
190      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
193      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
196     
197      CALL xios(get_file_attr_hdl_)  &
198      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
199      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
200   
201  END SUBROUTINE xios(get_file_attr_hdl)
202 
203  SUBROUTINE xios(get_file_attr_hdl_)   &
204    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  &
205    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
206   
207    IMPLICIT NONE
208      TYPE(txios(file)) , INTENT(IN) :: file_hdl
209      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
211      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
212      LOGICAL (KIND=C_BOOL) :: enabled__tmp
213      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
215      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
216      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_
217      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
219      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_
220      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
223     
224      IF (PRESENT(compression_level_)) THEN
225        CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_)
226      ENDIF
227     
228      IF (PRESENT(description_)) THEN
229        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
230      ENDIF
231     
232      IF (PRESENT(enabled_)) THEN
233        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
234        enabled_=enabled__tmp
235      ENDIF
236     
237      IF (PRESENT(min_digits_)) THEN
238        CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_)
239      ENDIF
240     
241      IF (PRESENT(name_)) THEN
242        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
243      ENDIF
244     
245      IF (PRESENT(name_suffix_)) THEN
246        CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
247      ENDIF
248     
249      IF (PRESENT(output_freq_)) THEN
250        CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
251      ENDIF
252     
253      IF (PRESENT(output_level_)) THEN
254        CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
255      ENDIF
256     
257      IF (PRESENT(par_access_)) THEN
258        CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
259      ENDIF
260     
261      IF (PRESENT(split_freq_)) THEN
262        CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_, len(split_freq_))
263      ENDIF
264     
265      IF (PRESENT(split_freq_format_)) THEN
266        CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
267      ENDIF
268     
269      IF (PRESENT(sync_freq_)) THEN
270        CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_))
271      ENDIF
272     
273      IF (PRESENT(type_)) THEN
274        CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
275      ENDIF
276     
277     
278   
279  END SUBROUTINE xios(get_file_attr_hdl_)
280 
281  SUBROUTINE xios(is_defined_file_attr)  &
282    ( file_id, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
283    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
284   
285    IMPLICIT NONE
286      TYPE(txios(file))  :: file_hdl
287      CHARACTER(LEN=*), INTENT(IN) ::file_id
288      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
289      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
290      LOGICAL, OPTIONAL, INTENT(OUT) :: description
291      LOGICAL(KIND=C_BOOL) :: description_tmp
292      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
293      LOGICAL(KIND=C_BOOL) :: enabled_tmp
294      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
295      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
296      LOGICAL, OPTIONAL, INTENT(OUT) :: name
297      LOGICAL(KIND=C_BOOL) :: name_tmp
298      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
299      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
300      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
301      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
302      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
303      LOGICAL(KIND=C_BOOL) :: output_level_tmp
304      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
305      LOGICAL(KIND=C_BOOL) :: par_access_tmp
306      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
307      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
308      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
309      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
310      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
311      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
312      LOGICAL, OPTIONAL, INTENT(OUT) :: type
313      LOGICAL(KIND=C_BOOL) :: type_tmp
314     
315      CALL xios(get_file_handle)(file_id,file_hdl)
316      CALL xios(is_defined_file_attr_hdl_)   &
317      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
318      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
319   
320  END SUBROUTINE xios(is_defined_file_attr)
321 
322  SUBROUTINE xios(is_defined_file_attr_hdl)  &
323    ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
324    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
325   
326    IMPLICIT NONE
327      TYPE(txios(file)) , INTENT(IN) :: file_hdl
328      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
329      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: description
331      LOGICAL(KIND=C_BOOL) :: description_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
333      LOGICAL(KIND=C_BOOL) :: enabled_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
335      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: name
337      LOGICAL(KIND=C_BOOL) :: name_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
339      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
341      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
343      LOGICAL(KIND=C_BOOL) :: output_level_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
345      LOGICAL(KIND=C_BOOL) :: par_access_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
347      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
349      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
351      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: type
353      LOGICAL(KIND=C_BOOL) :: type_tmp
354     
355      CALL xios(is_defined_file_attr_hdl_)  &
356      ( file_hdl, compression_level, description, enabled, min_digits, name, name_suffix, output_freq  &
357      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
358   
359  END SUBROUTINE xios(is_defined_file_attr_hdl)
360 
361  SUBROUTINE xios(is_defined_file_attr_hdl_)   &
362    ( file_hdl, compression_level_, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_  &
363    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
364   
365    IMPLICIT NONE
366      TYPE(txios(file)) , INTENT(IN) :: file_hdl
367      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
368      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
369      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
370      LOGICAL(KIND=C_BOOL) :: description__tmp
371      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
372      LOGICAL(KIND=C_BOOL) :: enabled__tmp
373      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
374      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
375      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
376      LOGICAL(KIND=C_BOOL) :: name__tmp
377      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
378      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
379      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
380      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
381      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
382      LOGICAL(KIND=C_BOOL) :: output_level__tmp
383      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
384      LOGICAL(KIND=C_BOOL) :: par_access__tmp
385      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
386      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
387      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
388      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
390      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
391      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
392      LOGICAL(KIND=C_BOOL) :: type__tmp
393     
394      IF (PRESENT(compression_level_)) THEN
395        compression_level__tmp=cxios_is_defined_file_compression_level(file_hdl%daddr)
396        compression_level_=compression_level__tmp
397      ENDIF
398     
399      IF (PRESENT(description_)) THEN
400        description__tmp=cxios_is_defined_file_description(file_hdl%daddr)
401        description_=description__tmp
402      ENDIF
403     
404      IF (PRESENT(enabled_)) THEN
405        enabled__tmp=cxios_is_defined_file_enabled(file_hdl%daddr)
406        enabled_=enabled__tmp
407      ENDIF
408     
409      IF (PRESENT(min_digits_)) THEN
410        min_digits__tmp=cxios_is_defined_file_min_digits(file_hdl%daddr)
411        min_digits_=min_digits__tmp
412      ENDIF
413     
414      IF (PRESENT(name_)) THEN
415        name__tmp=cxios_is_defined_file_name(file_hdl%daddr)
416        name_=name__tmp
417      ENDIF
418     
419      IF (PRESENT(name_suffix_)) THEN
420        name_suffix__tmp=cxios_is_defined_file_name_suffix(file_hdl%daddr)
421        name_suffix_=name_suffix__tmp
422      ENDIF
423     
424      IF (PRESENT(output_freq_)) THEN
425        output_freq__tmp=cxios_is_defined_file_output_freq(file_hdl%daddr)
426        output_freq_=output_freq__tmp
427      ENDIF
428     
429      IF (PRESENT(output_level_)) THEN
430        output_level__tmp=cxios_is_defined_file_output_level(file_hdl%daddr)
431        output_level_=output_level__tmp
432      ENDIF
433     
434      IF (PRESENT(par_access_)) THEN
435        par_access__tmp=cxios_is_defined_file_par_access(file_hdl%daddr)
436        par_access_=par_access__tmp
437      ENDIF
438     
439      IF (PRESENT(split_freq_)) THEN
440        split_freq__tmp=cxios_is_defined_file_split_freq(file_hdl%daddr)
441        split_freq_=split_freq__tmp
442      ENDIF
443     
444      IF (PRESENT(split_freq_format_)) THEN
445        split_freq_format__tmp=cxios_is_defined_file_split_freq_format(file_hdl%daddr)
446        split_freq_format_=split_freq_format__tmp
447      ENDIF
448     
449      IF (PRESENT(sync_freq_)) THEN
450        sync_freq__tmp=cxios_is_defined_file_sync_freq(file_hdl%daddr)
451        sync_freq_=sync_freq__tmp
452      ENDIF
453     
454      IF (PRESENT(type_)) THEN
455        type__tmp=cxios_is_defined_file_type(file_hdl%daddr)
456        type_=type__tmp
457      ENDIF
458     
459     
460   
461  END SUBROUTINE xios(is_defined_file_attr_hdl_)
462 
463END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.