Context Navigation

source: XIOS/dev/branch_openmp/src/interface/fortran_attr/iaxis_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: 35.4 KB

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

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

Download in other formats: