Context Navigation

idomaingroup_attr.F90 @ 966

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

Reducing length of line of auto-generate Fortran interface

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

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

Property copyright set to
Software name : XIOS (Xml I/O Server)
http://forge.ipsl.jussieu.fr/ioserver
Creation date : January 2009
Licence : CeCCIL version2
see license file in root directory : Licence_CeCILL_V2-en.txt
or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
CNRS/IPSL (Institut Pierre Simon Laplace)
Project Manager : Yann Meurdesoif
yann.meurdesoif@cea.fr

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

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

Context Navigation

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

Download in other formats: