Context Navigation

source: XIOS/dev/branch_openmp/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 1545

Last change on this file since 1545 was 1545, checked in by yushan, 6 years ago
branch_openmp merged with trunk r1544
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: 37.8 KB

Line
1	! * ************************************************************************** *
2	! * Interface auto generated - do not modify *
3	! * ************************************************************************** *
4	#include "xios_fortran_prefix.hpp"
5
6	MODULE iaxisgroup_attr
7	USE, INTRINSIC :: ISO_C_BINDING
8	USE iaxis
9	USE axisgroup_interface_attr
10
11	CONTAINS
12
13	SUBROUTINE xios(set_axisgroup_attr) &
14	( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
15	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
16	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
17	, unit, value )
18
19	IMPLICIT NONE
20	TYPE(txios(axisgroup)) :: axisgroup_hdl
21	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
23	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
24	INTEGER , OPTIONAL, INTENT(IN) :: begin
25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
28	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
29	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
30	INTEGER , OPTIONAL, INTENT(IN) :: data_n
31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name
32	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula
33	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds
34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term
35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds
36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
37	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
38	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
40	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
41	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
42	INTEGER , OPTIONAL, INTENT(IN) :: n
43	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
44	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
47	INTEGER , OPTIONAL, INTENT(IN) :: prec
48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
50	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
51
52	CALL xios(get_axisgroup_handle) &
53	(axisgroup_id,axisgroup_hdl)
54	CALL xios(set_axisgroup_attr_hdl_) &
55	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
56	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
57	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
58	, unit, value )
59
60	END SUBROUTINE xios(set_axisgroup_attr)
61
62	SUBROUTINE xios(set_axisgroup_attr_hdl) &
63	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
64	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
65	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
66	, unit, value )
67
68	IMPLICIT NONE
69	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
70	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
72	INTEGER , OPTIONAL, INTENT(IN) :: begin
73	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
74	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
75	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
76	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
77	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
78	INTEGER , OPTIONAL, INTENT(IN) :: data_n
79	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name
80	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula
81	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds
82	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term
83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds
84	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
85	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
86	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
87	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
88	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
89	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
90	INTEGER , OPTIONAL, INTENT(IN) :: n
91	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
92	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
94	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
95	INTEGER , OPTIONAL, INTENT(IN) :: prec
96	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
97	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
98	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
99
100	CALL xios(set_axisgroup_attr_hdl_) &
101	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
102	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
103	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
104	, unit, value )
105
106	END SUBROUTINE xios(set_axisgroup_attr_hdl)
107
108	SUBROUTINE xios(set_axisgroup_attr_hdl_) &
109	( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_ &
110	, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ &
111	, group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ &
112	, positive_, prec_, standard_name_, unit_, value_ )
113
114	IMPLICIT NONE
115	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
116	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
117	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
118	INTEGER , OPTIONAL, INTENT(IN) :: begin_
119	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
120	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
121	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
122	INTEGER , OPTIONAL, INTENT(IN) :: data_begin_
123	INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:)
124	INTEGER , OPTIONAL, INTENT(IN) :: data_n_
125	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_name_
126	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_
127	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_bounds_
128	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_
129	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: formula_term_bounds_
130	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
131	INTEGER , OPTIONAL, INTENT(IN) :: index_(:)
132	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:)
133	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
134	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:)
135	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
136	INTEGER , OPTIONAL, INTENT(IN) :: n_
137	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition_
138	INTEGER , OPTIONAL, INTENT(IN) :: n_glo_
139	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
140	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
141	INTEGER , OPTIONAL, INTENT(IN) :: prec_
142	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
143	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
144	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
145
146	IF (PRESENT(axis_ref_)) THEN
147	CALL cxios_set_axisgroup_axis_ref &
148	(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
149	ENDIF
150
151	IF (PRESENT(axis_type_)) THEN
152	CALL cxios_set_axisgroup_axis_type &
153	(axisgroup_hdl%daddr, axis_type_, len(axis_type_))
154	ENDIF
155
156	IF (PRESENT(begin_)) THEN
157	CALL cxios_set_axisgroup_begin &
158	(axisgroup_hdl%daddr, begin_)
159	ENDIF
160
161	IF (PRESENT(bounds_)) THEN
162	CALL cxios_set_axisgroup_bounds &
163	(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
164	ENDIF
165
166	IF (PRESENT(bounds_name_)) THEN
167	CALL cxios_set_axisgroup_bounds_name &
168	(axisgroup_hdl%daddr, bounds_name_, len(bounds_name_))
169	ENDIF
170
171	IF (PRESENT(comment_)) THEN
172	CALL cxios_set_axisgroup_comment &
173	(axisgroup_hdl%daddr, comment_, len(comment_))
174	ENDIF
175
176	IF (PRESENT(data_begin_)) THEN
177	CALL cxios_set_axisgroup_data_begin &
178	(axisgroup_hdl%daddr, data_begin_)
179	ENDIF
180
181	IF (PRESENT(data_index_)) THEN
182	CALL cxios_set_axisgroup_data_index &
183	(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
184	ENDIF
185
186	IF (PRESENT(data_n_)) THEN
187	CALL cxios_set_axisgroup_data_n &
188	(axisgroup_hdl%daddr, data_n_)
189	ENDIF
190
191	IF (PRESENT(dim_name_)) THEN
192	CALL cxios_set_axisgroup_dim_name &
193	(axisgroup_hdl%daddr, dim_name_, len(dim_name_))
194	ENDIF
195
196	IF (PRESENT(formula_)) THEN
197	CALL cxios_set_axisgroup_formula &
198	(axisgroup_hdl%daddr, formula_, len(formula_))
199	ENDIF
200
201	IF (PRESENT(formula_bounds_)) THEN
202	CALL cxios_set_axisgroup_formula_bounds &
203	(axisgroup_hdl%daddr, formula_bounds_, len(formula_bounds_))
204	ENDIF
205
206	IF (PRESENT(formula_term_)) THEN
207	CALL cxios_set_axisgroup_formula_term &
208	(axisgroup_hdl%daddr, formula_term_, len(formula_term_))
209	ENDIF
210
211	IF (PRESENT(formula_term_bounds_)) THEN
212	CALL cxios_set_axisgroup_formula_term_bounds &
213	(axisgroup_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_))
214	ENDIF
215
216	IF (PRESENT(group_ref_)) THEN
217	CALL cxios_set_axisgroup_group_ref &
218	(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
219	ENDIF
220
221	IF (PRESENT(index_)) THEN
222	CALL cxios_set_axisgroup_index &
223	(axisgroup_hdl%daddr, index_, SHAPE(index_))
224	ENDIF
225
226	IF (PRESENT(label_)) THEN
227	CALL cxios_set_axisgroup_label &
228	(axisgroup_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_))
229	ENDIF
230
231	IF (PRESENT(long_name_)) THEN
232	CALL cxios_set_axisgroup_long_name &
233	(axisgroup_hdl%daddr, long_name_, len(long_name_))
234	ENDIF
235
236	IF (PRESENT(mask_)) THEN
237	ALLOCATE(mask__tmp(SIZE(mask_,1)))
238	mask__tmp = mask_
239	CALL cxios_set_axisgroup_mask &
240	(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
241	ENDIF
242
243	IF (PRESENT(n_)) THEN
244	CALL cxios_set_axisgroup_n &
245	(axisgroup_hdl%daddr, n_)
246	ENDIF
247
248	IF (PRESENT(n_distributed_partition_)) THEN
249	CALL cxios_set_axisgroup_n_distributed_partition &
250	(axisgroup_hdl%daddr, n_distributed_partition_)
251	ENDIF
252
253	IF (PRESENT(n_glo_)) THEN
254	CALL cxios_set_axisgroup_n_glo &
255	(axisgroup_hdl%daddr, n_glo_)
256	ENDIF
257
258	IF (PRESENT(name_)) THEN
259	CALL cxios_set_axisgroup_name &
260	(axisgroup_hdl%daddr, name_, len(name_))
261	ENDIF
262
263	IF (PRESENT(positive_)) THEN
264	CALL cxios_set_axisgroup_positive &
265	(axisgroup_hdl%daddr, positive_, len(positive_))
266	ENDIF
267
268	IF (PRESENT(prec_)) THEN
269	CALL cxios_set_axisgroup_prec &
270	(axisgroup_hdl%daddr, prec_)
271	ENDIF
272
273	IF (PRESENT(standard_name_)) THEN
274	CALL cxios_set_axisgroup_standard_name &
275	(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
276	ENDIF
277
278	IF (PRESENT(unit_)) THEN
279	CALL cxios_set_axisgroup_unit &
280	(axisgroup_hdl%daddr, unit_, len(unit_))
281	ENDIF
282
283	IF (PRESENT(value_)) THEN
284	CALL cxios_set_axisgroup_value &
285	(axisgroup_hdl%daddr, value_, SHAPE(value_))
286	ENDIF
287
288	END SUBROUTINE xios(set_axisgroup_attr_hdl_)
289
290	SUBROUTINE xios(get_axisgroup_attr) &
291	( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
292	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
293	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
294	, unit, value )
295
296	IMPLICIT NONE
297	TYPE(txios(axisgroup)) :: axisgroup_hdl
298	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
299	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
300	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
301	INTEGER , OPTIONAL, INTENT(OUT) :: begin
302	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
303	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
304	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
305	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
306	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
307	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
308	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name
309	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula
310	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds
311	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term
312	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds
313	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
314	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
315	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
316	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
317	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
318	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
319	INTEGER , OPTIONAL, INTENT(OUT) :: n
320	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
321	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
322	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
323	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
324	INTEGER , OPTIONAL, INTENT(OUT) :: prec
325	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
326	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
327	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
328
329	CALL xios(get_axisgroup_handle) &
330	(axisgroup_id,axisgroup_hdl)
331	CALL xios(get_axisgroup_attr_hdl_) &
332	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
333	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
334	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
335	, unit, value )
336
337	END SUBROUTINE xios(get_axisgroup_attr)
338
339	SUBROUTINE xios(get_axisgroup_attr_hdl) &
340	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
341	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
342	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
343	, unit, value )
344
345	IMPLICIT NONE
346	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
347	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
348	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
349	INTEGER , OPTIONAL, INTENT(OUT) :: begin
350	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
351	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
352	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
353	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
354	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
355	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
356	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name
357	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula
358	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds
359	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term
360	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds
361	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
362	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
363	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
364	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
365	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
366	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
367	INTEGER , OPTIONAL, INTENT(OUT) :: n
368	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
369	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
370	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
371	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
372	INTEGER , OPTIONAL, INTENT(OUT) :: prec
373	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
374	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
375	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
376
377	CALL xios(get_axisgroup_attr_hdl_) &
378	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
379	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
380	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
381	, unit, value )
382
383	END SUBROUTINE xios(get_axisgroup_attr_hdl)
384
385	SUBROUTINE xios(get_axisgroup_attr_hdl_) &
386	( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_ &
387	, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ &
388	, group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ &
389	, positive_, prec_, standard_name_, unit_, value_ )
390
391	IMPLICIT NONE
392	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
393	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
394	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
395	INTEGER , OPTIONAL, INTENT(OUT) :: begin_
396	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
397	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
398	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
399	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_
400	INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:)
401	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_
402	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_name_
403	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_
404	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_bounds_
405	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_
406	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: formula_term_bounds_
407	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
408	INTEGER , OPTIONAL, INTENT(OUT) :: index_(:)
409	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:)
410	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
411	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:)
412	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
413	INTEGER , OPTIONAL, INTENT(OUT) :: n_
414	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
415	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo_
416	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
417	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
418	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
419	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
420	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
421	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
422
423	IF (PRESENT(axis_ref_)) THEN
424	CALL cxios_get_axisgroup_axis_ref &
425	(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
426	ENDIF
427
428	IF (PRESENT(axis_type_)) THEN
429	CALL cxios_get_axisgroup_axis_type &
430	(axisgroup_hdl%daddr, axis_type_, len(axis_type_))
431	ENDIF
432
433	IF (PRESENT(begin_)) THEN
434	CALL cxios_get_axisgroup_begin &
435	(axisgroup_hdl%daddr, begin_)
436	ENDIF
437
438	IF (PRESENT(bounds_)) THEN
439	CALL cxios_get_axisgroup_bounds &
440	(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
441	ENDIF
442
443	IF (PRESENT(bounds_name_)) THEN
444	CALL cxios_get_axisgroup_bounds_name &
445	(axisgroup_hdl%daddr, bounds_name_, len(bounds_name_))
446	ENDIF
447
448	IF (PRESENT(comment_)) THEN
449	CALL cxios_get_axisgroup_comment &
450	(axisgroup_hdl%daddr, comment_, len(comment_))
451	ENDIF
452
453	IF (PRESENT(data_begin_)) THEN
454	CALL cxios_get_axisgroup_data_begin &
455	(axisgroup_hdl%daddr, data_begin_)
456	ENDIF
457
458	IF (PRESENT(data_index_)) THEN
459	CALL cxios_get_axisgroup_data_index &
460	(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
461	ENDIF
462
463	IF (PRESENT(data_n_)) THEN
464	CALL cxios_get_axisgroup_data_n &
465	(axisgroup_hdl%daddr, data_n_)
466	ENDIF
467
468	IF (PRESENT(dim_name_)) THEN
469	CALL cxios_get_axisgroup_dim_name &
470	(axisgroup_hdl%daddr, dim_name_, len(dim_name_))
471	ENDIF
472
473	IF (PRESENT(formula_)) THEN
474	CALL cxios_get_axisgroup_formula &
475	(axisgroup_hdl%daddr, formula_, len(formula_))
476	ENDIF
477
478	IF (PRESENT(formula_bounds_)) THEN
479	CALL cxios_get_axisgroup_formula_bounds &
480	(axisgroup_hdl%daddr, formula_bounds_, len(formula_bounds_))
481	ENDIF
482
483	IF (PRESENT(formula_term_)) THEN
484	CALL cxios_get_axisgroup_formula_term &
485	(axisgroup_hdl%daddr, formula_term_, len(formula_term_))
486	ENDIF
487
488	IF (PRESENT(formula_term_bounds_)) THEN
489	CALL cxios_get_axisgroup_formula_term_bounds &
490	(axisgroup_hdl%daddr, formula_term_bounds_, len(formula_term_bounds_))
491	ENDIF
492
493	IF (PRESENT(group_ref_)) THEN
494	CALL cxios_get_axisgroup_group_ref &
495	(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
496	ENDIF
497
498	IF (PRESENT(index_)) THEN
499	CALL cxios_get_axisgroup_index &
500	(axisgroup_hdl%daddr, index_, SHAPE(index_))
501	ENDIF
502
503	IF (PRESENT(label_)) THEN
504	CALL cxios_get_axisgroup_label &
505	(axisgroup_hdl%daddr, label_, LEN(label_), SHAPE(label_))
506	ENDIF
507
508	IF (PRESENT(long_name_)) THEN
509	CALL cxios_get_axisgroup_long_name &
510	(axisgroup_hdl%daddr, long_name_, len(long_name_))
511	ENDIF
512
513	IF (PRESENT(mask_)) THEN
514	ALLOCATE(mask__tmp(SIZE(mask_,1)))
515	CALL cxios_get_axisgroup_mask &
516	(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
517	mask_ = mask__tmp
518	ENDIF
519
520	IF (PRESENT(n_)) THEN
521	CALL cxios_get_axisgroup_n &
522	(axisgroup_hdl%daddr, n_)
523	ENDIF
524
525	IF (PRESENT(n_distributed_partition_)) THEN
526	CALL cxios_get_axisgroup_n_distributed_partition &
527	(axisgroup_hdl%daddr, n_distributed_partition_)
528	ENDIF
529
530	IF (PRESENT(n_glo_)) THEN
531	CALL cxios_get_axisgroup_n_glo &
532	(axisgroup_hdl%daddr, n_glo_)
533	ENDIF
534
535	IF (PRESENT(name_)) THEN
536	CALL cxios_get_axisgroup_name &
537	(axisgroup_hdl%daddr, name_, len(name_))
538	ENDIF
539
540	IF (PRESENT(positive_)) THEN
541	CALL cxios_get_axisgroup_positive &
542	(axisgroup_hdl%daddr, positive_, len(positive_))
543	ENDIF
544
545	IF (PRESENT(prec_)) THEN
546	CALL cxios_get_axisgroup_prec &
547	(axisgroup_hdl%daddr, prec_)
548	ENDIF
549
550	IF (PRESENT(standard_name_)) THEN
551	CALL cxios_get_axisgroup_standard_name &
552	(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
553	ENDIF
554
555	IF (PRESENT(unit_)) THEN
556	CALL cxios_get_axisgroup_unit &
557	(axisgroup_hdl%daddr, unit_, len(unit_))
558	ENDIF
559
560	IF (PRESENT(value_)) THEN
561	CALL cxios_get_axisgroup_value &
562	(axisgroup_hdl%daddr, value_, SHAPE(value_))
563	ENDIF
564
565	END SUBROUTINE xios(get_axisgroup_attr_hdl_)
566
567	SUBROUTINE xios(is_defined_axisgroup_attr) &
568	( axisgroup_id, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
569	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
570	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
571	, unit, value )
572
573	IMPLICIT NONE
574	TYPE(txios(axisgroup)) :: axisgroup_hdl
575	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
576	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
577	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
578	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
579	LOGICAL(KIND=C_BOOL) :: axis_type_tmp
580	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
581	LOGICAL(KIND=C_BOOL) :: begin_tmp
582	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
583	LOGICAL(KIND=C_BOOL) :: bounds_tmp
584	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
585	LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
586	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
587	LOGICAL(KIND=C_BOOL) :: comment_tmp
588	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
589	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
590	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
591	LOGICAL(KIND=C_BOOL) :: data_index_tmp
592	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
593	LOGICAL(KIND=C_BOOL) :: data_n_tmp
594	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name
595	LOGICAL(KIND=C_BOOL) :: dim_name_tmp
596	LOGICAL, OPTIONAL, INTENT(OUT) :: formula
597	LOGICAL(KIND=C_BOOL) :: formula_tmp
598	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds
599	LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp
600	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term
601	LOGICAL(KIND=C_BOOL) :: formula_term_tmp
602	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds
603	LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp
604	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
605	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
606	LOGICAL, OPTIONAL, INTENT(OUT) :: index
607	LOGICAL(KIND=C_BOOL) :: index_tmp
608	LOGICAL, OPTIONAL, INTENT(OUT) :: label
609	LOGICAL(KIND=C_BOOL) :: label_tmp
610	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
611	LOGICAL(KIND=C_BOOL) :: long_name_tmp
612	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
613	LOGICAL(KIND=C_BOOL) :: mask_tmp
614	LOGICAL, OPTIONAL, INTENT(OUT) :: n
615	LOGICAL(KIND=C_BOOL) :: n_tmp
616	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
617	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
618	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
619	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
620	LOGICAL, OPTIONAL, INTENT(OUT) :: name
621	LOGICAL(KIND=C_BOOL) :: name_tmp
622	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
623	LOGICAL(KIND=C_BOOL) :: positive_tmp
624	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
625	LOGICAL(KIND=C_BOOL) :: prec_tmp
626	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
627	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
628	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
629	LOGICAL(KIND=C_BOOL) :: unit_tmp
630	LOGICAL, OPTIONAL, INTENT(OUT) :: value
631	LOGICAL(KIND=C_BOOL) :: value_tmp
632
633	CALL xios(get_axisgroup_handle) &
634	(axisgroup_id,axisgroup_hdl)
635	CALL xios(is_defined_axisgroup_attr_hdl_) &
636	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
637	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
638	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
639	, unit, value )
640
641	END SUBROUTINE xios(is_defined_axisgroup_attr)
642
643	SUBROUTINE xios(is_defined_axisgroup_attr_hdl) &
644	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
645	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
646	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
647	, unit, value )
648
649	IMPLICIT NONE
650	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
651	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
652	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
653	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
654	LOGICAL(KIND=C_BOOL) :: axis_type_tmp
655	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
656	LOGICAL(KIND=C_BOOL) :: begin_tmp
657	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
658	LOGICAL(KIND=C_BOOL) :: bounds_tmp
659	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
660	LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
661	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
662	LOGICAL(KIND=C_BOOL) :: comment_tmp
663	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
664	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
665	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
666	LOGICAL(KIND=C_BOOL) :: data_index_tmp
667	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
668	LOGICAL(KIND=C_BOOL) :: data_n_tmp
669	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name
670	LOGICAL(KIND=C_BOOL) :: dim_name_tmp
671	LOGICAL, OPTIONAL, INTENT(OUT) :: formula
672	LOGICAL(KIND=C_BOOL) :: formula_tmp
673	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds
674	LOGICAL(KIND=C_BOOL) :: formula_bounds_tmp
675	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term
676	LOGICAL(KIND=C_BOOL) :: formula_term_tmp
677	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds
678	LOGICAL(KIND=C_BOOL) :: formula_term_bounds_tmp
679	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
680	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
681	LOGICAL, OPTIONAL, INTENT(OUT) :: index
682	LOGICAL(KIND=C_BOOL) :: index_tmp
683	LOGICAL, OPTIONAL, INTENT(OUT) :: label
684	LOGICAL(KIND=C_BOOL) :: label_tmp
685	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
686	LOGICAL(KIND=C_BOOL) :: long_name_tmp
687	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
688	LOGICAL(KIND=C_BOOL) :: mask_tmp
689	LOGICAL, OPTIONAL, INTENT(OUT) :: n
690	LOGICAL(KIND=C_BOOL) :: n_tmp
691	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
692	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
693	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
694	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
695	LOGICAL, OPTIONAL, INTENT(OUT) :: name
696	LOGICAL(KIND=C_BOOL) :: name_tmp
697	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
698	LOGICAL(KIND=C_BOOL) :: positive_tmp
699	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
700	LOGICAL(KIND=C_BOOL) :: prec_tmp
701	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
702	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
703	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
704	LOGICAL(KIND=C_BOOL) :: unit_tmp
705	LOGICAL, OPTIONAL, INTENT(OUT) :: value
706	LOGICAL(KIND=C_BOOL) :: value_tmp
707
708	CALL xios(is_defined_axisgroup_attr_hdl_) &
709	( axisgroup_hdl, axis_ref, axis_type, begin, bounds, bounds_name, comment, data_begin, data_index &
710	, data_n, dim_name, formula, formula_bounds, formula_term, formula_term_bounds, group_ref, index &
711	, label, long_name, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name &
712	, unit, value )
713
714	END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
715
716	SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) &
717	( axisgroup_hdl, axis_ref_, axis_type_, begin_, bounds_, bounds_name_, comment_, data_begin_ &
718	, data_index_, data_n_, dim_name_, formula_, formula_bounds_, formula_term_, formula_term_bounds_ &
719	, group_ref_, index_, label_, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_ &
720	, positive_, prec_, standard_name_, unit_, value_ )
721
722	IMPLICIT NONE
723	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
724	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
725	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
726	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
727	LOGICAL(KIND=C_BOOL) :: axis_type__tmp
728	LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
729	LOGICAL(KIND=C_BOOL) :: begin__tmp
730	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
731	LOGICAL(KIND=C_BOOL) :: bounds__tmp
732	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_
733	LOGICAL(KIND=C_BOOL) :: bounds_name__tmp
734	LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
735	LOGICAL(KIND=C_BOOL) :: comment__tmp
736	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
737	LOGICAL(KIND=C_BOOL) :: data_begin__tmp
738	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
739	LOGICAL(KIND=C_BOOL) :: data_index__tmp
740	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
741	LOGICAL(KIND=C_BOOL) :: data_n__tmp
742	LOGICAL, OPTIONAL, INTENT(OUT) :: dim_name_
743	LOGICAL(KIND=C_BOOL) :: dim_name__tmp
744	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_
745	LOGICAL(KIND=C_BOOL) :: formula__tmp
746	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_bounds_
747	LOGICAL(KIND=C_BOOL) :: formula_bounds__tmp
748	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_
749	LOGICAL(KIND=C_BOOL) :: formula_term__tmp
750	LOGICAL, OPTIONAL, INTENT(OUT) :: formula_term_bounds_
751	LOGICAL(KIND=C_BOOL) :: formula_term_bounds__tmp
752	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
753	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
754	LOGICAL, OPTIONAL, INTENT(OUT) :: index_
755	LOGICAL(KIND=C_BOOL) :: index__tmp
756	LOGICAL, OPTIONAL, INTENT(OUT) :: label_
757	LOGICAL(KIND=C_BOOL) :: label__tmp
758	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
759	LOGICAL(KIND=C_BOOL) :: long_name__tmp
760	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
761	LOGICAL(KIND=C_BOOL) :: mask__tmp
762	LOGICAL, OPTIONAL, INTENT(OUT) :: n_
763	LOGICAL(KIND=C_BOOL) :: n__tmp
764	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
765	LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
766	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
767	LOGICAL(KIND=C_BOOL) :: n_glo__tmp
768	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
769	LOGICAL(KIND=C_BOOL) :: name__tmp
770	LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
771	LOGICAL(KIND=C_BOOL) :: positive__tmp
772	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
773	LOGICAL(KIND=C_BOOL) :: prec__tmp
774	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
775	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
776	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
777	LOGICAL(KIND=C_BOOL) :: unit__tmp
778	LOGICAL, OPTIONAL, INTENT(OUT) :: value_
779	LOGICAL(KIND=C_BOOL) :: value__tmp
780
781	IF (PRESENT(axis_ref_)) THEN
782	axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref &
783	(axisgroup_hdl%daddr)
784	axis_ref_ = axis_ref__tmp
785	ENDIF
786
787	IF (PRESENT(axis_type_)) THEN
788	axis_type__tmp = cxios_is_defined_axisgroup_axis_type &
789	(axisgroup_hdl%daddr)
790	axis_type_ = axis_type__tmp
791	ENDIF
792
793	IF (PRESENT(begin_)) THEN
794	begin__tmp = cxios_is_defined_axisgroup_begin &
795	(axisgroup_hdl%daddr)
796	begin_ = begin__tmp
797	ENDIF
798
799	IF (PRESENT(bounds_)) THEN
800	bounds__tmp = cxios_is_defined_axisgroup_bounds &
801	(axisgroup_hdl%daddr)
802	bounds_ = bounds__tmp
803	ENDIF
804
805	IF (PRESENT(bounds_name_)) THEN
806	bounds_name__tmp = cxios_is_defined_axisgroup_bounds_name &
807	(axisgroup_hdl%daddr)
808	bounds_name_ = bounds_name__tmp
809	ENDIF
810
811	IF (PRESENT(comment_)) THEN
812	comment__tmp = cxios_is_defined_axisgroup_comment &
813	(axisgroup_hdl%daddr)
814	comment_ = comment__tmp
815	ENDIF
816
817	IF (PRESENT(data_begin_)) THEN
818	data_begin__tmp = cxios_is_defined_axisgroup_data_begin &
819	(axisgroup_hdl%daddr)
820	data_begin_ = data_begin__tmp
821	ENDIF
822
823	IF (PRESENT(data_index_)) THEN
824	data_index__tmp = cxios_is_defined_axisgroup_data_index &
825	(axisgroup_hdl%daddr)
826	data_index_ = data_index__tmp
827	ENDIF
828
829	IF (PRESENT(data_n_)) THEN
830	data_n__tmp = cxios_is_defined_axisgroup_data_n &
831	(axisgroup_hdl%daddr)
832	data_n_ = data_n__tmp
833	ENDIF
834
835	IF (PRESENT(dim_name_)) THEN
836	dim_name__tmp = cxios_is_defined_axisgroup_dim_name &
837	(axisgroup_hdl%daddr)
838	dim_name_ = dim_name__tmp
839	ENDIF
840
841	IF (PRESENT(formula_)) THEN
842	formula__tmp = cxios_is_defined_axisgroup_formula &
843	(axisgroup_hdl%daddr)
844	formula_ = formula__tmp
845	ENDIF
846
847	IF (PRESENT(formula_bounds_)) THEN
848	formula_bounds__tmp = cxios_is_defined_axisgroup_formula_bounds &
849	(axisgroup_hdl%daddr)
850	formula_bounds_ = formula_bounds__tmp
851	ENDIF
852
853	IF (PRESENT(formula_term_)) THEN
854	formula_term__tmp = cxios_is_defined_axisgroup_formula_term &
855	(axisgroup_hdl%daddr)
856	formula_term_ = formula_term__tmp
857	ENDIF
858
859	IF (PRESENT(formula_term_bounds_)) THEN
860	formula_term_bounds__tmp = cxios_is_defined_axisgroup_formula_term_bounds &
861	(axisgroup_hdl%daddr)
862	formula_term_bounds_ = formula_term_bounds__tmp
863	ENDIF
864
865	IF (PRESENT(group_ref_)) THEN
866	group_ref__tmp = cxios_is_defined_axisgroup_group_ref &
867	(axisgroup_hdl%daddr)
868	group_ref_ = group_ref__tmp
869	ENDIF
870
871	IF (PRESENT(index_)) THEN
872	index__tmp = cxios_is_defined_axisgroup_index &
873	(axisgroup_hdl%daddr)
874	index_ = index__tmp
875	ENDIF
876
877	IF (PRESENT(label_)) THEN
878	label__tmp = cxios_is_defined_axisgroup_label &
879	(axisgroup_hdl%daddr)
880	label_ = label__tmp
881	ENDIF
882
883	IF (PRESENT(long_name_)) THEN
884	long_name__tmp = cxios_is_defined_axisgroup_long_name &
885	(axisgroup_hdl%daddr)
886	long_name_ = long_name__tmp
887	ENDIF
888
889	IF (PRESENT(mask_)) THEN
890	mask__tmp = cxios_is_defined_axisgroup_mask &
891	(axisgroup_hdl%daddr)
892	mask_ = mask__tmp
893	ENDIF
894
895	IF (PRESENT(n_)) THEN
896	n__tmp = cxios_is_defined_axisgroup_n &
897	(axisgroup_hdl%daddr)
898	n_ = n__tmp
899	ENDIF
900
901	IF (PRESENT(n_distributed_partition_)) THEN
902	n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition &
903	(axisgroup_hdl%daddr)
904	n_distributed_partition_ = n_distributed_partition__tmp
905	ENDIF
906
907	IF (PRESENT(n_glo_)) THEN
908	n_glo__tmp = cxios_is_defined_axisgroup_n_glo &
909	(axisgroup_hdl%daddr)
910	n_glo_ = n_glo__tmp
911	ENDIF
912
913	IF (PRESENT(name_)) THEN
914	name__tmp = cxios_is_defined_axisgroup_name &
915	(axisgroup_hdl%daddr)
916	name_ = name__tmp
917	ENDIF
918
919	IF (PRESENT(positive_)) THEN
920	positive__tmp = cxios_is_defined_axisgroup_positive &
921	(axisgroup_hdl%daddr)
922	positive_ = positive__tmp
923	ENDIF
924
925	IF (PRESENT(prec_)) THEN
926	prec__tmp = cxios_is_defined_axisgroup_prec &
927	(axisgroup_hdl%daddr)
928	prec_ = prec__tmp
929	ENDIF
930
931	IF (PRESENT(standard_name_)) THEN
932	standard_name__tmp = cxios_is_defined_axisgroup_standard_name &
933	(axisgroup_hdl%daddr)
934	standard_name_ = standard_name__tmp
935	ENDIF
936
937	IF (PRESENT(unit_)) THEN
938	unit__tmp = cxios_is_defined_axisgroup_unit &
939	(axisgroup_hdl%daddr)
940	unit_ = unit__tmp
941	ENDIF
942
943	IF (PRESENT(value_)) THEN
944	value__tmp = cxios_is_defined_axisgroup_value &
945	(axisgroup_hdl%daddr)
946	value_ = value__tmp
947	ENDIF
948
949	END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
950
951	END MODULE iaxisgroup_attr

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

Download in other formats: