Context Navigation

source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/idomaingroup_attr.F90 @ 1205

Last change on this file since 1205 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

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: 46.0 KB

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

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

Download in other formats: