source: XIOS3/trunk/src/interface/fortran_attr/idomaingroup_attr.F90 @ 2616

Last change on this file since 2616 was 2616, checked in by jderouillat, 4 months ago

Add XIOS3 fortran interfaces (resources management, chunking, compression)
  • 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: 63.6 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomaingroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domaingroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_domaingroup_attr)  &
14    ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
15    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
16    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
17    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
18    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
19    , nvertex_name, prec, radius, standard_name, type )
20
21    IMPLICIT NONE
22      TYPE(txios(domaingroup))  :: domaingroup_hdl
23      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:)
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:)
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
30      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
31      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
33      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i
34      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
36      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
37      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
39      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
40      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
41      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
42      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
47      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
48      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
49      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
50      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
53      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
56      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
57      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
58      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
59      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
60      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
61      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
63      INTEGER  , OPTIONAL, INTENT(IN) :: ni
64      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
65      INTEGER  , OPTIONAL, INTENT(IN) :: nj
66      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
67      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name
69      INTEGER  , OPTIONAL, INTENT(IN) :: prec
70      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
73
74      CALL xios(get_domaingroup_handle) &
75      (domaingroup_id,domaingroup_hdl)
76      CALL xios(set_domaingroup_attr_hdl_)   &
77      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
78      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
79      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
80      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
81      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
82      , nvertex_name, prec, radius, standard_name, type )
83
84  END SUBROUTINE xios(set_domaingroup_attr)
85
86  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
87    ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
88    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
89    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
90    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
91    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
92    , nvertex_name, prec, radius, standard_name, type )
93
94    IMPLICIT NONE
95      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
96      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
97      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d(:)
98      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d(:,:)
99      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
102      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
105      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i
106      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
108      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
109      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
110      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
111      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
112      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
113      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
114      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
119      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
120      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
121      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
122      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
123      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
124      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
125      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
126      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
127      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
128      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
129      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
130      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
131      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
132      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
133      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
134      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
135      INTEGER  , OPTIONAL, INTENT(IN) :: ni
136      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
137      INTEGER  , OPTIONAL, INTENT(IN) :: nj
138      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
139      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name
141      INTEGER  , OPTIONAL, INTENT(IN) :: prec
142      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
145
146      CALL xios(set_domaingroup_attr_hdl_)  &
147      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
148      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
149      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
150      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
151      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
152      , nvertex_name, prec, radius, standard_name, type )
153
154  END SUBROUTINE xios(set_domaingroup_attr_hdl)
155
156  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
157    ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_  &
158    , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_  &
159    , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  &
160    , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_  &
161    , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_  &
162    , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_  &
163     )
164
165    IMPLICIT NONE
166      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
167      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
168      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_1d_(:)
169      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_2d_(:,:)
170      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
171      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_
173      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
174      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_
176      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_i_
177      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: chunking_weight_j_
178      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
179      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
180      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
181      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
182      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
183      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
184      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
185      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_
187      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_
188      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
189      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
190      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
191      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
192      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
193      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
194      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_
195      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
196      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
197      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_
198      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
199      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
200      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
201      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
202      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
203      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
204      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
205      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
206      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
207      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
208      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
209      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
210      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
211      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: nvertex_name_
212      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
213      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_
214      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
215      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
216
217      IF (PRESENT(area_)) THEN
218        CALL cxios_set_domaingroup_area &
219      (domaingroup_hdl%daddr, area_, SHAPE(area_))
220      ENDIF
221
222      IF (PRESENT(area_1d_)) THEN
223        CALL cxios_set_domaingroup_area_1d &
224      (domaingroup_hdl%daddr, area_1d_, SHAPE(area_1d_))
225      ENDIF
226
227      IF (PRESENT(area_2d_)) THEN
228        CALL cxios_set_domaingroup_area_2d &
229      (domaingroup_hdl%daddr, area_2d_, SHAPE(area_2d_))
230      ENDIF
231
232      IF (PRESENT(bounds_lat_1d_)) THEN
233        CALL cxios_set_domaingroup_bounds_lat_1d &
234      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
235      ENDIF
236
237      IF (PRESENT(bounds_lat_2d_)) THEN
238        CALL cxios_set_domaingroup_bounds_lat_2d &
239      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
240      ENDIF
241
242      IF (PRESENT(bounds_lat_name_)) THEN
243        CALL cxios_set_domaingroup_bounds_lat_name &
244      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
245      ENDIF
246
247      IF (PRESENT(bounds_lon_1d_)) THEN
248        CALL cxios_set_domaingroup_bounds_lon_1d &
249      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
250      ENDIF
251
252      IF (PRESENT(bounds_lon_2d_)) THEN
253        CALL cxios_set_domaingroup_bounds_lon_2d &
254      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
255      ENDIF
256
257      IF (PRESENT(bounds_lon_name_)) THEN
258        CALL cxios_set_domaingroup_bounds_lon_name &
259      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
260      ENDIF
261
262      IF (PRESENT(chunking_weight_i_)) THEN
263        CALL cxios_set_domaingroup_chunking_weight_i &
264      (domaingroup_hdl%daddr, chunking_weight_i_)
265      ENDIF
266
267      IF (PRESENT(chunking_weight_j_)) THEN
268        CALL cxios_set_domaingroup_chunking_weight_j &
269      (domaingroup_hdl%daddr, chunking_weight_j_)
270      ENDIF
271
272      IF (PRESENT(comment_)) THEN
273        CALL cxios_set_domaingroup_comment &
274      (domaingroup_hdl%daddr, comment_, len(comment_))
275      ENDIF
276
277      IF (PRESENT(data_dim_)) THEN
278        CALL cxios_set_domaingroup_data_dim &
279      (domaingroup_hdl%daddr, data_dim_)
280      ENDIF
281
282      IF (PRESENT(data_i_index_)) THEN
283        CALL cxios_set_domaingroup_data_i_index &
284      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
285      ENDIF
286
287      IF (PRESENT(data_ibegin_)) THEN
288        CALL cxios_set_domaingroup_data_ibegin &
289      (domaingroup_hdl%daddr, data_ibegin_)
290      ENDIF
291
292      IF (PRESENT(data_j_index_)) THEN
293        CALL cxios_set_domaingroup_data_j_index &
294      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
295      ENDIF
296
297      IF (PRESENT(data_jbegin_)) THEN
298        CALL cxios_set_domaingroup_data_jbegin &
299      (domaingroup_hdl%daddr, data_jbegin_)
300      ENDIF
301
302      IF (PRESENT(data_ni_)) THEN
303        CALL cxios_set_domaingroup_data_ni &
304      (domaingroup_hdl%daddr, data_ni_)
305      ENDIF
306
307      IF (PRESENT(data_nj_)) THEN
308        CALL cxios_set_domaingroup_data_nj &
309      (domaingroup_hdl%daddr, data_nj_)
310      ENDIF
311
312      IF (PRESENT(dim_i_name_)) THEN
313        CALL cxios_set_domaingroup_dim_i_name &
314      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
315      ENDIF
316
317      IF (PRESENT(dim_j_name_)) THEN
318        CALL cxios_set_domaingroup_dim_j_name &
319      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
320      ENDIF
321
322      IF (PRESENT(domain_ref_)) THEN
323        CALL cxios_set_domaingroup_domain_ref &
324      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
325      ENDIF
326
327      IF (PRESENT(group_ref_)) THEN
328        CALL cxios_set_domaingroup_group_ref &
329      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
330      ENDIF
331
332      IF (PRESENT(i_index_)) THEN
333        CALL cxios_set_domaingroup_i_index &
334      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
335      ENDIF
336
337      IF (PRESENT(ibegin_)) THEN
338        CALL cxios_set_domaingroup_ibegin &
339      (domaingroup_hdl%daddr, ibegin_)
340      ENDIF
341
342      IF (PRESENT(j_index_)) THEN
343        CALL cxios_set_domaingroup_j_index &
344      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
345      ENDIF
346
347      IF (PRESENT(jbegin_)) THEN
348        CALL cxios_set_domaingroup_jbegin &
349      (domaingroup_hdl%daddr, jbegin_)
350      ENDIF
351
352      IF (PRESENT(lat_name_)) THEN
353        CALL cxios_set_domaingroup_lat_name &
354      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
355      ENDIF
356
357      IF (PRESENT(latvalue_1d_)) THEN
358        CALL cxios_set_domaingroup_latvalue_1d &
359      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
360      ENDIF
361
362      IF (PRESENT(latvalue_2d_)) THEN
363        CALL cxios_set_domaingroup_latvalue_2d &
364      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
365      ENDIF
366
367      IF (PRESENT(lon_name_)) THEN
368        CALL cxios_set_domaingroup_lon_name &
369      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
370      ENDIF
371
372      IF (PRESENT(long_name_)) THEN
373        CALL cxios_set_domaingroup_long_name &
374      (domaingroup_hdl%daddr, long_name_, len(long_name_))
375      ENDIF
376
377      IF (PRESENT(lonvalue_1d_)) THEN
378        CALL cxios_set_domaingroup_lonvalue_1d &
379      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
380      ENDIF
381
382      IF (PRESENT(lonvalue_2d_)) THEN
383        CALL cxios_set_domaingroup_lonvalue_2d &
384      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
385      ENDIF
386
387      IF (PRESENT(mask_1d_)) THEN
388        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
389        mask_1d__tmp = mask_1d_
390        CALL cxios_set_domaingroup_mask_1d &
391      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
392      ENDIF
393
394      IF (PRESENT(mask_2d_)) THEN
395        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
396        mask_2d__tmp = mask_2d_
397        CALL cxios_set_domaingroup_mask_2d &
398      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
399      ENDIF
400
401      IF (PRESENT(name_)) THEN
402        CALL cxios_set_domaingroup_name &
403      (domaingroup_hdl%daddr, name_, len(name_))
404      ENDIF
405
406      IF (PRESENT(ni_)) THEN
407        CALL cxios_set_domaingroup_ni &
408      (domaingroup_hdl%daddr, ni_)
409      ENDIF
410
411      IF (PRESENT(ni_glo_)) THEN
412        CALL cxios_set_domaingroup_ni_glo &
413      (domaingroup_hdl%daddr, ni_glo_)
414      ENDIF
415
416      IF (PRESENT(nj_)) THEN
417        CALL cxios_set_domaingroup_nj &
418      (domaingroup_hdl%daddr, nj_)
419      ENDIF
420
421      IF (PRESENT(nj_glo_)) THEN
422        CALL cxios_set_domaingroup_nj_glo &
423      (domaingroup_hdl%daddr, nj_glo_)
424      ENDIF
425
426      IF (PRESENT(nvertex_)) THEN
427        CALL cxios_set_domaingroup_nvertex &
428      (domaingroup_hdl%daddr, nvertex_)
429      ENDIF
430
431      IF (PRESENT(nvertex_name_)) THEN
432        CALL cxios_set_domaingroup_nvertex_name &
433      (domaingroup_hdl%daddr, nvertex_name_, len(nvertex_name_))
434      ENDIF
435
436      IF (PRESENT(prec_)) THEN
437        CALL cxios_set_domaingroup_prec &
438      (domaingroup_hdl%daddr, prec_)
439      ENDIF
440
441      IF (PRESENT(radius_)) THEN
442        CALL cxios_set_domaingroup_radius &
443      (domaingroup_hdl%daddr, radius_)
444      ENDIF
445
446      IF (PRESENT(standard_name_)) THEN
447        CALL cxios_set_domaingroup_standard_name &
448      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
449      ENDIF
450
451      IF (PRESENT(type_)) THEN
452        CALL cxios_set_domaingroup_type &
453      (domaingroup_hdl%daddr, type_, len(type_))
454      ENDIF
455
456  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
457
458  SUBROUTINE xios(get_domaingroup_attr)  &
459    ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
460    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
461    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
462    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
463    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
464    , nvertex_name, prec, radius, standard_name, type )
465
466    IMPLICIT NONE
467      TYPE(txios(domaingroup))  :: domaingroup_hdl
468      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
469      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
470      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:)
471      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:)
472      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
473      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
474      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
475      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
476      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
477      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
478      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i
479      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j
480      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
481      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
482      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
483      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
484      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
485      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
486      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
487      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
488      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
489      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
490      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
491      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
492      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
493      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
494      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
495      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
496      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
497      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
498      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
499      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
500      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
501      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
502      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
503      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
504      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
505      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
506      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
507      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
508      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
509      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
510      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
511      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
512      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
513      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name
514      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
515      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
516      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
517      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
518
519      CALL xios(get_domaingroup_handle) &
520      (domaingroup_id,domaingroup_hdl)
521      CALL xios(get_domaingroup_attr_hdl_)   &
522      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
523      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
524      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
525      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
526      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
527      , nvertex_name, prec, radius, standard_name, type )
528
529  END SUBROUTINE xios(get_domaingroup_attr)
530
531  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
532    ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
533    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
534    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
535    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
536    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
537    , nvertex_name, prec, radius, standard_name, type )
538
539    IMPLICIT NONE
540      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
541      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
542      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d(:)
543      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d(:,:)
544      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
545      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
546      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
547      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
548      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
550      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i
551      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j
552      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
553      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
554      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
555      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
556      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
557      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
558      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
559      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
560      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
561      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
562      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
563      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
564      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
565      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
566      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
567      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
568      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
569      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
570      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
571      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
572      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
573      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
574      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
575      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
576      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
577      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
578      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
579      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
580      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
581      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
582      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
583      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
584      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
585      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name
586      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
587      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
588      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
589      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
590
591      CALL xios(get_domaingroup_attr_hdl_)  &
592      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
593      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
594      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
595      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
596      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
597      , nvertex_name, prec, radius, standard_name, type )
598
599  END SUBROUTINE xios(get_domaingroup_attr_hdl)
600
601  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
602    ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_  &
603    , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_  &
604    , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  &
605    , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_  &
606    , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_  &
607    , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_  &
608     )
609
610    IMPLICIT NONE
611      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
612      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
613      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_1d_(:)
614      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_2d_(:,:)
615      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
616      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
617      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_
618      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
619      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
620      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_
621      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_i_
622      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: chunking_weight_j_
623      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
624      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
625      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
626      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
627      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
628      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
629      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
630      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
631      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_
632      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_
633      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
634      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
635      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
636      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
637      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
638      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
639      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_
640      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
641      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
642      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_
643      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
644      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
645      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
646      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
647      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
648      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
649      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
650      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
651      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
652      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
653      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
654      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
655      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
656      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: nvertex_name_
657      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
658      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_
659      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
660      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
661
662      IF (PRESENT(area_)) THEN
663        CALL cxios_get_domaingroup_area &
664      (domaingroup_hdl%daddr, area_, SHAPE(area_))
665      ENDIF
666
667      IF (PRESENT(area_1d_)) THEN
668        CALL cxios_get_domaingroup_area_1d &
669      (domaingroup_hdl%daddr, area_1d_, SHAPE(area_1d_))
670      ENDIF
671
672      IF (PRESENT(area_2d_)) THEN
673        CALL cxios_get_domaingroup_area_2d &
674      (domaingroup_hdl%daddr, area_2d_, SHAPE(area_2d_))
675      ENDIF
676
677      IF (PRESENT(bounds_lat_1d_)) THEN
678        CALL cxios_get_domaingroup_bounds_lat_1d &
679      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
680      ENDIF
681
682      IF (PRESENT(bounds_lat_2d_)) THEN
683        CALL cxios_get_domaingroup_bounds_lat_2d &
684      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
685      ENDIF
686
687      IF (PRESENT(bounds_lat_name_)) THEN
688        CALL cxios_get_domaingroup_bounds_lat_name &
689      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
690      ENDIF
691
692      IF (PRESENT(bounds_lon_1d_)) THEN
693        CALL cxios_get_domaingroup_bounds_lon_1d &
694      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
695      ENDIF
696
697      IF (PRESENT(bounds_lon_2d_)) THEN
698        CALL cxios_get_domaingroup_bounds_lon_2d &
699      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
700      ENDIF
701
702      IF (PRESENT(bounds_lon_name_)) THEN
703        CALL cxios_get_domaingroup_bounds_lon_name &
704      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
705      ENDIF
706
707      IF (PRESENT(chunking_weight_i_)) THEN
708        CALL cxios_get_domaingroup_chunking_weight_i &
709      (domaingroup_hdl%daddr, chunking_weight_i_)
710      ENDIF
711
712      IF (PRESENT(chunking_weight_j_)) THEN
713        CALL cxios_get_domaingroup_chunking_weight_j &
714      (domaingroup_hdl%daddr, chunking_weight_j_)
715      ENDIF
716
717      IF (PRESENT(comment_)) THEN
718        CALL cxios_get_domaingroup_comment &
719      (domaingroup_hdl%daddr, comment_, len(comment_))
720      ENDIF
721
722      IF (PRESENT(data_dim_)) THEN
723        CALL cxios_get_domaingroup_data_dim &
724      (domaingroup_hdl%daddr, data_dim_)
725      ENDIF
726
727      IF (PRESENT(data_i_index_)) THEN
728        CALL cxios_get_domaingroup_data_i_index &
729      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
730      ENDIF
731
732      IF (PRESENT(data_ibegin_)) THEN
733        CALL cxios_get_domaingroup_data_ibegin &
734      (domaingroup_hdl%daddr, data_ibegin_)
735      ENDIF
736
737      IF (PRESENT(data_j_index_)) THEN
738        CALL cxios_get_domaingroup_data_j_index &
739      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
740      ENDIF
741
742      IF (PRESENT(data_jbegin_)) THEN
743        CALL cxios_get_domaingroup_data_jbegin &
744      (domaingroup_hdl%daddr, data_jbegin_)
745      ENDIF
746
747      IF (PRESENT(data_ni_)) THEN
748        CALL cxios_get_domaingroup_data_ni &
749      (domaingroup_hdl%daddr, data_ni_)
750      ENDIF
751
752      IF (PRESENT(data_nj_)) THEN
753        CALL cxios_get_domaingroup_data_nj &
754      (domaingroup_hdl%daddr, data_nj_)
755      ENDIF
756
757      IF (PRESENT(dim_i_name_)) THEN
758        CALL cxios_get_domaingroup_dim_i_name &
759      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
760      ENDIF
761
762      IF (PRESENT(dim_j_name_)) THEN
763        CALL cxios_get_domaingroup_dim_j_name &
764      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
765      ENDIF
766
767      IF (PRESENT(domain_ref_)) THEN
768        CALL cxios_get_domaingroup_domain_ref &
769      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
770      ENDIF
771
772      IF (PRESENT(group_ref_)) THEN
773        CALL cxios_get_domaingroup_group_ref &
774      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
775      ENDIF
776
777      IF (PRESENT(i_index_)) THEN
778        CALL cxios_get_domaingroup_i_index &
779      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
780      ENDIF
781
782      IF (PRESENT(ibegin_)) THEN
783        CALL cxios_get_domaingroup_ibegin &
784      (domaingroup_hdl%daddr, ibegin_)
785      ENDIF
786
787      IF (PRESENT(j_index_)) THEN
788        CALL cxios_get_domaingroup_j_index &
789      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
790      ENDIF
791
792      IF (PRESENT(jbegin_)) THEN
793        CALL cxios_get_domaingroup_jbegin &
794      (domaingroup_hdl%daddr, jbegin_)
795      ENDIF
796
797      IF (PRESENT(lat_name_)) THEN
798        CALL cxios_get_domaingroup_lat_name &
799      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
800      ENDIF
801
802      IF (PRESENT(latvalue_1d_)) THEN
803        CALL cxios_get_domaingroup_latvalue_1d &
804      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
805      ENDIF
806
807      IF (PRESENT(latvalue_2d_)) THEN
808        CALL cxios_get_domaingroup_latvalue_2d &
809      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
810      ENDIF
811
812      IF (PRESENT(lon_name_)) THEN
813        CALL cxios_get_domaingroup_lon_name &
814      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
815      ENDIF
816
817      IF (PRESENT(long_name_)) THEN
818        CALL cxios_get_domaingroup_long_name &
819      (domaingroup_hdl%daddr, long_name_, len(long_name_))
820      ENDIF
821
822      IF (PRESENT(lonvalue_1d_)) THEN
823        CALL cxios_get_domaingroup_lonvalue_1d &
824      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
825      ENDIF
826
827      IF (PRESENT(lonvalue_2d_)) THEN
828        CALL cxios_get_domaingroup_lonvalue_2d &
829      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
830      ENDIF
831
832      IF (PRESENT(mask_1d_)) THEN
833        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
834        CALL cxios_get_domaingroup_mask_1d &
835      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
836        mask_1d_ = mask_1d__tmp
837      ENDIF
838
839      IF (PRESENT(mask_2d_)) THEN
840        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
841        CALL cxios_get_domaingroup_mask_2d &
842      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
843        mask_2d_ = mask_2d__tmp
844      ENDIF
845
846      IF (PRESENT(name_)) THEN
847        CALL cxios_get_domaingroup_name &
848      (domaingroup_hdl%daddr, name_, len(name_))
849      ENDIF
850
851      IF (PRESENT(ni_)) THEN
852        CALL cxios_get_domaingroup_ni &
853      (domaingroup_hdl%daddr, ni_)
854      ENDIF
855
856      IF (PRESENT(ni_glo_)) THEN
857        CALL cxios_get_domaingroup_ni_glo &
858      (domaingroup_hdl%daddr, ni_glo_)
859      ENDIF
860
861      IF (PRESENT(nj_)) THEN
862        CALL cxios_get_domaingroup_nj &
863      (domaingroup_hdl%daddr, nj_)
864      ENDIF
865
866      IF (PRESENT(nj_glo_)) THEN
867        CALL cxios_get_domaingroup_nj_glo &
868      (domaingroup_hdl%daddr, nj_glo_)
869      ENDIF
870
871      IF (PRESENT(nvertex_)) THEN
872        CALL cxios_get_domaingroup_nvertex &
873      (domaingroup_hdl%daddr, nvertex_)
874      ENDIF
875
876      IF (PRESENT(nvertex_name_)) THEN
877        CALL cxios_get_domaingroup_nvertex_name &
878      (domaingroup_hdl%daddr, nvertex_name_, len(nvertex_name_))
879      ENDIF
880
881      IF (PRESENT(prec_)) THEN
882        CALL cxios_get_domaingroup_prec &
883      (domaingroup_hdl%daddr, prec_)
884      ENDIF
885
886      IF (PRESENT(radius_)) THEN
887        CALL cxios_get_domaingroup_radius &
888      (domaingroup_hdl%daddr, radius_)
889      ENDIF
890
891      IF (PRESENT(standard_name_)) THEN
892        CALL cxios_get_domaingroup_standard_name &
893      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
894      ENDIF
895
896      IF (PRESENT(type_)) THEN
897        CALL cxios_get_domaingroup_type &
898      (domaingroup_hdl%daddr, type_, len(type_))
899      ENDIF
900
901  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
902
903  SUBROUTINE xios(is_defined_domaingroup_attr)  &
904    ( domaingroup_id, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
905    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
906    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
907    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
908    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
909    , nvertex_name, prec, radius, standard_name, type )
910
911    IMPLICIT NONE
912      TYPE(txios(domaingroup))  :: domaingroup_hdl
913      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
914      LOGICAL, OPTIONAL, INTENT(OUT) :: area
915      LOGICAL(KIND=C_BOOL) :: area_tmp
916      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d
917      LOGICAL(KIND=C_BOOL) :: area_1d_tmp
918      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d
919      LOGICAL(KIND=C_BOOL) :: area_2d_tmp
920      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
921      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
922      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
923      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
924      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
925      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
926      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
927      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
928      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
929      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
930      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
931      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
932      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i
933      LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp
934      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j
935      LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp
936      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
937      LOGICAL(KIND=C_BOOL) :: comment_tmp
938      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
939      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
940      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
941      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
942      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
943      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
944      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
945      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
946      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
947      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
948      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
949      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
950      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
951      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
952      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
953      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
954      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
955      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
956      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
957      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
958      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
959      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
960      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
961      LOGICAL(KIND=C_BOOL) :: i_index_tmp
962      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
963      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
964      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
965      LOGICAL(KIND=C_BOOL) :: j_index_tmp
966      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
967      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
968      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
969      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
970      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
971      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
972      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
973      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
974      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
975      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
976      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
977      LOGICAL(KIND=C_BOOL) :: long_name_tmp
978      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
979      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
980      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
981      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
982      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
983      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
984      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
985      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
986      LOGICAL, OPTIONAL, INTENT(OUT) :: name
987      LOGICAL(KIND=C_BOOL) :: name_tmp
988      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
989      LOGICAL(KIND=C_BOOL) :: ni_tmp
990      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
991      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
992      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
993      LOGICAL(KIND=C_BOOL) :: nj_tmp
994      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
995      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
996      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
997      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
998      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name
999      LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp
1000      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1001      LOGICAL(KIND=C_BOOL) :: prec_tmp
1002      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1003      LOGICAL(KIND=C_BOOL) :: radius_tmp
1004      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1005      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1006      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1007      LOGICAL(KIND=C_BOOL) :: type_tmp
1008
1009      CALL xios(get_domaingroup_handle) &
1010      (domaingroup_id,domaingroup_hdl)
1011      CALL xios(is_defined_domaingroup_attr_hdl_)   &
1012      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
1013      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
1014      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
1015      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
1016      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
1017      , nvertex_name, prec, radius, standard_name, type )
1018
1019  END SUBROUTINE xios(is_defined_domaingroup_attr)
1020
1021  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
1022    ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
1023    , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
1024    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
1025    , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
1026    , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
1027    , nvertex_name, prec, radius, standard_name, type )
1028
1029    IMPLICIT NONE
1030      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
1031      LOGICAL, OPTIONAL, INTENT(OUT) :: area
1032      LOGICAL(KIND=C_BOOL) :: area_tmp
1033      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d
1034      LOGICAL(KIND=C_BOOL) :: area_1d_tmp
1035      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d
1036      LOGICAL(KIND=C_BOOL) :: area_2d_tmp
1037      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1038      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
1039      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1040      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
1041      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1042      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
1043      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1044      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
1045      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1046      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
1047      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1048      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
1049      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i
1050      LOGICAL(KIND=C_BOOL) :: chunking_weight_i_tmp
1051      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j
1052      LOGICAL(KIND=C_BOOL) :: chunking_weight_j_tmp
1053      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1054      LOGICAL(KIND=C_BOOL) :: comment_tmp
1055      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1056      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
1057      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1058      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
1059      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1060      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
1061      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1062      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
1063      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1064      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
1065      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1066      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
1067      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1068      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
1069      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1070      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
1071      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1072      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
1073      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1074      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
1075      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
1076      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
1077      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1078      LOGICAL(KIND=C_BOOL) :: i_index_tmp
1079      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1080      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
1081      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1082      LOGICAL(KIND=C_BOOL) :: j_index_tmp
1083      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1084      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
1085      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1086      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
1087      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1088      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
1089      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1090      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
1091      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1092      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
1093      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1094      LOGICAL(KIND=C_BOOL) :: long_name_tmp
1095      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1096      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1097      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1098      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1099      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1100      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1101      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1102      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
1103      LOGICAL, OPTIONAL, INTENT(OUT) :: name
1104      LOGICAL(KIND=C_BOOL) :: name_tmp
1105      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1106      LOGICAL(KIND=C_BOOL) :: ni_tmp
1107      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1108      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1109      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1110      LOGICAL(KIND=C_BOOL) :: nj_tmp
1111      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1112      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
1113      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1114      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
1115      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name
1116      LOGICAL(KIND=C_BOOL) :: nvertex_name_tmp
1117      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1118      LOGICAL(KIND=C_BOOL) :: prec_tmp
1119      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1120      LOGICAL(KIND=C_BOOL) :: radius_tmp
1121      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1122      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1123      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1124      LOGICAL(KIND=C_BOOL) :: type_tmp
1125
1126      CALL xios(is_defined_domaingroup_attr_hdl_)  &
1127      ( domaingroup_hdl, area, area_1d, area_2d, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d  &
1128      , bounds_lon_2d, bounds_lon_name, chunking_weight_i, chunking_weight_j, comment, data_dim, data_i_index  &
1129      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, dim_i_name, dim_j_name, domain_ref  &
1130      , group_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d, latvalue_2d, lon_name  &
1131      , long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex  &
1132      , nvertex_name, prec, radius, standard_name, type )
1133
1134  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
1135
1136  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
1137    ( domaingroup_hdl, area_, area_1d_, area_2d_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_  &
1138    , bounds_lon_1d_, bounds_lon_2d_, bounds_lon_name_, chunking_weight_i_, chunking_weight_j_, comment_  &
1139    , data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, dim_i_name_  &
1140    , dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, lat_name_, latvalue_1d_  &
1141    , latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_  &
1142    , ni_, ni_glo_, nj_, nj_glo_, nvertex_, nvertex_name_, prec_, radius_, standard_name_, type_  &
1143     )
1144
1145    IMPLICIT NONE
1146      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
1147      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
1148      LOGICAL(KIND=C_BOOL) :: area__tmp
1149      LOGICAL, OPTIONAL, INTENT(OUT) :: area_1d_
1150      LOGICAL(KIND=C_BOOL) :: area_1d__tmp
1151      LOGICAL, OPTIONAL, INTENT(OUT) :: area_2d_
1152      LOGICAL(KIND=C_BOOL) :: area_2d__tmp
1153      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
1154      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
1155      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
1156      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
1157      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_
1158      LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp
1159      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
1160      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
1161      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
1162      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
1163      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_
1164      LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp
1165      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_i_
1166      LOGICAL(KIND=C_BOOL) :: chunking_weight_i__tmp
1167      LOGICAL, OPTIONAL, INTENT(OUT) :: chunking_weight_j_
1168      LOGICAL(KIND=C_BOOL) :: chunking_weight_j__tmp
1169      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1170      LOGICAL(KIND=C_BOOL) :: comment__tmp
1171      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
1172      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
1173      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
1174      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
1175      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
1176      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
1177      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
1178      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
1179      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
1180      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
1181      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
1182      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
1183      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
1184      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
1185      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_
1186      LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp
1187      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_
1188      LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp
1189      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
1190      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
1191      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
1192      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
1193      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
1194      LOGICAL(KIND=C_BOOL) :: i_index__tmp
1195      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
1196      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
1197      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
1198      LOGICAL(KIND=C_BOOL) :: j_index__tmp
1199      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
1200      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
1201      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_
1202      LOGICAL(KIND=C_BOOL) :: lat_name__tmp
1203      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
1204      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
1205      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
1206      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
1207      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_
1208      LOGICAL(KIND=C_BOOL) :: lon_name__tmp
1209      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
1210      LOGICAL(KIND=C_BOOL) :: long_name__tmp
1211      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
1212      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
1213      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
1214      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
1215      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
1216      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
1217      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
1218      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
1219      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1220      LOGICAL(KIND=C_BOOL) :: name__tmp
1221      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
1222      LOGICAL(KIND=C_BOOL) :: ni__tmp
1223      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
1224      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
1225      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
1226      LOGICAL(KIND=C_BOOL) :: nj__tmp
1227      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
1228      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
1229      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
1230      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
1231      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_name_
1232      LOGICAL(KIND=C_BOOL) :: nvertex_name__tmp
1233      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
1234      LOGICAL(KIND=C_BOOL) :: prec__tmp
1235      LOGICAL, OPTIONAL, INTENT(OUT) :: radius_
1236      LOGICAL(KIND=C_BOOL) :: radius__tmp
1237      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
1238      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
1239      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1240      LOGICAL(KIND=C_BOOL) :: type__tmp
1241
1242      IF (PRESENT(area_)) THEN
1243        area__tmp = cxios_is_defined_domaingroup_area &
1244      (domaingroup_hdl%daddr)
1245        area_ = area__tmp
1246      ENDIF
1247
1248      IF (PRESENT(area_1d_)) THEN
1249        area_1d__tmp = cxios_is_defined_domaingroup_area_1d &
1250      (domaingroup_hdl%daddr)
1251        area_1d_ = area_1d__tmp
1252      ENDIF
1253
1254      IF (PRESENT(area_2d_)) THEN
1255        area_2d__tmp = cxios_is_defined_domaingroup_area_2d &
1256      (domaingroup_hdl%daddr)
1257        area_2d_ = area_2d__tmp
1258      ENDIF
1259
1260      IF (PRESENT(bounds_lat_1d_)) THEN
1261        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d &
1262      (domaingroup_hdl%daddr)
1263        bounds_lat_1d_ = bounds_lat_1d__tmp
1264      ENDIF
1265
1266      IF (PRESENT(bounds_lat_2d_)) THEN
1267        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d &
1268      (domaingroup_hdl%daddr)
1269        bounds_lat_2d_ = bounds_lat_2d__tmp
1270      ENDIF
1271
1272      IF (PRESENT(bounds_lat_name_)) THEN
1273        bounds_lat_name__tmp = cxios_is_defined_domaingroup_bounds_lat_name &
1274      (domaingroup_hdl%daddr)
1275        bounds_lat_name_ = bounds_lat_name__tmp
1276      ENDIF
1277
1278      IF (PRESENT(bounds_lon_1d_)) THEN
1279        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d &
1280      (domaingroup_hdl%daddr)
1281        bounds_lon_1d_ = bounds_lon_1d__tmp
1282      ENDIF
1283
1284      IF (PRESENT(bounds_lon_2d_)) THEN
1285        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d &
1286      (domaingroup_hdl%daddr)
1287        bounds_lon_2d_ = bounds_lon_2d__tmp
1288      ENDIF
1289
1290      IF (PRESENT(bounds_lon_name_)) THEN
1291        bounds_lon_name__tmp = cxios_is_defined_domaingroup_bounds_lon_name &
1292      (domaingroup_hdl%daddr)
1293        bounds_lon_name_ = bounds_lon_name__tmp
1294      ENDIF
1295
1296      IF (PRESENT(chunking_weight_i_)) THEN
1297        chunking_weight_i__tmp = cxios_is_defined_domaingroup_chunking_weight_i &
1298      (domaingroup_hdl%daddr)
1299        chunking_weight_i_ = chunking_weight_i__tmp
1300      ENDIF
1301
1302      IF (PRESENT(chunking_weight_j_)) THEN
1303        chunking_weight_j__tmp = cxios_is_defined_domaingroup_chunking_weight_j &
1304      (domaingroup_hdl%daddr)
1305        chunking_weight_j_ = chunking_weight_j__tmp
1306      ENDIF
1307
1308      IF (PRESENT(comment_)) THEN
1309        comment__tmp = cxios_is_defined_domaingroup_comment &
1310      (domaingroup_hdl%daddr)
1311        comment_ = comment__tmp
1312      ENDIF
1313
1314      IF (PRESENT(data_dim_)) THEN
1315        data_dim__tmp = cxios_is_defined_domaingroup_data_dim &
1316      (domaingroup_hdl%daddr)
1317        data_dim_ = data_dim__tmp
1318      ENDIF
1319
1320      IF (PRESENT(data_i_index_)) THEN
1321        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index &
1322      (domaingroup_hdl%daddr)
1323        data_i_index_ = data_i_index__tmp
1324      ENDIF
1325
1326      IF (PRESENT(data_ibegin_)) THEN
1327        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin &
1328      (domaingroup_hdl%daddr)
1329        data_ibegin_ = data_ibegin__tmp
1330      ENDIF
1331
1332      IF (PRESENT(data_j_index_)) THEN
1333        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index &
1334      (domaingroup_hdl%daddr)
1335        data_j_index_ = data_j_index__tmp
1336      ENDIF
1337
1338      IF (PRESENT(data_jbegin_)) THEN
1339        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin &
1340      (domaingroup_hdl%daddr)
1341        data_jbegin_ = data_jbegin__tmp
1342      ENDIF
1343
1344      IF (PRESENT(data_ni_)) THEN
1345        data_ni__tmp = cxios_is_defined_domaingroup_data_ni &
1346      (domaingroup_hdl%daddr)
1347        data_ni_ = data_ni__tmp
1348      ENDIF
1349
1350      IF (PRESENT(data_nj_)) THEN
1351        data_nj__tmp = cxios_is_defined_domaingroup_data_nj &
1352      (domaingroup_hdl%daddr)
1353        data_nj_ = data_nj__tmp
1354      ENDIF
1355
1356      IF (PRESENT(dim_i_name_)) THEN
1357        dim_i_name__tmp = cxios_is_defined_domaingroup_dim_i_name &
1358      (domaingroup_hdl%daddr)
1359        dim_i_name_ = dim_i_name__tmp
1360      ENDIF
1361
1362      IF (PRESENT(dim_j_name_)) THEN
1363        dim_j_name__tmp = cxios_is_defined_domaingroup_dim_j_name &
1364      (domaingroup_hdl%daddr)
1365        dim_j_name_ = dim_j_name__tmp
1366      ENDIF
1367
1368      IF (PRESENT(domain_ref_)) THEN
1369        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref &
1370      (domaingroup_hdl%daddr)
1371        domain_ref_ = domain_ref__tmp
1372      ENDIF
1373
1374      IF (PRESENT(group_ref_)) THEN
1375        group_ref__tmp = cxios_is_defined_domaingroup_group_ref &
1376      (domaingroup_hdl%daddr)
1377        group_ref_ = group_ref__tmp
1378      ENDIF
1379
1380      IF (PRESENT(i_index_)) THEN
1381        i_index__tmp = cxios_is_defined_domaingroup_i_index &
1382      (domaingroup_hdl%daddr)
1383        i_index_ = i_index__tmp
1384      ENDIF
1385
1386      IF (PRESENT(ibegin_)) THEN
1387        ibegin__tmp = cxios_is_defined_domaingroup_ibegin &
1388      (domaingroup_hdl%daddr)
1389        ibegin_ = ibegin__tmp
1390      ENDIF
1391
1392      IF (PRESENT(j_index_)) THEN
1393        j_index__tmp = cxios_is_defined_domaingroup_j_index &
1394      (domaingroup_hdl%daddr)
1395        j_index_ = j_index__tmp
1396      ENDIF
1397
1398      IF (PRESENT(jbegin_)) THEN
1399        jbegin__tmp = cxios_is_defined_domaingroup_jbegin &
1400      (domaingroup_hdl%daddr)
1401        jbegin_ = jbegin__tmp
1402      ENDIF
1403
1404      IF (PRESENT(lat_name_)) THEN
1405        lat_name__tmp = cxios_is_defined_domaingroup_lat_name &
1406      (domaingroup_hdl%daddr)
1407        lat_name_ = lat_name__tmp
1408      ENDIF
1409
1410      IF (PRESENT(latvalue_1d_)) THEN
1411        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d &
1412      (domaingroup_hdl%daddr)
1413        latvalue_1d_ = latvalue_1d__tmp
1414      ENDIF
1415
1416      IF (PRESENT(latvalue_2d_)) THEN
1417        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d &
1418      (domaingroup_hdl%daddr)
1419        latvalue_2d_ = latvalue_2d__tmp
1420      ENDIF
1421
1422      IF (PRESENT(lon_name_)) THEN
1423        lon_name__tmp = cxios_is_defined_domaingroup_lon_name &
1424      (domaingroup_hdl%daddr)
1425        lon_name_ = lon_name__tmp
1426      ENDIF
1427
1428      IF (PRESENT(long_name_)) THEN
1429        long_name__tmp = cxios_is_defined_domaingroup_long_name &
1430      (domaingroup_hdl%daddr)
1431        long_name_ = long_name__tmp
1432      ENDIF
1433
1434      IF (PRESENT(lonvalue_1d_)) THEN
1435        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d &
1436      (domaingroup_hdl%daddr)
1437        lonvalue_1d_ = lonvalue_1d__tmp
1438      ENDIF
1439
1440      IF (PRESENT(lonvalue_2d_)) THEN
1441        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d &
1442      (domaingroup_hdl%daddr)
1443        lonvalue_2d_ = lonvalue_2d__tmp
1444      ENDIF
1445
1446      IF (PRESENT(mask_1d_)) THEN
1447        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d &
1448      (domaingroup_hdl%daddr)
1449        mask_1d_ = mask_1d__tmp
1450      ENDIF
1451
1452      IF (PRESENT(mask_2d_)) THEN
1453        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d &
1454      (domaingroup_hdl%daddr)
1455        mask_2d_ = mask_2d__tmp
1456      ENDIF
1457
1458      IF (PRESENT(name_)) THEN
1459        name__tmp = cxios_is_defined_domaingroup_name &
1460      (domaingroup_hdl%daddr)
1461        name_ = name__tmp
1462      ENDIF
1463
1464      IF (PRESENT(ni_)) THEN
1465        ni__tmp = cxios_is_defined_domaingroup_ni &
1466      (domaingroup_hdl%daddr)
1467        ni_ = ni__tmp
1468      ENDIF
1469
1470      IF (PRESENT(ni_glo_)) THEN
1471        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo &
1472      (domaingroup_hdl%daddr)
1473        ni_glo_ = ni_glo__tmp
1474      ENDIF
1475
1476      IF (PRESENT(nj_)) THEN
1477        nj__tmp = cxios_is_defined_domaingroup_nj &
1478      (domaingroup_hdl%daddr)
1479        nj_ = nj__tmp
1480      ENDIF
1481
1482      IF (PRESENT(nj_glo_)) THEN
1483        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo &
1484      (domaingroup_hdl%daddr)
1485        nj_glo_ = nj_glo__tmp
1486      ENDIF
1487
1488      IF (PRESENT(nvertex_)) THEN
1489        nvertex__tmp = cxios_is_defined_domaingroup_nvertex &
1490      (domaingroup_hdl%daddr)
1491        nvertex_ = nvertex__tmp
1492      ENDIF
1493
1494      IF (PRESENT(nvertex_name_)) THEN
1495        nvertex_name__tmp = cxios_is_defined_domaingroup_nvertex_name &
1496      (domaingroup_hdl%daddr)
1497        nvertex_name_ = nvertex_name__tmp
1498      ENDIF
1499
1500      IF (PRESENT(prec_)) THEN
1501        prec__tmp = cxios_is_defined_domaingroup_prec &
1502      (domaingroup_hdl%daddr)
1503        prec_ = prec__tmp
1504      ENDIF
1505
1506      IF (PRESENT(radius_)) THEN
1507        radius__tmp = cxios_is_defined_domaingroup_radius &
1508      (domaingroup_hdl%daddr)
1509        radius_ = radius__tmp
1510      ENDIF
1511
1512      IF (PRESENT(standard_name_)) THEN
1513        standard_name__tmp = cxios_is_defined_domaingroup_standard_name &
1514      (domaingroup_hdl%daddr)
1515        standard_name_ = standard_name__tmp
1516      ENDIF
1517
1518      IF (PRESENT(type_)) THEN
1519        type__tmp = cxios_is_defined_domaingroup_type &
1520      (domaingroup_hdl%daddr)
1521        type_ = type__tmp
1522      ENDIF
1523
1524  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1525
1526END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.