source: XIOS/trunk/src/fortran_attr_interface/ifile_attr.F90 @ 314

Last change on this file since 314 was 314, checked in by ymipsl, 12 years ago

Removing obsolete files and some cleaning...

YM
File size: 7.1 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, name, name_suffix, output_freq, output_level, type )
15   
16    IMPLICIT NONE
17      TYPE(txios(file))  :: file_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::file_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
20      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
21      LOGICAL (KIND=C_BOOL) :: enabled_tmp
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
25      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
27     
28      CALL xios(get_file_handle)(file_id,file_hdl)
29      CALL xios(set_file_attr_hdl_)   &
30      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, type )
31   
32  END SUBROUTINE xios(set_file_attr)
33 
34  SUBROUTINE xios(set_file_attr_hdl)  &
35    ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, type )
36   
37    IMPLICIT NONE
38      TYPE(txios(file)) , INTENT(IN) :: file_hdl
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
40      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
41      LOGICAL (KIND=C_BOOL) :: enabled_tmp
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
45      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
47     
48      CALL xios(set_file_attr_hdl_)  &
49      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, type )
50   
51  END SUBROUTINE xios(set_file_attr_hdl)
52 
53  SUBROUTINE xios(set_file_attr_hdl_)   &
54    ( file_hdl, description_, enabled_, name_, name_suffix_, output_freq_, output_level_, type_  &
55     )
56   
57    IMPLICIT NONE
58      TYPE(txios(file)) , INTENT(IN) :: file_hdl
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
60      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
61      LOGICAL (KIND=C_BOOL) :: enabled__tmp
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_
65      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
67     
68      IF (PRESENT(description_)) THEN
69        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
70      ENDIF
71     
72      IF (PRESENT(enabled_)) THEN
73        enabled__tmp=enabled_
74        CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
75      ENDIF
76     
77      IF (PRESENT(name_)) THEN
78        CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))
79      ENDIF
80     
81      IF (PRESENT(name_suffix_)) THEN
82        CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
83      ENDIF
84     
85      IF (PRESENT(output_freq_)) THEN
86        CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
87      ENDIF
88     
89      IF (PRESENT(output_level_)) THEN
90        CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)
91      ENDIF
92     
93      IF (PRESENT(type_)) THEN
94        CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))
95      ENDIF
96     
97     
98   
99  END SUBROUTINE xios(set_file_attr_hdl_)
100 
101  SUBROUTINE xios(get_file_attr)  &
102    ( file_id, description, enabled, name, name_suffix, output_freq, output_level, type )
103   
104    IMPLICIT NONE
105      TYPE(txios(file))  :: file_hdl
106      CHARACTER(LEN=*), INTENT(IN) ::file_id
107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
108      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
109      LOGICAL (KIND=C_BOOL) :: enabled_tmp
110      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
111      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
113      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
114      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
115     
116      CALL xios(get_file_handle)(file_id,file_hdl)
117      CALL xios(get_file_attr_hdl_)   &
118      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, type )
119   
120  END SUBROUTINE xios(get_file_attr)
121 
122  SUBROUTINE xios(get_file_attr_hdl)  &
123    ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, type )
124   
125    IMPLICIT NONE
126      TYPE(txios(file)) , INTENT(IN) :: file_hdl
127      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
128      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
129      LOGICAL (KIND=C_BOOL) :: enabled_tmp
130      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
132      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
133      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
134      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
135     
136      CALL xios(get_file_attr_hdl_)  &
137      ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, type )
138   
139  END SUBROUTINE xios(get_file_attr_hdl)
140 
141  SUBROUTINE xios(get_file_attr_hdl_)   &
142    ( file_hdl, description_, enabled_, name_, name_suffix_, output_freq_, output_level_, type_  &
143     )
144   
145    IMPLICIT NONE
146      TYPE(txios(file)) , INTENT(IN) :: file_hdl
147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
148      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
149      LOGICAL (KIND=C_BOOL) :: enabled__tmp
150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
151      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_
153      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
154      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
155     
156      IF (PRESENT(description_)) THEN
157        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
158      ENDIF
159     
160      IF (PRESENT(enabled_)) THEN
161        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
162        enabled_=enabled__tmp
163      ENDIF
164     
165      IF (PRESENT(name_)) THEN
166        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
167      ENDIF
168     
169      IF (PRESENT(name_suffix_)) THEN
170        CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
171      ENDIF
172     
173      IF (PRESENT(output_freq_)) THEN
174        CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))
175      ENDIF
176     
177      IF (PRESENT(output_level_)) THEN
178        CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
179      ENDIF
180     
181      IF (PRESENT(type_)) THEN
182        CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
183      ENDIF
184     
185     
186   
187  END SUBROUTINE xios(get_file_attr_hdl_)
188 
189END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.