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

Last change on this file since 432 was 432, checked in by ymipsl, 11 years ago

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM
File size: 17.9 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, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
15    , 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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
22      LOGICAL (KIND=C_BOOL) :: enabled_tmp
23      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
27      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
33     
34      CALL xios(get_file_handle)(file_id,file_hdl)
35      CALL xios(set_file_attr_hdl_)   &
36      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
37      , split_freq, split_freq_format, sync_freq, type )
38   
39  END SUBROUTINE xios(set_file_attr)
40 
41  SUBROUTINE xios(set_file_attr_hdl)  &
42    ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
43    , split_freq, split_freq_format, sync_freq, type )
44   
45    IMPLICIT NONE
46      TYPE(txios(file)) , INTENT(IN) :: file_hdl
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
48      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
49      LOGICAL (KIND=C_BOOL) :: enabled_tmp
50      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
54      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
60     
61      CALL xios(set_file_attr_hdl_)  &
62      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
63      , split_freq, split_freq_format, sync_freq, type )
64   
65  END SUBROUTINE xios(set_file_attr_hdl)
66 
67  SUBROUTINE xios(set_file_attr_hdl_)   &
68    ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  &
69    , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
70   
71    IMPLICIT NONE
72      TYPE(txios(file)) , INTENT(IN) :: file_hdl
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
74      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
75      LOGICAL (KIND=C_BOOL) :: enabled__tmp
76      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_
80      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
86     
87      IF (PRESENT(description_)) THEN
88        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
89      ENDIF
90     
91      IF (PRESENT(enabled_)) THEN
92        enabled__tmp=enabled_
93        CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
94      ENDIF
95     
96      IF (PRESENT(min_digits_)) THEN
97        CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_)
98      ENDIF
99     
100      IF (PRESENT(name_)) THEN
101        CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))
102      ENDIF
103     
104      IF (PRESENT(name_suffix_)) THEN
105        CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
106      ENDIF
107     
108      IF (PRESENT(output_freq_)) THEN
109        CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
110      ENDIF
111     
112      IF (PRESENT(output_level_)) THEN
113        CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)
114      ENDIF
115     
116      IF (PRESENT(par_access_)) THEN
117        CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
118      ENDIF
119     
120      IF (PRESENT(split_freq_)) THEN
121        CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_, len(split_freq_))
122      ENDIF
123     
124      IF (PRESENT(split_freq_format_)) THEN
125        CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
126      ENDIF
127     
128      IF (PRESENT(sync_freq_)) THEN
129        CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_))
130      ENDIF
131     
132      IF (PRESENT(type_)) THEN
133        CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))
134      ENDIF
135     
136     
137   
138  END SUBROUTINE xios(set_file_attr_hdl_)
139 
140  SUBROUTINE xios(get_file_attr)  &
141    ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
142    , split_freq, split_freq_format, sync_freq, type )
143   
144    IMPLICIT NONE
145      TYPE(txios(file))  :: file_hdl
146      CHARACTER(LEN=*), INTENT(IN) ::file_id
147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
148      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
149      LOGICAL (KIND=C_BOOL) :: enabled_tmp
150      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
151      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
153      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
154      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
155      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
156      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
157      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
158      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
159      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
160     
161      CALL xios(get_file_handle)(file_id,file_hdl)
162      CALL xios(get_file_attr_hdl_)   &
163      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
164      , split_freq, split_freq_format, sync_freq, type )
165   
166  END SUBROUTINE xios(get_file_attr)
167 
168  SUBROUTINE xios(get_file_attr_hdl)  &
169    ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
170    , split_freq, split_freq_format, sync_freq, type )
171   
172    IMPLICIT NONE
173      TYPE(txios(file)) , INTENT(IN) :: file_hdl
174      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
175      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
176      LOGICAL (KIND=C_BOOL) :: enabled_tmp
177      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
181      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
184      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
186      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
187     
188      CALL xios(get_file_attr_hdl_)  &
189      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
190      , split_freq, split_freq_format, sync_freq, type )
191   
192  END SUBROUTINE xios(get_file_attr_hdl)
193 
194  SUBROUTINE xios(get_file_attr_hdl_)   &
195    ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  &
196    , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
197   
198    IMPLICIT NONE
199      TYPE(txios(file)) , INTENT(IN) :: file_hdl
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
201      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
202      LOGICAL (KIND=C_BOOL) :: enabled__tmp
203      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_
207      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
211      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
213     
214      IF (PRESENT(description_)) THEN
215        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
216      ENDIF
217     
218      IF (PRESENT(enabled_)) THEN
219        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
220        enabled_=enabled__tmp
221      ENDIF
222     
223      IF (PRESENT(min_digits_)) THEN
224        CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_)
225      ENDIF
226     
227      IF (PRESENT(name_)) THEN
228        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
229      ENDIF
230     
231      IF (PRESENT(name_suffix_)) THEN
232        CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
233      ENDIF
234     
235      IF (PRESENT(output_freq_)) THEN
236        CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
237      ENDIF
238     
239      IF (PRESENT(output_level_)) THEN
240        CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
241      ENDIF
242     
243      IF (PRESENT(par_access_)) THEN
244        CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
245      ENDIF
246     
247      IF (PRESENT(split_freq_)) THEN
248        CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_, len(split_freq_))
249      ENDIF
250     
251      IF (PRESENT(split_freq_format_)) THEN
252        CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
253      ENDIF
254     
255      IF (PRESENT(sync_freq_)) THEN
256        CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_, len(sync_freq_))
257      ENDIF
258     
259      IF (PRESENT(type_)) THEN
260        CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
261      ENDIF
262     
263     
264   
265  END SUBROUTINE xios(get_file_attr_hdl_)
266 
267  SUBROUTINE xios(is_defined_file_attr)  &
268    ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
269    , split_freq, split_freq_format, sync_freq, type )
270   
271    IMPLICIT NONE
272      TYPE(txios(file))  :: file_hdl
273      CHARACTER(LEN=*), INTENT(IN) ::file_id
274      LOGICAL, OPTIONAL, INTENT(OUT) :: description
275      LOGICAL(KIND=C_BOOL) :: description_tmp
276      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
277      LOGICAL(KIND=C_BOOL) :: enabled_tmp
278      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
279      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
280      LOGICAL, OPTIONAL, INTENT(OUT) :: name
281      LOGICAL(KIND=C_BOOL) :: name_tmp
282      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
283      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
284      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
285      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
286      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
287      LOGICAL(KIND=C_BOOL) :: output_level_tmp
288      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
289      LOGICAL(KIND=C_BOOL) :: par_access_tmp
290      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
291      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
292      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
293      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
294      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
295      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
296      LOGICAL, OPTIONAL, INTENT(OUT) :: type
297      LOGICAL(KIND=C_BOOL) :: type_tmp
298     
299      CALL xios(get_file_handle)(file_id,file_hdl)
300      CALL xios(is_defined_file_attr_hdl_)   &
301      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
302      , split_freq, split_freq_format, sync_freq, type )
303   
304  END SUBROUTINE xios(is_defined_file_attr)
305 
306  SUBROUTINE xios(is_defined_file_attr_hdl)  &
307    ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
308    , split_freq, split_freq_format, sync_freq, type )
309   
310    IMPLICIT NONE
311      TYPE(txios(file)) , INTENT(IN) :: file_hdl
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) :: min_digits
317      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
318      LOGICAL, OPTIONAL, INTENT(OUT) :: name
319      LOGICAL(KIND=C_BOOL) :: name_tmp
320      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
321      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
322      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
323      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
324      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
325      LOGICAL(KIND=C_BOOL) :: output_level_tmp
326      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
327      LOGICAL(KIND=C_BOOL) :: par_access_tmp
328      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
329      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
330      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
331      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
332      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
333      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: type
335      LOGICAL(KIND=C_BOOL) :: type_tmp
336     
337      CALL xios(is_defined_file_attr_hdl_)  &
338      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  &
339      , split_freq, split_freq_format, sync_freq, type )
340   
341  END SUBROUTINE xios(is_defined_file_attr_hdl)
342 
343  SUBROUTINE xios(is_defined_file_attr_hdl_)   &
344    ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  &
345    , par_access_, split_freq_, split_freq_format_, sync_freq_, type_ )
346   
347    IMPLICIT NONE
348      TYPE(txios(file)) , INTENT(IN) :: file_hdl
349      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
350      LOGICAL(KIND=C_BOOL) :: description__tmp
351      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
352      LOGICAL(KIND=C_BOOL) :: enabled__tmp
353      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
354      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
355      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
356      LOGICAL(KIND=C_BOOL) :: name__tmp
357      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
358      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
359      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
360      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
361      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
362      LOGICAL(KIND=C_BOOL) :: output_level__tmp
363      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
364      LOGICAL(KIND=C_BOOL) :: par_access__tmp
365      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
366      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
367      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
368      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
369      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
370      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
371      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
372      LOGICAL(KIND=C_BOOL) :: type__tmp
373     
374      IF (PRESENT(description_)) THEN
375        description__tmp=cxios_is_defined_file_description(file_hdl%daddr)
376        description_=description__tmp
377      ENDIF
378     
379      IF (PRESENT(enabled_)) THEN
380        enabled__tmp=cxios_is_defined_file_enabled(file_hdl%daddr)
381        enabled_=enabled__tmp
382      ENDIF
383     
384      IF (PRESENT(min_digits_)) THEN
385        min_digits__tmp=cxios_is_defined_file_min_digits(file_hdl%daddr)
386        min_digits_=min_digits__tmp
387      ENDIF
388     
389      IF (PRESENT(name_)) THEN
390        name__tmp=cxios_is_defined_file_name(file_hdl%daddr)
391        name_=name__tmp
392      ENDIF
393     
394      IF (PRESENT(name_suffix_)) THEN
395        name_suffix__tmp=cxios_is_defined_file_name_suffix(file_hdl%daddr)
396        name_suffix_=name_suffix__tmp
397      ENDIF
398     
399      IF (PRESENT(output_freq_)) THEN
400        output_freq__tmp=cxios_is_defined_file_output_freq(file_hdl%daddr)
401        output_freq_=output_freq__tmp
402      ENDIF
403     
404      IF (PRESENT(output_level_)) THEN
405        output_level__tmp=cxios_is_defined_file_output_level(file_hdl%daddr)
406        output_level_=output_level__tmp
407      ENDIF
408     
409      IF (PRESENT(par_access_)) THEN
410        par_access__tmp=cxios_is_defined_file_par_access(file_hdl%daddr)
411        par_access_=par_access__tmp
412      ENDIF
413     
414      IF (PRESENT(split_freq_)) THEN
415        split_freq__tmp=cxios_is_defined_file_split_freq(file_hdl%daddr)
416        split_freq_=split_freq__tmp
417      ENDIF
418     
419      IF (PRESENT(split_freq_format_)) THEN
420        split_freq_format__tmp=cxios_is_defined_file_split_freq_format(file_hdl%daddr)
421        split_freq_format_=split_freq_format__tmp
422      ENDIF
423     
424      IF (PRESENT(sync_freq_)) THEN
425        sync_freq__tmp=cxios_is_defined_file_sync_freq(file_hdl%daddr)
426        sync_freq_=sync_freq__tmp
427      ENDIF
428     
429      IF (PRESENT(type_)) THEN
430        type__tmp=cxios_is_defined_file_type(file_hdl%daddr)
431        type_=type__tmp
432      ENDIF
433     
434     
435   
436  END SUBROUTINE xios(is_defined_file_attr_hdl_)
437 
438END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.