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

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

Convert more attributes to use the new duration type:

  • field: freq_op and freq_offset
  • file: output_freq, sync_freq and split_freq.

Remember that you now have to use the "xios_duration" type instead of strings to get/set those attributes through the Fortran interface.
  • 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.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, 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      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
30      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
34      TYPE(txios(duration))  , 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      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
60      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
62      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
64      TYPE(txios(duration))  , 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      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
89      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
91      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
93      TYPE(txios(duration))  , 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_)
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_)
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_)
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      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
175      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
177      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
179      TYPE(txios(duration))  , 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      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
205      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
207      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
209      TYPE(txios(duration))  , 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      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
234      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
236      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
238      TYPE(txios(duration))  , 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_)
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_)
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_)
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.