source: XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90 @ 778

Last change on this file since 778 was 690, checked in by mhnguyen, 9 years ago

Updating some fortran interface

Test
+) On Curie
+) All tests pass
  • 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: 47.0 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, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
15    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
16    , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
17    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
18    , type )
19
20    IMPLICIT NONE
21      TYPE(txios(domaingroup))  :: domaingroup_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
34      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
39      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
40      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
41      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
42      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
43      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
44      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
46      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
47      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
48      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
49      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
50      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
51      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
53      INTEGER  , OPTIONAL, INTENT(IN) :: ni
54      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
55      INTEGER  , OPTIONAL, INTENT(IN) :: nj
56      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
57      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
60
61      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
62      CALL xios(set_domaingroup_attr_hdl_)   &
63      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
64      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
65      , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
66      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
67      , type )
68
69  END SUBROUTINE xios(set_domaingroup_attr)
70
71  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
72    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
73    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
74    , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
75    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
76    , type )
77
78    IMPLICIT NONE
79      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
80      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
81      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
82      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
84      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
85      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
86      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
90      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
91      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
96      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
97      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
98      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
99      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
104      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
105      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
106      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
107      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
108      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
110      INTEGER  , OPTIONAL, INTENT(IN) :: ni
111      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
112      INTEGER  , OPTIONAL, INTENT(IN) :: nj
113      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
114      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
117
118      CALL xios(set_domaingroup_attr_hdl_)  &
119      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
120      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
121      , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
122      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
123      , type )
124
125  END SUBROUTINE xios(set_domaingroup_attr_hdl)
126
127  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
128    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
129    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  &
130    , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  &
131    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  &
132    , nvertex_, standard_name_, type_ )
133
134    IMPLICIT NONE
135      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
136      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
137      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
139      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
141      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
142      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
143      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
144      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
145      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
146      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
147      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_
151      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
152      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
153      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
154      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
155      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
156      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
157      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
158      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
159      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
160      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
161      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
162      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
163      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
164      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
165      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
166      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
167      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
168      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
169      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
170      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
171      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
173
174      IF (PRESENT(area_)) THEN
175        CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_))
176      ENDIF
177
178      IF (PRESENT(bounds_lat_1d_)) THEN
179        CALL cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
180      ENDIF
181
182      IF (PRESENT(bounds_lat_2d_)) THEN
183        CALL cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
184      ENDIF
185
186      IF (PRESENT(bounds_lon_1d_)) THEN
187        CALL cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
188      ENDIF
189
190      IF (PRESENT(bounds_lon_2d_)) THEN
191        CALL cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
192      ENDIF
193
194      IF (PRESENT(data_dim_)) THEN
195        CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
196      ENDIF
197
198      IF (PRESENT(data_i_index_)) THEN
199        CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
200      ENDIF
201
202      IF (PRESENT(data_ibegin_)) THEN
203        CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
204      ENDIF
205
206      IF (PRESENT(data_j_index_)) THEN
207        CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
208      ENDIF
209
210      IF (PRESENT(data_jbegin_)) THEN
211        CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
212      ENDIF
213
214      IF (PRESENT(data_ni_)) THEN
215        CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
216      ENDIF
217
218      IF (PRESENT(data_nj_)) THEN
219        CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
220      ENDIF
221
222      IF (PRESENT(domain_group_ref_)) THEN
223        CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
224      ENDIF
225
226      IF (PRESENT(domain_ref_)) THEN
227        CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
228      ENDIF
229
230      IF (PRESENT(domain_src_)) THEN
231        CALL cxios_set_domaingroup_domain_src(domaingroup_hdl%daddr, domain_src_, len(domain_src_))
232      ENDIF
233
234      IF (PRESENT(group_ref_)) THEN
235        CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
236      ENDIF
237
238      IF (PRESENT(i_index_)) THEN
239        CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
240      ENDIF
241
242      IF (PRESENT(ibegin_)) THEN
243        CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
244      ENDIF
245
246      IF (PRESENT(j_index_)) THEN
247        CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
248      ENDIF
249
250      IF (PRESENT(jbegin_)) THEN
251        CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
252      ENDIF
253
254      IF (PRESENT(latvalue_1d_)) THEN
255        CALL cxios_set_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
256      ENDIF
257
258      IF (PRESENT(latvalue_2d_)) THEN
259        CALL cxios_set_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
260      ENDIF
261
262      IF (PRESENT(long_name_)) THEN
263        CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
264      ENDIF
265
266      IF (PRESENT(lonvalue_1d_)) THEN
267        CALL cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
268      ENDIF
269
270      IF (PRESENT(lonvalue_2d_)) THEN
271        CALL cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
272      ENDIF
273
274      IF (PRESENT(mask_1d_)) THEN
275        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
276        mask_1d__tmp = mask_1d_
277        CALL cxios_set_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
278      ENDIF
279
280      IF (PRESENT(mask_2d_)) THEN
281        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
282        mask_2d__tmp = mask_2d_
283        CALL cxios_set_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
284      ENDIF
285
286      IF (PRESENT(name_)) THEN
287        CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
288      ENDIF
289
290      IF (PRESENT(ni_)) THEN
291        CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
292      ENDIF
293
294      IF (PRESENT(ni_glo_)) THEN
295        CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
296      ENDIF
297
298      IF (PRESENT(nj_)) THEN
299        CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
300      ENDIF
301
302      IF (PRESENT(nj_glo_)) THEN
303        CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
304      ENDIF
305
306      IF (PRESENT(nvertex_)) THEN
307        CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
308      ENDIF
309
310      IF (PRESENT(standard_name_)) THEN
311        CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
312      ENDIF
313
314      IF (PRESENT(type_)) THEN
315        CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
316      ENDIF
317
318  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
319
320  SUBROUTINE xios(get_domaingroup_attr)  &
321    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
322    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
323    , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
324    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
325    , type )
326
327    IMPLICIT NONE
328      TYPE(txios(domaingroup))  :: domaingroup_hdl
329      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
330      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
331      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
332      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
333      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
334      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
335      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
336      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
337      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
338      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
339      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
340      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
341      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
342      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
343      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src
345      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
346      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
347      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
348      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
349      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
351      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
352      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
353      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
354      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
355      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
356      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
357      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
358      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
359      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
360      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
361      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
362      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
363      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
364      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
365      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
367
368      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
369      CALL xios(get_domaingroup_attr_hdl_)   &
370      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
371      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
372      , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
373      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
374      , type )
375
376  END SUBROUTINE xios(get_domaingroup_attr)
377
378  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
379    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
380    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
381    , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
382    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
383    , type )
384
385    IMPLICIT NONE
386      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
387      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
388      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
389      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
390      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
391      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
392      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
393      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
394      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
395      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
396      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
397      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
398      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
399      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
401      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src
402      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
403      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
404      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
405      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
406      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
407      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
408      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
410      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
411      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
412      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
413      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
414      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
415      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
416      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
417      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
418      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
419      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
420      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
421      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
423      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
424
425      CALL xios(get_domaingroup_attr_hdl_)  &
426      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
427      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
428      , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
429      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
430      , type )
431
432  END SUBROUTINE xios(get_domaingroup_attr_hdl)
433
434  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
435    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
436    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  &
437    , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  &
438    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  &
439    , nvertex_, standard_name_, type_ )
440
441    IMPLICIT NONE
442      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
443      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
444      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
445      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
446      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
447      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
448      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
449      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
450      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
451      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
452      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
453      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
454      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
455      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_
458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
459      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
460      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
461      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
462      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
463      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
464      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
466      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
467      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
468      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
469      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
470      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
471      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
472      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
473      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
474      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
475      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
476      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
477      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
478      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
479      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
480
481      IF (PRESENT(area_)) THEN
482        CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_))
483      ENDIF
484
485      IF (PRESENT(bounds_lat_1d_)) THEN
486        CALL cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
487      ENDIF
488
489      IF (PRESENT(bounds_lat_2d_)) THEN
490        CALL cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
491      ENDIF
492
493      IF (PRESENT(bounds_lon_1d_)) THEN
494        CALL cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
495      ENDIF
496
497      IF (PRESENT(bounds_lon_2d_)) THEN
498        CALL cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
499      ENDIF
500
501      IF (PRESENT(data_dim_)) THEN
502        CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
503      ENDIF
504
505      IF (PRESENT(data_i_index_)) THEN
506        CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
507      ENDIF
508
509      IF (PRESENT(data_ibegin_)) THEN
510        CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
511      ENDIF
512
513      IF (PRESENT(data_j_index_)) THEN
514        CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
515      ENDIF
516
517      IF (PRESENT(data_jbegin_)) THEN
518        CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
519      ENDIF
520
521      IF (PRESENT(data_ni_)) THEN
522        CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
523      ENDIF
524
525      IF (PRESENT(data_nj_)) THEN
526        CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
527      ENDIF
528
529      IF (PRESENT(domain_group_ref_)) THEN
530        CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
531      ENDIF
532
533      IF (PRESENT(domain_ref_)) THEN
534        CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
535      ENDIF
536
537      IF (PRESENT(domain_src_)) THEN
538        CALL cxios_get_domaingroup_domain_src(domaingroup_hdl%daddr, domain_src_, len(domain_src_))
539      ENDIF
540
541      IF (PRESENT(group_ref_)) THEN
542        CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
543      ENDIF
544
545      IF (PRESENT(i_index_)) THEN
546        CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
547      ENDIF
548
549      IF (PRESENT(ibegin_)) THEN
550        CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
551      ENDIF
552
553      IF (PRESENT(j_index_)) THEN
554        CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
555      ENDIF
556
557      IF (PRESENT(jbegin_)) THEN
558        CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
559      ENDIF
560
561      IF (PRESENT(latvalue_1d_)) THEN
562        CALL cxios_get_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
563      ENDIF
564
565      IF (PRESENT(latvalue_2d_)) THEN
566        CALL cxios_get_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
567      ENDIF
568
569      IF (PRESENT(long_name_)) THEN
570        CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
571      ENDIF
572
573      IF (PRESENT(lonvalue_1d_)) THEN
574        CALL cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
575      ENDIF
576
577      IF (PRESENT(lonvalue_2d_)) THEN
578        CALL cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
579      ENDIF
580
581      IF (PRESENT(mask_1d_)) THEN
582        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
583        CALL cxios_get_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
584        mask_1d_ = mask_1d__tmp
585      ENDIF
586
587      IF (PRESENT(mask_2d_)) THEN
588        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
589        CALL cxios_get_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
590        mask_2d_ = mask_2d__tmp
591      ENDIF
592
593      IF (PRESENT(name_)) THEN
594        CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
595      ENDIF
596
597      IF (PRESENT(ni_)) THEN
598        CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
599      ENDIF
600
601      IF (PRESENT(ni_glo_)) THEN
602        CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
603      ENDIF
604
605      IF (PRESENT(nj_)) THEN
606        CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
607      ENDIF
608
609      IF (PRESENT(nj_glo_)) THEN
610        CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
611      ENDIF
612
613      IF (PRESENT(nvertex_)) THEN
614        CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
615      ENDIF
616
617      IF (PRESENT(standard_name_)) THEN
618        CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
619      ENDIF
620
621      IF (PRESENT(type_)) THEN
622        CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
623      ENDIF
624
625  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
626
627  SUBROUTINE xios(is_defined_domaingroup_attr)  &
628    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
629    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
630    , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
631    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
632    , type )
633
634    IMPLICIT NONE
635      TYPE(txios(domaingroup))  :: domaingroup_hdl
636      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
637      LOGICAL, OPTIONAL, INTENT(OUT) :: area
638      LOGICAL(KIND=C_BOOL) :: area_tmp
639      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
640      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
641      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
642      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
643      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
644      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
645      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
646      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
647      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
648      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
649      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
650      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
651      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
652      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
653      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
654      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
655      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
656      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
657      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
658      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
659      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
660      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
661      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
662      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
663      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
664      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
665      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src
666      LOGICAL(KIND=C_BOOL) :: domain_src_tmp
667      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
668      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
669      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
670      LOGICAL(KIND=C_BOOL) :: i_index_tmp
671      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
672      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
673      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
674      LOGICAL(KIND=C_BOOL) :: j_index_tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
676      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
678      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
679      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
680      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
682      LOGICAL(KIND=C_BOOL) :: long_name_tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
684      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
686      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
688      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
690      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: name
692      LOGICAL(KIND=C_BOOL) :: name_tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
694      LOGICAL(KIND=C_BOOL) :: ni_tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
696      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
698      LOGICAL(KIND=C_BOOL) :: nj_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
700      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
702      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
704      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: type
706      LOGICAL(KIND=C_BOOL) :: type_tmp
707
708      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
709      CALL xios(is_defined_domaingroup_attr_hdl_)   &
710      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
711      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
712      , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
713      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
714      , type )
715
716  END SUBROUTINE xios(is_defined_domaingroup_attr)
717
718  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
719    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
720    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
721    , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
722    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
723    , type )
724
725    IMPLICIT NONE
726      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
727      LOGICAL, OPTIONAL, INTENT(OUT) :: area
728      LOGICAL(KIND=C_BOOL) :: area_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
730      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
732      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
734      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
736      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
738      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
740      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
742      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
743      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
744      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
746      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
748      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
750      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
751      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
752      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
753      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
754      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
755      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src
756      LOGICAL(KIND=C_BOOL) :: domain_src_tmp
757      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
758      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
760      LOGICAL(KIND=C_BOOL) :: i_index_tmp
761      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
762      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
764      LOGICAL(KIND=C_BOOL) :: j_index_tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
766      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
767      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
768      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
770      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
772      LOGICAL(KIND=C_BOOL) :: long_name_tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
774      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
776      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
777      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
778      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
779      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
780      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
781      LOGICAL, OPTIONAL, INTENT(OUT) :: name
782      LOGICAL(KIND=C_BOOL) :: name_tmp
783      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
784      LOGICAL(KIND=C_BOOL) :: ni_tmp
785      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
786      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
787      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
788      LOGICAL(KIND=C_BOOL) :: nj_tmp
789      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
790      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
791      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
792      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
793      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
794      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
795      LOGICAL, OPTIONAL, INTENT(OUT) :: type
796      LOGICAL(KIND=C_BOOL) :: type_tmp
797
798      CALL xios(is_defined_domaingroup_attr_hdl_)  &
799      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
800      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
801      , domain_src, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  &
802      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
803      , type )
804
805  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
806
807  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
808    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
809    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  &
810    , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  &
811    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  &
812    , nvertex_, standard_name_, type_ )
813
814    IMPLICIT NONE
815      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
816      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
817      LOGICAL(KIND=C_BOOL) :: area__tmp
818      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
819      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
820      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
821      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
822      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
823      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
824      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
825      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
826      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
827      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
828      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
829      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
830      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
831      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
832      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
833      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
834      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
835      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
836      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
837      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
838      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
839      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
840      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
841      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
842      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
843      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
844      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src_
845      LOGICAL(KIND=C_BOOL) :: domain_src__tmp
846      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
847      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
848      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
849      LOGICAL(KIND=C_BOOL) :: i_index__tmp
850      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
851      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
852      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
853      LOGICAL(KIND=C_BOOL) :: j_index__tmp
854      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
855      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
856      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
857      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
858      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
859      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
860      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
861      LOGICAL(KIND=C_BOOL) :: long_name__tmp
862      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
863      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
864      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
865      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
866      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
867      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
868      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
869      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
870      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
871      LOGICAL(KIND=C_BOOL) :: name__tmp
872      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
873      LOGICAL(KIND=C_BOOL) :: ni__tmp
874      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
875      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
876      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
877      LOGICAL(KIND=C_BOOL) :: nj__tmp
878      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
879      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
880      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
881      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
882      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
883      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
884      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
885      LOGICAL(KIND=C_BOOL) :: type__tmp
886
887      IF (PRESENT(area_)) THEN
888        area__tmp = cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr)
889        area_ = area__tmp
890      ENDIF
891
892      IF (PRESENT(bounds_lat_1d_)) THEN
893        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr)
894        bounds_lat_1d_ = bounds_lat_1d__tmp
895      ENDIF
896
897      IF (PRESENT(bounds_lat_2d_)) THEN
898        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr)
899        bounds_lat_2d_ = bounds_lat_2d__tmp
900      ENDIF
901
902      IF (PRESENT(bounds_lon_1d_)) THEN
903        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr)
904        bounds_lon_1d_ = bounds_lon_1d__tmp
905      ENDIF
906
907      IF (PRESENT(bounds_lon_2d_)) THEN
908        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr)
909        bounds_lon_2d_ = bounds_lon_2d__tmp
910      ENDIF
911
912      IF (PRESENT(data_dim_)) THEN
913        data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
914        data_dim_ = data_dim__tmp
915      ENDIF
916
917      IF (PRESENT(data_i_index_)) THEN
918        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
919        data_i_index_ = data_i_index__tmp
920      ENDIF
921
922      IF (PRESENT(data_ibegin_)) THEN
923        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
924        data_ibegin_ = data_ibegin__tmp
925      ENDIF
926
927      IF (PRESENT(data_j_index_)) THEN
928        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
929        data_j_index_ = data_j_index__tmp
930      ENDIF
931
932      IF (PRESENT(data_jbegin_)) THEN
933        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
934        data_jbegin_ = data_jbegin__tmp
935      ENDIF
936
937      IF (PRESENT(data_ni_)) THEN
938        data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
939        data_ni_ = data_ni__tmp
940      ENDIF
941
942      IF (PRESENT(data_nj_)) THEN
943        data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
944        data_nj_ = data_nj__tmp
945      ENDIF
946
947      IF (PRESENT(domain_group_ref_)) THEN
948        domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)
949        domain_group_ref_ = domain_group_ref__tmp
950      ENDIF
951
952      IF (PRESENT(domain_ref_)) THEN
953        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
954        domain_ref_ = domain_ref__tmp
955      ENDIF
956
957      IF (PRESENT(domain_src_)) THEN
958        domain_src__tmp = cxios_is_defined_domaingroup_domain_src(domaingroup_hdl%daddr)
959        domain_src_ = domain_src__tmp
960      ENDIF
961
962      IF (PRESENT(group_ref_)) THEN
963        group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
964        group_ref_ = group_ref__tmp
965      ENDIF
966
967      IF (PRESENT(i_index_)) THEN
968        i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)
969        i_index_ = i_index__tmp
970      ENDIF
971
972      IF (PRESENT(ibegin_)) THEN
973        ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
974        ibegin_ = ibegin__tmp
975      ENDIF
976
977      IF (PRESENT(j_index_)) THEN
978        j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)
979        j_index_ = j_index__tmp
980      ENDIF
981
982      IF (PRESENT(jbegin_)) THEN
983        jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
984        jbegin_ = jbegin__tmp
985      ENDIF
986
987      IF (PRESENT(latvalue_1d_)) THEN
988        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl%daddr)
989        latvalue_1d_ = latvalue_1d__tmp
990      ENDIF
991
992      IF (PRESENT(latvalue_2d_)) THEN
993        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl%daddr)
994        latvalue_2d_ = latvalue_2d__tmp
995      ENDIF
996
997      IF (PRESENT(long_name_)) THEN
998        long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
999        long_name_ = long_name__tmp
1000      ENDIF
1001
1002      IF (PRESENT(lonvalue_1d_)) THEN
1003        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl%daddr)
1004        lonvalue_1d_ = lonvalue_1d__tmp
1005      ENDIF
1006
1007      IF (PRESENT(lonvalue_2d_)) THEN
1008        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl%daddr)
1009        lonvalue_2d_ = lonvalue_2d__tmp
1010      ENDIF
1011
1012      IF (PRESENT(mask_1d_)) THEN
1013        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl%daddr)
1014        mask_1d_ = mask_1d__tmp
1015      ENDIF
1016
1017      IF (PRESENT(mask_2d_)) THEN
1018        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl%daddr)
1019        mask_2d_ = mask_2d__tmp
1020      ENDIF
1021
1022      IF (PRESENT(name_)) THEN
1023        name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
1024        name_ = name__tmp
1025      ENDIF
1026
1027      IF (PRESENT(ni_)) THEN
1028        ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
1029        ni_ = ni__tmp
1030      ENDIF
1031
1032      IF (PRESENT(ni_glo_)) THEN
1033        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
1034        ni_glo_ = ni_glo__tmp
1035      ENDIF
1036
1037      IF (PRESENT(nj_)) THEN
1038        nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
1039        nj_ = nj__tmp
1040      ENDIF
1041
1042      IF (PRESENT(nj_glo_)) THEN
1043        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
1044        nj_glo_ = nj_glo__tmp
1045      ENDIF
1046
1047      IF (PRESENT(nvertex_)) THEN
1048        nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)
1049        nvertex_ = nvertex__tmp
1050      ENDIF
1051
1052      IF (PRESENT(standard_name_)) THEN
1053        standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
1054        standard_name_ = standard_name__tmp
1055      ENDIF
1056
1057      IF (PRESENT(type_)) THEN
1058        type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)
1059        type_ = type__tmp
1060      ENDIF
1061
1062  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1063
1064END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.