Context Navigation

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

Last change on this file since 1626 was 1626, checked in by oabramkina, 6 years ago
Trunk: limiting the line length to 132 characters in the Fortran interface + updating the interface.
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: 56.6 KB

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

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

Download in other formats: