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

Last change on this file since 517 was 517, checked in by rlacroix, 10 years ago

Add a new attribute to the file definition so that the output format can be controlled.

Currently the supported formats are "netcdf4" and "netcdf4_classic". The "format" attribute is optional. The "netcdf4" format will be used when no format is explicitly defined. Since "netcdf4" is the format which was previously used by XIOS, existing configuration files will not be affected by this change.

If "netcdf4_classic" is used, the output file(s) will be created using the classic NetCDF format. This format can be used with the attribute "type" set to "one_file" if the NetCDF4 library was compiled with Parallel NetCDF support (--enable-pnetcdf).
  • 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.0 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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
15    , 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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
22      LOGICAL (KIND=C_BOOL) :: enabled_tmp
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
38      , 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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
44    , par_access, split_freq, split_freq_format, sync_freq, type )
45   
46    IMPLICIT NONE
47      TYPE(txios(file)) , INTENT(IN) :: file_hdl
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
49      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
50      LOGICAL (KIND=C_BOOL) :: enabled_tmp
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
65      , 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, description_, enabled_, format_, 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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
76      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
77      LOGICAL (KIND=C_BOOL) :: enabled__tmp
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
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(description_)) THEN
91        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
92      ENDIF
93     
94      IF (PRESENT(enabled_)) THEN
95        enabled__tmp=enabled_
96        CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
97      ENDIF
98     
99      IF (PRESENT(format_)) THEN
100        CALL cxios_set_file_format(file_hdl%daddr, format_, len(format_))
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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
149    , 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      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
155      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
156      LOGICAL (KIND=C_BOOL) :: enabled_tmp
157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
172      , 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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
178    , par_access, split_freq, split_freq_format, sync_freq, type )
179   
180    IMPLICIT NONE
181      TYPE(txios(file)) , INTENT(IN) :: file_hdl
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
183      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
184      LOGICAL (KIND=C_BOOL) :: enabled_tmp
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
199      , 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, description_, enabled_, format_, 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      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
210      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
211      LOGICAL (KIND=C_BOOL) :: enabled__tmp
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
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(description_)) THEN
225        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
226      ENDIF
227     
228      IF (PRESENT(enabled_)) THEN
229        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
230        enabled_=enabled__tmp
231      ENDIF
232     
233      IF (PRESENT(format_)) THEN
234        CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_))
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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
283    , 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) :: description
289      LOGICAL(KIND=C_BOOL) :: description_tmp
290      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
291      LOGICAL(KIND=C_BOOL) :: enabled_tmp
292      LOGICAL, OPTIONAL, INTENT(OUT) :: format
293      LOGICAL(KIND=C_BOOL) :: format_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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
318      , 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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
324    , 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) :: description
329      LOGICAL(KIND=C_BOOL) :: description_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
331      LOGICAL(KIND=C_BOOL) :: enabled_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: format
333      LOGICAL(KIND=C_BOOL) :: format_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, description, enabled, format, min_digits, name, name_suffix, output_freq, output_level  &
357      , 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, description_, enabled_, format_, 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) :: description_
368      LOGICAL(KIND=C_BOOL) :: description__tmp
369      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
370      LOGICAL(KIND=C_BOOL) :: enabled__tmp
371      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
372      LOGICAL(KIND=C_BOOL) :: format__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(description_)) THEN
395        description__tmp=cxios_is_defined_file_description(file_hdl%daddr)
396        description_=description__tmp
397      ENDIF
398     
399      IF (PRESENT(enabled_)) THEN
400        enabled__tmp=cxios_is_defined_file_enabled(file_hdl%daddr)
401        enabled_=enabled__tmp
402      ENDIF
403     
404      IF (PRESENT(format_)) THEN
405        format__tmp=cxios_is_defined_file_format(file_hdl%daddr)
406        format_=format__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.