Context Navigation

idomaingroup_attr.F90 @ 1024

Last change on this file since 1024 was 966, checked in by mhnguyen, 8 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

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

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

Context Navigation

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

Download in other formats: