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

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

Add the infrastructure to request fields from the server.

This will be used to read input files so add a new file attribute mode to define whether data is written or read from a file.

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