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

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

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.

  • 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.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, 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  END SUBROUTINE xios(set_file_attr_hdl_)
155
156  SUBROUTINE xios(get_file_attr)  &
157    ( file_id, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
158    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
159
160    IMPLICIT NONE
161      TYPE(txios(file))  :: file_hdl
162      CHARACTER(LEN=*), INTENT(IN) ::file_id
163      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
164      LOGICAL (KIND=C_BOOL) :: append_tmp
165      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
166      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
167      LOGICAL (KIND=C_BOOL) :: enabled_tmp
168      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
169      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
171      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
172      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
173      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
174      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
175      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
177      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
179
180      CALL xios(get_file_handle)(file_id,file_hdl)
181      CALL xios(get_file_attr_hdl_)   &
182      ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
183      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
184
185  END SUBROUTINE xios(get_file_attr)
186
187  SUBROUTINE xios(get_file_attr_hdl)  &
188    ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
189    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
190
191    IMPLICIT NONE
192      TYPE(txios(file)) , INTENT(IN) :: file_hdl
193      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
194      LOGICAL (KIND=C_BOOL) :: append_tmp
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
196      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
197      LOGICAL (KIND=C_BOOL) :: enabled_tmp
198      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
199      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
202      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
203      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
205      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
207      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
209
210      CALL xios(get_file_attr_hdl_)  &
211      ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
212      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
213
214  END SUBROUTINE xios(get_file_attr_hdl)
215
216  SUBROUTINE xios(get_file_attr_hdl_)   &
217    ( file_hdl, append_, description_, enabled_, format_, min_digits_, name_, name_suffix_, output_freq_  &
218    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
219
220    IMPLICIT NONE
221      TYPE(txios(file)) , INTENT(IN) :: file_hdl
222      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
223      LOGICAL (KIND=C_BOOL) :: append__tmp
224      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
225      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
226      LOGICAL (KIND=C_BOOL) :: enabled__tmp
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
228      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
231      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
232      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
234      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
236      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
238
239      IF (PRESENT(append_)) THEN
240        CALL cxios_get_file_append(file_hdl%daddr, append__tmp)
241        append_ = append__tmp
242      ENDIF
243
244      IF (PRESENT(description_)) THEN
245        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
246      ENDIF
247
248      IF (PRESENT(enabled_)) THEN
249        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
250        enabled_ = enabled__tmp
251      ENDIF
252
253      IF (PRESENT(format_)) THEN
254        CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_))
255      ENDIF
256
257      IF (PRESENT(min_digits_)) THEN
258        CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_)
259      ENDIF
260
261      IF (PRESENT(name_)) THEN
262        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
263      ENDIF
264
265      IF (PRESENT(name_suffix_)) THEN
266        CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
267      ENDIF
268
269      IF (PRESENT(output_freq_)) THEN
270        CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_)
271      ENDIF
272
273      IF (PRESENT(output_level_)) THEN
274        CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
275      ENDIF
276
277      IF (PRESENT(par_access_)) THEN
278        CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
279      ENDIF
280
281      IF (PRESENT(split_freq_)) THEN
282        CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_)
283      ENDIF
284
285      IF (PRESENT(split_freq_format_)) THEN
286        CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
287      ENDIF
288
289      IF (PRESENT(sync_freq_)) THEN
290        CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_)
291      ENDIF
292
293      IF (PRESENT(type_)) THEN
294        CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
295      ENDIF
296
297  END SUBROUTINE xios(get_file_attr_hdl_)
298
299  SUBROUTINE xios(is_defined_file_attr)  &
300    ( file_id, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
301    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
302
303    IMPLICIT NONE
304      TYPE(txios(file))  :: file_hdl
305      CHARACTER(LEN=*), INTENT(IN) ::file_id
306      LOGICAL, OPTIONAL, INTENT(OUT) :: append
307      LOGICAL(KIND=C_BOOL) :: append_tmp
308      LOGICAL, OPTIONAL, INTENT(OUT) :: description
309      LOGICAL(KIND=C_BOOL) :: description_tmp
310      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
311      LOGICAL(KIND=C_BOOL) :: enabled_tmp
312      LOGICAL, OPTIONAL, INTENT(OUT) :: format
313      LOGICAL(KIND=C_BOOL) :: format_tmp
314      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
315      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
316      LOGICAL, OPTIONAL, INTENT(OUT) :: name
317      LOGICAL(KIND=C_BOOL) :: name_tmp
318      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
319      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
320      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
321      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
323      LOGICAL(KIND=C_BOOL) :: output_level_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
325      LOGICAL(KIND=C_BOOL) :: par_access_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
327      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
329      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
331      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: type
333      LOGICAL(KIND=C_BOOL) :: type_tmp
334
335      CALL xios(get_file_handle)(file_id,file_hdl)
336      CALL xios(is_defined_file_attr_hdl_)   &
337      ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
338      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
339
340  END SUBROUTINE xios(is_defined_file_attr)
341
342  SUBROUTINE xios(is_defined_file_attr_hdl)  &
343    ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
344    , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
345
346    IMPLICIT NONE
347      TYPE(txios(file)) , INTENT(IN) :: file_hdl
348      LOGICAL, OPTIONAL, INTENT(OUT) :: append
349      LOGICAL(KIND=C_BOOL) :: append_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: description
351      LOGICAL(KIND=C_BOOL) :: description_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
353      LOGICAL(KIND=C_BOOL) :: enabled_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: format
355      LOGICAL(KIND=C_BOOL) :: format_tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
357      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: name
359      LOGICAL(KIND=C_BOOL) :: name_tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
361      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
363      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
365      LOGICAL(KIND=C_BOOL) :: output_level_tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
367      LOGICAL(KIND=C_BOOL) :: par_access_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
369      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
371      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
373      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: type
375      LOGICAL(KIND=C_BOOL) :: type_tmp
376
377      CALL xios(is_defined_file_attr_hdl_)  &
378      ( file_hdl, append, description, enabled, format, min_digits, name, name_suffix, output_freq  &
379      , output_level, par_access, split_freq, split_freq_format, sync_freq, type )
380
381  END SUBROUTINE xios(is_defined_file_attr_hdl)
382
383  SUBROUTINE xios(is_defined_file_attr_hdl_)   &
384    ( file_hdl, append_, description_, enabled_, format_, min_digits_, name_, name_suffix_, output_freq_  &
385    , output_level_, par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
386
387    IMPLICIT NONE
388      TYPE(txios(file)) , INTENT(IN) :: file_hdl
389      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
390      LOGICAL(KIND=C_BOOL) :: append__tmp
391      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
392      LOGICAL(KIND=C_BOOL) :: description__tmp
393      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
394      LOGICAL(KIND=C_BOOL) :: enabled__tmp
395      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
396      LOGICAL(KIND=C_BOOL) :: format__tmp
397      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
398      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
399      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
400      LOGICAL(KIND=C_BOOL) :: name__tmp
401      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
402      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
403      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
404      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
405      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
406      LOGICAL(KIND=C_BOOL) :: output_level__tmp
407      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
408      LOGICAL(KIND=C_BOOL) :: par_access__tmp
409      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
410      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
411      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
412      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
413      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
414      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
415      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
416      LOGICAL(KIND=C_BOOL) :: type__tmp
417
418      IF (PRESENT(append_)) THEN
419        append__tmp = cxios_is_defined_file_append(file_hdl%daddr)
420        append_ = append__tmp
421      ENDIF
422
423      IF (PRESENT(description_)) THEN
424        description__tmp = cxios_is_defined_file_description(file_hdl%daddr)
425        description_ = description__tmp
426      ENDIF
427
428      IF (PRESENT(enabled_)) THEN
429        enabled__tmp = cxios_is_defined_file_enabled(file_hdl%daddr)
430        enabled_ = enabled__tmp
431      ENDIF
432
433      IF (PRESENT(format_)) THEN
434        format__tmp = cxios_is_defined_file_format(file_hdl%daddr)
435        format_ = format__tmp
436      ENDIF
437
438      IF (PRESENT(min_digits_)) THEN
439        min_digits__tmp = cxios_is_defined_file_min_digits(file_hdl%daddr)
440        min_digits_ = min_digits__tmp
441      ENDIF
442
443      IF (PRESENT(name_)) THEN
444        name__tmp = cxios_is_defined_file_name(file_hdl%daddr)
445        name_ = name__tmp
446      ENDIF
447
448      IF (PRESENT(name_suffix_)) THEN
449        name_suffix__tmp = cxios_is_defined_file_name_suffix(file_hdl%daddr)
450        name_suffix_ = name_suffix__tmp
451      ENDIF
452
453      IF (PRESENT(output_freq_)) THEN
454        output_freq__tmp = cxios_is_defined_file_output_freq(file_hdl%daddr)
455        output_freq_ = output_freq__tmp
456      ENDIF
457
458      IF (PRESENT(output_level_)) THEN
459        output_level__tmp = cxios_is_defined_file_output_level(file_hdl%daddr)
460        output_level_ = output_level__tmp
461      ENDIF
462
463      IF (PRESENT(par_access_)) THEN
464        par_access__tmp = cxios_is_defined_file_par_access(file_hdl%daddr)
465        par_access_ = par_access__tmp
466      ENDIF
467
468      IF (PRESENT(split_freq_)) THEN
469        split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr)
470        split_freq_ = split_freq__tmp
471      ENDIF
472
473      IF (PRESENT(split_freq_format_)) THEN
474        split_freq_format__tmp = cxios_is_defined_file_split_freq_format(file_hdl%daddr)
475        split_freq_format_ = split_freq_format__tmp
476      ENDIF
477
478      IF (PRESENT(sync_freq_)) THEN
479        sync_freq__tmp = cxios_is_defined_file_sync_freq(file_hdl%daddr)
480        sync_freq_ = sync_freq__tmp
481      ENDIF
482
483      IF (PRESENT(type_)) THEN
484        type__tmp = cxios_is_defined_file_type(file_hdl%daddr)
485        type_ = type__tmp
486      ENDIF
487
488  END SUBROUTINE xios(is_defined_file_attr_hdl_)
489
490END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.