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

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

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