Context Navigation

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

Last change on this file since 2616 was 2616, checked in by jderouillat, 4 months ago
Add XIOS3 fortran interfaces (resources management, chunking, compression)
Property copyright set to Software name : XIOS (Xml I/O Server) http://forge.ipsl.jussieu.fr/ioserver Creation date : January 2009 Licence : CeCCIL version2 see license file in root directory : Licence_CeCILL_V2-en.txt or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement) CNRS/IPSL (Institut Pierre Simon Laplace) Project Manager : Yann Meurdesoif yann.meurdesoif@cea.fr
File size: 63.6 KB

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

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

Download in other formats: