Context Navigation

source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iaxis_attr.F90 @ 2338

Last change on this file since 2338 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

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

Rev	Line
[326]	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
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_axis_attr) &
[1492]	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 )
[581]	18
[326]	19	IMPLICIT NONE
	20	TYPE(txios(axis)) :: axis_hdl
	21	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[1492]	23	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
[666]	24	INTEGER , OPTIONAL, INTENT(IN) :: begin
[609]	25	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[1492]	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
	27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[555]	28	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
	29	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
	30	INTEGER , OPTIONAL, INTENT(IN) :: data_n
[1492]	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
[817]	36	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[1158]	37	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
[326]	38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	39	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	40	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	41	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	42	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	43	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	44	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	45	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1158]	46	INTEGER , OPTIONAL, INTENT(IN) :: prec
[326]	47	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	49	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	50
[966]	51	CALL xios(get_axis_handle) &
	52	(axis_id,axis_hdl)
[326]	53	CALL xios(set_axis_attr_hdl_) &
[1492]	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 )
[581]	58
[326]	59	END SUBROUTINE xios(set_axis_attr)
[581]	60
[326]	61	SUBROUTINE xios(set_axis_attr_hdl) &
[1492]	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 )
[581]	66
[326]	67	IMPLICIT NONE
	68	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	69	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[1492]	70	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
[666]	71	INTEGER , OPTIONAL, INTENT(IN) :: begin
[609]	72	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[1492]	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
	74	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[555]	75	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
	76	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
	77	INTEGER , OPTIONAL, INTENT(IN) :: data_n
[1492]	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
[817]	83	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[1158]	84	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
[326]	85	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	86	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	87	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	88	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	89	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	90	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	91	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	92	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1158]	93	INTEGER , OPTIONAL, INTENT(IN) :: prec
[326]	94	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	96	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	97
[326]	98	CALL xios(set_axis_attr_hdl_) &
[1492]	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 )
[581]	103
[326]	104	END SUBROUTINE xios(set_axis_attr_hdl)
[581]	105
[326]	106	SUBROUTINE xios(set_axis_attr_hdl_) &
[1492]	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_ )
[581]	111
[326]	112	IMPLICIT NONE
	113	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	114	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[1492]	115	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
[666]	116	INTEGER , OPTIONAL, INTENT(IN) :: begin_
[609]	117	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
[1492]	118	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
	119	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[555]	120	INTEGER , OPTIONAL, INTENT(IN) :: data_begin_
	121	INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:)
	122	INTEGER , OPTIONAL, INTENT(IN) :: data_n_
[1492]	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_
[817]	128	INTEGER , OPTIONAL, INTENT(IN) :: index_(:)
[1158]	129	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:)
[326]	130	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[555]	131	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:)
	132	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	133	INTEGER , OPTIONAL, INTENT(IN) :: n_
[779]	134	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition_
[666]	135	INTEGER , OPTIONAL, INTENT(IN) :: n_glo_
[326]	136	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[415]	137	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
[1158]	138	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[326]	139	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
	140	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
	141	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
[581]	142
[546]	143	IF (PRESENT(axis_ref_)) THEN
[966]	144	CALL cxios_set_axis_axis_ref &
	145	(axis_hdl%daddr, axis_ref_, len(axis_ref_))
[546]	146	ENDIF
[581]	147
[1492]	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
[666]	153	IF (PRESENT(begin_)) THEN
[966]	154	CALL cxios_set_axis_begin &
	155	(axis_hdl%daddr, begin_)
[666]	156	ENDIF
	157
[609]	158	IF (PRESENT(bounds_)) THEN
[966]	159	CALL cxios_set_axis_bounds &
	160	(axis_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	161	ENDIF
	162
[1492]	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
[555]	173	IF (PRESENT(data_begin_)) THEN
[966]	174	CALL cxios_set_axis_data_begin &
	175	(axis_hdl%daddr, data_begin_)
[555]	176	ENDIF
[581]	177
[555]	178	IF (PRESENT(data_index_)) THEN
[966]	179	CALL cxios_set_axis_data_index &
	180	(axis_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	181	ENDIF
[581]	182
[555]	183	IF (PRESENT(data_n_)) THEN
[966]	184	CALL cxios_set_axis_data_n &
	185	(axis_hdl%daddr, data_n_)
[555]	186	ENDIF
[581]	187
[1492]	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
[817]	213	IF (PRESENT(index_)) THEN
[966]	214	CALL cxios_set_axis_index &
	215	(axis_hdl%daddr, index_, SHAPE(index_))
[817]	216	ENDIF
	217
[1158]	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
[326]	223	IF (PRESENT(long_name_)) THEN
[966]	224	CALL cxios_set_axis_long_name &
	225	(axis_hdl%daddr, long_name_, len(long_name_))
[326]	226	ENDIF
[581]	227
[555]	228	IF (PRESENT(mask_)) THEN
[674]	229	ALLOCATE(mask__tmp(SIZE(mask_,1)))
[581]	230	mask__tmp = mask_
[966]	231	CALL cxios_set_axis_mask &
	232	(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
[555]	233	ENDIF
[581]	234
[666]	235	IF (PRESENT(n_)) THEN
[966]	236	CALL cxios_set_axis_n &
	237	(axis_hdl%daddr, n_)
[666]	238	ENDIF
	239
[779]	240	IF (PRESENT(n_distributed_partition_)) THEN
[966]	241	CALL cxios_set_axis_n_distributed_partition &
	242	(axis_hdl%daddr, n_distributed_partition_)
[779]	243	ENDIF
	244
[666]	245	IF (PRESENT(n_glo_)) THEN
[966]	246	CALL cxios_set_axis_n_glo &
	247	(axis_hdl%daddr, n_glo_)
[666]	248	ENDIF
	249
[326]	250	IF (PRESENT(name_)) THEN
[966]	251	CALL cxios_set_axis_name &
	252	(axis_hdl%daddr, name_, len(name_))
[326]	253	ENDIF
[581]	254
[415]	255	IF (PRESENT(positive_)) THEN
[966]	256	CALL cxios_set_axis_positive &
	257	(axis_hdl%daddr, positive_, len(positive_))
[415]	258	ENDIF
[581]	259
[1158]	260	IF (PRESENT(prec_)) THEN
	261	CALL cxios_set_axis_prec &
	262	(axis_hdl%daddr, prec_)
	263	ENDIF
	264
[326]	265	IF (PRESENT(standard_name_)) THEN
[966]	266	CALL cxios_set_axis_standard_name &
	267	(axis_hdl%daddr, standard_name_, len(standard_name_))
[326]	268	ENDIF
[581]	269
[326]	270	IF (PRESENT(unit_)) THEN
[966]	271	CALL cxios_set_axis_unit &
	272	(axis_hdl%daddr, unit_, len(unit_))
[326]	273	ENDIF
[581]	274
[326]	275	IF (PRESENT(value_)) THEN
[966]	276	CALL cxios_set_axis_value &
	277	(axis_hdl%daddr, value_, SHAPE(value_))
[326]	278	ENDIF
[581]	279
[326]	280	END SUBROUTINE xios(set_axis_attr_hdl_)
[581]	281
[326]	282	SUBROUTINE xios(get_axis_attr) &
[1492]	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 )
[581]	287
[326]	288	IMPLICIT NONE
	289	TYPE(txios(axis)) :: axis_hdl
	290	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	291	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[1492]	292	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
[666]	293	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	294	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[1492]	295	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
	296	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[555]	297	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	298	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	299	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[1492]	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
[817]	305	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[1158]	306	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
[326]	307	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	308	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	309	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	310	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	311	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	312	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	313	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	314	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1158]	315	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[326]	316	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	317	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	318	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	319
[966]	320	CALL xios(get_axis_handle) &
	321	(axis_id,axis_hdl)
[326]	322	CALL xios(get_axis_attr_hdl_) &
[1492]	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 )
[581]	327
[326]	328	END SUBROUTINE xios(get_axis_attr)
[581]	329
[326]	330	SUBROUTINE xios(get_axis_attr_hdl) &
[1492]	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 )
[581]	335
[326]	336	IMPLICIT NONE
	337	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	338	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[1492]	339	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
[666]	340	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	341	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[1492]	342	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
	343	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[555]	344	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	345	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	346	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[1492]	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
[817]	352	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[1158]	353	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
[326]	354	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	355	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	356	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	357	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	358	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	359	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	360	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	361	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1158]	362	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[326]	363	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	364	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	365	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	366
[326]	367	CALL xios(get_axis_attr_hdl_) &
[1492]	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 )
[581]	372
[326]	373	END SUBROUTINE xios(get_axis_attr_hdl)
[581]	374
[326]	375	SUBROUTINE xios(get_axis_attr_hdl_) &
[1492]	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_ )
[581]	380
[326]	381	IMPLICIT NONE
	382	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	383	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[1492]	384	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
[666]	385	INTEGER , OPTIONAL, INTENT(OUT) :: begin_
[609]	386	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
[1492]	387	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
	388	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[555]	389	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_
	390	INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:)
	391	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_
[1492]	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_
[817]	397	INTEGER , OPTIONAL, INTENT(OUT) :: index_(:)
[1158]	398	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:)
[326]	399	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[555]	400	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:)
	401	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	402	INTEGER , OPTIONAL, INTENT(OUT) :: n_
[779]	403	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
[666]	404	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo_
[326]	405	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[415]	406	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
[1158]	407	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[326]	408	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
	409	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
	410	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
[581]	411
[546]	412	IF (PRESENT(axis_ref_)) THEN
[966]	413	CALL cxios_get_axis_axis_ref &
	414	(axis_hdl%daddr, axis_ref_, len(axis_ref_))
[546]	415	ENDIF
[581]	416
[1492]	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
[666]	422	IF (PRESENT(begin_)) THEN
[966]	423	CALL cxios_get_axis_begin &
	424	(axis_hdl%daddr, begin_)
[666]	425	ENDIF
	426
[609]	427	IF (PRESENT(bounds_)) THEN
[966]	428	CALL cxios_get_axis_bounds &
	429	(axis_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	430	ENDIF
	431
[1492]	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
[555]	442	IF (PRESENT(data_begin_)) THEN
[966]	443	CALL cxios_get_axis_data_begin &
	444	(axis_hdl%daddr, data_begin_)
[555]	445	ENDIF
[581]	446
[555]	447	IF (PRESENT(data_index_)) THEN
[966]	448	CALL cxios_get_axis_data_index &
	449	(axis_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	450	ENDIF
[581]	451
[555]	452	IF (PRESENT(data_n_)) THEN
[966]	453	CALL cxios_get_axis_data_n &
	454	(axis_hdl%daddr, data_n_)
[555]	455	ENDIF
[581]	456
[1492]	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
[817]	482	IF (PRESENT(index_)) THEN
[966]	483	CALL cxios_get_axis_index &
	484	(axis_hdl%daddr, index_, SHAPE(index_))
[817]	485	ENDIF
	486
[1158]	487	IF (PRESENT(label_)) THEN
	488	CALL cxios_get_axis_label &
	489	(axis_hdl%daddr, label_, LEN(label_), SHAPE(label_))
	490	ENDIF
	491
[326]	492	IF (PRESENT(long_name_)) THEN
[966]	493	CALL cxios_get_axis_long_name &
	494	(axis_hdl%daddr, long_name_, len(long_name_))
[326]	495	ENDIF
[581]	496
[555]	497	IF (PRESENT(mask_)) THEN
[674]	498	ALLOCATE(mask__tmp(SIZE(mask_,1)))
[966]	499	CALL cxios_get_axis_mask &
	500	(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
[581]	501	mask_ = mask__tmp
[555]	502	ENDIF
[581]	503
[666]	504	IF (PRESENT(n_)) THEN
[966]	505	CALL cxios_get_axis_n &
	506	(axis_hdl%daddr, n_)
[666]	507	ENDIF
	508
[779]	509	IF (PRESENT(n_distributed_partition_)) THEN
[966]	510	CALL cxios_get_axis_n_distributed_partition &
	511	(axis_hdl%daddr, n_distributed_partition_)
[779]	512	ENDIF
	513
[666]	514	IF (PRESENT(n_glo_)) THEN
[966]	515	CALL cxios_get_axis_n_glo &
	516	(axis_hdl%daddr, n_glo_)
[666]	517	ENDIF
	518
[326]	519	IF (PRESENT(name_)) THEN
[966]	520	CALL cxios_get_axis_name &
	521	(axis_hdl%daddr, name_, len(name_))
[326]	522	ENDIF
[581]	523
[415]	524	IF (PRESENT(positive_)) THEN
[966]	525	CALL cxios_get_axis_positive &
	526	(axis_hdl%daddr, positive_, len(positive_))
[415]	527	ENDIF
[581]	528
[1158]	529	IF (PRESENT(prec_)) THEN
	530	CALL cxios_get_axis_prec &
	531	(axis_hdl%daddr, prec_)
	532	ENDIF
	533
[326]	534	IF (PRESENT(standard_name_)) THEN
[966]	535	CALL cxios_get_axis_standard_name &
	536	(axis_hdl%daddr, standard_name_, len(standard_name_))
[326]	537	ENDIF
[581]	538
[326]	539	IF (PRESENT(unit_)) THEN
[966]	540	CALL cxios_get_axis_unit &
	541	(axis_hdl%daddr, unit_, len(unit_))
[326]	542	ENDIF
[581]	543
[326]	544	IF (PRESENT(value_)) THEN
[966]	545	CALL cxios_get_axis_value &
	546	(axis_hdl%daddr, value_, SHAPE(value_))
[326]	547	ENDIF
[581]	548
[326]	549	END SUBROUTINE xios(get_axis_attr_hdl_)
[581]	550
[432]	551	SUBROUTINE xios(is_defined_axis_attr) &
[1492]	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 )
[581]	556
[432]	557	IMPLICIT NONE
	558	TYPE(txios(axis)) :: axis_hdl
	559	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	560	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	561	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[1492]	562	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
	563	LOGICAL(KIND=C_BOOL) :: axis_type_tmp
[666]	564	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	565	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	566	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	567	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[1492]	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
[555]	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
[1492]	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
[817]	588	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	589	LOGICAL(KIND=C_BOOL) :: index_tmp
[1158]	590	LOGICAL, OPTIONAL, INTENT(OUT) :: label
	591	LOGICAL(KIND=C_BOOL) :: label_tmp
[432]	592	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	593	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	594	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	595	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	596	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	597	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	598	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	599	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	600	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	601	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	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
[1158]	606	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	607	LOGICAL(KIND=C_BOOL) :: prec_tmp
[432]	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
[581]	614
[966]	615	CALL xios(get_axis_handle) &
	616	(axis_id,axis_hdl)
[432]	617	CALL xios(is_defined_axis_attr_hdl_) &
[1492]	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 )
[581]	622
[432]	623	END SUBROUTINE xios(is_defined_axis_attr)
[581]	624
[432]	625	SUBROUTINE xios(is_defined_axis_attr_hdl) &
[1492]	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 )
[581]	630
[432]	631	IMPLICIT NONE
	632	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	633	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	634	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[1492]	635	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
	636	LOGICAL(KIND=C_BOOL) :: axis_type_tmp
[666]	637	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	638	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	639	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	640	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[1492]	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
[555]	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
[1492]	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
[817]	661	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	662	LOGICAL(KIND=C_BOOL) :: index_tmp
[1158]	663	LOGICAL, OPTIONAL, INTENT(OUT) :: label
	664	LOGICAL(KIND=C_BOOL) :: label_tmp
[432]	665	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	666	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	667	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	668	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	669	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	670	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	671	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	672	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	673	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	674	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	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
[1158]	679	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	680	LOGICAL(KIND=C_BOOL) :: prec_tmp
[432]	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
[581]	687
[432]	688	CALL xios(is_defined_axis_attr_hdl_) &
[1492]	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 )
[581]	693
[432]	694	END SUBROUTINE xios(is_defined_axis_attr_hdl)
[581]	695
[432]	696	SUBROUTINE xios(is_defined_axis_attr_hdl_) &
[1492]	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_ )
[581]	701
[432]	702	IMPLICIT NONE
	703	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	704	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	705	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[1492]	706	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
	707	LOGICAL(KIND=C_BOOL) :: axis_type__tmp
[666]	708	LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
	709	LOGICAL(KIND=C_BOOL) :: begin__tmp
[609]	710	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
	711	LOGICAL(KIND=C_BOOL) :: bounds__tmp
[1492]	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
[555]	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
[1492]	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
[817]	732	LOGICAL, OPTIONAL, INTENT(OUT) :: index_
	733	LOGICAL(KIND=C_BOOL) :: index__tmp
[1158]	734	LOGICAL, OPTIONAL, INTENT(OUT) :: label_
	735	LOGICAL(KIND=C_BOOL) :: label__tmp
[432]	736	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	737	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[555]	738	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
	739	LOGICAL(KIND=C_BOOL) :: mask__tmp
[666]	740	LOGICAL, OPTIONAL, INTENT(OUT) :: n_
	741	LOGICAL(KIND=C_BOOL) :: n__tmp
[779]	742	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
	743	LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
[666]	744	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
	745	LOGICAL(KIND=C_BOOL) :: n_glo__tmp
[432]	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
[1158]	750	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	751	LOGICAL(KIND=C_BOOL) :: prec__tmp
[432]	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
[581]	758
[546]	759	IF (PRESENT(axis_ref_)) THEN
[966]	760	axis_ref__tmp = cxios_is_defined_axis_axis_ref &
	761	(axis_hdl%daddr)
[581]	762	axis_ref_ = axis_ref__tmp
[546]	763	ENDIF
[581]	764
[1492]	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
[666]	771	IF (PRESENT(begin_)) THEN
[966]	772	begin__tmp = cxios_is_defined_axis_begin &
	773	(axis_hdl%daddr)
[666]	774	begin_ = begin__tmp
	775	ENDIF
	776
[609]	777	IF (PRESENT(bounds_)) THEN
[966]	778	bounds__tmp = cxios_is_defined_axis_bounds &
	779	(axis_hdl%daddr)
[609]	780	bounds_ = bounds__tmp
	781	ENDIF
	782
[1492]	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
[555]	795	IF (PRESENT(data_begin_)) THEN
[966]	796	data_begin__tmp = cxios_is_defined_axis_data_begin &
	797	(axis_hdl%daddr)
[581]	798	data_begin_ = data_begin__tmp
[555]	799	ENDIF
[581]	800
[555]	801	IF (PRESENT(data_index_)) THEN
[966]	802	data_index__tmp = cxios_is_defined_axis_data_index &
	803	(axis_hdl%daddr)
[581]	804	data_index_ = data_index__tmp
[555]	805	ENDIF
[581]	806
[555]	807	IF (PRESENT(data_n_)) THEN
[966]	808	data_n__tmp = cxios_is_defined_axis_data_n &
	809	(axis_hdl%daddr)
[581]	810	data_n_ = data_n__tmp
[555]	811	ENDIF
[581]	812
[1492]	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
[817]	843	IF (PRESENT(index_)) THEN
[966]	844	index__tmp = cxios_is_defined_axis_index &
	845	(axis_hdl%daddr)
[817]	846	index_ = index__tmp
	847	ENDIF
	848
[1158]	849	IF (PRESENT(label_)) THEN
	850	label__tmp = cxios_is_defined_axis_label &
	851	(axis_hdl%daddr)
	852	label_ = label__tmp
	853	ENDIF
	854
[432]	855	IF (PRESENT(long_name_)) THEN
[966]	856	long_name__tmp = cxios_is_defined_axis_long_name &
	857	(axis_hdl%daddr)
[581]	858	long_name_ = long_name__tmp
[432]	859	ENDIF
[581]	860
[555]	861	IF (PRESENT(mask_)) THEN
[966]	862	mask__tmp = cxios_is_defined_axis_mask &
	863	(axis_hdl%daddr)
[581]	864	mask_ = mask__tmp
[555]	865	ENDIF
[581]	866
[666]	867	IF (PRESENT(n_)) THEN
[966]	868	n__tmp = cxios_is_defined_axis_n &
	869	(axis_hdl%daddr)
[666]	870	n_ = n__tmp
	871	ENDIF
	872
[779]	873	IF (PRESENT(n_distributed_partition_)) THEN
[966]	874	n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition &
	875	(axis_hdl%daddr)
[779]	876	n_distributed_partition_ = n_distributed_partition__tmp
	877	ENDIF
	878
[666]	879	IF (PRESENT(n_glo_)) THEN
[966]	880	n_glo__tmp = cxios_is_defined_axis_n_glo &
	881	(axis_hdl%daddr)
[666]	882	n_glo_ = n_glo__tmp
	883	ENDIF
	884
[432]	885	IF (PRESENT(name_)) THEN
[966]	886	name__tmp = cxios_is_defined_axis_name &
	887	(axis_hdl%daddr)
[581]	888	name_ = name__tmp
[432]	889	ENDIF
[581]	890
[432]	891	IF (PRESENT(positive_)) THEN
[966]	892	positive__tmp = cxios_is_defined_axis_positive &
	893	(axis_hdl%daddr)
[581]	894	positive_ = positive__tmp
[432]	895	ENDIF
[581]	896
[1158]	897	IF (PRESENT(prec_)) THEN
	898	prec__tmp = cxios_is_defined_axis_prec &
	899	(axis_hdl%daddr)
	900	prec_ = prec__tmp
	901	ENDIF
	902
[432]	903	IF (PRESENT(standard_name_)) THEN
[966]	904	standard_name__tmp = cxios_is_defined_axis_standard_name &
	905	(axis_hdl%daddr)
[581]	906	standard_name_ = standard_name__tmp
[432]	907	ENDIF
[581]	908
[432]	909	IF (PRESENT(unit_)) THEN
[966]	910	unit__tmp = cxios_is_defined_axis_unit &
	911	(axis_hdl%daddr)
[581]	912	unit_ = unit__tmp
[432]	913	ENDIF
[581]	914
[432]	915	IF (PRESENT(value_)) THEN
[966]	916	value__tmp = cxios_is_defined_axis_value &
	917	(axis_hdl%daddr)
[581]	918	value_ = value__tmp
[432]	919	ENDIF
[581]	920
[432]	921	END SUBROUTINE xios(is_defined_axis_attr_hdl_)
[581]	922
[326]	923	END MODULE iaxis_attr

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

Download in other formats: