source: XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90 @ 501

Last change on this file since 501 was 501, checked in by ymipsl, 7 years ago

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

YM

  • 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: 46.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domain_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_domain_attr)  &
14    ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
15    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
16    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
17    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
18    , zoom_nj_loc )
19   
20    IMPLICIT NONE
21      TYPE(txios(domain))  :: domain_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::domain_id
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
25      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
26      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
34      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:)
35      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
36      INTEGER  , OPTIONAL, INTENT(IN) :: iend
37      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
39      INTEGER  , OPTIONAL, INTENT(IN) :: jend
40      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
42      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
43      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
44      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
46      INTEGER  , OPTIONAL, INTENT(IN) :: ni
47      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
48      INTEGER  , OPTIONAL, INTENT(IN) :: nj
49      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
50      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
53      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
54      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
55      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
56      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
57      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
58      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
59      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
60      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
61     
62      CALL xios(get_domain_handle)(domain_id,domain_hdl)
63      CALL xios(set_domain_attr_hdl_)   &
64      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
65      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
66      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
67      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
68      , zoom_nj_loc )
69   
70  END SUBROUTINE xios(set_domain_attr)
71 
72  SUBROUTINE xios(set_domain_attr_hdl)  &
73    ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
74    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
75    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
76    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
77    , zoom_nj_loc )
78   
79    IMPLICIT NONE
80      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
81      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
82      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
83      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
84      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
85      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
86      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
90      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
92      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:)
93      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
94      INTEGER  , OPTIONAL, INTENT(IN) :: iend
95      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:)
96      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
97      INTEGER  , OPTIONAL, INTENT(IN) :: jend
98      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
101      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
102      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
104      INTEGER  , OPTIONAL, INTENT(IN) :: ni
105      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
106      INTEGER  , OPTIONAL, INTENT(IN) :: nj
107      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
108      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
111      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
112      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
113      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
114      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
115      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
116      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
117      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
118      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
119     
120      CALL xios(set_domain_attr_hdl_)  &
121      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
122      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
123      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
124      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
125      , zoom_nj_loc )
126   
127  END SUBROUTINE xios(set_domain_attr_hdl)
128 
129  SUBROUTINE xios(set_domain_attr_hdl_)   &
130    ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
131    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  &
132    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
133    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  &
134    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
135   
136    IMPLICIT NONE
137      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
139      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
140      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
141      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
142      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
143      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
144      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
145      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
146      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
147      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
149      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:,:)
150      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
151      INTEGER  , OPTIONAL, INTENT(IN) :: iend_
152      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:,:)
153      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
154      INTEGER  , OPTIONAL, INTENT(IN) :: jend_
155      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
156      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
157      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
158      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:)
159      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
160      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
161      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
162      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
163      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
164      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
165      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
166      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
168      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_
169      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
170      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_
171      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
172      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_
173      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
174      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_
175      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
176     
177      IF (PRESENT(bounds_lat_)) THEN
178        CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
179      ENDIF
180     
181      IF (PRESENT(bounds_lon_)) THEN
182        CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
183      ENDIF
184     
185      IF (PRESENT(data_dim_)) THEN
186        CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
187      ENDIF
188     
189      IF (PRESENT(data_i_index_)) THEN
190        CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
191      ENDIF
192     
193      IF (PRESENT(data_ibegin_)) THEN
194        CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
195      ENDIF
196     
197      IF (PRESENT(data_j_index_)) THEN
198        CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
199      ENDIF
200     
201      IF (PRESENT(data_jbegin_)) THEN
202        CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
203      ENDIF
204     
205      IF (PRESENT(data_n_index_)) THEN
206        CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)
207      ENDIF
208     
209      IF (PRESENT(data_ni_)) THEN
210        CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
211      ENDIF
212     
213      IF (PRESENT(data_nj_)) THEN
214        CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
215      ENDIF
216     
217      IF (PRESENT(domain_group_ref_)) THEN
218        CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
219      ENDIF
220     
221      IF (PRESENT(i_index_)) THEN
222        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2))
223      ENDIF
224     
225      IF (PRESENT(ibegin_)) THEN
226        CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
227      ENDIF
228     
229      IF (PRESENT(iend_)) THEN
230        CALL cxios_set_domain_iend(domain_hdl%daddr, iend_)
231      ENDIF
232     
233      IF (PRESENT(j_index_)) THEN
234        CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2))
235      ENDIF
236     
237      IF (PRESENT(jbegin_)) THEN
238        CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
239      ENDIF
240     
241      IF (PRESENT(jend_)) THEN
242        CALL cxios_set_domain_jend(domain_hdl%daddr, jend_)
243      ENDIF
244     
245      IF (PRESENT(latvalue_)) THEN
246        CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_,size(latvalue_,1))
247      ENDIF
248     
249      IF (PRESENT(long_name_)) THEN
250        CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
251      ENDIF
252     
253      IF (PRESENT(lonvalue_)) THEN
254        CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_,size(lonvalue_,1))
255      ENDIF
256     
257      IF (PRESENT(mask_)) THEN
258        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
259        mask__tmp=mask_
260        CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
261      ENDIF
262     
263      IF (PRESENT(name_)) THEN
264        CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
265      ENDIF
266     
267      IF (PRESENT(ni_)) THEN
268        CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
269      ENDIF
270     
271      IF (PRESENT(ni_glo_)) THEN
272        CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
273      ENDIF
274     
275      IF (PRESENT(nj_)) THEN
276        CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
277      ENDIF
278     
279      IF (PRESENT(nj_glo_)) THEN
280        CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
281      ENDIF
282     
283      IF (PRESENT(nvertex_)) THEN
284        CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_)
285      ENDIF
286     
287      IF (PRESENT(standard_name_)) THEN
288        CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
289      ENDIF
290     
291      IF (PRESENT(type_)) THEN
292        CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_))
293      ENDIF
294     
295      IF (PRESENT(zoom_ibegin_)) THEN
296        CALL cxios_set_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
297      ENDIF
298     
299      IF (PRESENT(zoom_ibegin_loc_)) THEN
300        CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
301      ENDIF
302     
303      IF (PRESENT(zoom_jbegin_)) THEN
304        CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
305      ENDIF
306     
307      IF (PRESENT(zoom_jbegin_loc_)) THEN
308        CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
309      ENDIF
310     
311      IF (PRESENT(zoom_ni_)) THEN
312        CALL cxios_set_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
313      ENDIF
314     
315      IF (PRESENT(zoom_ni_loc_)) THEN
316        CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
317      ENDIF
318     
319      IF (PRESENT(zoom_nj_)) THEN
320        CALL cxios_set_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
321      ENDIF
322     
323      IF (PRESENT(zoom_nj_loc_)) THEN
324        CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
325      ENDIF
326     
327     
328   
329  END SUBROUTINE xios(set_domain_attr_hdl_)
330 
331  SUBROUTINE xios(get_domain_attr)  &
332    ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
333    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
334    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
335    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
336    , zoom_nj_loc )
337   
338    IMPLICIT NONE
339      TYPE(txios(domain))  :: domain_hdl
340      CHARACTER(LEN=*), INTENT(IN) ::domain_id
341      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
342      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
343      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
344      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
345      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
346      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
347      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
348      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
349      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
350      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
351      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
352      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
353      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
354      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
355      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
356      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
357      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
358      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
359      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
360      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
361      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
362      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
363      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
364      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
365      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
366      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
367      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
368      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
370      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
371      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
372      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
373      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
374      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
375      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
376      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
377      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
378      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
379     
380      CALL xios(get_domain_handle)(domain_id,domain_hdl)
381      CALL xios(get_domain_attr_hdl_)   &
382      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
383      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
384      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
385      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
386      , zoom_nj_loc )
387   
388  END SUBROUTINE xios(get_domain_attr)
389 
390  SUBROUTINE xios(get_domain_attr_hdl)  &
391    ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
392    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
393    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
394    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
395    , zoom_nj_loc )
396   
397    IMPLICIT NONE
398      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
399      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
400      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
401      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
402      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
403      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
404      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
405      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
406      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
407      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
408      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
410      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
411      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
412      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
413      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
414      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
415      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
416      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
417      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
418      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
419      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
420      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
421      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
422      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
423      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
424      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
425      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
426      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
428      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
429      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
430      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
431      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
432      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
433      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
434      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
435      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
436      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
437     
438      CALL xios(get_domain_attr_hdl_)  &
439      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
440      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
441      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
442      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
443      , zoom_nj_loc )
444   
445  END SUBROUTINE xios(get_domain_attr_hdl)
446 
447  SUBROUTINE xios(get_domain_attr_hdl_)   &
448    ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
449    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  &
450    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
451    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  &
452    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
453   
454    IMPLICIT NONE
455      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
456      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
457      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
458      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
459      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
460      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
461      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
462      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
463      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
464      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
465      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
466      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
467      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:,:)
468      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
469      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_
470      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:,:)
471      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
472      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_
473      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
474      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
475      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
476      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
477      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
478      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
479      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
480      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
481      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
482      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
483      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
486      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
487      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
488      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
489      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
490      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_
491      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
492      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_
493      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
494     
495      IF (PRESENT(bounds_lat_)) THEN
496        CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
497      ENDIF
498     
499      IF (PRESENT(bounds_lon_)) THEN
500        CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
501      ENDIF
502     
503      IF (PRESENT(data_dim_)) THEN
504        CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
505      ENDIF
506     
507      IF (PRESENT(data_i_index_)) THEN
508        CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
509      ENDIF
510     
511      IF (PRESENT(data_ibegin_)) THEN
512        CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
513      ENDIF
514     
515      IF (PRESENT(data_j_index_)) THEN
516        CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
517      ENDIF
518     
519      IF (PRESENT(data_jbegin_)) THEN
520        CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
521      ENDIF
522     
523      IF (PRESENT(data_n_index_)) THEN
524        CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)
525      ENDIF
526     
527      IF (PRESENT(data_ni_)) THEN
528        CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
529      ENDIF
530     
531      IF (PRESENT(data_nj_)) THEN
532        CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
533      ENDIF
534     
535      IF (PRESENT(domain_group_ref_)) THEN
536        CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
537      ENDIF
538     
539      IF (PRESENT(i_index_)) THEN
540        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2))
541      ENDIF
542     
543      IF (PRESENT(ibegin_)) THEN
544        CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
545      ENDIF
546     
547      IF (PRESENT(iend_)) THEN
548        CALL cxios_get_domain_iend(domain_hdl%daddr, iend_)
549      ENDIF
550     
551      IF (PRESENT(j_index_)) THEN
552        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2))
553      ENDIF
554     
555      IF (PRESENT(jbegin_)) THEN
556        CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
557      ENDIF
558     
559      IF (PRESENT(jend_)) THEN
560        CALL cxios_get_domain_jend(domain_hdl%daddr, jend_)
561      ENDIF
562     
563      IF (PRESENT(latvalue_)) THEN
564        CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_,size(latvalue_,1))
565      ENDIF
566     
567      IF (PRESENT(long_name_)) THEN
568        CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
569      ENDIF
570     
571      IF (PRESENT(lonvalue_)) THEN
572        CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_,size(lonvalue_,1))
573      ENDIF
574     
575      IF (PRESENT(mask_)) THEN
576        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
577        CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
578        mask_=mask__tmp
579      ENDIF
580     
581      IF (PRESENT(name_)) THEN
582        CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
583      ENDIF
584     
585      IF (PRESENT(ni_)) THEN
586        CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
587      ENDIF
588     
589      IF (PRESENT(ni_glo_)) THEN
590        CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
591      ENDIF
592     
593      IF (PRESENT(nj_)) THEN
594        CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
595      ENDIF
596     
597      IF (PRESENT(nj_glo_)) THEN
598        CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
599      ENDIF
600     
601      IF (PRESENT(nvertex_)) THEN
602        CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
603      ENDIF
604     
605      IF (PRESENT(standard_name_)) THEN
606        CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
607      ENDIF
608     
609      IF (PRESENT(type_)) THEN
610        CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
611      ENDIF
612     
613      IF (PRESENT(zoom_ibegin_)) THEN
614        CALL cxios_get_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
615      ENDIF
616     
617      IF (PRESENT(zoom_ibegin_loc_)) THEN
618        CALL cxios_get_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
619      ENDIF
620     
621      IF (PRESENT(zoom_jbegin_)) THEN
622        CALL cxios_get_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
623      ENDIF
624     
625      IF (PRESENT(zoom_jbegin_loc_)) THEN
626        CALL cxios_get_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
627      ENDIF
628     
629      IF (PRESENT(zoom_ni_)) THEN
630        CALL cxios_get_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
631      ENDIF
632     
633      IF (PRESENT(zoom_ni_loc_)) THEN
634        CALL cxios_get_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
635      ENDIF
636     
637      IF (PRESENT(zoom_nj_)) THEN
638        CALL cxios_get_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
639      ENDIF
640     
641      IF (PRESENT(zoom_nj_loc_)) THEN
642        CALL cxios_get_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
643      ENDIF
644     
645     
646   
647  END SUBROUTINE xios(get_domain_attr_hdl_)
648 
649  SUBROUTINE xios(is_defined_domain_attr)  &
650    ( domain_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
651    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
652    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
653    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
654    , zoom_nj_loc )
655   
656    IMPLICIT NONE
657      TYPE(txios(domain))  :: domain_hdl
658      CHARACTER(LEN=*), INTENT(IN) ::domain_id
659      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
660      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
661      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
662      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
663      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
664      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
665      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
666      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
667      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
668      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
669      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
670      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
671      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
672      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
673      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
674      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
676      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
678      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
679      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
680      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
682      LOGICAL(KIND=C_BOOL) :: i_index_tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
684      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
686      LOGICAL(KIND=C_BOOL) :: iend_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
688      LOGICAL(KIND=C_BOOL) :: j_index_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
690      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
692      LOGICAL(KIND=C_BOOL) :: jend_tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
694      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
696      LOGICAL(KIND=C_BOOL) :: long_name_tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
698      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
700      LOGICAL(KIND=C_BOOL) :: mask_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: name
702      LOGICAL(KIND=C_BOOL) :: name_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
704      LOGICAL(KIND=C_BOOL) :: ni_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
706      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
708      LOGICAL(KIND=C_BOOL) :: nj_tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
710      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
712      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
714      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: type
716      LOGICAL(KIND=C_BOOL) :: type_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
718      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
720      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
722      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
724      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
726      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
727      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
728      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
730      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
732      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
733     
734      CALL xios(get_domain_handle)(domain_id,domain_hdl)
735      CALL xios(is_defined_domain_attr_hdl_)   &
736      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
737      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
738      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
739      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
740      , zoom_nj_loc )
741   
742  END SUBROUTINE xios(is_defined_domain_attr)
743 
744  SUBROUTINE xios(is_defined_domain_attr_hdl)  &
745    ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
746    , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
747    , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
748    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
749    , zoom_nj_loc )
750   
751    IMPLICIT NONE
752      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
753      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
754      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
755      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
756      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
757      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
758      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
760      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
761      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
762      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
764      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
766      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
767      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
768      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
770      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
772      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
774      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
776      LOGICAL(KIND=C_BOOL) :: i_index_tmp
777      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
778      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
779      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
780      LOGICAL(KIND=C_BOOL) :: iend_tmp
781      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
782      LOGICAL(KIND=C_BOOL) :: j_index_tmp
783      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
784      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
785      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
786      LOGICAL(KIND=C_BOOL) :: jend_tmp
787      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
788      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
789      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
790      LOGICAL(KIND=C_BOOL) :: long_name_tmp
791      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
792      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
793      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
794      LOGICAL(KIND=C_BOOL) :: mask_tmp
795      LOGICAL, OPTIONAL, INTENT(OUT) :: name
796      LOGICAL(KIND=C_BOOL) :: name_tmp
797      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
798      LOGICAL(KIND=C_BOOL) :: ni_tmp
799      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
800      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
801      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
802      LOGICAL(KIND=C_BOOL) :: nj_tmp
803      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
804      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
805      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
806      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
807      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
808      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
809      LOGICAL, OPTIONAL, INTENT(OUT) :: type
810      LOGICAL(KIND=C_BOOL) :: type_tmp
811      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
812      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
813      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
814      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
815      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
816      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
817      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
818      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
819      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
820      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
821      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
822      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
823      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
824      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
825      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
826      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
827     
828      CALL xios(is_defined_domain_attr_hdl_)  &
829      ( domain_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin  &
830      , data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index, jbegin, jend  &
831      , latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
832      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
833      , zoom_nj_loc )
834   
835  END SUBROUTINE xios(is_defined_domain_attr_hdl)
836 
837  SUBROUTINE xios(is_defined_domain_attr_hdl_)   &
838    ( domain_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
839    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  &
840    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
841    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  &
842    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
843   
844    IMPLICIT NONE
845      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
846      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
847      LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
848      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
849      LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
850      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
851      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
852      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
853      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
854      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
855      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
856      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
857      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
858      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
859      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
860      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
861      LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
862      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
863      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
864      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
865      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
866      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
867      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
868      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
869      LOGICAL(KIND=C_BOOL) :: i_index__tmp
870      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
871      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
872      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
873      LOGICAL(KIND=C_BOOL) :: iend__tmp
874      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
875      LOGICAL(KIND=C_BOOL) :: j_index__tmp
876      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
877      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
878      LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
879      LOGICAL(KIND=C_BOOL) :: jend__tmp
880      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
881      LOGICAL(KIND=C_BOOL) :: latvalue__tmp
882      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
883      LOGICAL(KIND=C_BOOL) :: long_name__tmp
884      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
885      LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
886      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
887      LOGICAL(KIND=C_BOOL) :: mask__tmp
888      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
889      LOGICAL(KIND=C_BOOL) :: name__tmp
890      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
891      LOGICAL(KIND=C_BOOL) :: ni__tmp
892      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
893      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
894      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
895      LOGICAL(KIND=C_BOOL) :: nj__tmp
896      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
897      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
898      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
899      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
900      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
901      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
902      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
903      LOGICAL(KIND=C_BOOL) :: type__tmp
904      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
905      LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
906      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
907      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
908      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
909      LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
910      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
911      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
912      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
913      LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
914      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
915      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
916      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
917      LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
918      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
919      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
920     
921      IF (PRESENT(bounds_lat_)) THEN
922        bounds_lat__tmp=cxios_is_defined_domain_bounds_lat(domain_hdl%daddr)
923        bounds_lat_=bounds_lat__tmp
924      ENDIF
925     
926      IF (PRESENT(bounds_lon_)) THEN
927        bounds_lon__tmp=cxios_is_defined_domain_bounds_lon(domain_hdl%daddr)
928        bounds_lon_=bounds_lon__tmp
929      ENDIF
930     
931      IF (PRESENT(data_dim_)) THEN
932        data_dim__tmp=cxios_is_defined_domain_data_dim(domain_hdl%daddr)
933        data_dim_=data_dim__tmp
934      ENDIF
935     
936      IF (PRESENT(data_i_index_)) THEN
937        data_i_index__tmp=cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
938        data_i_index_=data_i_index__tmp
939      ENDIF
940     
941      IF (PRESENT(data_ibegin_)) THEN
942        data_ibegin__tmp=cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
943        data_ibegin_=data_ibegin__tmp
944      ENDIF
945     
946      IF (PRESENT(data_j_index_)) THEN
947        data_j_index__tmp=cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
948        data_j_index_=data_j_index__tmp
949      ENDIF
950     
951      IF (PRESENT(data_jbegin_)) THEN
952        data_jbegin__tmp=cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
953        data_jbegin_=data_jbegin__tmp
954      ENDIF
955     
956      IF (PRESENT(data_n_index_)) THEN
957        data_n_index__tmp=cxios_is_defined_domain_data_n_index(domain_hdl%daddr)
958        data_n_index_=data_n_index__tmp
959      ENDIF
960     
961      IF (PRESENT(data_ni_)) THEN
962        data_ni__tmp=cxios_is_defined_domain_data_ni(domain_hdl%daddr)
963        data_ni_=data_ni__tmp
964      ENDIF
965     
966      IF (PRESENT(data_nj_)) THEN
967        data_nj__tmp=cxios_is_defined_domain_data_nj(domain_hdl%daddr)
968        data_nj_=data_nj__tmp
969      ENDIF
970     
971      IF (PRESENT(domain_group_ref_)) THEN
972        domain_group_ref__tmp=cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)
973        domain_group_ref_=domain_group_ref__tmp
974      ENDIF
975     
976      IF (PRESENT(i_index_)) THEN
977        i_index__tmp=cxios_is_defined_domain_i_index(domain_hdl%daddr)
978        i_index_=i_index__tmp
979      ENDIF
980     
981      IF (PRESENT(ibegin_)) THEN
982        ibegin__tmp=cxios_is_defined_domain_ibegin(domain_hdl%daddr)
983        ibegin_=ibegin__tmp
984      ENDIF
985     
986      IF (PRESENT(iend_)) THEN
987        iend__tmp=cxios_is_defined_domain_iend(domain_hdl%daddr)
988        iend_=iend__tmp
989      ENDIF
990     
991      IF (PRESENT(j_index_)) THEN
992        j_index__tmp=cxios_is_defined_domain_j_index(domain_hdl%daddr)
993        j_index_=j_index__tmp
994      ENDIF
995     
996      IF (PRESENT(jbegin_)) THEN
997        jbegin__tmp=cxios_is_defined_domain_jbegin(domain_hdl%daddr)
998        jbegin_=jbegin__tmp
999      ENDIF
1000     
1001      IF (PRESENT(jend_)) THEN
1002        jend__tmp=cxios_is_defined_domain_jend(domain_hdl%daddr)
1003        jend_=jend__tmp
1004      ENDIF
1005     
1006      IF (PRESENT(latvalue_)) THEN
1007        latvalue__tmp=cxios_is_defined_domain_latvalue(domain_hdl%daddr)
1008        latvalue_=latvalue__tmp
1009      ENDIF
1010     
1011      IF (PRESENT(long_name_)) THEN
1012        long_name__tmp=cxios_is_defined_domain_long_name(domain_hdl%daddr)
1013        long_name_=long_name__tmp
1014      ENDIF
1015     
1016      IF (PRESENT(lonvalue_)) THEN
1017        lonvalue__tmp=cxios_is_defined_domain_lonvalue(domain_hdl%daddr)
1018        lonvalue_=lonvalue__tmp
1019      ENDIF
1020     
1021      IF (PRESENT(mask_)) THEN
1022        mask__tmp=cxios_is_defined_domain_mask(domain_hdl%daddr)
1023        mask_=mask__tmp
1024      ENDIF
1025     
1026      IF (PRESENT(name_)) THEN
1027        name__tmp=cxios_is_defined_domain_name(domain_hdl%daddr)
1028        name_=name__tmp
1029      ENDIF
1030     
1031      IF (PRESENT(ni_)) THEN
1032        ni__tmp=cxios_is_defined_domain_ni(domain_hdl%daddr)
1033        ni_=ni__tmp
1034      ENDIF
1035     
1036      IF (PRESENT(ni_glo_)) THEN
1037        ni_glo__tmp=cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
1038        ni_glo_=ni_glo__tmp
1039      ENDIF
1040     
1041      IF (PRESENT(nj_)) THEN
1042        nj__tmp=cxios_is_defined_domain_nj(domain_hdl%daddr)
1043        nj_=nj__tmp
1044      ENDIF
1045     
1046      IF (PRESENT(nj_glo_)) THEN
1047        nj_glo__tmp=cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
1048        nj_glo_=nj_glo__tmp
1049      ENDIF
1050     
1051      IF (PRESENT(nvertex_)) THEN
1052        nvertex__tmp=cxios_is_defined_domain_nvertex(domain_hdl%daddr)
1053        nvertex_=nvertex__tmp
1054      ENDIF
1055     
1056      IF (PRESENT(standard_name_)) THEN
1057        standard_name__tmp=cxios_is_defined_domain_standard_name(domain_hdl%daddr)
1058        standard_name_=standard_name__tmp
1059      ENDIF
1060     
1061      IF (PRESENT(type_)) THEN
1062        type__tmp=cxios_is_defined_domain_type(domain_hdl%daddr)
1063        type_=type__tmp
1064      ENDIF
1065     
1066      IF (PRESENT(zoom_ibegin_)) THEN
1067        zoom_ibegin__tmp=cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr)
1068        zoom_ibegin_=zoom_ibegin__tmp
1069      ENDIF
1070     
1071      IF (PRESENT(zoom_ibegin_loc_)) THEN
1072        zoom_ibegin_loc__tmp=cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr)
1073        zoom_ibegin_loc_=zoom_ibegin_loc__tmp
1074      ENDIF
1075     
1076      IF (PRESENT(zoom_jbegin_)) THEN
1077        zoom_jbegin__tmp=cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr)
1078        zoom_jbegin_=zoom_jbegin__tmp
1079      ENDIF
1080     
1081      IF (PRESENT(zoom_jbegin_loc_)) THEN
1082        zoom_jbegin_loc__tmp=cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr)
1083        zoom_jbegin_loc_=zoom_jbegin_loc__tmp
1084      ENDIF
1085     
1086      IF (PRESENT(zoom_ni_)) THEN
1087        zoom_ni__tmp=cxios_is_defined_domain_zoom_ni(domain_hdl%daddr)
1088        zoom_ni_=zoom_ni__tmp
1089      ENDIF
1090     
1091      IF (PRESENT(zoom_ni_loc_)) THEN
1092        zoom_ni_loc__tmp=cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr)
1093        zoom_ni_loc_=zoom_ni_loc__tmp
1094      ENDIF
1095     
1096      IF (PRESENT(zoom_nj_)) THEN
1097        zoom_nj__tmp=cxios_is_defined_domain_zoom_nj(domain_hdl%daddr)
1098        zoom_nj_=zoom_nj__tmp
1099      ENDIF
1100     
1101      IF (PRESENT(zoom_nj_loc_)) THEN
1102        zoom_nj_loc__tmp=cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr)
1103        zoom_nj_loc_=zoom_nj_loc__tmp
1104      ENDIF
1105     
1106     
1107   
1108  END SUBROUTINE xios(is_defined_domain_attr_hdl_)
1109 
1110END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.