Context Navigation

iaxis_attr.F90 @ 966

Last change on this file since 966 was 966, checked in by mhnguyen, 8 years ago

Reducing length of line of auto-generate Fortran interface

+) Break line into smaller ones to make sure each line is not longer than 132 character

Test
+) Local with gcc4.8
+) Compilation passed

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

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

Context Navigation

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

Download in other formats: