Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90 @ 1331

Last change on this file since 1331 was 1052, checked in by ymipsl, 7 years ago

Generate fortran interface for new attributes from previous commit.

YM

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: 24.8 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) &
[1052]	14	( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	15	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	16	)
[581]	17
[326]	18	IMPLICIT NONE
	19	TYPE(txios(axis)) :: axis_hdl
	20	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[666]	22	INTEGER , OPTIONAL, INTENT(IN) :: begin
[609]	23	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[555]	24	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
	25	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
	26	INTEGER , OPTIONAL, INTENT(IN) :: data_n
[817]	27	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[1052]	28	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
[326]	29	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	30	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	31	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	32	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	33	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	34	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1052]	37	INTEGER , OPTIONAL, INTENT(IN) :: prec
[326]	38	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	39	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	40	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	41
[966]	42	CALL xios(get_axis_handle) &
	43	(axis_id,axis_hdl)
[326]	44	CALL xios(set_axis_attr_hdl_) &
[1052]	45	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	46	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	47	)
[581]	48
[326]	49	END SUBROUTINE xios(set_axis_attr)
[581]	50
[326]	51	SUBROUTINE xios(set_axis_attr_hdl) &
[1052]	52	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	53	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	54	)
[581]	55
[326]	56	IMPLICIT NONE
	57	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	58	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[666]	59	INTEGER , OPTIONAL, INTENT(IN) :: begin
[609]	60	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[555]	61	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
	62	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
	63	INTEGER , OPTIONAL, INTENT(IN) :: data_n
[817]	64	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[1052]	65	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:)
[326]	66	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	67	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	68	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	69	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	70	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	71	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	72	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1052]	74	INTEGER , OPTIONAL, INTENT(IN) :: prec
[326]	75	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	77	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	78
[326]	79	CALL xios(set_axis_attr_hdl_) &
[1052]	80	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	81	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	82	)
[581]	83
[326]	84	END SUBROUTINE xios(set_axis_attr_hdl)
[581]	85
[326]	86	SUBROUTINE xios(set_axis_attr_hdl_) &
[1052]	87	( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ &
	88	, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ &
	89	, value_ )
[581]	90
[326]	91	IMPLICIT NONE
	92	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[666]	94	INTEGER , OPTIONAL, INTENT(IN) :: begin_
[609]	95	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
[555]	96	INTEGER , OPTIONAL, INTENT(IN) :: data_begin_
	97	INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:)
	98	INTEGER , OPTIONAL, INTENT(IN) :: data_n_
[817]	99	INTEGER , OPTIONAL, INTENT(IN) :: index_(:)
[1052]	100	CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:)
[326]	101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[555]	102	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:)
	103	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	104	INTEGER , OPTIONAL, INTENT(IN) :: n_
[779]	105	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition_
[666]	106	INTEGER , OPTIONAL, INTENT(IN) :: n_glo_
[326]	107	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[415]	108	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
[1052]	109	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[326]	110	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
	111	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
	112	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
[581]	113
[546]	114	IF (PRESENT(axis_ref_)) THEN
[966]	115	CALL cxios_set_axis_axis_ref &
	116	(axis_hdl%daddr, axis_ref_, len(axis_ref_))
[546]	117	ENDIF
[581]	118
[666]	119	IF (PRESENT(begin_)) THEN
[966]	120	CALL cxios_set_axis_begin &
	121	(axis_hdl%daddr, begin_)
[666]	122	ENDIF
	123
[609]	124	IF (PRESENT(bounds_)) THEN
[966]	125	CALL cxios_set_axis_bounds &
	126	(axis_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	127	ENDIF
	128
[555]	129	IF (PRESENT(data_begin_)) THEN
[966]	130	CALL cxios_set_axis_data_begin &
	131	(axis_hdl%daddr, data_begin_)
[555]	132	ENDIF
[581]	133
[555]	134	IF (PRESENT(data_index_)) THEN
[966]	135	CALL cxios_set_axis_data_index &
	136	(axis_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	137	ENDIF
[581]	138
[555]	139	IF (PRESENT(data_n_)) THEN
[966]	140	CALL cxios_set_axis_data_n &
	141	(axis_hdl%daddr, data_n_)
[555]	142	ENDIF
[581]	143
[817]	144	IF (PRESENT(index_)) THEN
[966]	145	CALL cxios_set_axis_index &
	146	(axis_hdl%daddr, index_, SHAPE(index_))
[817]	147	ENDIF
	148
[1052]	149	IF (PRESENT(label_)) THEN
	150	CALL cxios_set_axis_label &
	151	(axis_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_))
	152	ENDIF
	153
[326]	154	IF (PRESENT(long_name_)) THEN
[966]	155	CALL cxios_set_axis_long_name &
	156	(axis_hdl%daddr, long_name_, len(long_name_))
[326]	157	ENDIF
[581]	158
[555]	159	IF (PRESENT(mask_)) THEN
[674]	160	ALLOCATE(mask__tmp(SIZE(mask_,1)))
[581]	161	mask__tmp = mask_
[966]	162	CALL cxios_set_axis_mask &
	163	(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
[555]	164	ENDIF
[581]	165
[666]	166	IF (PRESENT(n_)) THEN
[966]	167	CALL cxios_set_axis_n &
	168	(axis_hdl%daddr, n_)
[666]	169	ENDIF
	170
[779]	171	IF (PRESENT(n_distributed_partition_)) THEN
[966]	172	CALL cxios_set_axis_n_distributed_partition &
	173	(axis_hdl%daddr, n_distributed_partition_)
[779]	174	ENDIF
	175
[666]	176	IF (PRESENT(n_glo_)) THEN
[966]	177	CALL cxios_set_axis_n_glo &
	178	(axis_hdl%daddr, n_glo_)
[666]	179	ENDIF
	180
[326]	181	IF (PRESENT(name_)) THEN
[966]	182	CALL cxios_set_axis_name &
	183	(axis_hdl%daddr, name_, len(name_))
[326]	184	ENDIF
[581]	185
[415]	186	IF (PRESENT(positive_)) THEN
[966]	187	CALL cxios_set_axis_positive &
	188	(axis_hdl%daddr, positive_, len(positive_))
[415]	189	ENDIF
[581]	190
[1052]	191	IF (PRESENT(prec_)) THEN
	192	CALL cxios_set_axis_prec &
	193	(axis_hdl%daddr, prec_)
	194	ENDIF
	195
[326]	196	IF (PRESENT(standard_name_)) THEN
[966]	197	CALL cxios_set_axis_standard_name &
	198	(axis_hdl%daddr, standard_name_, len(standard_name_))
[326]	199	ENDIF
[581]	200
[326]	201	IF (PRESENT(unit_)) THEN
[966]	202	CALL cxios_set_axis_unit &
	203	(axis_hdl%daddr, unit_, len(unit_))
[326]	204	ENDIF
[581]	205
[326]	206	IF (PRESENT(value_)) THEN
[966]	207	CALL cxios_set_axis_value &
	208	(axis_hdl%daddr, value_, SHAPE(value_))
[326]	209	ENDIF
[581]	210
[326]	211	END SUBROUTINE xios(set_axis_attr_hdl_)
[581]	212
[326]	213	SUBROUTINE xios(get_axis_attr) &
[1052]	214	( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	215	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	216	)
[581]	217
[326]	218	IMPLICIT NONE
	219	TYPE(txios(axis)) :: axis_hdl
	220	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	221	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]	222	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	223	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]	224	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	225	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	226	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[817]	227	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[1052]	228	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
[326]	229	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	230	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	231	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	232	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	233	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	234	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	235	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	236	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1052]	237	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[326]	238	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	239	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	240	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	241
[966]	242	CALL xios(get_axis_handle) &
	243	(axis_id,axis_hdl)
[326]	244	CALL xios(get_axis_attr_hdl_) &
[1052]	245	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	246	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	247	)
[581]	248
[326]	249	END SUBROUTINE xios(get_axis_attr)
[581]	250
[326]	251	SUBROUTINE xios(get_axis_attr_hdl) &
[1052]	252	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	253	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	254	)
[581]	255
[326]	256	IMPLICIT NONE
	257	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	258	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]	259	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	260	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]	261	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	262	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	263	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[817]	264	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[1052]	265	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:)
[326]	266	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	267	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	268	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	269	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	270	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	271	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	272	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	273	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1052]	274	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[326]	275	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	276	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	277	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	278
[326]	279	CALL xios(get_axis_attr_hdl_) &
[1052]	280	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	281	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	282	)
[581]	283
[326]	284	END SUBROUTINE xios(get_axis_attr_hdl)
[581]	285
[326]	286	SUBROUTINE xios(get_axis_attr_hdl_) &
[1052]	287	( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ &
	288	, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ &
	289	, value_ )
[581]	290
[326]	291	IMPLICIT NONE
	292	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	293	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[666]	294	INTEGER , OPTIONAL, INTENT(OUT) :: begin_
[609]	295	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
[555]	296	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_
	297	INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:)
	298	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_
[817]	299	INTEGER , OPTIONAL, INTENT(OUT) :: index_(:)
[1052]	300	CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:)
[326]	301	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[555]	302	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:)
	303	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	304	INTEGER , OPTIONAL, INTENT(OUT) :: n_
[779]	305	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
[666]	306	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo_
[326]	307	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[415]	308	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
[1052]	309	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[326]	310	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
	311	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
	312	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
[581]	313
[546]	314	IF (PRESENT(axis_ref_)) THEN
[966]	315	CALL cxios_get_axis_axis_ref &
	316	(axis_hdl%daddr, axis_ref_, len(axis_ref_))
[546]	317	ENDIF
[581]	318
[666]	319	IF (PRESENT(begin_)) THEN
[966]	320	CALL cxios_get_axis_begin &
	321	(axis_hdl%daddr, begin_)
[666]	322	ENDIF
	323
[609]	324	IF (PRESENT(bounds_)) THEN
[966]	325	CALL cxios_get_axis_bounds &
	326	(axis_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	327	ENDIF
	328
[555]	329	IF (PRESENT(data_begin_)) THEN
[966]	330	CALL cxios_get_axis_data_begin &
	331	(axis_hdl%daddr, data_begin_)
[555]	332	ENDIF
[581]	333
[555]	334	IF (PRESENT(data_index_)) THEN
[966]	335	CALL cxios_get_axis_data_index &
	336	(axis_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	337	ENDIF
[581]	338
[555]	339	IF (PRESENT(data_n_)) THEN
[966]	340	CALL cxios_get_axis_data_n &
	341	(axis_hdl%daddr, data_n_)
[555]	342	ENDIF
[581]	343
[817]	344	IF (PRESENT(index_)) THEN
[966]	345	CALL cxios_get_axis_index &
	346	(axis_hdl%daddr, index_, SHAPE(index_))
[817]	347	ENDIF
	348
[1052]	349	IF (PRESENT(label_)) THEN
	350	CALL cxios_get_axis_label &
	351	(axis_hdl%daddr, label_, LEN(label_), SHAPE(label_))
	352	ENDIF
	353
[326]	354	IF (PRESENT(long_name_)) THEN
[966]	355	CALL cxios_get_axis_long_name &
	356	(axis_hdl%daddr, long_name_, len(long_name_))
[326]	357	ENDIF
[581]	358
[555]	359	IF (PRESENT(mask_)) THEN
[674]	360	ALLOCATE(mask__tmp(SIZE(mask_,1)))
[966]	361	CALL cxios_get_axis_mask &
	362	(axis_hdl%daddr, mask__tmp, SHAPE(mask_))
[581]	363	mask_ = mask__tmp
[555]	364	ENDIF
[581]	365
[666]	366	IF (PRESENT(n_)) THEN
[966]	367	CALL cxios_get_axis_n &
	368	(axis_hdl%daddr, n_)
[666]	369	ENDIF
	370
[779]	371	IF (PRESENT(n_distributed_partition_)) THEN
[966]	372	CALL cxios_get_axis_n_distributed_partition &
	373	(axis_hdl%daddr, n_distributed_partition_)
[779]	374	ENDIF
	375
[666]	376	IF (PRESENT(n_glo_)) THEN
[966]	377	CALL cxios_get_axis_n_glo &
	378	(axis_hdl%daddr, n_glo_)
[666]	379	ENDIF
	380
[326]	381	IF (PRESENT(name_)) THEN
[966]	382	CALL cxios_get_axis_name &
	383	(axis_hdl%daddr, name_, len(name_))
[326]	384	ENDIF
[581]	385
[415]	386	IF (PRESENT(positive_)) THEN
[966]	387	CALL cxios_get_axis_positive &
	388	(axis_hdl%daddr, positive_, len(positive_))
[415]	389	ENDIF
[581]	390
[1052]	391	IF (PRESENT(prec_)) THEN
	392	CALL cxios_get_axis_prec &
	393	(axis_hdl%daddr, prec_)
	394	ENDIF
	395
[326]	396	IF (PRESENT(standard_name_)) THEN
[966]	397	CALL cxios_get_axis_standard_name &
	398	(axis_hdl%daddr, standard_name_, len(standard_name_))
[326]	399	ENDIF
[581]	400
[326]	401	IF (PRESENT(unit_)) THEN
[966]	402	CALL cxios_get_axis_unit &
	403	(axis_hdl%daddr, unit_, len(unit_))
[326]	404	ENDIF
[581]	405
[326]	406	IF (PRESENT(value_)) THEN
[966]	407	CALL cxios_get_axis_value &
	408	(axis_hdl%daddr, value_, SHAPE(value_))
[326]	409	ENDIF
[581]	410
[326]	411	END SUBROUTINE xios(get_axis_attr_hdl_)
[581]	412
[432]	413	SUBROUTINE xios(is_defined_axis_attr) &
[1052]	414	( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	415	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	416	)
[581]	417
[432]	418	IMPLICIT NONE
	419	TYPE(txios(axis)) :: axis_hdl
	420	CHARACTER(LEN=*), INTENT(IN) ::axis_id
[546]	421	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	422	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]	423	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	424	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	425	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	426	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]	427	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
	428	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
	429	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
	430	LOGICAL(KIND=C_BOOL) :: data_index_tmp
	431	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
	432	LOGICAL(KIND=C_BOOL) :: data_n_tmp
[817]	433	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	434	LOGICAL(KIND=C_BOOL) :: index_tmp
[1052]	435	LOGICAL, OPTIONAL, INTENT(OUT) :: label
	436	LOGICAL(KIND=C_BOOL) :: label_tmp
[432]	437	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	438	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	439	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	440	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	441	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	442	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	443	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	444	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	445	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	446	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	447	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	448	LOGICAL(KIND=C_BOOL) :: name_tmp
	449	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	450	LOGICAL(KIND=C_BOOL) :: positive_tmp
[1052]	451	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	452	LOGICAL(KIND=C_BOOL) :: prec_tmp
[432]	453	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	454	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	455	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	456	LOGICAL(KIND=C_BOOL) :: unit_tmp
	457	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	458	LOGICAL(KIND=C_BOOL) :: value_tmp
[581]	459
[966]	460	CALL xios(get_axis_handle) &
	461	(axis_id,axis_hdl)
[432]	462	CALL xios(is_defined_axis_attr_hdl_) &
[1052]	463	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	464	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	465	)
[581]	466
[432]	467	END SUBROUTINE xios(is_defined_axis_attr)
[581]	468
[432]	469	SUBROUTINE xios(is_defined_axis_attr_hdl) &
[1052]	470	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	471	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	472	)
[581]	473
[432]	474	IMPLICIT NONE
	475	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	476	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	477	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]	478	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	479	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	480	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	481	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]	482	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
	483	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
	484	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
	485	LOGICAL(KIND=C_BOOL) :: data_index_tmp
	486	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
	487	LOGICAL(KIND=C_BOOL) :: data_n_tmp
[817]	488	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	489	LOGICAL(KIND=C_BOOL) :: index_tmp
[1052]	490	LOGICAL, OPTIONAL, INTENT(OUT) :: label
	491	LOGICAL(KIND=C_BOOL) :: label_tmp
[432]	492	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	493	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	494	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	495	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	496	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	497	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	498	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	499	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	500	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	501	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	502	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	503	LOGICAL(KIND=C_BOOL) :: name_tmp
	504	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	505	LOGICAL(KIND=C_BOOL) :: positive_tmp
[1052]	506	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	507	LOGICAL(KIND=C_BOOL) :: prec_tmp
[432]	508	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	509	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	510	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	511	LOGICAL(KIND=C_BOOL) :: unit_tmp
	512	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	513	LOGICAL(KIND=C_BOOL) :: value_tmp
[581]	514
[432]	515	CALL xios(is_defined_axis_attr_hdl_) &
[1052]	516	( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name &
	517	, mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value &
	518	)
[581]	519
[432]	520	END SUBROUTINE xios(is_defined_axis_attr_hdl)
[581]	521
[432]	522	SUBROUTINE xios(is_defined_axis_attr_hdl_) &
[1052]	523	( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_ &
	524	, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_ &
	525	, value_ )
[581]	526
[432]	527	IMPLICIT NONE
	528	TYPE(txios(axis)) , INTENT(IN) :: axis_hdl
[546]	529	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	530	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[666]	531	LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
	532	LOGICAL(KIND=C_BOOL) :: begin__tmp
[609]	533	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
	534	LOGICAL(KIND=C_BOOL) :: bounds__tmp
[555]	535	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
	536	LOGICAL(KIND=C_BOOL) :: data_begin__tmp
	537	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
	538	LOGICAL(KIND=C_BOOL) :: data_index__tmp
	539	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
	540	LOGICAL(KIND=C_BOOL) :: data_n__tmp
[817]	541	LOGICAL, OPTIONAL, INTENT(OUT) :: index_
	542	LOGICAL(KIND=C_BOOL) :: index__tmp
[1052]	543	LOGICAL, OPTIONAL, INTENT(OUT) :: label_
	544	LOGICAL(KIND=C_BOOL) :: label__tmp
[432]	545	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	546	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[555]	547	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
	548	LOGICAL(KIND=C_BOOL) :: mask__tmp
[666]	549	LOGICAL, OPTIONAL, INTENT(OUT) :: n_
	550	LOGICAL(KIND=C_BOOL) :: n__tmp
[779]	551	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
	552	LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
[666]	553	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
	554	LOGICAL(KIND=C_BOOL) :: n_glo__tmp
[432]	555	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	556	LOGICAL(KIND=C_BOOL) :: name__tmp
	557	LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
	558	LOGICAL(KIND=C_BOOL) :: positive__tmp
[1052]	559	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	560	LOGICAL(KIND=C_BOOL) :: prec__tmp
[432]	561	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	562	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
	563	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	564	LOGICAL(KIND=C_BOOL) :: unit__tmp
	565	LOGICAL, OPTIONAL, INTENT(OUT) :: value_
	566	LOGICAL(KIND=C_BOOL) :: value__tmp
[581]	567
[546]	568	IF (PRESENT(axis_ref_)) THEN
[966]	569	axis_ref__tmp = cxios_is_defined_axis_axis_ref &
	570	(axis_hdl%daddr)
[581]	571	axis_ref_ = axis_ref__tmp
[546]	572	ENDIF
[581]	573
[666]	574	IF (PRESENT(begin_)) THEN
[966]	575	begin__tmp = cxios_is_defined_axis_begin &
	576	(axis_hdl%daddr)
[666]	577	begin_ = begin__tmp
	578	ENDIF
	579
[609]	580	IF (PRESENT(bounds_)) THEN
[966]	581	bounds__tmp = cxios_is_defined_axis_bounds &
	582	(axis_hdl%daddr)
[609]	583	bounds_ = bounds__tmp
	584	ENDIF
	585
[555]	586	IF (PRESENT(data_begin_)) THEN
[966]	587	data_begin__tmp = cxios_is_defined_axis_data_begin &
	588	(axis_hdl%daddr)
[581]	589	data_begin_ = data_begin__tmp
[555]	590	ENDIF
[581]	591
[555]	592	IF (PRESENT(data_index_)) THEN
[966]	593	data_index__tmp = cxios_is_defined_axis_data_index &
	594	(axis_hdl%daddr)
[581]	595	data_index_ = data_index__tmp
[555]	596	ENDIF
[581]	597
[555]	598	IF (PRESENT(data_n_)) THEN
[966]	599	data_n__tmp = cxios_is_defined_axis_data_n &
	600	(axis_hdl%daddr)
[581]	601	data_n_ = data_n__tmp
[555]	602	ENDIF
[581]	603
[817]	604	IF (PRESENT(index_)) THEN
[966]	605	index__tmp = cxios_is_defined_axis_index &
	606	(axis_hdl%daddr)
[817]	607	index_ = index__tmp
	608	ENDIF
	609
[1052]	610	IF (PRESENT(label_)) THEN
	611	label__tmp = cxios_is_defined_axis_label &
	612	(axis_hdl%daddr)
	613	label_ = label__tmp
	614	ENDIF
	615
[432]	616	IF (PRESENT(long_name_)) THEN
[966]	617	long_name__tmp = cxios_is_defined_axis_long_name &
	618	(axis_hdl%daddr)
[581]	619	long_name_ = long_name__tmp
[432]	620	ENDIF
[581]	621
[555]	622	IF (PRESENT(mask_)) THEN
[966]	623	mask__tmp = cxios_is_defined_axis_mask &
	624	(axis_hdl%daddr)
[581]	625	mask_ = mask__tmp
[555]	626	ENDIF
[581]	627
[666]	628	IF (PRESENT(n_)) THEN
[966]	629	n__tmp = cxios_is_defined_axis_n &
	630	(axis_hdl%daddr)
[666]	631	n_ = n__tmp
	632	ENDIF
	633
[779]	634	IF (PRESENT(n_distributed_partition_)) THEN
[966]	635	n_distributed_partition__tmp = cxios_is_defined_axis_n_distributed_partition &
	636	(axis_hdl%daddr)
[779]	637	n_distributed_partition_ = n_distributed_partition__tmp
	638	ENDIF
	639
[666]	640	IF (PRESENT(n_glo_)) THEN
[966]	641	n_glo__tmp = cxios_is_defined_axis_n_glo &
	642	(axis_hdl%daddr)
[666]	643	n_glo_ = n_glo__tmp
	644	ENDIF
	645
[432]	646	IF (PRESENT(name_)) THEN
[966]	647	name__tmp = cxios_is_defined_axis_name &
	648	(axis_hdl%daddr)
[581]	649	name_ = name__tmp
[432]	650	ENDIF
[581]	651
[432]	652	IF (PRESENT(positive_)) THEN
[966]	653	positive__tmp = cxios_is_defined_axis_positive &
	654	(axis_hdl%daddr)
[581]	655	positive_ = positive__tmp
[432]	656	ENDIF
[581]	657
[1052]	658	IF (PRESENT(prec_)) THEN
	659	prec__tmp = cxios_is_defined_axis_prec &
	660	(axis_hdl%daddr)
	661	prec_ = prec__tmp
	662	ENDIF
	663
[432]	664	IF (PRESENT(standard_name_)) THEN
[966]	665	standard_name__tmp = cxios_is_defined_axis_standard_name &
	666	(axis_hdl%daddr)
[581]	667	standard_name_ = standard_name__tmp
[432]	668	ENDIF
[581]	669
[432]	670	IF (PRESENT(unit_)) THEN
[966]	671	unit__tmp = cxios_is_defined_axis_unit &
	672	(axis_hdl%daddr)
[581]	673	unit_ = unit__tmp
[432]	674	ENDIF
[581]	675
[432]	676	IF (PRESENT(value_)) THEN
[966]	677	value__tmp = cxios_is_defined_axis_value &
	678	(axis_hdl%daddr)
[581]	679	value_ = value__tmp
[432]	680	ENDIF
[581]	681
[432]	682	END SUBROUTINE xios(is_defined_axis_attr_hdl_)
[581]	683
[326]	684	END MODULE iaxis_attr

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

Download in other formats: