Context Navigation

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

Last change on this file since 608 was 581, checked in by rlacroix, 9 years ago
Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.
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: 50.2 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) &
[449]	14	( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	15	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	16	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	17	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	18	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	19
[326]	20	IMPLICIT NONE
	21	TYPE(txios(domaingroup)) :: domaingroup_hdl
	22	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[449]	23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
	24	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
[326]	25	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	26	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	27	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	28	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	29	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	30	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
	31	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	32	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
	33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
[546]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[467]	36	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:)
[326]	37	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
	38	INTEGER , OPTIONAL, INTENT(IN) :: iend
[467]	39	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:)
[326]	40	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
	41	INTEGER , OPTIONAL, INTENT(IN) :: jend
	42	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
	43	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	44	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
	45	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
	46	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
	47	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	48	INTEGER , OPTIONAL, INTENT(IN) :: ni
	49	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	50	INTEGER , OPTIONAL, INTENT(IN) :: nj
	51	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	52	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[326]	55	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin
	56	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
	57	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin
	58	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
	59	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni
	60	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc
	61	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj
	62	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc
[581]	63
[326]	64	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	65	CALL xios(set_domaingroup_attr_hdl_) &
[449]	66	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	67	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	68	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	69	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	70	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	71
[326]	72	END SUBROUTINE xios(set_domaingroup_attr)
[581]	73
[326]	74	SUBROUTINE xios(set_domaingroup_attr_hdl) &
[449]	75	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	76	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	77	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	78	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	79	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	80
[326]	81	IMPLICIT NONE
	82	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[449]	83	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
	84	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
[326]	85	INTEGER , OPTIONAL, INTENT(IN) :: data_dim
	86	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index(:)
	87	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin
	88	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index(:)
	89	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin
	90	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index
	91	INTEGER , OPTIONAL, INTENT(IN) :: data_ni
	92	INTEGER , OPTIONAL, INTENT(IN) :: data_nj
	93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
[546]	94	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[467]	96	INTEGER , OPTIONAL, INTENT(IN) :: i_index(:,:)
[326]	97	INTEGER , OPTIONAL, INTENT(IN) :: ibegin
	98	INTEGER , OPTIONAL, INTENT(IN) :: iend
[467]	99	INTEGER , OPTIONAL, INTENT(IN) :: j_index(:,:)
[326]	100	INTEGER , OPTIONAL, INTENT(IN) :: jbegin
	101	INTEGER , OPTIONAL, INTENT(IN) :: jend
	102	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
	103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	104	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
	105	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:,:)
	106	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
	107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
	108	INTEGER , OPTIONAL, INTENT(IN) :: ni
	109	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo
	110	INTEGER , OPTIONAL, INTENT(IN) :: nj
	111	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo
[449]	112	INTEGER , OPTIONAL, INTENT(IN) :: nvertex
[326]	113	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[449]	114	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[326]	115	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin
	116	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
	117	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin
	118	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
	119	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni
	120	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc
	121	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj
	122	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc
[581]	123
[326]	124	CALL xios(set_domaingroup_attr_hdl_) &
[449]	125	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	126	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	127	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	128	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	129	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	130
[326]	131	END SUBROUTINE xios(set_domaingroup_attr_hdl)
[581]	132
[326]	133	SUBROUTINE xios(set_domaingroup_attr_hdl_) &
[449]	134	( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
[546]	135	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_ &
	136	, i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_ &
	137	, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ &
	138	, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
[581]	139
[326]	140	IMPLICIT NONE
	141	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[449]	142	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
	143	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
[326]	144	INTEGER , OPTIONAL, INTENT(IN) :: data_dim_
	145	INTEGER , OPTIONAL, INTENT(IN) :: data_i_index_(:)
	146	INTEGER , OPTIONAL, INTENT(IN) :: data_ibegin_
	147	INTEGER , OPTIONAL, INTENT(IN) :: data_j_index_(:)
	148	INTEGER , OPTIONAL, INTENT(IN) :: data_jbegin_
	149	INTEGER , OPTIONAL, INTENT(IN) :: data_n_index_
	150	INTEGER , OPTIONAL, INTENT(IN) :: data_ni_
	151	INTEGER , OPTIONAL, INTENT(IN) :: data_nj_
	152	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
[546]	153	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
[326]	154	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[467]	155	INTEGER , OPTIONAL, INTENT(IN) :: i_index_(:,:)
[326]	156	INTEGER , OPTIONAL, INTENT(IN) :: ibegin_
	157	INTEGER , OPTIONAL, INTENT(IN) :: iend_
[467]	158	INTEGER , OPTIONAL, INTENT(IN) :: j_index_(:,:)
[326]	159	INTEGER , OPTIONAL, INTENT(IN) :: jbegin_
	160	INTEGER , OPTIONAL, INTENT(IN) :: jend_
	161	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
	162	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
	163	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
	164	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:,:)
	165	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
	166	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
	167	INTEGER , OPTIONAL, INTENT(IN) :: ni_
	168	INTEGER , OPTIONAL, INTENT(IN) :: ni_glo_
	169	INTEGER , OPTIONAL, INTENT(IN) :: nj_
	170	INTEGER , OPTIONAL, INTENT(IN) :: nj_glo_
[449]	171	INTEGER , OPTIONAL, INTENT(IN) :: nvertex_
[326]	172	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[449]	173	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[326]	174	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_
	175	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
	176	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_
	177	INTEGER , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
	178	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_
	179	INTEGER , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
	180	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_
	181	INTEGER , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
[581]	182
[449]	183	IF (PRESENT(bounds_lat_)) THEN
[581]	184	CALL cxios_set_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
[449]	185	ENDIF
[581]	186
[449]	187	IF (PRESENT(bounds_lon_)) THEN
[581]	188	CALL cxios_set_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
[449]	189	ENDIF
[581]	190
[326]	191	IF (PRESENT(data_dim_)) THEN
	192	CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
	193	ENDIF
[581]	194
[326]	195	IF (PRESENT(data_i_index_)) THEN
[581]	196	CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))
[326]	197	ENDIF
[581]	198
[326]	199	IF (PRESENT(data_ibegin_)) THEN
	200	CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
	201	ENDIF
[581]	202
[326]	203	IF (PRESENT(data_j_index_)) THEN
[581]	204	CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))
[326]	205	ENDIF
[581]	206
[326]	207	IF (PRESENT(data_jbegin_)) THEN
	208	CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
	209	ENDIF
[581]	210
[326]	211	IF (PRESENT(data_n_index_)) THEN
	212	CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
	213	ENDIF
[581]	214
[326]	215	IF (PRESENT(data_ni_)) THEN
	216	CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
	217	ENDIF
[581]	218
[326]	219	IF (PRESENT(data_nj_)) THEN
	220	CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
	221	ENDIF
[581]	222
[326]	223	IF (PRESENT(domain_group_ref_)) THEN
	224	CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
	225	ENDIF
[581]	226
[546]	227	IF (PRESENT(domain_ref_)) THEN
	228	CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
	229	ENDIF
[581]	230
[326]	231	IF (PRESENT(group_ref_)) THEN
	232	CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
	233	ENDIF
[581]	234
[467]	235	IF (PRESENT(i_index_)) THEN
[581]	236	CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2))
[467]	237	ENDIF
[581]	238
[326]	239	IF (PRESENT(ibegin_)) THEN
	240	CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
	241	ENDIF
[581]	242
[326]	243	IF (PRESENT(iend_)) THEN
	244	CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_)
	245	ENDIF
[581]	246
[467]	247	IF (PRESENT(j_index_)) THEN
[581]	248	CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2))
[467]	249	ENDIF
[581]	250
[326]	251	IF (PRESENT(jbegin_)) THEN
	252	CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
	253	ENDIF
[581]	254
[326]	255	IF (PRESENT(jend_)) THEN
	256	CALL cxios_set_domaingroup_jend(domaingroup_hdl%daddr, jend_)
	257	ENDIF
[581]	258
[326]	259	IF (PRESENT(latvalue_)) THEN
[581]	260	CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1))
[326]	261	ENDIF
[581]	262
[326]	263	IF (PRESENT(long_name_)) THEN
	264	CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
	265	ENDIF
[581]	266
[326]	267	IF (PRESENT(lonvalue_)) THEN
[581]	268	CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1))
[326]	269	ENDIF
[581]	270
[326]	271	IF (PRESENT(mask_)) THEN
[581]	272	ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
	273	mask__tmp = mask_
	274	CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
[326]	275	ENDIF
[581]	276
[326]	277	IF (PRESENT(name_)) THEN
	278	CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
	279	ENDIF
[581]	280
[326]	281	IF (PRESENT(ni_)) THEN
	282	CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
	283	ENDIF
[581]	284
[326]	285	IF (PRESENT(ni_glo_)) THEN
	286	CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
	287	ENDIF
[581]	288
[326]	289	IF (PRESENT(nj_)) THEN
	290	CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
	291	ENDIF
[581]	292
[326]	293	IF (PRESENT(nj_glo_)) THEN
	294	CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
	295	ENDIF
[581]	296
[449]	297	IF (PRESENT(nvertex_)) THEN
	298	CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
	299	ENDIF
[581]	300
[326]	301	IF (PRESENT(standard_name_)) THEN
	302	CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
	303	ENDIF
[581]	304
[449]	305	IF (PRESENT(type_)) THEN
	306	CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
	307	ENDIF
[581]	308
[326]	309	IF (PRESENT(zoom_ibegin_)) THEN
	310	CALL cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
	311	ENDIF
[581]	312
[326]	313	IF (PRESENT(zoom_ibegin_loc_)) THEN
	314	CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
	315	ENDIF
[581]	316
[326]	317	IF (PRESENT(zoom_jbegin_)) THEN
	318	CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
	319	ENDIF
[581]	320
[326]	321	IF (PRESENT(zoom_jbegin_loc_)) THEN
	322	CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
	323	ENDIF
[581]	324
[326]	325	IF (PRESENT(zoom_ni_)) THEN
	326	CALL cxios_set_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
	327	ENDIF
[581]	328
[326]	329	IF (PRESENT(zoom_ni_loc_)) THEN
	330	CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
	331	ENDIF
[581]	332
[326]	333	IF (PRESENT(zoom_nj_)) THEN
	334	CALL cxios_set_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
	335	ENDIF
[581]	336
[326]	337	IF (PRESENT(zoom_nj_loc_)) THEN
	338	CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
	339	ENDIF
[581]	340
[326]	341	END SUBROUTINE xios(set_domaingroup_attr_hdl_)
[581]	342
[326]	343	SUBROUTINE xios(get_domaingroup_attr) &
[449]	344	( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	345	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	346	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	347	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	348	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	349
[326]	350	IMPLICIT NONE
	351	TYPE(txios(domaingroup)) :: domaingroup_hdl
	352	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[449]	353	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
	354	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
[326]	355	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	356	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	357	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	358	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	359	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	360	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
	361	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	362	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
	363	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
[546]	364	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]	365	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[467]	366	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:)
[326]	367	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
	368	INTEGER , OPTIONAL, INTENT(OUT) :: iend
[467]	369	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:)
[326]	370	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
	371	INTEGER , OPTIONAL, INTENT(OUT) :: jend
	372	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
	373	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	374	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
	375	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
	376	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
	377	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	378	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	379	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	380	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	381	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	382	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	383	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	384	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[326]	385	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin
	386	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
	387	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin
	388	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
	389	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni
	390	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
	391	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj
	392	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
[581]	393
[326]	394	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	395	CALL xios(get_domaingroup_attr_hdl_) &
[449]	396	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	397	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	398	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	399	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	400	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	401
[326]	402	END SUBROUTINE xios(get_domaingroup_attr)
[581]	403
[326]	404	SUBROUTINE xios(get_domaingroup_attr_hdl) &
[449]	405	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	406	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	407	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	408	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	409	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	410
[326]	411	IMPLICIT NONE
	412	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[449]	413	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
	414	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
[326]	415	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim
	416	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index(:)
	417	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin
	418	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index(:)
	419	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin
	420	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index
	421	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni
	422	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj
	423	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
[546]	424	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]	425	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[467]	426	INTEGER , OPTIONAL, INTENT(OUT) :: i_index(:,:)
[326]	427	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin
	428	INTEGER , OPTIONAL, INTENT(OUT) :: iend
[467]	429	INTEGER , OPTIONAL, INTENT(OUT) :: j_index(:,:)
[326]	430	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin
	431	INTEGER , OPTIONAL, INTENT(OUT) :: jend
	432	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
	433	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	434	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
	435	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:,:)
	436	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
	437	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
	438	INTEGER , OPTIONAL, INTENT(OUT) :: ni
	439	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo
	440	INTEGER , OPTIONAL, INTENT(OUT) :: nj
	441	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo
[449]	442	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex
[326]	443	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[449]	444	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[326]	445	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin
	446	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
	447	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin
	448	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
	449	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni
	450	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
	451	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj
	452	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
[581]	453
[326]	454	CALL xios(get_domaingroup_attr_hdl_) &
[449]	455	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	456	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	457	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	458	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	459	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	460
[326]	461	END SUBROUTINE xios(get_domaingroup_attr_hdl)
[581]	462
[326]	463	SUBROUTINE xios(get_domaingroup_attr_hdl_) &
[449]	464	( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
[546]	465	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_ &
	466	, i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_ &
	467	, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ &
	468	, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
[581]	469
[326]	470	IMPLICIT NONE
	471	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[449]	472	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
	473	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
[326]	474	INTEGER , OPTIONAL, INTENT(OUT) :: data_dim_
	475	INTEGER , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
	476	INTEGER , OPTIONAL, INTENT(OUT) :: data_ibegin_
	477	INTEGER , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
	478	INTEGER , OPTIONAL, INTENT(OUT) :: data_jbegin_
	479	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_index_
	480	INTEGER , OPTIONAL, INTENT(OUT) :: data_ni_
	481	INTEGER , OPTIONAL, INTENT(OUT) :: data_nj_
	482	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
[546]	483	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
[326]	484	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[467]	485	INTEGER , OPTIONAL, INTENT(OUT) :: i_index_(:,:)
[326]	486	INTEGER , OPTIONAL, INTENT(OUT) :: ibegin_
	487	INTEGER , OPTIONAL, INTENT(OUT) :: iend_
[467]	488	INTEGER , OPTIONAL, INTENT(OUT) :: j_index_(:,:)
[326]	489	INTEGER , OPTIONAL, INTENT(OUT) :: jbegin_
	490	INTEGER , OPTIONAL, INTENT(OUT) :: jend_
	491	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
	492	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	493	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
	494	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:,:)
	495	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
	496	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
	497	INTEGER , OPTIONAL, INTENT(OUT) :: ni_
	498	INTEGER , OPTIONAL, INTENT(OUT) :: ni_glo_
	499	INTEGER , OPTIONAL, INTENT(OUT) :: nj_
	500	INTEGER , OPTIONAL, INTENT(OUT) :: nj_glo_
[449]	501	INTEGER , OPTIONAL, INTENT(OUT) :: nvertex_
[326]	502	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[449]	503	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[326]	504	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
	505	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
	506	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
	507	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
	508	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_
	509	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
	510	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_
	511	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
[581]	512
[449]	513	IF (PRESENT(bounds_lat_)) THEN
[581]	514	CALL cxios_get_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
[449]	515	ENDIF
[581]	516
[449]	517	IF (PRESENT(bounds_lon_)) THEN
[581]	518	CALL cxios_get_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
[449]	519	ENDIF
[581]	520
[326]	521	IF (PRESENT(data_dim_)) THEN
	522	CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
	523	ENDIF
[581]	524
[326]	525	IF (PRESENT(data_i_index_)) THEN
[581]	526	CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))
[326]	527	ENDIF
[581]	528
[326]	529	IF (PRESENT(data_ibegin_)) THEN
	530	CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
	531	ENDIF
[581]	532
[326]	533	IF (PRESENT(data_j_index_)) THEN
[581]	534	CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))
[326]	535	ENDIF
[581]	536
[326]	537	IF (PRESENT(data_jbegin_)) THEN
	538	CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
	539	ENDIF
[581]	540
[326]	541	IF (PRESENT(data_n_index_)) THEN
	542	CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
	543	ENDIF
[581]	544
[326]	545	IF (PRESENT(data_ni_)) THEN
	546	CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
	547	ENDIF
[581]	548
[326]	549	IF (PRESENT(data_nj_)) THEN
	550	CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
	551	ENDIF
[581]	552
[326]	553	IF (PRESENT(domain_group_ref_)) THEN
	554	CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
	555	ENDIF
[581]	556
[546]	557	IF (PRESENT(domain_ref_)) THEN
	558	CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
	559	ENDIF
[581]	560
[326]	561	IF (PRESENT(group_ref_)) THEN
	562	CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
	563	ENDIF
[581]	564
[467]	565	IF (PRESENT(i_index_)) THEN
[581]	566	CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2))
[467]	567	ENDIF
[581]	568
[326]	569	IF (PRESENT(ibegin_)) THEN
	570	CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
	571	ENDIF
[581]	572
[326]	573	IF (PRESENT(iend_)) THEN
	574	CALL cxios_get_domaingroup_iend(domaingroup_hdl%daddr, iend_)
	575	ENDIF
[581]	576
[467]	577	IF (PRESENT(j_index_)) THEN
[581]	578	CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2))
[467]	579	ENDIF
[581]	580
[326]	581	IF (PRESENT(jbegin_)) THEN
	582	CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
	583	ENDIF
[581]	584
[326]	585	IF (PRESENT(jend_)) THEN
	586	CALL cxios_get_domaingroup_jend(domaingroup_hdl%daddr, jend_)
	587	ENDIF
[581]	588
[326]	589	IF (PRESENT(latvalue_)) THEN
[581]	590	CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1))
[326]	591	ENDIF
[581]	592
[326]	593	IF (PRESENT(long_name_)) THEN
	594	CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
	595	ENDIF
[581]	596
[326]	597	IF (PRESENT(lonvalue_)) THEN
[581]	598	CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1))
[326]	599	ENDIF
[581]	600
[326]	601	IF (PRESENT(mask_)) THEN
[581]	602	ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
	603	CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
	604	mask_ = mask__tmp
[326]	605	ENDIF
[581]	606
[326]	607	IF (PRESENT(name_)) THEN
	608	CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
	609	ENDIF
[581]	610
[326]	611	IF (PRESENT(ni_)) THEN
	612	CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
	613	ENDIF
[581]	614
[326]	615	IF (PRESENT(ni_glo_)) THEN
	616	CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
	617	ENDIF
[581]	618
[326]	619	IF (PRESENT(nj_)) THEN
	620	CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
	621	ENDIF
[581]	622
[326]	623	IF (PRESENT(nj_glo_)) THEN
	624	CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
	625	ENDIF
[581]	626
[449]	627	IF (PRESENT(nvertex_)) THEN
	628	CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
	629	ENDIF
[581]	630
[326]	631	IF (PRESENT(standard_name_)) THEN
	632	CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
	633	ENDIF
[581]	634
[449]	635	IF (PRESENT(type_)) THEN
	636	CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
	637	ENDIF
[581]	638
[326]	639	IF (PRESENT(zoom_ibegin_)) THEN
	640	CALL cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
	641	ENDIF
[581]	642
[326]	643	IF (PRESENT(zoom_ibegin_loc_)) THEN
	644	CALL cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
	645	ENDIF
[581]	646
[326]	647	IF (PRESENT(zoom_jbegin_)) THEN
	648	CALL cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
	649	ENDIF
[581]	650
[326]	651	IF (PRESENT(zoom_jbegin_loc_)) THEN
	652	CALL cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
	653	ENDIF
[581]	654
[326]	655	IF (PRESENT(zoom_ni_)) THEN
	656	CALL cxios_get_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
	657	ENDIF
[581]	658
[326]	659	IF (PRESENT(zoom_ni_loc_)) THEN
	660	CALL cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
	661	ENDIF
[581]	662
[326]	663	IF (PRESENT(zoom_nj_)) THEN
	664	CALL cxios_get_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
	665	ENDIF
[581]	666
[326]	667	IF (PRESENT(zoom_nj_loc_)) THEN
	668	CALL cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
	669	ENDIF
[581]	670
[326]	671	END SUBROUTINE xios(get_domaingroup_attr_hdl_)
[581]	672
[432]	673	SUBROUTINE xios(is_defined_domaingroup_attr) &
[449]	674	( domaingroup_id, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	675	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	676	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	677	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	678	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	679
[432]	680	IMPLICIT NONE
	681	TYPE(txios(domaingroup)) :: domaingroup_hdl
	682	CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[449]	683	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
	684	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
	685	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
	686	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
[432]	687	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	688	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	689	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	690	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	691	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	692	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	693	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	694	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	695	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	696	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	697	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
	698	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
	699	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	700	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	701	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	702	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
	703	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
	704	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
[546]	705	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	706	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]	707	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	708	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]	709	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	710	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	711	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	712	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
	713	LOGICAL, OPTIONAL, INTENT(OUT) :: iend
	714	LOGICAL(KIND=C_BOOL) :: iend_tmp
[467]	715	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	716	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	717	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	718	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
	719	LOGICAL, OPTIONAL, INTENT(OUT) :: jend
	720	LOGICAL(KIND=C_BOOL) :: jend_tmp
	721	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
	722	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
	723	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	724	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	725	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
	726	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
	727	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	728	LOGICAL(KIND=C_BOOL) :: mask_tmp
	729	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	730	LOGICAL(KIND=C_BOOL) :: name_tmp
	731	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	732	LOGICAL(KIND=C_BOOL) :: ni_tmp
	733	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	734	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	735	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	736	LOGICAL(KIND=C_BOOL) :: nj_tmp
	737	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	738	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	739	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	740	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	741	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	742	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	743	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	744	LOGICAL(KIND=C_BOOL) :: type_tmp
[432]	745	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
	746	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
	747	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
	748	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
	749	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
	750	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
	751	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
	752	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
	753	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
	754	LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
	755	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
	756	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
	757	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
	758	LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
	759	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
	760	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
[581]	761
[432]	762	CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
	763	CALL xios(is_defined_domaingroup_attr_hdl_) &
[449]	764	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	765	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	766	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	767	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	768	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	769
[432]	770	END SUBROUTINE xios(is_defined_domaingroup_attr)
[581]	771
[432]	772	SUBROUTINE xios(is_defined_domaingroup_attr_hdl) &
[449]	773	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	774	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	775	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	776	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	777	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	778
[432]	779	IMPLICIT NONE
	780	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[449]	781	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
	782	LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
	783	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
	784	LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
[432]	785	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
	786	LOGICAL(KIND=C_BOOL) :: data_dim_tmp
	787	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
	788	LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
	789	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
	790	LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
	791	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
	792	LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
	793	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
	794	LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
	795	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
	796	LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
	797	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
	798	LOGICAL(KIND=C_BOOL) :: data_ni_tmp
	799	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
	800	LOGICAL(KIND=C_BOOL) :: data_nj_tmp
	801	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
	802	LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
[546]	803	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
	804	LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]	805	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	806	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]	807	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
	808	LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]	809	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
	810	LOGICAL(KIND=C_BOOL) :: ibegin_tmp
	811	LOGICAL, OPTIONAL, INTENT(OUT) :: iend
	812	LOGICAL(KIND=C_BOOL) :: iend_tmp
[467]	813	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
	814	LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]	815	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
	816	LOGICAL(KIND=C_BOOL) :: jbegin_tmp
	817	LOGICAL, OPTIONAL, INTENT(OUT) :: jend
	818	LOGICAL(KIND=C_BOOL) :: jend_tmp
	819	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
	820	LOGICAL(KIND=C_BOOL) :: latvalue_tmp
	821	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	822	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	823	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
	824	LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
	825	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	826	LOGICAL(KIND=C_BOOL) :: mask_tmp
	827	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	828	LOGICAL(KIND=C_BOOL) :: name_tmp
	829	LOGICAL, OPTIONAL, INTENT(OUT) :: ni
	830	LOGICAL(KIND=C_BOOL) :: ni_tmp
	831	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
	832	LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
	833	LOGICAL, OPTIONAL, INTENT(OUT) :: nj
	834	LOGICAL(KIND=C_BOOL) :: nj_tmp
	835	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
	836	LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[449]	837	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
	838	LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[432]	839	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	840	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[449]	841	LOGICAL, OPTIONAL, INTENT(OUT) :: type
	842	LOGICAL(KIND=C_BOOL) :: type_tmp
[432]	843	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
	844	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
	845	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
	846	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
	847	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
	848	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
	849	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
	850	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
	851	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
	852	LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
	853	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
	854	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
	855	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
	856	LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
	857	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
	858	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
[581]	859
[432]	860	CALL xios(is_defined_domaingroup_attr_hdl_) &
[449]	861	( domaingroup_hdl, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index &
[546]	862	, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index &
	863	, ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo &
	864	, nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc &
	865	, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
[581]	866
[432]	867	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
[581]	868
[432]	869	SUBROUTINE xios(is_defined_domaingroup_attr_hdl_) &
[449]	870	( domaingroup_hdl, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_ &
[546]	871	, data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_ &
	872	, i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_ &
	873	, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_ &
	874	, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
[581]	875
[432]	876	IMPLICIT NONE
	877	TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[449]	878	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
	879	LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
	880	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
	881	LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
[432]	882	LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
	883	LOGICAL(KIND=C_BOOL) :: data_dim__tmp
	884	LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
	885	LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
	886	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
	887	LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
	888	LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
	889	LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
	890	LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
	891	LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
	892	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
	893	LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
	894	LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
	895	LOGICAL(KIND=C_BOOL) :: data_ni__tmp
	896	LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
	897	LOGICAL(KIND=C_BOOL) :: data_nj__tmp
	898	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
	899	LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
[546]	900	LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
	901	LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
[432]	902	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	903	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[467]	904	LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
	905	LOGICAL(KIND=C_BOOL) :: i_index__tmp
[432]	906	LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
	907	LOGICAL(KIND=C_BOOL) :: ibegin__tmp
	908	LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
	909	LOGICAL(KIND=C_BOOL) :: iend__tmp
[467]	910	LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
	911	LOGICAL(KIND=C_BOOL) :: j_index__tmp
[432]	912	LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
	913	LOGICAL(KIND=C_BOOL) :: jbegin__tmp
	914	LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
	915	LOGICAL(KIND=C_BOOL) :: jend__tmp
	916	LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
	917	LOGICAL(KIND=C_BOOL) :: latvalue__tmp
	918	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	919	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	920	LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
	921	LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
	922	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
	923	LOGICAL(KIND=C_BOOL) :: mask__tmp
	924	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	925	LOGICAL(KIND=C_BOOL) :: name__tmp
	926	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
	927	LOGICAL(KIND=C_BOOL) :: ni__tmp
	928	LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
	929	LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
	930	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
	931	LOGICAL(KIND=C_BOOL) :: nj__tmp
	932	LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
	933	LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
[449]	934	LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
	935	LOGICAL(KIND=C_BOOL) :: nvertex__tmp
[432]	936	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	937	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[449]	938	LOGICAL, OPTIONAL, INTENT(OUT) :: type_
	939	LOGICAL(KIND=C_BOOL) :: type__tmp
[432]	940	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
	941	LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
	942	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
	943	LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
	944	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
	945	LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
	946	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
	947	LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
	948	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
	949	LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
	950	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
	951	LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
	952	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
	953	LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
	954	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
	955	LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
[581]	956
[449]	957	IF (PRESENT(bounds_lat_)) THEN
[581]	958	bounds_lat__tmp = cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl%daddr)
	959	bounds_lat_ = bounds_lat__tmp
[449]	960	ENDIF
[581]	961
[449]	962	IF (PRESENT(bounds_lon_)) THEN
[581]	963	bounds_lon__tmp = cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl%daddr)
	964	bounds_lon_ = bounds_lon__tmp
[449]	965	ENDIF
[581]	966
[432]	967	IF (PRESENT(data_dim_)) THEN
[581]	968	data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
	969	data_dim_ = data_dim__tmp
[432]	970	ENDIF
[581]	971
[432]	972	IF (PRESENT(data_i_index_)) THEN
[581]	973	data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
	974	data_i_index_ = data_i_index__tmp
[432]	975	ENDIF
[581]	976
[432]	977	IF (PRESENT(data_ibegin_)) THEN
[581]	978	data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
	979	data_ibegin_ = data_ibegin__tmp
[432]	980	ENDIF
[581]	981
[432]	982	IF (PRESENT(data_j_index_)) THEN
[581]	983	data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
	984	data_j_index_ = data_j_index__tmp
[432]	985	ENDIF
[581]	986
[432]	987	IF (PRESENT(data_jbegin_)) THEN
[581]	988	data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
	989	data_jbegin_ = data_jbegin__tmp
[432]	990	ENDIF
[581]	991
[432]	992	IF (PRESENT(data_n_index_)) THEN
[581]	993	data_n_index__tmp = cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr)
	994	data_n_index_ = data_n_index__tmp
[432]	995	ENDIF
[581]	996
[432]	997	IF (PRESENT(data_ni_)) THEN
[581]	998	data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
	999	data_ni_ = data_ni__tmp
[432]	1000	ENDIF
[581]	1001
[432]	1002	IF (PRESENT(data_nj_)) THEN
[581]	1003	data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
	1004	data_nj_ = data_nj__tmp
[432]	1005	ENDIF
[581]	1006
[432]	1007	IF (PRESENT(domain_group_ref_)) THEN
[581]	1008	domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)
	1009	domain_group_ref_ = domain_group_ref__tmp
[432]	1010	ENDIF
[581]	1011
[546]	1012	IF (PRESENT(domain_ref_)) THEN
[581]	1013	domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
	1014	domain_ref_ = domain_ref__tmp
[546]	1015	ENDIF
[581]	1016
[432]	1017	IF (PRESENT(group_ref_)) THEN
[581]	1018	group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
	1019	group_ref_ = group_ref__tmp
[432]	1020	ENDIF
[581]	1021
[467]	1022	IF (PRESENT(i_index_)) THEN
[581]	1023	i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)
	1024	i_index_ = i_index__tmp
[467]	1025	ENDIF
[581]	1026
[432]	1027	IF (PRESENT(ibegin_)) THEN
[581]	1028	ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
	1029	ibegin_ = ibegin__tmp
[432]	1030	ENDIF
[581]	1031
[432]	1032	IF (PRESENT(iend_)) THEN
[581]	1033	iend__tmp = cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr)
	1034	iend_ = iend__tmp
[432]	1035	ENDIF
[581]	1036
[467]	1037	IF (PRESENT(j_index_)) THEN
[581]	1038	j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)
	1039	j_index_ = j_index__tmp
[467]	1040	ENDIF
[581]	1041
[432]	1042	IF (PRESENT(jbegin_)) THEN
[581]	1043	jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
	1044	jbegin_ = jbegin__tmp
[432]	1045	ENDIF
[581]	1046
[432]	1047	IF (PRESENT(jend_)) THEN
[581]	1048	jend__tmp = cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr)
	1049	jend_ = jend__tmp
[432]	1050	ENDIF
[581]	1051
[432]	1052	IF (PRESENT(latvalue_)) THEN
[581]	1053	latvalue__tmp = cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr)
	1054	latvalue_ = latvalue__tmp
[432]	1055	ENDIF
[581]	1056
[432]	1057	IF (PRESENT(long_name_)) THEN
[581]	1058	long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
	1059	long_name_ = long_name__tmp
[432]	1060	ENDIF
[581]	1061
[432]	1062	IF (PRESENT(lonvalue_)) THEN
[581]	1063	lonvalue__tmp = cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr)
	1064	lonvalue_ = lonvalue__tmp
[432]	1065	ENDIF
[581]	1066
[432]	1067	IF (PRESENT(mask_)) THEN
[581]	1068	mask__tmp = cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr)
	1069	mask_ = mask__tmp
[432]	1070	ENDIF
[581]	1071
[432]	1072	IF (PRESENT(name_)) THEN
[581]	1073	name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
	1074	name_ = name__tmp
[432]	1075	ENDIF
[581]	1076
[432]	1077	IF (PRESENT(ni_)) THEN
[581]	1078	ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
	1079	ni_ = ni__tmp
[432]	1080	ENDIF
[581]	1081
[432]	1082	IF (PRESENT(ni_glo_)) THEN
[581]	1083	ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
	1084	ni_glo_ = ni_glo__tmp
[432]	1085	ENDIF
[581]	1086
[432]	1087	IF (PRESENT(nj_)) THEN
[581]	1088	nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
	1089	nj_ = nj__tmp
[432]	1090	ENDIF
[581]	1091
[432]	1092	IF (PRESENT(nj_glo_)) THEN
[581]	1093	nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
	1094	nj_glo_ = nj_glo__tmp
[432]	1095	ENDIF
[581]	1096
[449]	1097	IF (PRESENT(nvertex_)) THEN
[581]	1098	nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)
	1099	nvertex_ = nvertex__tmp
[449]	1100	ENDIF
[581]	1101
[432]	1102	IF (PRESENT(standard_name_)) THEN
[581]	1103	standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
	1104	standard_name_ = standard_name__tmp
[432]	1105	ENDIF
[581]	1106
[449]	1107	IF (PRESENT(type_)) THEN
[581]	1108	type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)
	1109	type_ = type__tmp
[449]	1110	ENDIF
[581]	1111
[432]	1112	IF (PRESENT(zoom_ibegin_)) THEN
[581]	1113	zoom_ibegin__tmp = cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr)
	1114	zoom_ibegin_ = zoom_ibegin__tmp
[432]	1115	ENDIF
[581]	1116
[432]	1117	IF (PRESENT(zoom_ibegin_loc_)) THEN
[581]	1118	zoom_ibegin_loc__tmp = cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr)
	1119	zoom_ibegin_loc_ = zoom_ibegin_loc__tmp
[432]	1120	ENDIF
[581]	1121
[432]	1122	IF (PRESENT(zoom_jbegin_)) THEN
[581]	1123	zoom_jbegin__tmp = cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr)
	1124	zoom_jbegin_ = zoom_jbegin__tmp
[432]	1125	ENDIF
[581]	1126
[432]	1127	IF (PRESENT(zoom_jbegin_loc_)) THEN
[581]	1128	zoom_jbegin_loc__tmp = cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr)
	1129	zoom_jbegin_loc_ = zoom_jbegin_loc__tmp
[432]	1130	ENDIF
[581]	1131
[432]	1132	IF (PRESENT(zoom_ni_)) THEN
[581]	1133	zoom_ni__tmp = cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr)
	1134	zoom_ni_ = zoom_ni__tmp
[432]	1135	ENDIF
[581]	1136
[432]	1137	IF (PRESENT(zoom_ni_loc_)) THEN
[581]	1138	zoom_ni_loc__tmp = cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr)
	1139	zoom_ni_loc_ = zoom_ni_loc__tmp
[432]	1140	ENDIF
[581]	1141
[432]	1142	IF (PRESENT(zoom_nj_)) THEN
[581]	1143	zoom_nj__tmp = cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr)
	1144	zoom_nj_ = zoom_nj__tmp
[432]	1145	ENDIF
[581]	1146
[432]	1147	IF (PRESENT(zoom_nj_loc_)) THEN
[581]	1148	zoom_nj_loc__tmp = cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr)
	1149	zoom_nj_loc_ = zoom_nj_loc__tmp
[432]	1150	ENDIF
[581]	1151
[432]	1152	END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
[581]	1153
[326]	1154	END MODULE idomaingroup_attr

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

Download in other formats: