source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifile_attr.F90 @ 703

Last change on this file since 703 was 703, checked in by rlacroix, 7 years ago

XIOS 1.0: Add the Fortran interface for the new "time_counter" file attribute.

I forgot that the change had been made in XIOS 1.0 too...

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