source: XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 415

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

Add grid mask attribute

YM

File size: 9.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iaxisgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iaxis
9  USE axisgroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_axisgroup_attr)  &
14    ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
15    , zoom_end, zoom_size )
16   
17    IMPLICIT NONE
18      TYPE(txios(axisgroup))  :: axisgroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
24      INTEGER  , OPTIONAL, INTENT(IN) :: size
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
28      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
29      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
30      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
31     
32      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
33      CALL xios(set_axisgroup_attr_hdl_)   &
34      ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
35      , zoom_end, zoom_size )
36   
37  END SUBROUTINE xios(set_axisgroup_attr)
38 
39  SUBROUTINE xios(set_axisgroup_attr_hdl)  &
40    ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
41    , zoom_end, zoom_size )
42   
43    IMPLICIT NONE
44      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
49      INTEGER  , OPTIONAL, INTENT(IN) :: size
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
53      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin
54      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end
55      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size
56     
57      CALL xios(set_axisgroup_attr_hdl_)  &
58      ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
59      , zoom_end, zoom_size )
60   
61  END SUBROUTINE xios(set_axisgroup_attr_hdl)
62 
63  SUBROUTINE xios(set_axisgroup_attr_hdl_)   &
64    ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_  &
65    , zoom_begin_, zoom_end_, zoom_size_ )
66   
67    IMPLICIT NONE
68      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
73      INTEGER  , OPTIONAL, INTENT(IN) :: size_
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
76      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
77      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_begin_
78      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_end_
79      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_size_
80     
81      IF (PRESENT(group_ref_)) THEN
82        CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
83      ENDIF
84     
85      IF (PRESENT(long_name_)) THEN
86        CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
87      ENDIF
88     
89      IF (PRESENT(name_)) THEN
90        CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
91      ENDIF
92     
93      IF (PRESENT(positive_)) THEN
94        CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
95      ENDIF
96     
97      IF (PRESENT(size_)) THEN
98        CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_)
99      ENDIF
100     
101      IF (PRESENT(standard_name_)) THEN
102        CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
103      ENDIF
104     
105      IF (PRESENT(unit_)) THEN
106        CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
107      ENDIF
108     
109      IF (PRESENT(value_)) THEN
110        CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
111      ENDIF
112     
113      IF (PRESENT(zoom_begin_)) THEN
114        CALL cxios_set_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
115      ENDIF
116     
117      IF (PRESENT(zoom_end_)) THEN
118        CALL cxios_set_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
119      ENDIF
120     
121      IF (PRESENT(zoom_size_)) THEN
122        CALL cxios_set_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
123      ENDIF
124     
125     
126   
127  END SUBROUTINE xios(set_axisgroup_attr_hdl_)
128 
129  SUBROUTINE xios(get_axisgroup_attr)  &
130    ( axisgroup_id, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
131    , zoom_end, zoom_size )
132   
133    IMPLICIT NONE
134      TYPE(txios(axisgroup))  :: axisgroup_hdl
135      CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
136      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
137      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
138      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
139      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
140      INTEGER  , OPTIONAL, INTENT(OUT) :: size
141      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
142      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
143      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
144      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
145      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
146      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
147     
148      CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
149      CALL xios(get_axisgroup_attr_hdl_)   &
150      ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
151      , zoom_end, zoom_size )
152   
153  END SUBROUTINE xios(get_axisgroup_attr)
154 
155  SUBROUTINE xios(get_axisgroup_attr_hdl)  &
156    ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
157    , zoom_end, zoom_size )
158   
159    IMPLICIT NONE
160      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
162      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
163      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
164      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
165      INTEGER  , OPTIONAL, INTENT(OUT) :: size
166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
167      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
168      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
169      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin
170      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end
171      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size
172     
173      CALL xios(get_axisgroup_attr_hdl_)  &
174      ( axisgroup_hdl, group_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin  &
175      , zoom_end, zoom_size )
176   
177  END SUBROUTINE xios(get_axisgroup_attr_hdl)
178 
179  SUBROUTINE xios(get_axisgroup_attr_hdl_)   &
180    ( axisgroup_hdl, group_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_  &
181    , zoom_begin_, zoom_end_, zoom_size_ )
182   
183    IMPLICIT NONE
184      TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
186      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
189      INTEGER  , OPTIONAL, INTENT(OUT) :: size_
190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
192      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
193      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_begin_
194      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_end_
195      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_size_
196     
197      IF (PRESENT(group_ref_)) THEN
198        CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
199      ENDIF
200     
201      IF (PRESENT(long_name_)) THEN
202        CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
203      ENDIF
204     
205      IF (PRESENT(name_)) THEN
206        CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
207      ENDIF
208     
209      IF (PRESENT(positive_)) THEN
210        CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
211      ENDIF
212     
213      IF (PRESENT(size_)) THEN
214        CALL cxios_get_axisgroup_size(axisgroup_hdl%daddr, size_)
215      ENDIF
216     
217      IF (PRESENT(standard_name_)) THEN
218        CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
219      ENDIF
220     
221      IF (PRESENT(unit_)) THEN
222        CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
223      ENDIF
224     
225      IF (PRESENT(value_)) THEN
226        CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
227      ENDIF
228     
229      IF (PRESENT(zoom_begin_)) THEN
230        CALL cxios_get_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
231      ENDIF
232     
233      IF (PRESENT(zoom_end_)) THEN
234        CALL cxios_get_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
235      ENDIF
236     
237      IF (PRESENT(zoom_size_)) THEN
238        CALL cxios_get_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
239      ENDIF
240     
241     
242   
243  END SUBROUTINE xios(get_axisgroup_attr_hdl_)
244 
245END MODULE iaxisgroup_attr
Note: See TracBrowser for help on using the repository browser.