Context Navigation

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

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

Domain: Remove the domain_src attribute.

It was added but was never used.

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: 44.1 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) &
[664]	14	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	15	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	16	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	17	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	18
[326]	19	IMPLICIT NONE
	20	TYPE(txios(domaingroup)) :: domaingroup_hdl
	21	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]	22	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]	23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
	24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
	25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
	26	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[326]	27	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	28	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	29	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	30	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	31	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	32	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	33	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
[546]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[657]	36	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	37	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	38	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	39	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[664]	40	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	41	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[326]	42	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	43	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	44	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	45	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	46	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	47	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	48	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	50	INTEGER , OPTIONAL, INTENT(IN) :: ni
	51	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	52	INTEGER , OPTIONAL, INTENT(IN) :: nj
	53	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	54	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	55	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	56	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	57
[326]	58	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	59	CALL xios(set_domaingroup_attr_hdl_) &
[664]	60	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	61	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	62	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	63	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	64
[326]	65	END SUBROUTINE xios(set_domaingroup_attr)
[581]	66
[326]	67	SUBROUTINE xios(set_domaingroup_attr_hdl) &
[664]	68	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	69	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	70	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	71	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	72
[326]	73	IMPLICIT NONE
	74	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	75	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]	76	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
	77	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
	78	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
	79	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[326]	80	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	81	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	82	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	83	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	84	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	85	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	86	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
[546]	87	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]	88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[657]	89	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	90	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	91	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	92	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[664]	93	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	94	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[326]	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	96	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	97	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	98	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	99	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	100	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	101	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	102	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	103	INTEGER , OPTIONAL, INTENT(IN) :: ni
	104	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	105	INTEGER , OPTIONAL, INTENT(IN) :: nj
	106	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	107	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	108	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	109	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	110
[326]	111	CALL xios(set_domaingroup_attr_hdl_) &
[664]	112	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	113	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	114	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	115	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	116
[326]	117	END SUBROUTINE xios(set_domaingroup_attr_hdl)
[581]	118
[326]	119	SUBROUTINE xios(set_domaingroup_attr_hdl_) &
[664]	120	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
[781]	121	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &
[789]	122	, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &
	123	, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &
	124	, type_ )
[581]	125
[326]	126	IMPLICIT NONE
	127	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	128	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
[664]	129	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
	130	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
	131	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
	132	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
[326]	133	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
	134	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
	135	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
	136	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
	137	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
	138	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
	139	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
[546]	140	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
[326]	141	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[657]	142	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:)
[326]	143	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
[657]	144	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:)
[326]	145	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
[664]	146	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
	147	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
[326]	148	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[664]	149	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
	150	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
	151	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
	152	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	153	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
	154	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	155	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	156	INTEGER , OPTIONAL, INTENT(IN) :: ni_
	157	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
	158	INTEGER , OPTIONAL, INTENT(IN) :: nj_
	159	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
[449]	160	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
[326]	161	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[449]	162	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	163
[611]	164	IF (PRESENT(area_)) THEN
[674]	165	CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_))
[611]	166	ENDIF
	167
[664]	168	IF (PRESENT(bounds_lat_1d_)) THEN
[674]	169	CALL cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]	170	ENDIF
[581]	171
[664]	172	IF (PRESENT(bounds_lat_2d_)) THEN
[674]	173	CALL cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]	174	ENDIF
[581]	175
[664]	176	IF (PRESENT(bounds_lon_1d_)) THEN
[674]	177	CALL cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]	178	ENDIF
	179
	180	IF (PRESENT(bounds_lon_2d_)) THEN
[674]	181	CALL cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]	182	ENDIF
	183
[326]	184	IF (PRESENT(data_dim_)) THEN
	185	CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
	186	ENDIF
[581]	187
[326]	188	IF (PRESENT(data_i_index_)) THEN
[674]	189	CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]	190	ENDIF
[581]	191
[326]	192	IF (PRESENT(data_ibegin_)) THEN
	193	CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
	194	ENDIF
[581]	195
[326]	196	IF (PRESENT(data_j_index_)) THEN
[674]	197	CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]	198	ENDIF
[581]	199
[326]	200	IF (PRESENT(data_jbegin_)) THEN
	201	CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
	202	ENDIF
[581]	203
[326]	204	IF (PRESENT(data_ni_)) THEN
	205	CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
	206	ENDIF
[581]	207
[326]	208	IF (PRESENT(data_nj_)) THEN
	209	CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
	210	ENDIF
[581]	211
[546]	212	IF (PRESENT(domain_ref_)) THEN
	213	CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
	214	ENDIF
[581]	215
[326]	216	IF (PRESENT(group_ref_)) THEN
	217	CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
	218	ENDIF
[581]	219
[467]	220	IF (PRESENT(i_index_)) THEN
[674]	221	CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
[467]	222	ENDIF
[581]	223
[326]	224	IF (PRESENT(ibegin_)) THEN
	225	CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
	226	ENDIF
[581]	227
[467]	228	IF (PRESENT(j_index_)) THEN
[674]	229	CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
[467]	230	ENDIF
[581]	231
[326]	232	IF (PRESENT(jbegin_)) THEN
	233	CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
	234	ENDIF
[581]	235
[664]	236	IF (PRESENT(latvalue_1d_)) THEN
[674]	237	CALL cxios_set_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]	238	ENDIF
[581]	239
[664]	240	IF (PRESENT(latvalue_2d_)) THEN
[674]	241	CALL cxios_set_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]	242	ENDIF
	243
[326]	244	IF (PRESENT(long_name_)) THEN
	245	CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
	246	ENDIF
[581]	247
[664]	248	IF (PRESENT(lonvalue_1d_)) THEN
[674]	249	CALL cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]	250	ENDIF
[581]	251
[664]	252	IF (PRESENT(lonvalue_2d_)) THEN
[674]	253	CALL cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]	254	ENDIF
[581]	255
[664]	256	IF (PRESENT(mask_1d_)) THEN
[674]	257	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[664]	258	mask_1d__tmp = mask_1d_
[674]	259	CALL cxios_set_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[664]	260	ENDIF
	261
	262	IF (PRESENT(mask_2d_)) THEN
[674]	263	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[664]	264	mask_2d__tmp = mask_2d_
[674]	265	CALL cxios_set_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[664]	266	ENDIF
	267
[326]	268	IF (PRESENT(name_)) THEN
	269	CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
	270	ENDIF
[581]	271
[326]	272	IF (PRESENT(ni_)) THEN
	273	CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
	274	ENDIF
[581]	275
[326]	276	IF (PRESENT(ni_glo_)) THEN
	277	CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
	278	ENDIF
[581]	279
[326]	280	IF (PRESENT(nj_)) THEN
	281	CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
	282	ENDIF
[581]	283
[326]	284	IF (PRESENT(nj_glo_)) THEN
	285	CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
	286	ENDIF
[581]	287
[449]	288	IF (PRESENT(nvertex_)) THEN
	289	CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
	290	ENDIF
[581]	291
[326]	292	IF (PRESENT(standard_name_)) THEN
	293	CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
	294	ENDIF
[581]	295
[449]	296	IF (PRESENT(type_)) THEN
	297	CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
	298	ENDIF
[581]	299
[326]	300	END SUBROUTINE xios(set_domaingroup_attr_hdl_)
[581]	301
[326]	302	SUBROUTINE xios(get_domaingroup_attr) &
[664]	303	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	304	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	305	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	306	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	307
[326]	308	IMPLICIT NONE
	309	TYPE(txios(domaingroup)) :: domaingroup_hdl
	310	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]	311	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	312	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	313	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
	314	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	315	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[326]	316	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	317	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	318	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	319	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	320	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	321	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	322	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
[546]	323	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]	324	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[657]	325	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	326	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	327	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	328	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[664]	329	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	330	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[326]	331	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	332	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	333	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	334	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	335	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	336	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	337	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	338	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	339	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	340	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	341	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	342	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	343	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	344	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	345	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	346
[326]	347	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	348	CALL xios(get_domaingroup_attr_hdl_) &
[664]	349	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	350	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	351	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	352	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	353
[326]	354	END SUBROUTINE xios(get_domaingroup_attr)
[581]	355
[326]	356	SUBROUTINE xios(get_domaingroup_attr_hdl) &
[664]	357	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	358	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	359	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	360	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	361
[326]	362	IMPLICIT NONE
	363	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	364	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	365	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	366	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
	367	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	368	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[326]	369	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	370	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	371	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	372	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	373	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	374	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	375	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
[546]	376	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]	377	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[657]	378	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	379	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	380	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	381	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[664]	382	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	383	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[326]	384	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	385	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	386	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	387	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	388	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	389	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	390	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	391	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	392	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	393	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	394	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	395	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	396	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	397	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	398	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	399
[326]	400	CALL xios(get_domaingroup_attr_hdl_) &
[664]	401	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	402	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	403	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	404	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	405
[326]	406	END SUBROUTINE xios(get_domaingroup_attr_hdl)
[581]	407
[326]	408	SUBROUTINE xios(get_domaingroup_attr_hdl_) &
[664]	409	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
[781]	410	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &
[789]	411	, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &
	412	, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &
	413	, type_ )
[581]	414
[326]	415	IMPLICIT NONE
	416	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	417	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
[664]	418	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
	419	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
	420	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
	421	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
[326]	422	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
	423	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
	424	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
	425	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
	426	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
	427	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
	428	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
[546]	429	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
[326]	430	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[657]	431	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:)
[326]	432	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
[657]	433	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:)
[326]	434	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
[664]	435	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
	436	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
[326]	437	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[664]	438	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
	439	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
	440	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
	441	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	442	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
	443	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	444	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	445	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
	446	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
	447	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
	448	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
[449]	449	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
[326]	450	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[449]	451	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	452
[611]	453	IF (PRESENT(area_)) THEN
[674]	454	CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_))
[611]	455	ENDIF
	456
[664]	457	IF (PRESENT(bounds_lat_1d_)) THEN
[674]	458	CALL cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]	459	ENDIF
[581]	460
[664]	461	IF (PRESENT(bounds_lat_2d_)) THEN
[674]	462	CALL cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]	463	ENDIF
[581]	464
[664]	465	IF (PRESENT(bounds_lon_1d_)) THEN
[674]	466	CALL cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]	467	ENDIF
	468
	469	IF (PRESENT(bounds_lon_2d_)) THEN
[674]	470	CALL cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]	471	ENDIF
	472
[326]	473	IF (PRESENT(data_dim_)) THEN
	474	CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
	475	ENDIF
[581]	476
[326]	477	IF (PRESENT(data_i_index_)) THEN
[674]	478	CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]	479	ENDIF
[581]	480
[326]	481	IF (PRESENT(data_ibegin_)) THEN
	482	CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
	483	ENDIF
[581]	484
[326]	485	IF (PRESENT(data_j_index_)) THEN
[674]	486	CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]	487	ENDIF
[581]	488
[326]	489	IF (PRESENT(data_jbegin_)) THEN
	490	CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
	491	ENDIF
[581]	492
[326]	493	IF (PRESENT(data_ni_)) THEN
	494	CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
	495	ENDIF
[581]	496
[326]	497	IF (PRESENT(data_nj_)) THEN
	498	CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
	499	ENDIF
[581]	500
[546]	501	IF (PRESENT(domain_ref_)) THEN
	502	CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
	503	ENDIF
[581]	504
[326]	505	IF (PRESENT(group_ref_)) THEN
	506	CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
	507	ENDIF
[581]	508
[467]	509	IF (PRESENT(i_index_)) THEN
[674]	510	CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
[467]	511	ENDIF
[581]	512
[326]	513	IF (PRESENT(ibegin_)) THEN
	514	CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
	515	ENDIF
[581]	516
[467]	517	IF (PRESENT(j_index_)) THEN
[674]	518	CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
[467]	519	ENDIF
[581]	520
[326]	521	IF (PRESENT(jbegin_)) THEN
	522	CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
	523	ENDIF
[581]	524
[664]	525	IF (PRESENT(latvalue_1d_)) THEN
[674]	526	CALL cxios_get_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]	527	ENDIF
[581]	528
[664]	529	IF (PRESENT(latvalue_2d_)) THEN
[674]	530	CALL cxios_get_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]	531	ENDIF
	532
[326]	533	IF (PRESENT(long_name_)) THEN
	534	CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
	535	ENDIF
[581]	536
[664]	537	IF (PRESENT(lonvalue_1d_)) THEN
[674]	538	CALL cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]	539	ENDIF
[581]	540
[664]	541	IF (PRESENT(lonvalue_2d_)) THEN
[674]	542	CALL cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]	543	ENDIF
[581]	544
[664]	545	IF (PRESENT(mask_1d_)) THEN
[674]	546	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
	547	CALL cxios_get_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[664]	548	mask_1d_ = mask_1d__tmp
	549	ENDIF
	550
	551	IF (PRESENT(mask_2d_)) THEN
[674]	552	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
	553	CALL cxios_get_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[664]	554	mask_2d_ = mask_2d__tmp
	555	ENDIF
	556
[326]	557	IF (PRESENT(name_)) THEN
	558	CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
	559	ENDIF
[581]	560
[326]	561	IF (PRESENT(ni_)) THEN
	562	CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
	563	ENDIF
[581]	564
[326]	565	IF (PRESENT(ni_glo_)) THEN
	566	CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
	567	ENDIF
[581]	568
[326]	569	IF (PRESENT(nj_)) THEN
	570	CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
	571	ENDIF
[581]	572
[326]	573	IF (PRESENT(nj_glo_)) THEN
	574	CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
	575	ENDIF
[581]	576
[449]	577	IF (PRESENT(nvertex_)) THEN
	578	CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
	579	ENDIF
[581]	580
[326]	581	IF (PRESENT(standard_name_)) THEN
	582	CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
	583	ENDIF
[581]	584
[449]	585	IF (PRESENT(type_)) THEN
	586	CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
	587	ENDIF
[581]	588
[326]	589	END SUBROUTINE xios(get_domaingroup_attr_hdl_)
[581]	590
[432]	591	SUBROUTINE xios(is_defined_domaingroup_attr) &
[664]	592	( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	593	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	594	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	595	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	596
[432]	597	IMPLICIT NONE
	598	TYPE(txios(domaingroup)) :: domaingroup_hdl
	599	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]	600	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	601	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	602	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	603	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	604	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	605	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
	606	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	607	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	608	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	609	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[432]	610	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	611	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	612	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	613	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	614	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	615	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	616	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	617	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	618	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	619	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	620	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	621	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	622	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	623	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[546]	624	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	625	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]	626	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	627	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]	628	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	629	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	630	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	631	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	632	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	633	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	634	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	635	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[664]	636	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	637	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	638	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	639	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[432]	640	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	641	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	642	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	643	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	644	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	645	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	646	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	647	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	648	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	649	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	650	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	651	LOGICAL(KIND=C_BOOL) :: name_tmp
	652	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	653	LOGICAL(KIND=C_BOOL) :: ni_tmp
	654	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	655	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	656	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	657	LOGICAL(KIND=C_BOOL) :: nj_tmp
	658	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	659	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	660	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	661	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	662	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	663	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	664	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	665	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	666
[432]	667	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	668	CALL xios(is_defined_domaingroup_attr_hdl_) &
[664]	669	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	670	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	671	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	672	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	673
[432]	674	END SUBROUTINE xios(is_defined_domaingroup_attr)
[581]	675
[432]	676	SUBROUTINE xios(is_defined_domaingroup_attr_hdl) &
[664]	677	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	678	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	679	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	680	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	681
[432]	682	IMPLICIT NONE
	683	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	684	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	685	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	686	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	687	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	688	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	689	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
	690	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	691	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	692	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	693	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[432]	694	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	695	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	696	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	697	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	698	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	699	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	700	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	701	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	702	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	703	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	704	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	705	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	706	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	707	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[546]	708	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	709	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]	710	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	711	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]	712	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	713	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	714	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	715	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	716	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	717	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	718	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	719	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[664]	720	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	721	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	722	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	723	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[432]	724	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	725	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	726	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	727	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	728	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	729	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	730	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	731	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	732	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	733	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	734	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	735	LOGICAL(KIND=C_BOOL) :: name_tmp
	736	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	737	LOGICAL(KIND=C_BOOL) :: ni_tmp
	738	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	739	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	740	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	741	LOGICAL(KIND=C_BOOL) :: nj_tmp
	742	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	743	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	744	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	745	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	746	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	747	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	748	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	749	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	750
[432]	751	CALL xios(is_defined_domaingroup_attr_hdl_) &
[664]	752	( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim &
[789]	753	, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, group_ref &
	754	, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d &
	755	, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	756
[432]	757	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
[581]	758
[432]	759	SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) &
[664]	760	( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
[781]	761	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &
[789]	762	, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &
	763	, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &
	764	, type_ )
[581]	765
[432]	766	IMPLICIT NONE
	767	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]	768	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
	769	LOGICAL(KIND=C_BOOL) :: area__tmp
[664]	770	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
	771	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
	772	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
	773	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
	774	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
	775	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
	776	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
	777	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
[432]	778	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
	779	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
	780	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
	781	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
	782	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
	783	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
	784	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
	785	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
	786	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
	787	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
	788	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
	789	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
	790	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
	791	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
[546]	792	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	793	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
[432]	794	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	795	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[467]	796	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
	797	LOGICAL(KIND=C_BOOL) :: i_index__tmp
[432]	798	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
	799	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
[467]	800	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
	801	LOGICAL(KIND=C_BOOL) :: j_index__tmp
[432]	802	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
	803	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
[664]	804	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
	805	LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
	806	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
	807	LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
[432]	808	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	809	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[664]	810	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
	811	LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
	812	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
	813	LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
	814	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
	815	LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
	816	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
	817	LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
[432]	818	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	819	LOGICAL(KIND=C_BOOL) :: name__tmp
	820	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
	821	LOGICAL(KIND=C_BOOL) :: ni__tmp
	822	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
	823	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
	824	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
	825	LOGICAL(KIND=C_BOOL) :: nj__tmp
	826	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
	827	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
[449]	828	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
	829	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
[432]	830	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	831	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[449]	832	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	833	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	834
[611]	835	IF (PRESENT(area_)) THEN
	836	area__tmp = cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr)
	837	area_ = area__tmp
	838	ENDIF
	839
[664]	840	IF (PRESENT(bounds_lat_1d_)) THEN
	841	bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr)
	842	bounds_lat_1d_ = bounds_lat_1d__tmp
[449]	843	ENDIF
[581]	844
[664]	845	IF (PRESENT(bounds_lat_2d_)) THEN
	846	bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr)
	847	bounds_lat_2d_ = bounds_lat_2d__tmp
[449]	848	ENDIF
[581]	849
[664]	850	IF (PRESENT(bounds_lon_1d_)) THEN
	851	bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr)
	852	bounds_lon_1d_ = bounds_lon_1d__tmp
	853	ENDIF
	854
	855	IF (PRESENT(bounds_lon_2d_)) THEN
	856	bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr)
	857	bounds_lon_2d_ = bounds_lon_2d__tmp
	858	ENDIF
	859
[432]	860	IF (PRESENT(data_dim_)) THEN
[581]	861	data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
	862	data_dim_ = data_dim__tmp
[432]	863	ENDIF
[581]	864
[432]	865	IF (PRESENT(data_i_index_)) THEN
[581]	866	data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
	867	data_i_index_ = data_i_index__tmp
[432]	868	ENDIF
[581]	869
[432]	870	IF (PRESENT(data_ibegin_)) THEN
[581]	871	data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
	872	data_ibegin_ = data_ibegin__tmp
[432]	873	ENDIF
[581]	874
[432]	875	IF (PRESENT(data_j_index_)) THEN
[581]	876	data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
	877	data_j_index_ = data_j_index__tmp
[432]	878	ENDIF
[581]	879
[432]	880	IF (PRESENT(data_jbegin_)) THEN
[581]	881	data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
	882	data_jbegin_ = data_jbegin__tmp
[432]	883	ENDIF
[581]	884
[432]	885	IF (PRESENT(data_ni_)) THEN
[581]	886	data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
	887	data_ni_ = data_ni__tmp
[432]	888	ENDIF
[581]	889
[432]	890	IF (PRESENT(data_nj_)) THEN
[581]	891	data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
	892	data_nj_ = data_nj__tmp
[432]	893	ENDIF
[581]	894
[546]	895	IF (PRESENT(domain_ref_)) THEN
[581]	896	domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
	897	domain_ref_ = domain_ref__tmp
[546]	898	ENDIF
[581]	899
[432]	900	IF (PRESENT(group_ref_)) THEN
[581]	901	group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
	902	group_ref_ = group_ref__tmp
[432]	903	ENDIF
[581]	904
[467]	905	IF (PRESENT(i_index_)) THEN
[581]	906	i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)
	907	i_index_ = i_index__tmp
[467]	908	ENDIF
[581]	909
[432]	910	IF (PRESENT(ibegin_)) THEN
[581]	911	ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
	912	ibegin_ = ibegin__tmp
[432]	913	ENDIF
[581]	914
[467]	915	IF (PRESENT(j_index_)) THEN
[581]	916	j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)
	917	j_index_ = j_index__tmp
[467]	918	ENDIF
[581]	919
[432]	920	IF (PRESENT(jbegin_)) THEN
[581]	921	jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
	922	jbegin_ = jbegin__tmp
[432]	923	ENDIF
[581]	924
[664]	925	IF (PRESENT(latvalue_1d_)) THEN
	926	latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl%daddr)
	927	latvalue_1d_ = latvalue_1d__tmp
[432]	928	ENDIF
[581]	929
[664]	930	IF (PRESENT(latvalue_2d_)) THEN
	931	latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl%daddr)
	932	latvalue_2d_ = latvalue_2d__tmp
	933	ENDIF
	934
[432]	935	IF (PRESENT(long_name_)) THEN
[581]	936	long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
	937	long_name_ = long_name__tmp
[432]	938	ENDIF
[581]	939
[664]	940	IF (PRESENT(lonvalue_1d_)) THEN
	941	lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl%daddr)
	942	lonvalue_1d_ = lonvalue_1d__tmp
[432]	943	ENDIF
[581]	944
[664]	945	IF (PRESENT(lonvalue_2d_)) THEN
	946	lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl%daddr)
	947	lonvalue_2d_ = lonvalue_2d__tmp
[432]	948	ENDIF
[581]	949
[664]	950	IF (PRESENT(mask_1d_)) THEN
	951	mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl%daddr)
	952	mask_1d_ = mask_1d__tmp
	953	ENDIF
	954
	955	IF (PRESENT(mask_2d_)) THEN
	956	mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl%daddr)
	957	mask_2d_ = mask_2d__tmp
	958	ENDIF
	959
[432]	960	IF (PRESENT(name_)) THEN
[581]	961	name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
	962	name_ = name__tmp
[432]	963	ENDIF
[581]	964
[432]	965	IF (PRESENT(ni_)) THEN
[581]	966	ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
	967	ni_ = ni__tmp
[432]	968	ENDIF
[581]	969
[432]	970	IF (PRESENT(ni_glo_)) THEN
[581]	971	ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
	972	ni_glo_ = ni_glo__tmp
[432]	973	ENDIF
[581]	974
[432]	975	IF (PRESENT(nj_)) THEN
[581]	976	nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
	977	nj_ = nj__tmp
[432]	978	ENDIF
[581]	979
[432]	980	IF (PRESENT(nj_glo_)) THEN
[581]	981	nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
	982	nj_glo_ = nj_glo__tmp
[432]	983	ENDIF
[581]	984
[449]	985	IF (PRESENT(nvertex_)) THEN
[581]	986	nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)
	987	nvertex_ = nvertex__tmp
[449]	988	ENDIF
[581]	989
[432]	990	IF (PRESENT(standard_name_)) THEN
[581]	991	standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
	992	standard_name_ = standard_name__tmp
[432]	993	ENDIF
[581]	994
[449]	995	IF (PRESENT(type_)) THEN
[581]	996	type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)
	997	type_ = type__tmp
[449]	998	ENDIF
[581]	999
[432]	1000	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
[581]	1001
[326]	1002	END MODULE idomaingroup_attr

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

Download in other formats: