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

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

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