Context Navigation

source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/idomaingroup_attr.F90 @ 1542

Last change on this file since 1542 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

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

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

Download in other formats: