source: XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90 @ 369

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

Major Update

  • redesign Type and attribute manipulation
  • add enumerate type and attribute
  • use blitz class array instead of boost class array

YM
File size: 10.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifilegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE filegroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_filegroup_attr)  &
14    ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
15    , par_access, split_freq, sync_freq, type )
16   
17    IMPLICIT NONE
18      TYPE(txios(filegroup))  :: filegroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
21      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
22      LOGICAL (KIND=C_BOOL) :: enabled_tmp
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
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) :: sync_freq
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
32     
33      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
34      CALL xios(set_filegroup_attr_hdl_)   &
35      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
36      , par_access, split_freq, sync_freq, type )
37   
38  END SUBROUTINE xios(set_filegroup_attr)
39 
40  SUBROUTINE xios(set_filegroup_attr_hdl)  &
41    ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
42    , par_access, split_freq, sync_freq, type )
43   
44    IMPLICIT NONE
45      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
47      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
48      LOGICAL (KIND=C_BOOL) :: enabled_tmp
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq
53      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
58     
59      CALL xios(set_filegroup_attr_hdl_)  &
60      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
61      , par_access, split_freq, sync_freq, type )
62   
63  END SUBROUTINE xios(set_filegroup_attr_hdl)
64 
65  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
66    ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_  &
67    , par_access_, split_freq_, sync_freq_, type_ )
68   
69    IMPLICIT NONE
70      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
72      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
73      LOGICAL (KIND=C_BOOL) :: enabled__tmp
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_
78      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
83     
84      IF (PRESENT(description_)) THEN
85        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
86      ENDIF
87     
88      IF (PRESENT(enabled_)) THEN
89        enabled__tmp=enabled_
90        CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
91      ENDIF
92     
93      IF (PRESENT(group_ref_)) THEN
94        CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
95      ENDIF
96     
97      IF (PRESENT(name_)) THEN
98        CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
99      ENDIF
100     
101      IF (PRESENT(name_suffix_)) THEN
102        CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
103      ENDIF
104     
105      IF (PRESENT(output_freq_)) THEN
106        CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_, len(output_freq_))
107      ENDIF
108     
109      IF (PRESENT(output_level_)) THEN
110        CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)
111      ENDIF
112     
113      IF (PRESENT(par_access_)) THEN
114        CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
115      ENDIF
116     
117      IF (PRESENT(split_freq_)) THEN
118        CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_))
119      ENDIF
120     
121      IF (PRESENT(sync_freq_)) THEN
122        CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_))
123      ENDIF
124     
125      IF (PRESENT(type_)) THEN
126        CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
127      ENDIF
128     
129     
130   
131  END SUBROUTINE xios(set_filegroup_attr_hdl_)
132 
133  SUBROUTINE xios(get_filegroup_attr)  &
134    ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
135    , par_access, split_freq, sync_freq, type )
136   
137    IMPLICIT NONE
138      TYPE(txios(filegroup))  :: filegroup_hdl
139      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
140      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
141      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
142      LOGICAL (KIND=C_BOOL) :: enabled_tmp
143      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
144      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
145      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
146      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
147      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
148      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
151      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
152     
153      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
154      CALL xios(get_filegroup_attr_hdl_)   &
155      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
156      , par_access, split_freq, sync_freq, type )
157   
158  END SUBROUTINE xios(get_filegroup_attr)
159 
160  SUBROUTINE xios(get_filegroup_attr_hdl)  &
161    ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
162    , par_access, split_freq, sync_freq, type )
163   
164    IMPLICIT NONE
165      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
167      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
168      LOGICAL (KIND=C_BOOL) :: enabled_tmp
169      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
171      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
172      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq
173      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
174      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
175      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq
177      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
178     
179      CALL xios(get_filegroup_attr_hdl_)  &
180      ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level  &
181      , par_access, split_freq, sync_freq, type )
182   
183  END SUBROUTINE xios(get_filegroup_attr_hdl)
184 
185  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
186    ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_  &
187    , par_access_, split_freq_, sync_freq_, type_ )
188   
189    IMPLICIT NONE
190      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
192      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
193      LOGICAL (KIND=C_BOOL) :: enabled__tmp
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_
198      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
199      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_
201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_
202      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
203     
204      IF (PRESENT(description_)) THEN
205        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
206      ENDIF
207     
208      IF (PRESENT(enabled_)) THEN
209        CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
210        enabled_=enabled__tmp
211      ENDIF
212     
213      IF (PRESENT(group_ref_)) THEN
214        CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
215      ENDIF
216     
217      IF (PRESENT(name_)) THEN
218        CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
219      ENDIF
220     
221      IF (PRESENT(name_suffix_)) THEN
222        CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
223      ENDIF
224     
225      IF (PRESENT(output_freq_)) THEN
226        CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_, len(output_freq_))
227      ENDIF
228     
229      IF (PRESENT(output_level_)) THEN
230        CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_)
231      ENDIF
232     
233      IF (PRESENT(par_access_)) THEN
234        CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
235      ENDIF
236     
237      IF (PRESENT(split_freq_)) THEN
238        CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_))
239      ENDIF
240     
241      IF (PRESENT(sync_freq_)) THEN
242        CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_))
243      ENDIF
244     
245      IF (PRESENT(type_)) THEN
246        CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
247      ENDIF
248     
249     
250   
251  END SUBROUTINE xios(get_filegroup_attr_hdl_)
252 
253END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.