Context Navigation

← Previous Revision
Next Revision →
Normal
Revision Log

iaxisgroup_attr.F90

Last change on this file was 2620, checked in by jderouillat, 4 months ago
Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.
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: 39.4 KB

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

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

Context Navigation

source: XIOS3/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90

Download in other formats: