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

Last change on this file since 598 was 598, checked in by rlacroix, 9 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.