Context Navigation

idomain_attr.F90 @ 966

Last change on this file since 966 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: 42.4 KB

Rev	Line
[326]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE idomain_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE idomain
	9	USE domain_interface_attr
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_domain_attr) &
[664]	14	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	15	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	16	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	17	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	18
[326]	19	IMPLICIT NONE
	20	TYPE(txios(domain)) :: domain_hdl
	21	CHARACTER(LEN=*), INTENT(IN) ::domain_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
[657]	35	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	36	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	37	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	38	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[664]	39	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	40	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[326]	41	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	42	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	43	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	44	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	45	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	46	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	47	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	49	INTEGER , OPTIONAL, INTENT(IN) :: ni
	50	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	51	INTEGER , OPTIONAL, INTENT(IN) :: nj
	52	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	53	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	55	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	56
[966]	57	CALL xios(get_domain_handle) &
	58	(domain_id,domain_hdl)
[326]	59	CALL xios(set_domain_attr_hdl_) &
[664]	60	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	61	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	62	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	63	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	64
[326]	65	END SUBROUTINE xios(set_domain_attr)
[581]	66
[326]	67	SUBROUTINE xios(set_domain_attr_hdl) &
[664]	68	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	69	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	70	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	71	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	72
[326]	73	IMPLICIT NONE
	74	TYPE(txios(domain)) , INTENT(IN) :: domain_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
[657]	88	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:)
[326]	89	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
[657]	90	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:)
[326]	91	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
[664]	92	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
	93	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[326]	94	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]	95	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
	96	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
	97	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d(:)
	98	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	99	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
	100	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	102	INTEGER , OPTIONAL, INTENT(IN) :: ni
	103	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	104	INTEGER , OPTIONAL, INTENT(IN) :: nj
	105	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	106	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	108	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]	109
[326]	110	CALL xios(set_domain_attr_hdl_) &
[664]	111	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	112	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	113	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	114	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	115
[326]	116	END SUBROUTINE xios(set_domain_attr_hdl)
[581]	117
[326]	118	SUBROUTINE xios(set_domain_attr_hdl_) &
[664]	119	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
[781]	120	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &
[789]	121	, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &
	122	, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &
	123	, type_ )
[581]	124
[326]	125	IMPLICIT NONE
	126	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	127	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
[664]	128	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
	129	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
	130	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
	131	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
[326]	132	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
	133	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
	134	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
	135	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
	136	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
	137	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
	138	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
[546]	139	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
[657]	140	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:)
[326]	141	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
[657]	142	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:)
[326]	143	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
[664]	144	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
	145	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
[326]	146	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[664]	147	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
	148	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
	149	LOGICAL , OPTIONAL, INTENT(IN) :: mask_1d_(:)
	150	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	151	LOGICAL , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
	152	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	153	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	154	INTEGER , OPTIONAL, INTENT(IN) :: ni_
	155	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
	156	INTEGER , OPTIONAL, INTENT(IN) :: nj_
	157	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
[449]	158	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
[326]	159	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[449]	160	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]	161
[611]	162	IF (PRESENT(area_)) THEN
[966]	163	CALL cxios_set_domain_area &
	164	(domain_hdl%daddr, area_, SHAPE(area_))
[611]	165	ENDIF
	166
[664]	167	IF (PRESENT(bounds_lat_1d_)) THEN
[966]	168	CALL cxios_set_domain_bounds_lat_1d &
	169	(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]	170	ENDIF
[581]	171
[664]	172	IF (PRESENT(bounds_lat_2d_)) THEN
[966]	173	CALL cxios_set_domain_bounds_lat_2d &
	174	(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]	175	ENDIF
[581]	176
[664]	177	IF (PRESENT(bounds_lon_1d_)) THEN
[966]	178	CALL cxios_set_domain_bounds_lon_1d &
	179	(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]	180	ENDIF
	181
	182	IF (PRESENT(bounds_lon_2d_)) THEN
[966]	183	CALL cxios_set_domain_bounds_lon_2d &
	184	(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]	185	ENDIF
	186
[326]	187	IF (PRESENT(data_dim_)) THEN
[966]	188	CALL cxios_set_domain_data_dim &
	189	(domain_hdl%daddr, data_dim_)
[326]	190	ENDIF
[581]	191
[326]	192	IF (PRESENT(data_i_index_)) THEN
[966]	193	CALL cxios_set_domain_data_i_index &
	194	(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]	195	ENDIF
[581]	196
[326]	197	IF (PRESENT(data_ibegin_)) THEN
[966]	198	CALL cxios_set_domain_data_ibegin &
	199	(domain_hdl%daddr, data_ibegin_)
[326]	200	ENDIF
[581]	201
[326]	202	IF (PRESENT(data_j_index_)) THEN
[966]	203	CALL cxios_set_domain_data_j_index &
	204	(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]	205	ENDIF
[581]	206
[326]	207	IF (PRESENT(data_jbegin_)) THEN
[966]	208	CALL cxios_set_domain_data_jbegin &
	209	(domain_hdl%daddr, data_jbegin_)
[326]	210	ENDIF
[581]	211
[326]	212	IF (PRESENT(data_ni_)) THEN
[966]	213	CALL cxios_set_domain_data_ni &
	214	(domain_hdl%daddr, data_ni_)
[326]	215	ENDIF
[581]	216
[326]	217	IF (PRESENT(data_nj_)) THEN
[966]	218	CALL cxios_set_domain_data_nj &
	219	(domain_hdl%daddr, data_nj_)
[326]	220	ENDIF
[581]	221
[546]	222	IF (PRESENT(domain_ref_)) THEN
[966]	223	CALL cxios_set_domain_domain_ref &
	224	(domain_hdl%daddr, domain_ref_, len(domain_ref_))
[546]	225	ENDIF
[581]	226
[467]	227	IF (PRESENT(i_index_)) THEN
[966]	228	CALL cxios_set_domain_i_index &
	229	(domain_hdl%daddr, i_index_, SHAPE(i_index_))
[467]	230	ENDIF
[581]	231
[326]	232	IF (PRESENT(ibegin_)) THEN
[966]	233	CALL cxios_set_domain_ibegin &
	234	(domain_hdl%daddr, ibegin_)
[326]	235	ENDIF
[581]	236
[467]	237	IF (PRESENT(j_index_)) THEN
[966]	238	CALL cxios_set_domain_j_index &
	239	(domain_hdl%daddr, j_index_, SHAPE(j_index_))
[467]	240	ENDIF
[581]	241
[326]	242	IF (PRESENT(jbegin_)) THEN
[966]	243	CALL cxios_set_domain_jbegin &
	244	(domain_hdl%daddr, jbegin_)
[326]	245	ENDIF
[581]	246
[664]	247	IF (PRESENT(latvalue_1d_)) THEN
[966]	248	CALL cxios_set_domain_latvalue_1d &
	249	(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]	250	ENDIF
[581]	251
[664]	252	IF (PRESENT(latvalue_2d_)) THEN
[966]	253	CALL cxios_set_domain_latvalue_2d &
	254	(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]	255	ENDIF
	256
[326]	257	IF (PRESENT(long_name_)) THEN
[966]	258	CALL cxios_set_domain_long_name &
	259	(domain_hdl%daddr, long_name_, len(long_name_))
[326]	260	ENDIF
[581]	261
[664]	262	IF (PRESENT(lonvalue_1d_)) THEN
[966]	263	CALL cxios_set_domain_lonvalue_1d &
	264	(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]	265	ENDIF
[581]	266
[664]	267	IF (PRESENT(lonvalue_2d_)) THEN
[966]	268	CALL cxios_set_domain_lonvalue_2d &
	269	(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]	270	ENDIF
[581]	271
[664]	272	IF (PRESENT(mask_1d_)) THEN
[674]	273	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[664]	274	mask_1d__tmp = mask_1d_
[966]	275	CALL cxios_set_domain_mask_1d &
	276	(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[664]	277	ENDIF
	278
	279	IF (PRESENT(mask_2d_)) THEN
[674]	280	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[664]	281	mask_2d__tmp = mask_2d_
[966]	282	CALL cxios_set_domain_mask_2d &
	283	(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[664]	284	ENDIF
	285
[326]	286	IF (PRESENT(name_)) THEN
[966]	287	CALL cxios_set_domain_name &
	288	(domain_hdl%daddr, name_, len(name_))
[326]	289	ENDIF
[581]	290
[326]	291	IF (PRESENT(ni_)) THEN
[966]	292	CALL cxios_set_domain_ni &
	293	(domain_hdl%daddr, ni_)
[326]	294	ENDIF
[581]	295
[326]	296	IF (PRESENT(ni_glo_)) THEN
[966]	297	CALL cxios_set_domain_ni_glo &
	298	(domain_hdl%daddr, ni_glo_)
[326]	299	ENDIF
[581]	300
[326]	301	IF (PRESENT(nj_)) THEN
[966]	302	CALL cxios_set_domain_nj &
	303	(domain_hdl%daddr, nj_)
[326]	304	ENDIF
[581]	305
[326]	306	IF (PRESENT(nj_glo_)) THEN
[966]	307	CALL cxios_set_domain_nj_glo &
	308	(domain_hdl%daddr, nj_glo_)
[326]	309	ENDIF
[581]	310
[449]	311	IF (PRESENT(nvertex_)) THEN
[966]	312	CALL cxios_set_domain_nvertex &
	313	(domain_hdl%daddr, nvertex_)
[449]	314	ENDIF
[581]	315
[326]	316	IF (PRESENT(standard_name_)) THEN
[966]	317	CALL cxios_set_domain_standard_name &
	318	(domain_hdl%daddr, standard_name_, len(standard_name_))
[326]	319	ENDIF
[581]	320
[449]	321	IF (PRESENT(type_)) THEN
[966]	322	CALL cxios_set_domain_type &
	323	(domain_hdl%daddr, type_, len(type_))
[449]	324	ENDIF
[581]	325
[326]	326	END SUBROUTINE xios(set_domain_attr_hdl_)
[581]	327
[326]	328	SUBROUTINE xios(get_domain_attr) &
[664]	329	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	330	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	331	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	332	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	333
[326]	334	IMPLICIT NONE
	335	TYPE(txios(domain)) :: domain_hdl
	336	CHARACTER(LEN=*), INTENT(IN) ::domain_id
[611]	337	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	338	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	339	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
	340	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	341	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[326]	342	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	343	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	344	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	345	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	346	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	347	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	348	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
[546]	349	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[657]	350	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	351	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	352	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	353	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[664]	354	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	355	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[326]	356	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	357	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	358	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	359	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	360	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	361	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	362	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	363	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	364	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	365	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	366	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	367	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	368	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	369	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	370	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	371
[966]	372	CALL xios(get_domain_handle) &
	373	(domain_id,domain_hdl)
[326]	374	CALL xios(get_domain_attr_hdl_) &
[664]	375	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	376	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	377	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	378	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	379
[326]	380	END SUBROUTINE xios(get_domain_attr)
[581]	381
[326]	382	SUBROUTINE xios(get_domain_attr_hdl) &
[664]	383	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	384	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	385	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	386	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	387
[326]	388	IMPLICIT NONE
	389	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	390	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]	391	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
	392	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
	393	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
	394	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[326]	395	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	396	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	397	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	398	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	399	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	400	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	401	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
[546]	402	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[657]	403	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]	404	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
[657]	405	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]	406	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
[664]	407	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
	408	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[326]	409	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]	410	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
	411	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
	412	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d(:)
	413	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
	414	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
	415	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]	416	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	417	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	418	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	419	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	420	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	421	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	422	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	423	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]	424
[326]	425	CALL xios(get_domain_attr_hdl_) &
[664]	426	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	427	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	428	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	429	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	430
[326]	431	END SUBROUTINE xios(get_domain_attr_hdl)
[581]	432
[326]	433	SUBROUTINE xios(get_domain_attr_hdl_) &
[664]	434	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
[781]	435	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &
[789]	436	, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &
	437	, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &
	438	, type_ )
[581]	439
[326]	440	IMPLICIT NONE
	441	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	442	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
[664]	443	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
	444	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
	445	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
	446	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
[326]	447	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
	448	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
	449	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
	450	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
	451	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
	452	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
	453	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
[546]	454	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
[657]	455	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:)
[326]	456	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
[657]	457	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:)
[326]	458	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
[664]	459	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
	460	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
[326]	461	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[664]	462	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
	463	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
	464	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
	465	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
	466	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
	467	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]	468	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	469	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
	470	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
	471	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
	472	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
[449]	473	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
[326]	474	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[449]	475	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]	476
[611]	477	IF (PRESENT(area_)) THEN
[966]	478	CALL cxios_get_domain_area &
	479	(domain_hdl%daddr, area_, SHAPE(area_))
[611]	480	ENDIF
	481
[664]	482	IF (PRESENT(bounds_lat_1d_)) THEN
[966]	483	CALL cxios_get_domain_bounds_lat_1d &
	484	(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]	485	ENDIF
[581]	486
[664]	487	IF (PRESENT(bounds_lat_2d_)) THEN
[966]	488	CALL cxios_get_domain_bounds_lat_2d &
	489	(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]	490	ENDIF
[581]	491
[664]	492	IF (PRESENT(bounds_lon_1d_)) THEN
[966]	493	CALL cxios_get_domain_bounds_lon_1d &
	494	(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]	495	ENDIF
	496
	497	IF (PRESENT(bounds_lon_2d_)) THEN
[966]	498	CALL cxios_get_domain_bounds_lon_2d &
	499	(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]	500	ENDIF
	501
[326]	502	IF (PRESENT(data_dim_)) THEN
[966]	503	CALL cxios_get_domain_data_dim &
	504	(domain_hdl%daddr, data_dim_)
[326]	505	ENDIF
[581]	506
[326]	507	IF (PRESENT(data_i_index_)) THEN
[966]	508	CALL cxios_get_domain_data_i_index &
	509	(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]	510	ENDIF
[581]	511
[326]	512	IF (PRESENT(data_ibegin_)) THEN
[966]	513	CALL cxios_get_domain_data_ibegin &
	514	(domain_hdl%daddr, data_ibegin_)
[326]	515	ENDIF
[581]	516
[326]	517	IF (PRESENT(data_j_index_)) THEN
[966]	518	CALL cxios_get_domain_data_j_index &
	519	(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]	520	ENDIF
[581]	521
[326]	522	IF (PRESENT(data_jbegin_)) THEN
[966]	523	CALL cxios_get_domain_data_jbegin &
	524	(domain_hdl%daddr, data_jbegin_)
[326]	525	ENDIF
[581]	526
[326]	527	IF (PRESENT(data_ni_)) THEN
[966]	528	CALL cxios_get_domain_data_ni &
	529	(domain_hdl%daddr, data_ni_)
[326]	530	ENDIF
[581]	531
[326]	532	IF (PRESENT(data_nj_)) THEN
[966]	533	CALL cxios_get_domain_data_nj &
	534	(domain_hdl%daddr, data_nj_)
[326]	535	ENDIF
[581]	536
[546]	537	IF (PRESENT(domain_ref_)) THEN
[966]	538	CALL cxios_get_domain_domain_ref &
	539	(domain_hdl%daddr, domain_ref_, len(domain_ref_))
[546]	540	ENDIF
[581]	541
[467]	542	IF (PRESENT(i_index_)) THEN
[966]	543	CALL cxios_get_domain_i_index &
	544	(domain_hdl%daddr, i_index_, SHAPE(i_index_))
[467]	545	ENDIF
[581]	546
[326]	547	IF (PRESENT(ibegin_)) THEN
[966]	548	CALL cxios_get_domain_ibegin &
	549	(domain_hdl%daddr, ibegin_)
[326]	550	ENDIF
[581]	551
[467]	552	IF (PRESENT(j_index_)) THEN
[966]	553	CALL cxios_get_domain_j_index &
	554	(domain_hdl%daddr, j_index_, SHAPE(j_index_))
[467]	555	ENDIF
[581]	556
[326]	557	IF (PRESENT(jbegin_)) THEN
[966]	558	CALL cxios_get_domain_jbegin &
	559	(domain_hdl%daddr, jbegin_)
[326]	560	ENDIF
[581]	561
[664]	562	IF (PRESENT(latvalue_1d_)) THEN
[966]	563	CALL cxios_get_domain_latvalue_1d &
	564	(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]	565	ENDIF
[581]	566
[664]	567	IF (PRESENT(latvalue_2d_)) THEN
[966]	568	CALL cxios_get_domain_latvalue_2d &
	569	(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]	570	ENDIF
	571
[326]	572	IF (PRESENT(long_name_)) THEN
[966]	573	CALL cxios_get_domain_long_name &
	574	(domain_hdl%daddr, long_name_, len(long_name_))
[326]	575	ENDIF
[581]	576
[664]	577	IF (PRESENT(lonvalue_1d_)) THEN
[966]	578	CALL cxios_get_domain_lonvalue_1d &
	579	(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]	580	ENDIF
[581]	581
[664]	582	IF (PRESENT(lonvalue_2d_)) THEN
[966]	583	CALL cxios_get_domain_lonvalue_2d &
	584	(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]	585	ENDIF
[581]	586
[664]	587	IF (PRESENT(mask_1d_)) THEN
[674]	588	ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[966]	589	CALL cxios_get_domain_mask_1d &
	590	(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[664]	591	mask_1d_ = mask_1d__tmp
	592	ENDIF
	593
	594	IF (PRESENT(mask_2d_)) THEN
[674]	595	ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[966]	596	CALL cxios_get_domain_mask_2d &
	597	(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[664]	598	mask_2d_ = mask_2d__tmp
	599	ENDIF
	600
[326]	601	IF (PRESENT(name_)) THEN
[966]	602	CALL cxios_get_domain_name &
	603	(domain_hdl%daddr, name_, len(name_))
[326]	604	ENDIF
[581]	605
[326]	606	IF (PRESENT(ni_)) THEN
[966]	607	CALL cxios_get_domain_ni &
	608	(domain_hdl%daddr, ni_)
[326]	609	ENDIF
[581]	610
[326]	611	IF (PRESENT(ni_glo_)) THEN
[966]	612	CALL cxios_get_domain_ni_glo &
	613	(domain_hdl%daddr, ni_glo_)
[326]	614	ENDIF
[581]	615
[326]	616	IF (PRESENT(nj_)) THEN
[966]	617	CALL cxios_get_domain_nj &
	618	(domain_hdl%daddr, nj_)
[326]	619	ENDIF
[581]	620
[326]	621	IF (PRESENT(nj_glo_)) THEN
[966]	622	CALL cxios_get_domain_nj_glo &
	623	(domain_hdl%daddr, nj_glo_)
[326]	624	ENDIF
[581]	625
[449]	626	IF (PRESENT(nvertex_)) THEN
[966]	627	CALL cxios_get_domain_nvertex &
	628	(domain_hdl%daddr, nvertex_)
[449]	629	ENDIF
[581]	630
[326]	631	IF (PRESENT(standard_name_)) THEN
[966]	632	CALL cxios_get_domain_standard_name &
	633	(domain_hdl%daddr, standard_name_, len(standard_name_))
[326]	634	ENDIF
[581]	635
[449]	636	IF (PRESENT(type_)) THEN
[966]	637	CALL cxios_get_domain_type &
	638	(domain_hdl%daddr, type_, len(type_))
[449]	639	ENDIF
[581]	640
[326]	641	END SUBROUTINE xios(get_domain_attr_hdl_)
[581]	642
[432]	643	SUBROUTINE xios(is_defined_domain_attr) &
[664]	644	( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	645	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	646	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	647	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	648
[432]	649	IMPLICIT NONE
	650	TYPE(txios(domain)) :: domain_hdl
	651	CHARACTER(LEN=*), INTENT(IN) ::domain_id
[611]	652	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	653	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	654	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	655	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	656	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	657	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
	658	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	659	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	660	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	661	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[432]	662	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	663	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	664	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	665	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	666	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	667	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	668	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	669	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	670	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	671	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	672	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	673	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	674	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	675	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[546]	676	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	677	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[467]	678	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	679	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	680	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	681	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	682	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	683	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	684	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	685	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[664]	686	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	687	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	688	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	689	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[432]	690	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	691	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	692	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	693	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	694	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	695	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	696	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	697	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	698	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	699	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	700	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	701	LOGICAL(KIND=C_BOOL) :: name_tmp
	702	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	703	LOGICAL(KIND=C_BOOL) :: ni_tmp
	704	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	705	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	706	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	707	LOGICAL(KIND=C_BOOL) :: nj_tmp
	708	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	709	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	710	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	711	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	712	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	713	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	714	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	715	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	716
[966]	717	CALL xios(get_domain_handle) &
	718	(domain_id,domain_hdl)
[432]	719	CALL xios(is_defined_domain_attr_hdl_) &
[664]	720	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	721	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	722	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	723	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	724
[432]	725	END SUBROUTINE xios(is_defined_domain_attr)
[581]	726
[432]	727	SUBROUTINE xios(is_defined_domain_attr_hdl) &
[664]	728	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	729	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	730	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	731	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	732
[432]	733	IMPLICIT NONE
	734	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	735	LOGICAL, OPTIONAL, INTENT(OUT) :: area
	736	LOGICAL(KIND=C_BOOL) :: area_tmp
[664]	737	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
	738	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
	739	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
	740	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
	741	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
	742	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
	743	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
	744	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[432]	745	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	746	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	747	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	748	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	749	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	750	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	751	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	752	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	753	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	754	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	755	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	756	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	757	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	758	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[546]	759	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	760	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[467]	761	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	762	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	763	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	764	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]	765	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	766	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	767	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	768	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[664]	769	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
	770	LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
	771	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
	772	LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[432]	773	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	774	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]	775	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
	776	LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
	777	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
	778	LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
	779	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
	780	LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
	781	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
	782	LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]	783	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	784	LOGICAL(KIND=C_BOOL) :: name_tmp
	785	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	786	LOGICAL(KIND=C_BOOL) :: ni_tmp
	787	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	788	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	789	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	790	LOGICAL(KIND=C_BOOL) :: nj_tmp
	791	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	792	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	793	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	794	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	795	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	796	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	797	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	798	LOGICAL(KIND=C_BOOL) :: type_tmp
[581]	799
[432]	800	CALL xios(is_defined_domain_attr_hdl_) &
[664]	801	( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index &
[789]	802	, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index &
	803	, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name &
	804	, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
[581]	805
[432]	806	END SUBROUTINE xios(is_defined_domain_attr_hdl)
[581]	807
[432]	808	SUBROUTINE xios(is_defined_domain_attr_hdl_) &
[664]	809	( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_ &
[781]	810	, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_ &
[789]	811	, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_ &
	812	, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_ &
	813	, type_ )
[581]	814
[432]	815	IMPLICIT NONE
	816	TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
[611]	817	LOGICAL, OPTIONAL, INTENT(OUT) :: area_
	818	LOGICAL(KIND=C_BOOL) :: area__tmp
[664]	819	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
	820	LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
	821	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
	822	LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
	823	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
	824	LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
	825	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
	826	LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
[432]	827	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
	828	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
	829	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
	830	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
	831	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
	832	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
	833	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
	834	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
	835	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
	836	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
	837	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
	838	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
	839	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
	840	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
[546]	841	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	842	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
[467]	843	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
	844	LOGICAL(KIND=C_BOOL) :: i_index__tmp
[432]	845	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
	846	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
[467]	847	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
	848	LOGICAL(KIND=C_BOOL) :: j_index__tmp
[432]	849	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
	850	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
[664]	851	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
	852	LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
	853	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
	854	LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
[432]	855	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	856	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[664]	857	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
	858	LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
	859	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
	860	LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
	861	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
	862	LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
	863	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
	864	LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
[432]	865	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	866	LOGICAL(KIND=C_BOOL) :: name__tmp
	867	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
	868	LOGICAL(KIND=C_BOOL) :: ni__tmp
	869	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
	870	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
	871	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
	872	LOGICAL(KIND=C_BOOL) :: nj__tmp
	873	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
	874	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
[449]	875	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
	876	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
[432]	877	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	878	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[449]	879	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	880	LOGICAL(KIND=C_BOOL) :: type__tmp
[581]	881
[611]	882	IF (PRESENT(area_)) THEN
[966]	883	area__tmp = cxios_is_defined_domain_area &
	884	(domain_hdl%daddr)
[611]	885	area_ = area__tmp
	886	ENDIF
	887
[664]	888	IF (PRESENT(bounds_lat_1d_)) THEN
[966]	889	bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d &
	890	(domain_hdl%daddr)
[664]	891	bounds_lat_1d_ = bounds_lat_1d__tmp
[449]	892	ENDIF
[581]	893
[664]	894	IF (PRESENT(bounds_lat_2d_)) THEN
[966]	895	bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d &
	896	(domain_hdl%daddr)
[664]	897	bounds_lat_2d_ = bounds_lat_2d__tmp
[449]	898	ENDIF
[581]	899
[664]	900	IF (PRESENT(bounds_lon_1d_)) THEN
[966]	901	bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d &
	902	(domain_hdl%daddr)
[664]	903	bounds_lon_1d_ = bounds_lon_1d__tmp
	904	ENDIF
	905
	906	IF (PRESENT(bounds_lon_2d_)) THEN
[966]	907	bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d &
	908	(domain_hdl%daddr)
[664]	909	bounds_lon_2d_ = bounds_lon_2d__tmp
	910	ENDIF
	911
[432]	912	IF (PRESENT(data_dim_)) THEN
[966]	913	data_dim__tmp = cxios_is_defined_domain_data_dim &
	914	(domain_hdl%daddr)
[581]	915	data_dim_ = data_dim__tmp
[432]	916	ENDIF
[581]	917
[432]	918	IF (PRESENT(data_i_index_)) THEN
[966]	919	data_i_index__tmp = cxios_is_defined_domain_data_i_index &
	920	(domain_hdl%daddr)
[581]	921	data_i_index_ = data_i_index__tmp
[432]	922	ENDIF
[581]	923
[432]	924	IF (PRESENT(data_ibegin_)) THEN
[966]	925	data_ibegin__tmp = cxios_is_defined_domain_data_ibegin &
	926	(domain_hdl%daddr)
[581]	927	data_ibegin_ = data_ibegin__tmp
[432]	928	ENDIF
[581]	929
[432]	930	IF (PRESENT(data_j_index_)) THEN
[966]	931	data_j_index__tmp = cxios_is_defined_domain_data_j_index &
	932	(domain_hdl%daddr)
[581]	933	data_j_index_ = data_j_index__tmp
[432]	934	ENDIF
[581]	935
[432]	936	IF (PRESENT(data_jbegin_)) THEN
[966]	937	data_jbegin__tmp = cxios_is_defined_domain_data_jbegin &
	938	(domain_hdl%daddr)
[581]	939	data_jbegin_ = data_jbegin__tmp
[432]	940	ENDIF
[581]	941
[432]	942	IF (PRESENT(data_ni_)) THEN
[966]	943	data_ni__tmp = cxios_is_defined_domain_data_ni &
	944	(domain_hdl%daddr)
[581]	945	data_ni_ = data_ni__tmp
[432]	946	ENDIF
[581]	947
[432]	948	IF (PRESENT(data_nj_)) THEN
[966]	949	data_nj__tmp = cxios_is_defined_domain_data_nj &
	950	(domain_hdl%daddr)
[581]	951	data_nj_ = data_nj__tmp
[432]	952	ENDIF
[581]	953
[546]	954	IF (PRESENT(domain_ref_)) THEN
[966]	955	domain_ref__tmp = cxios_is_defined_domain_domain_ref &
	956	(domain_hdl%daddr)
[581]	957	domain_ref_ = domain_ref__tmp
[546]	958	ENDIF
[581]	959
[467]	960	IF (PRESENT(i_index_)) THEN
[966]	961	i_index__tmp = cxios_is_defined_domain_i_index &
	962	(domain_hdl%daddr)
[581]	963	i_index_ = i_index__tmp
[467]	964	ENDIF
[581]	965
[432]	966	IF (PRESENT(ibegin_)) THEN
[966]	967	ibegin__tmp = cxios_is_defined_domain_ibegin &
	968	(domain_hdl%daddr)
[581]	969	ibegin_ = ibegin__tmp
[432]	970	ENDIF
[581]	971
[467]	972	IF (PRESENT(j_index_)) THEN
[966]	973	j_index__tmp = cxios_is_defined_domain_j_index &
	974	(domain_hdl%daddr)
[581]	975	j_index_ = j_index__tmp
[467]	976	ENDIF
[581]	977
[432]	978	IF (PRESENT(jbegin_)) THEN
[966]	979	jbegin__tmp = cxios_is_defined_domain_jbegin &
	980	(domain_hdl%daddr)
[581]	981	jbegin_ = jbegin__tmp
[432]	982	ENDIF
[581]	983
[664]	984	IF (PRESENT(latvalue_1d_)) THEN
[966]	985	latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d &
	986	(domain_hdl%daddr)
[664]	987	latvalue_1d_ = latvalue_1d__tmp
[432]	988	ENDIF
[581]	989
[664]	990	IF (PRESENT(latvalue_2d_)) THEN
[966]	991	latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d &
	992	(domain_hdl%daddr)
[664]	993	latvalue_2d_ = latvalue_2d__tmp
	994	ENDIF
	995
[432]	996	IF (PRESENT(long_name_)) THEN
[966]	997	long_name__tmp = cxios_is_defined_domain_long_name &
	998	(domain_hdl%daddr)
[581]	999	long_name_ = long_name__tmp
[432]	1000	ENDIF
[581]	1001
[664]	1002	IF (PRESENT(lonvalue_1d_)) THEN
[966]	1003	lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d &
	1004	(domain_hdl%daddr)
[664]	1005	lonvalue_1d_ = lonvalue_1d__tmp
[432]	1006	ENDIF
[581]	1007
[664]	1008	IF (PRESENT(lonvalue_2d_)) THEN
[966]	1009	lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d &
	1010	(domain_hdl%daddr)
[664]	1011	lonvalue_2d_ = lonvalue_2d__tmp
[432]	1012	ENDIF
[581]	1013
[664]	1014	IF (PRESENT(mask_1d_)) THEN
[966]	1015	mask_1d__tmp = cxios_is_defined_domain_mask_1d &
	1016	(domain_hdl%daddr)
[664]	1017	mask_1d_ = mask_1d__tmp
	1018	ENDIF
	1019
	1020	IF (PRESENT(mask_2d_)) THEN
[966]	1021	mask_2d__tmp = cxios_is_defined_domain_mask_2d &
	1022	(domain_hdl%daddr)
[664]	1023	mask_2d_ = mask_2d__tmp
	1024	ENDIF
	1025
[432]	1026	IF (PRESENT(name_)) THEN
[966]	1027	name__tmp = cxios_is_defined_domain_name &
	1028	(domain_hdl%daddr)
[581]	1029	name_ = name__tmp
[432]	1030	ENDIF
[581]	1031
[432]	1032	IF (PRESENT(ni_)) THEN
[966]	1033	ni__tmp = cxios_is_defined_domain_ni &
	1034	(domain_hdl%daddr)
[581]	1035	ni_ = ni__tmp
[432]	1036	ENDIF
[581]	1037
[432]	1038	IF (PRESENT(ni_glo_)) THEN
[966]	1039	ni_glo__tmp = cxios_is_defined_domain_ni_glo &
	1040	(domain_hdl%daddr)
[581]	1041	ni_glo_ = ni_glo__tmp
[432]	1042	ENDIF
[581]	1043
[432]	1044	IF (PRESENT(nj_)) THEN
[966]	1045	nj__tmp = cxios_is_defined_domain_nj &
	1046	(domain_hdl%daddr)
[581]	1047	nj_ = nj__tmp
[432]	1048	ENDIF
[581]	1049
[432]	1050	IF (PRESENT(nj_glo_)) THEN
[966]	1051	nj_glo__tmp = cxios_is_defined_domain_nj_glo &
	1052	(domain_hdl%daddr)
[581]	1053	nj_glo_ = nj_glo__tmp
[432]	1054	ENDIF
[581]	1055
[449]	1056	IF (PRESENT(nvertex_)) THEN
[966]	1057	nvertex__tmp = cxios_is_defined_domain_nvertex &
	1058	(domain_hdl%daddr)
[581]	1059	nvertex_ = nvertex__tmp
[449]	1060	ENDIF
[581]	1061
[432]	1062	IF (PRESENT(standard_name_)) THEN
[966]	1063	standard_name__tmp = cxios_is_defined_domain_standard_name &
	1064	(domain_hdl%daddr)
[581]	1065	standard_name_ = standard_name__tmp
[432]	1066	ENDIF
[581]	1067
[449]	1068	IF (PRESENT(type_)) THEN
[966]	1069	type__tmp = cxios_is_defined_domain_type &
	1070	(domain_hdl%daddr)
[581]	1071	type_ = type__tmp
[449]	1072	ENDIF
[581]	1073
[432]	1074	END SUBROUTINE xios(is_defined_domain_attr_hdl_)
[581]	1075
[326]	1076	END MODULE idomain_attr

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

Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90 @ 966

Download in other formats: