Context Navigation

idomaingroup_attr.F90 @ 2622

Last change on this file since 2622 was 2620, checked in by jderouillat, 4 months ago
Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
Property copyright set to Software name : XIOS (Xml I/O Server) http://forge.ipsl.jussieu.fr/ioserver Creation date : January 2009 Licence : CeCCIL version2 see license file in root directory : Licence_CeCILL_V2-en.txt or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement) CNRS/IPSL (Institut Pierre Simon Laplace) Project Manager : Yann Meurdesoif yann.meurdesoif@cea.fr
File size: 63.9 KB

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

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

Context Navigation

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

Download in other formats: