Context Navigation

source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/idomaingroup_attr.F90 @ 611

Last change on this file since 611 was 611, checked in by rlacroix, 9 years ago

Improve CF compliance: Add a new domain attribute "area".

Fixes ticket #68.

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: 50.7 KB

Line
1	! * ************************************************************************** *
2	! * Interface auto generated - do not modify *
3	! * ************************************************************************** *
4	#include "xios_fortran_prefix.hpp"
5
6	MODULE idomaingroup_attr
7	USE, INTRINSIC :: ISO_C_BINDING
8	USE idomain
9	USE domaingroup_interface_attr
10
11	CONTAINS
12
13	SUBROUTINE xios(set_domaingroup_attr) &
14	( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
15	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
16	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
17	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
18	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
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(:,:)
25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
26	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
27	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
28	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
29	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
30	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
31	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
32	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
33	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
36	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:)
37	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
38	INTEGER , OPTIONAL, INTENT(IN) :: iend
39	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:)
40	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
41	INTEGER , OPTIONAL, INTENT(IN) :: jend
42	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
44	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
45	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
46	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
47	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
48	INTEGER , OPTIONAL, INTENT(IN) :: ni
49	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
50	INTEGER , OPTIONAL, INTENT(IN) :: nj
51	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
52	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
55	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin
56	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
57	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin
58	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
59	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni
60	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc
61	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj
62	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc
63
64	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
65	CALL xios(set_domaingroup_attr_hdl_) &
66	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
67	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
68	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
69	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
70	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
71
72	END SUBROUTINE xios(set_domaingroup_attr)
73
74	SUBROUTINE xios(set_domaingroup_attr_hdl) &
75	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
76	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
77	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
78	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
79	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
80
81	IMPLICIT NONE
82	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
83	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
84	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
85	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
86	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
87	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
88	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
89	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
90	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
91	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
92	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
93	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
94	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
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) :: iend
99	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:)
100	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
101	INTEGER , OPTIONAL, INTENT(IN) :: jend
102	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
104	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
105	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
106	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
108	INTEGER , OPTIONAL, INTENT(IN) :: ni
109	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
110	INTEGER , OPTIONAL, INTENT(IN) :: nj
111	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
112	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
114	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
115	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin
116	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
117	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin
118	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
119	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni
120	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc
121	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj
122	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc
123
124	CALL xios(set_domaingroup_attr_hdl_) &
125	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
126	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
127	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
128	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
129	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
130
131	END SUBROUTINE xios(set_domaingroup_attr_hdl)
132
133	SUBROUTINE xios(set_domaingroup_attr_hdl_) &
134	( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
135	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_ &
136	, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_ &
137	, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ &
138	, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
139
140	IMPLICIT NONE
141	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
142	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
143	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
144	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
145	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
146	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
147	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
148	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
149	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
150	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index_
151	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
152	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
153	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
154	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
155	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:,:)
156	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
157	INTEGER , OPTIONAL, INTENT(IN) :: iend_
158	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:,:)
159	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
160	INTEGER , OPTIONAL, INTENT(IN) :: jend_
161	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
162	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
163	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
164	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:,:)
165	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
166	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
167	INTEGER , OPTIONAL, INTENT(IN) :: ni_
168	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
169	INTEGER , OPTIONAL, INTENT(IN) :: nj_
170	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
171	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
172	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
173	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
174	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_
175	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
176	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_
177	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
178	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_
179	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
180	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_
181	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
182
183	IF (PRESENT(area_)) THEN
184	CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_,size(area_,1),size(area_,2))
185	ENDIF
186
187	IF (PRESENT(bounds_lat_)) THEN
188	CALL cxios_set_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
189	ENDIF
190
191	IF (PRESENT(bounds_lon_)) THEN
192	CALL cxios_set_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
193	ENDIF
194
195	IF (PRESENT(data_dim_)) THEN
196	CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
197	ENDIF
198
199	IF (PRESENT(data_i_index_)) THEN
200	CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_,size(data_i_index_,1))
201	ENDIF
202
203	IF (PRESENT(data_ibegin_)) THEN
204	CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
205	ENDIF
206
207	IF (PRESENT(data_j_index_)) THEN
208	CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_,size(data_j_index_,1))
209	ENDIF
210
211	IF (PRESENT(data_jbegin_)) THEN
212	CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
213	ENDIF
214
215	IF (PRESENT(data_n_index_)) THEN
216	CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
217	ENDIF
218
219	IF (PRESENT(data_ni_)) THEN
220	CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
221	ENDIF
222
223	IF (PRESENT(data_nj_)) THEN
224	CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
225	ENDIF
226
227	IF (PRESENT(domain_group_ref_)) THEN
228	CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
229	ENDIF
230
231	IF (PRESENT(group_ref_)) THEN
232	CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
233	ENDIF
234
235	IF (PRESENT(i_index_)) THEN
236	CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2))
237	ENDIF
238
239	IF (PRESENT(ibegin_)) THEN
240	CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
241	ENDIF
242
243	IF (PRESENT(iend_)) THEN
244	CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_)
245	ENDIF
246
247	IF (PRESENT(j_index_)) THEN
248	CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2))
249	ENDIF
250
251	IF (PRESENT(jbegin_)) THEN
252	CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
253	ENDIF
254
255	IF (PRESENT(jend_)) THEN
256	CALL cxios_set_domaingroup_jend(domaingroup_hdl%daddr, jend_)
257	ENDIF
258
259	IF (PRESENT(latvalue_)) THEN
260	CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_,size(latvalue_,1))
261	ENDIF
262
263	IF (PRESENT(long_name_)) THEN
264	CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
265	ENDIF
266
267	IF (PRESENT(lonvalue_)) THEN
268	CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_,size(lonvalue_,1))
269	ENDIF
270
271	IF (PRESENT(mask_)) THEN
272	ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
273	mask__tmp=mask_
274	CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
275	ENDIF
276
277	IF (PRESENT(name_)) THEN
278	CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
279	ENDIF
280
281	IF (PRESENT(ni_)) THEN
282	CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
283	ENDIF
284
285	IF (PRESENT(ni_glo_)) THEN
286	CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
287	ENDIF
288
289	IF (PRESENT(nj_)) THEN
290	CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
291	ENDIF
292
293	IF (PRESENT(nj_glo_)) THEN
294	CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
295	ENDIF
296
297	IF (PRESENT(nvertex_)) THEN
298	CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
299	ENDIF
300
301	IF (PRESENT(standard_name_)) THEN
302	CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
303	ENDIF
304
305	IF (PRESENT(type_)) THEN
306	CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
307	ENDIF
308
309	IF (PRESENT(zoom_ibegin_)) THEN
310	CALL cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
311	ENDIF
312
313	IF (PRESENT(zoom_ibegin_loc_)) THEN
314	CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
315	ENDIF
316
317	IF (PRESENT(zoom_jbegin_)) THEN
318	CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
319	ENDIF
320
321	IF (PRESENT(zoom_jbegin_loc_)) THEN
322	CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
323	ENDIF
324
325	IF (PRESENT(zoom_ni_)) THEN
326	CALL cxios_set_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
327	ENDIF
328
329	IF (PRESENT(zoom_ni_loc_)) THEN
330	CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
331	ENDIF
332
333	IF (PRESENT(zoom_nj_)) THEN
334	CALL cxios_set_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
335	ENDIF
336
337	IF (PRESENT(zoom_nj_loc_)) THEN
338	CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
339	ENDIF
340
341
342
343	END SUBROUTINE xios(set_domaingroup_attr_hdl_)
344
345	SUBROUTINE xios(get_domaingroup_attr) &
346	( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
347	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
348	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
349	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
350	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
351
352	IMPLICIT NONE
353	TYPE(txios(domaingroup)) :: domaingroup_hdl
354	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
355	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
356	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
357	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
358	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
359	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
360	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
361	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
362	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
363	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
364	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
365	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
366	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
367	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
368	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:)
369	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
370	INTEGER , OPTIONAL, INTENT(OUT) :: iend
371	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:)
372	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
373	INTEGER , OPTIONAL, INTENT(OUT) :: jend
374	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
375	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
376	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
377	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
378	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
379	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
380	INTEGER , OPTIONAL, INTENT(OUT) :: ni
381	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
382	INTEGER , OPTIONAL, INTENT(OUT) :: nj
383	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
384	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
385	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
386	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
387	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin
388	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
389	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin
390	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
391	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni
392	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
393	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj
394	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
395
396	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
397	CALL xios(get_domaingroup_attr_hdl_) &
398	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
399	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
400	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
401	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
402	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
403
404	END SUBROUTINE xios(get_domaingroup_attr)
405
406	SUBROUTINE xios(get_domaingroup_attr_hdl) &
407	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
408	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
409	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
410	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
411	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
412
413	IMPLICIT NONE
414	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
415	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
416	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
417	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
418	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
419	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
420	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
421	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
422	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
423	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
424	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
425	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
426	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
427	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
428	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:)
429	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
430	INTEGER , OPTIONAL, INTENT(OUT) :: iend
431	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:)
432	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
433	INTEGER , OPTIONAL, INTENT(OUT) :: jend
434	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
435	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
436	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
437	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
438	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
439	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
440	INTEGER , OPTIONAL, INTENT(OUT) :: ni
441	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
442	INTEGER , OPTIONAL, INTENT(OUT) :: nj
443	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
444	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
445	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
446	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
447	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin
448	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
449	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin
450	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
451	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni
452	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
453	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj
454	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
455
456	CALL xios(get_domaingroup_attr_hdl_) &
457	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
458	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
459	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
460	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
461	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
462
463	END SUBROUTINE xios(get_domaingroup_attr_hdl)
464
465	SUBROUTINE xios(get_domaingroup_attr_hdl_) &
466	( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
467	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_ &
468	, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_ &
469	, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ &
470	, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
471
472	IMPLICIT NONE
473	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
474	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
475	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
476	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
477	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
478	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
479	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
480	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
481	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
482	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index_
483	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
484	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
485	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
486	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
487	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:,:)
488	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
489	INTEGER , OPTIONAL, INTENT(OUT) :: iend_
490	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:,:)
491	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
492	INTEGER , OPTIONAL, INTENT(OUT) :: jend_
493	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
494	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
495	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
496	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:,:)
497	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
498	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
499	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
500	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
501	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
502	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
503	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
504	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
505	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
506	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
507	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
508	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
509	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
510	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_
511	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
512	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_
513	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
514
515	IF (PRESENT(area_)) THEN
516	CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_,size(area_,1),size(area_,2))
517	ENDIF
518
519	IF (PRESENT(bounds_lat_)) THEN
520	CALL cxios_get_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
521	ENDIF
522
523	IF (PRESENT(bounds_lon_)) THEN
524	CALL cxios_get_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
525	ENDIF
526
527	IF (PRESENT(data_dim_)) THEN
528	CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
529	ENDIF
530
531	IF (PRESENT(data_i_index_)) THEN
532	CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_,size(data_i_index_,1))
533	ENDIF
534
535	IF (PRESENT(data_ibegin_)) THEN
536	CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
537	ENDIF
538
539	IF (PRESENT(data_j_index_)) THEN
540	CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_,size(data_j_index_,1))
541	ENDIF
542
543	IF (PRESENT(data_jbegin_)) THEN
544	CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
545	ENDIF
546
547	IF (PRESENT(data_n_index_)) THEN
548	CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
549	ENDIF
550
551	IF (PRESENT(data_ni_)) THEN
552	CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
553	ENDIF
554
555	IF (PRESENT(data_nj_)) THEN
556	CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
557	ENDIF
558
559	IF (PRESENT(domain_group_ref_)) THEN
560	CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
561	ENDIF
562
563	IF (PRESENT(group_ref_)) THEN
564	CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
565	ENDIF
566
567	IF (PRESENT(i_index_)) THEN
568	CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2))
569	ENDIF
570
571	IF (PRESENT(ibegin_)) THEN
572	CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
573	ENDIF
574
575	IF (PRESENT(iend_)) THEN
576	CALL cxios_get_domaingroup_iend(domaingroup_hdl%daddr, iend_)
577	ENDIF
578
579	IF (PRESENT(j_index_)) THEN
580	CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2))
581	ENDIF
582
583	IF (PRESENT(jbegin_)) THEN
584	CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
585	ENDIF
586
587	IF (PRESENT(jend_)) THEN
588	CALL cxios_get_domaingroup_jend(domaingroup_hdl%daddr, jend_)
589	ENDIF
590
591	IF (PRESENT(latvalue_)) THEN
592	CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_,size(latvalue_,1))
593	ENDIF
594
595	IF (PRESENT(long_name_)) THEN
596	CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
597	ENDIF
598
599	IF (PRESENT(lonvalue_)) THEN
600	CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_,size(lonvalue_,1))
601	ENDIF
602
603	IF (PRESENT(mask_)) THEN
604	ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
605	CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
606	mask_=mask__tmp
607	ENDIF
608
609	IF (PRESENT(name_)) THEN
610	CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
611	ENDIF
612
613	IF (PRESENT(ni_)) THEN
614	CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
615	ENDIF
616
617	IF (PRESENT(ni_glo_)) THEN
618	CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
619	ENDIF
620
621	IF (PRESENT(nj_)) THEN
622	CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
623	ENDIF
624
625	IF (PRESENT(nj_glo_)) THEN
626	CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
627	ENDIF
628
629	IF (PRESENT(nvertex_)) THEN
630	CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
631	ENDIF
632
633	IF (PRESENT(standard_name_)) THEN
634	CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
635	ENDIF
636
637	IF (PRESENT(type_)) THEN
638	CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
639	ENDIF
640
641	IF (PRESENT(zoom_ibegin_)) THEN
642	CALL cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
643	ENDIF
644
645	IF (PRESENT(zoom_ibegin_loc_)) THEN
646	CALL cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
647	ENDIF
648
649	IF (PRESENT(zoom_jbegin_)) THEN
650	CALL cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
651	ENDIF
652
653	IF (PRESENT(zoom_jbegin_loc_)) THEN
654	CALL cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
655	ENDIF
656
657	IF (PRESENT(zoom_ni_)) THEN
658	CALL cxios_get_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
659	ENDIF
660
661	IF (PRESENT(zoom_ni_loc_)) THEN
662	CALL cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
663	ENDIF
664
665	IF (PRESENT(zoom_nj_)) THEN
666	CALL cxios_get_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
667	ENDIF
668
669	IF (PRESENT(zoom_nj_loc_)) THEN
670	CALL cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
671	ENDIF
672
673
674
675	END SUBROUTINE xios(get_domaingroup_attr_hdl_)
676
677	SUBROUTINE xios(is_defined_domaingroup_attr) &
678	( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
679	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
680	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
681	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
682	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
683
684	IMPLICIT NONE
685	TYPE(txios(domaingroup)) :: domaingroup_hdl
686	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
687	LOGICAL, OPTIONAL, INTENT(OUT) :: area
688	LOGICAL(KIND=C_BOOL) :: area_tmp
689	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
690	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
691	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
692	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
693	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
694	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
695	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
696	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
697	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
698	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
699	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
700	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
701	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
702	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
703	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
704	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
705	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
706	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
707	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
708	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
709	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
710	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
711	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
712	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
713	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
714	LOGICAL(KIND=C_BOOL) :: i_index_tmp
715	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
716	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
717	LOGICAL, OPTIONAL, INTENT(OUT) :: iend
718	LOGICAL(KIND=C_BOOL) :: iend_tmp
719	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
720	LOGICAL(KIND=C_BOOL) :: j_index_tmp
721	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
722	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
723	LOGICAL, OPTIONAL, INTENT(OUT) :: jend
724	LOGICAL(KIND=C_BOOL) :: jend_tmp
725	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
726	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
727	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
728	LOGICAL(KIND=C_BOOL) :: long_name_tmp
729	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
730	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
731	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
732	LOGICAL(KIND=C_BOOL) :: mask_tmp
733	LOGICAL, OPTIONAL, INTENT(OUT) :: name
734	LOGICAL(KIND=C_BOOL) :: name_tmp
735	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
736	LOGICAL(KIND=C_BOOL) :: ni_tmp
737	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
738	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
739	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
740	LOGICAL(KIND=C_BOOL) :: nj_tmp
741	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
742	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
743	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
744	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
745	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
746	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
747	LOGICAL, OPTIONAL, INTENT(OUT) :: type
748	LOGICAL(KIND=C_BOOL) :: type_tmp
749	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
750	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
751	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
752	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
753	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
754	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
755	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
756	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
757	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
758	LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
759	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
760	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
761	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
762	LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
763	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
764	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
765
766	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
767	CALL xios(is_defined_domaingroup_attr_hdl_) &
768	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
769	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
770	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
771	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
772	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
773
774	END SUBROUTINE xios(is_defined_domaingroup_attr)
775
776	SUBROUTINE xios(is_defined_domaingroup_attr_hdl) &
777	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
778	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
779	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
780	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
781	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
782
783	IMPLICIT NONE
784	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
785	LOGICAL, OPTIONAL, INTENT(OUT) :: area
786	LOGICAL(KIND=C_BOOL) :: area_tmp
787	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
788	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
789	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
790	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
791	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
792	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
793	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
794	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
795	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
796	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
797	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
798	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
799	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
800	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
801	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
802	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
803	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
804	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
805	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
806	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
807	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
808	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
809	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
810	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
811	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
812	LOGICAL(KIND=C_BOOL) :: i_index_tmp
813	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
814	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
815	LOGICAL, OPTIONAL, INTENT(OUT) :: iend
816	LOGICAL(KIND=C_BOOL) :: iend_tmp
817	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
818	LOGICAL(KIND=C_BOOL) :: j_index_tmp
819	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
820	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
821	LOGICAL, OPTIONAL, INTENT(OUT) :: jend
822	LOGICAL(KIND=C_BOOL) :: jend_tmp
823	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
824	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
825	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
826	LOGICAL(KIND=C_BOOL) :: long_name_tmp
827	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
828	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
829	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
830	LOGICAL(KIND=C_BOOL) :: mask_tmp
831	LOGICAL, OPTIONAL, INTENT(OUT) :: name
832	LOGICAL(KIND=C_BOOL) :: name_tmp
833	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
834	LOGICAL(KIND=C_BOOL) :: ni_tmp
835	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
836	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
837	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
838	LOGICAL(KIND=C_BOOL) :: nj_tmp
839	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
840	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
841	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
842	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
843	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
844	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
845	LOGICAL, OPTIONAL, INTENT(OUT) :: type
846	LOGICAL(KIND=C_BOOL) :: type_tmp
847	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
848	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
849	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
850	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
851	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
852	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
853	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
854	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
855	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
856	LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
857	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
858	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
859	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
860	LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
861	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
862	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
863
864	CALL xios(is_defined_domaingroup_attr_hdl_) &
865	( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
866	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, group_ref, i_index, ibegin &
867	, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo &
868	, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni &
869	, zoom_ni_loc, zoom_nj, zoom_nj_loc )
870
871	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
872
873	SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) &
874	( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
875	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, group_ref_, i_index_, ibegin_ &
876	, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_ &
877	, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_ &
878	, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
879
880	IMPLICIT NONE
881	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
882	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
883	LOGICAL(KIND=C_BOOL) :: area__tmp
884	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
885	LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
886	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
887	LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
888	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
889	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
890	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
891	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
892	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
893	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
894	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
895	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
896	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
897	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
898	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
899	LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
900	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
901	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
902	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
903	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
904	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
905	LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
906	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
907	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
908	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
909	LOGICAL(KIND=C_BOOL) :: i_index__tmp
910	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
911	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
912	LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
913	LOGICAL(KIND=C_BOOL) :: iend__tmp
914	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
915	LOGICAL(KIND=C_BOOL) :: j_index__tmp
916	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
917	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
918	LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
919	LOGICAL(KIND=C_BOOL) :: jend__tmp
920	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
921	LOGICAL(KIND=C_BOOL) :: latvalue__tmp
922	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
923	LOGICAL(KIND=C_BOOL) :: long_name__tmp
924	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
925	LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
926	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
927	LOGICAL(KIND=C_BOOL) :: mask__tmp
928	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
929	LOGICAL(KIND=C_BOOL) :: name__tmp
930	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
931	LOGICAL(KIND=C_BOOL) :: ni__tmp
932	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
933	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
934	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
935	LOGICAL(KIND=C_BOOL) :: nj__tmp
936	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
937	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
938	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
939	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
940	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
941	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
942	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
943	LOGICAL(KIND=C_BOOL) :: type__tmp
944	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
945	LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
946	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
947	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
948	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
949	LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
950	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
951	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
952	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
953	LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
954	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
955	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
956	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
957	LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
958	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
959	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
960
961	IF (PRESENT(area_)) THEN
962	area__tmp=cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr)
963	area_=area__tmp
964	ENDIF
965
966	IF (PRESENT(bounds_lat_)) THEN
967	bounds_lat__tmp=cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl%daddr)
968	bounds_lat_=bounds_lat__tmp
969	ENDIF
970
971	IF (PRESENT(bounds_lon_)) THEN
972	bounds_lon__tmp=cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl%daddr)
973	bounds_lon_=bounds_lon__tmp
974	ENDIF
975
976	IF (PRESENT(data_dim_)) THEN
977	data_dim__tmp=cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
978	data_dim_=data_dim__tmp
979	ENDIF
980
981	IF (PRESENT(data_i_index_)) THEN
982	data_i_index__tmp=cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
983	data_i_index_=data_i_index__tmp
984	ENDIF
985
986	IF (PRESENT(data_ibegin_)) THEN
987	data_ibegin__tmp=cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
988	data_ibegin_=data_ibegin__tmp
989	ENDIF
990
991	IF (PRESENT(data_j_index_)) THEN
992	data_j_index__tmp=cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
993	data_j_index_=data_j_index__tmp
994	ENDIF
995
996	IF (PRESENT(data_jbegin_)) THEN
997	data_jbegin__tmp=cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
998	data_jbegin_=data_jbegin__tmp
999	ENDIF
1000
1001	IF (PRESENT(data_n_index_)) THEN
1002	data_n_index__tmp=cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr)
1003	data_n_index_=data_n_index__tmp
1004	ENDIF
1005
1006	IF (PRESENT(data_ni_)) THEN
1007	data_ni__tmp=cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
1008	data_ni_=data_ni__tmp
1009	ENDIF
1010
1011	IF (PRESENT(data_nj_)) THEN
1012	data_nj__tmp=cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
1013	data_nj_=data_nj__tmp
1014	ENDIF
1015
1016	IF (PRESENT(domain_group_ref_)) THEN
1017	domain_group_ref__tmp=cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)
1018	domain_group_ref_=domain_group_ref__tmp
1019	ENDIF
1020
1021	IF (PRESENT(group_ref_)) THEN
1022	group_ref__tmp=cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
1023	group_ref_=group_ref__tmp
1024	ENDIF
1025
1026	IF (PRESENT(i_index_)) THEN
1027	i_index__tmp=cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)
1028	i_index_=i_index__tmp
1029	ENDIF
1030
1031	IF (PRESENT(ibegin_)) THEN
1032	ibegin__tmp=cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
1033	ibegin_=ibegin__tmp
1034	ENDIF
1035
1036	IF (PRESENT(iend_)) THEN
1037	iend__tmp=cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr)
1038	iend_=iend__tmp
1039	ENDIF
1040
1041	IF (PRESENT(j_index_)) THEN
1042	j_index__tmp=cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)
1043	j_index_=j_index__tmp
1044	ENDIF
1045
1046	IF (PRESENT(jbegin_)) THEN
1047	jbegin__tmp=cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
1048	jbegin_=jbegin__tmp
1049	ENDIF
1050
1051	IF (PRESENT(jend_)) THEN
1052	jend__tmp=cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr)
1053	jend_=jend__tmp
1054	ENDIF
1055
1056	IF (PRESENT(latvalue_)) THEN
1057	latvalue__tmp=cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr)
1058	latvalue_=latvalue__tmp
1059	ENDIF
1060
1061	IF (PRESENT(long_name_)) THEN
1062	long_name__tmp=cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
1063	long_name_=long_name__tmp
1064	ENDIF
1065
1066	IF (PRESENT(lonvalue_)) THEN
1067	lonvalue__tmp=cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr)
1068	lonvalue_=lonvalue__tmp
1069	ENDIF
1070
1071	IF (PRESENT(mask_)) THEN
1072	mask__tmp=cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr)
1073	mask_=mask__tmp
1074	ENDIF
1075
1076	IF (PRESENT(name_)) THEN
1077	name__tmp=cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
1078	name_=name__tmp
1079	ENDIF
1080
1081	IF (PRESENT(ni_)) THEN
1082	ni__tmp=cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
1083	ni_=ni__tmp
1084	ENDIF
1085
1086	IF (PRESENT(ni_glo_)) THEN
1087	ni_glo__tmp=cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
1088	ni_glo_=ni_glo__tmp
1089	ENDIF
1090
1091	IF (PRESENT(nj_)) THEN
1092	nj__tmp=cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
1093	nj_=nj__tmp
1094	ENDIF
1095
1096	IF (PRESENT(nj_glo_)) THEN
1097	nj_glo__tmp=cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
1098	nj_glo_=nj_glo__tmp
1099	ENDIF
1100
1101	IF (PRESENT(nvertex_)) THEN
1102	nvertex__tmp=cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)
1103	nvertex_=nvertex__tmp
1104	ENDIF
1105
1106	IF (PRESENT(standard_name_)) THEN
1107	standard_name__tmp=cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
1108	standard_name_=standard_name__tmp
1109	ENDIF
1110
1111	IF (PRESENT(type_)) THEN
1112	type__tmp=cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)
1113	type_=type__tmp
1114	ENDIF
1115
1116	IF (PRESENT(zoom_ibegin_)) THEN
1117	zoom_ibegin__tmp=cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr)
1118	zoom_ibegin_=zoom_ibegin__tmp
1119	ENDIF
1120
1121	IF (PRESENT(zoom_ibegin_loc_)) THEN
1122	zoom_ibegin_loc__tmp=cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr)
1123	zoom_ibegin_loc_=zoom_ibegin_loc__tmp
1124	ENDIF
1125
1126	IF (PRESENT(zoom_jbegin_)) THEN
1127	zoom_jbegin__tmp=cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr)
1128	zoom_jbegin_=zoom_jbegin__tmp
1129	ENDIF
1130
1131	IF (PRESENT(zoom_jbegin_loc_)) THEN
1132	zoom_jbegin_loc__tmp=cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr)
1133	zoom_jbegin_loc_=zoom_jbegin_loc__tmp
1134	ENDIF
1135
1136	IF (PRESENT(zoom_ni_)) THEN
1137	zoom_ni__tmp=cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr)
1138	zoom_ni_=zoom_ni__tmp
1139	ENDIF
1140
1141	IF (PRESENT(zoom_ni_loc_)) THEN
1142	zoom_ni_loc__tmp=cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr)
1143	zoom_ni_loc_=zoom_ni_loc__tmp
1144	ENDIF
1145
1146	IF (PRESENT(zoom_nj_)) THEN
1147	zoom_nj__tmp=cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr)
1148	zoom_nj_=zoom_nj__tmp
1149	ENDIF
1150
1151	IF (PRESENT(zoom_nj_loc_)) THEN
1152	zoom_nj_loc__tmp=cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr)
1153	zoom_nj_loc_=zoom_nj_loc__tmp
1154	ENDIF
1155
1156
1157
1158	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1159
1160	END MODULE idomaingroup_attr

Note: See TracBrowser for help on using the repository browser.

Download in other formats: