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

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

Add the ability to append data to existing output file(s).

By default existing file(s) will still be overwritten. Set the new file attribute "append" to true if you wish to append data to existing NetCDF file(s).

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