Context Navigation

iaxisgroup_attr.F90 @ 1005

Last change on this file since 1005 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: 24.7 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
[581]	10
[326]	11	CONTAINS
[581]	12
[326]	13	SUBROUTINE xios(set_axisgroup_attr) &
[817]	14	( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	15	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	16
[326]	17	IMPLICIT NONE
	18	TYPE(txios(axisgroup)) :: axisgroup_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_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
[326]	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[817]	27	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[326]	28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	29	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	30	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	31	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	32	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	33	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	34	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	35	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[326]	36	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	37	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	38	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	39
[966]	40	CALL xios(get_axisgroup_handle) &
	41	(axisgroup_id,axisgroup_hdl)
[326]	42	CALL xios(set_axisgroup_attr_hdl_) &
[817]	43	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	44	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	45
[326]	46	END SUBROUTINE xios(set_axisgroup_attr)
[581]	47
[326]	48	SUBROUTINE xios(set_axisgroup_attr_hdl) &
[817]	49	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	50	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	51
[326]	52	IMPLICIT NONE
	53	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[666]	55	INTEGER , OPTIONAL, INTENT(IN) :: begin
[609]	56	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:,:)
[555]	57	INTEGER , OPTIONAL, INTENT(IN) :: data_begin
	58	INTEGER , OPTIONAL, INTENT(IN) :: data_index(:)
	59	INTEGER , OPTIONAL, INTENT(IN) :: data_n
[326]	60	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[817]	61	INTEGER , OPTIONAL, INTENT(IN) :: index(:)
[326]	62	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[555]	63	LOGICAL , OPTIONAL, INTENT(IN) :: mask(:)
	64	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	65	INTEGER , OPTIONAL, INTENT(IN) :: n
[779]	66	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition
[666]	67	INTEGER , OPTIONAL, INTENT(IN) :: n_glo
[326]	68	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	69	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[326]	70	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	72	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[581]	73
[326]	74	CALL xios(set_axisgroup_attr_hdl_) &
[817]	75	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	76	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	77
[326]	78	END SUBROUTINE xios(set_axisgroup_attr_hdl)
[581]	79
[326]	80	SUBROUTINE xios(set_axisgroup_attr_hdl_) &
[817]	81	( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ &
	82	, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_ &
	83	, unit_, value_ )
[581]	84
[326]	85	IMPLICIT NONE
	86	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	87	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[666]	88	INTEGER , OPTIONAL, INTENT(IN) :: begin_
[609]	89	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:,:)
[555]	90	INTEGER , OPTIONAL, INTENT(IN) :: data_begin_
	91	INTEGER , OPTIONAL, INTENT(IN) :: data_index_(:)
	92	INTEGER , OPTIONAL, INTENT(IN) :: data_n_
[326]	93	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[817]	94	INTEGER , OPTIONAL, INTENT(IN) :: index_(:)
[326]	95	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[555]	96	LOGICAL , OPTIONAL, INTENT(IN) :: mask_(:)
	97	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	98	INTEGER , OPTIONAL, INTENT(IN) :: n_
[779]	99	INTEGER , OPTIONAL, INTENT(IN) :: n_distributed_partition_
[666]	100	INTEGER , OPTIONAL, INTENT(IN) :: n_glo_
[326]	101	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[415]	102	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
[326]	103	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
	104	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
	105	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
[581]	106
[546]	107	IF (PRESENT(axis_ref_)) THEN
[966]	108	CALL cxios_set_axisgroup_axis_ref &
	109	(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[546]	110	ENDIF
[581]	111
[666]	112	IF (PRESENT(begin_)) THEN
[966]	113	CALL cxios_set_axisgroup_begin &
	114	(axisgroup_hdl%daddr, begin_)
[666]	115	ENDIF
	116
[609]	117	IF (PRESENT(bounds_)) THEN
[966]	118	CALL cxios_set_axisgroup_bounds &
	119	(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	120	ENDIF
	121
[555]	122	IF (PRESENT(data_begin_)) THEN
[966]	123	CALL cxios_set_axisgroup_data_begin &
	124	(axisgroup_hdl%daddr, data_begin_)
[555]	125	ENDIF
[581]	126
[555]	127	IF (PRESENT(data_index_)) THEN
[966]	128	CALL cxios_set_axisgroup_data_index &
	129	(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	130	ENDIF
[581]	131
[555]	132	IF (PRESENT(data_n_)) THEN
[966]	133	CALL cxios_set_axisgroup_data_n &
	134	(axisgroup_hdl%daddr, data_n_)
[555]	135	ENDIF
[581]	136
[326]	137	IF (PRESENT(group_ref_)) THEN
[966]	138	CALL cxios_set_axisgroup_group_ref &
	139	(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]	140	ENDIF
[581]	141
[817]	142	IF (PRESENT(index_)) THEN
[966]	143	CALL cxios_set_axisgroup_index &
	144	(axisgroup_hdl%daddr, index_, SHAPE(index_))
[817]	145	ENDIF
	146
[326]	147	IF (PRESENT(long_name_)) THEN
[966]	148	CALL cxios_set_axisgroup_long_name &
	149	(axisgroup_hdl%daddr, long_name_, len(long_name_))
[326]	150	ENDIF
[581]	151
[555]	152	IF (PRESENT(mask_)) THEN
[674]	153	ALLOCATE(mask__tmp(SIZE(mask_,1)))
[581]	154	mask__tmp = mask_
[966]	155	CALL cxios_set_axisgroup_mask &
	156	(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
[555]	157	ENDIF
[581]	158
[666]	159	IF (PRESENT(n_)) THEN
[966]	160	CALL cxios_set_axisgroup_n &
	161	(axisgroup_hdl%daddr, n_)
[666]	162	ENDIF
	163
[779]	164	IF (PRESENT(n_distributed_partition_)) THEN
[966]	165	CALL cxios_set_axisgroup_n_distributed_partition &
	166	(axisgroup_hdl%daddr, n_distributed_partition_)
[779]	167	ENDIF
	168
[666]	169	IF (PRESENT(n_glo_)) THEN
[966]	170	CALL cxios_set_axisgroup_n_glo &
	171	(axisgroup_hdl%daddr, n_glo_)
[666]	172	ENDIF
	173
[326]	174	IF (PRESENT(name_)) THEN
[966]	175	CALL cxios_set_axisgroup_name &
	176	(axisgroup_hdl%daddr, name_, len(name_))
[326]	177	ENDIF
[581]	178
[415]	179	IF (PRESENT(positive_)) THEN
[966]	180	CALL cxios_set_axisgroup_positive &
	181	(axisgroup_hdl%daddr, positive_, len(positive_))
[415]	182	ENDIF
[581]	183
[326]	184	IF (PRESENT(standard_name_)) THEN
[966]	185	CALL cxios_set_axisgroup_standard_name &
	186	(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]	187	ENDIF
[581]	188
[326]	189	IF (PRESENT(unit_)) THEN
[966]	190	CALL cxios_set_axisgroup_unit &
	191	(axisgroup_hdl%daddr, unit_, len(unit_))
[326]	192	ENDIF
[581]	193
[326]	194	IF (PRESENT(value_)) THEN
[966]	195	CALL cxios_set_axisgroup_value &
	196	(axisgroup_hdl%daddr, value_, SHAPE(value_))
[326]	197	ENDIF
[581]	198
[326]	199	END SUBROUTINE xios(set_axisgroup_attr_hdl_)
[581]	200
[326]	201	SUBROUTINE xios(get_axisgroup_attr) &
[817]	202	( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	203	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	204
[326]	205	IMPLICIT NONE
	206	TYPE(txios(axisgroup)) :: axisgroup_hdl
	207	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
[546]	208	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]	209	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	210	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]	211	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	212	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	213	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[326]	214	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[817]	215	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[326]	216	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	217	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	218	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	219	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	220	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	221	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	222	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	223	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[326]	224	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	225	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	226	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	227
[966]	228	CALL xios(get_axisgroup_handle) &
	229	(axisgroup_id,axisgroup_hdl)
[326]	230	CALL xios(get_axisgroup_attr_hdl_) &
[817]	231	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	232	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	233
[326]	234	END SUBROUTINE xios(get_axisgroup_attr)
[581]	235
[326]	236	SUBROUTINE xios(get_axisgroup_attr_hdl) &
[817]	237	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	238	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	239
[326]	240	IMPLICIT NONE
	241	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	242	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[666]	243	INTEGER , OPTIONAL, INTENT(OUT) :: begin
[609]	244	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:,:)
[555]	245	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin
	246	INTEGER , OPTIONAL, INTENT(OUT) :: data_index(:)
	247	INTEGER , OPTIONAL, INTENT(OUT) :: data_n
[326]	248	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[817]	249	INTEGER , OPTIONAL, INTENT(OUT) :: index(:)
[326]	250	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[555]	251	LOGICAL , OPTIONAL, INTENT(OUT) :: mask(:)
	252	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:)
[666]	253	INTEGER , OPTIONAL, INTENT(OUT) :: n
[779]	254	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition
[666]	255	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo
[326]	256	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	257	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[326]	258	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	259	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	260	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[581]	261
[326]	262	CALL xios(get_axisgroup_attr_hdl_) &
[817]	263	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	264	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	265
[326]	266	END SUBROUTINE xios(get_axisgroup_attr_hdl)
[581]	267
[326]	268	SUBROUTINE xios(get_axisgroup_attr_hdl_) &
[817]	269	( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ &
	270	, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_ &
	271	, unit_, value_ )
[581]	272
[326]	273	IMPLICIT NONE
	274	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	275	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[666]	276	INTEGER , OPTIONAL, INTENT(OUT) :: begin_
[609]	277	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:,:)
[555]	278	INTEGER , OPTIONAL, INTENT(OUT) :: data_begin_
	279	INTEGER , OPTIONAL, INTENT(OUT) :: data_index_(:)
	280	INTEGER , OPTIONAL, INTENT(OUT) :: data_n_
[326]	281	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[817]	282	INTEGER , OPTIONAL, INTENT(OUT) :: index_(:)
[326]	283	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[555]	284	LOGICAL , OPTIONAL, INTENT(OUT) :: mask_(:)
	285	LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:)
[666]	286	INTEGER , OPTIONAL, INTENT(OUT) :: n_
[779]	287	INTEGER , OPTIONAL, INTENT(OUT) :: n_distributed_partition_
[666]	288	INTEGER , OPTIONAL, INTENT(OUT) :: n_glo_
[326]	289	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[415]	290	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
[326]	291	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
	292	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
	293	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
[581]	294
[546]	295	IF (PRESENT(axis_ref_)) THEN
[966]	296	CALL cxios_get_axisgroup_axis_ref &
	297	(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[546]	298	ENDIF
[581]	299
[666]	300	IF (PRESENT(begin_)) THEN
[966]	301	CALL cxios_get_axisgroup_begin &
	302	(axisgroup_hdl%daddr, begin_)
[666]	303	ENDIF
	304
[609]	305	IF (PRESENT(bounds_)) THEN
[966]	306	CALL cxios_get_axisgroup_bounds &
	307	(axisgroup_hdl%daddr, bounds_, SHAPE(bounds_))
[609]	308	ENDIF
	309
[555]	310	IF (PRESENT(data_begin_)) THEN
[966]	311	CALL cxios_get_axisgroup_data_begin &
	312	(axisgroup_hdl%daddr, data_begin_)
[555]	313	ENDIF
[581]	314
[555]	315	IF (PRESENT(data_index_)) THEN
[966]	316	CALL cxios_get_axisgroup_data_index &
	317	(axisgroup_hdl%daddr, data_index_, SHAPE(data_index_))
[555]	318	ENDIF
[581]	319
[555]	320	IF (PRESENT(data_n_)) THEN
[966]	321	CALL cxios_get_axisgroup_data_n &
	322	(axisgroup_hdl%daddr, data_n_)
[555]	323	ENDIF
[581]	324
[326]	325	IF (PRESENT(group_ref_)) THEN
[966]	326	CALL cxios_get_axisgroup_group_ref &
	327	(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]	328	ENDIF
[581]	329
[817]	330	IF (PRESENT(index_)) THEN
[966]	331	CALL cxios_get_axisgroup_index &
	332	(axisgroup_hdl%daddr, index_, SHAPE(index_))
[817]	333	ENDIF
	334
[326]	335	IF (PRESENT(long_name_)) THEN
[966]	336	CALL cxios_get_axisgroup_long_name &
	337	(axisgroup_hdl%daddr, long_name_, len(long_name_))
[326]	338	ENDIF
[581]	339
[555]	340	IF (PRESENT(mask_)) THEN
[674]	341	ALLOCATE(mask__tmp(SIZE(mask_,1)))
[966]	342	CALL cxios_get_axisgroup_mask &
	343	(axisgroup_hdl%daddr, mask__tmp, SHAPE(mask_))
[581]	344	mask_ = mask__tmp
[555]	345	ENDIF
[581]	346
[666]	347	IF (PRESENT(n_)) THEN
[966]	348	CALL cxios_get_axisgroup_n &
	349	(axisgroup_hdl%daddr, n_)
[666]	350	ENDIF
	351
[779]	352	IF (PRESENT(n_distributed_partition_)) THEN
[966]	353	CALL cxios_get_axisgroup_n_distributed_partition &
	354	(axisgroup_hdl%daddr, n_distributed_partition_)
[779]	355	ENDIF
	356
[666]	357	IF (PRESENT(n_glo_)) THEN
[966]	358	CALL cxios_get_axisgroup_n_glo &
	359	(axisgroup_hdl%daddr, n_glo_)
[666]	360	ENDIF
	361
[326]	362	IF (PRESENT(name_)) THEN
[966]	363	CALL cxios_get_axisgroup_name &
	364	(axisgroup_hdl%daddr, name_, len(name_))
[326]	365	ENDIF
[581]	366
[415]	367	IF (PRESENT(positive_)) THEN
[966]	368	CALL cxios_get_axisgroup_positive &
	369	(axisgroup_hdl%daddr, positive_, len(positive_))
[415]	370	ENDIF
[581]	371
[326]	372	IF (PRESENT(standard_name_)) THEN
[966]	373	CALL cxios_get_axisgroup_standard_name &
	374	(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]	375	ENDIF
[581]	376
[326]	377	IF (PRESENT(unit_)) THEN
[966]	378	CALL cxios_get_axisgroup_unit &
	379	(axisgroup_hdl%daddr, unit_, len(unit_))
[326]	380	ENDIF
[581]	381
[326]	382	IF (PRESENT(value_)) THEN
[966]	383	CALL cxios_get_axisgroup_value &
	384	(axisgroup_hdl%daddr, value_, SHAPE(value_))
[326]	385	ENDIF
[581]	386
[326]	387	END SUBROUTINE xios(get_axisgroup_attr_hdl_)
[581]	388
[432]	389	SUBROUTINE xios(is_defined_axisgroup_attr) &
[817]	390	( axisgroup_id, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	391	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	392
[432]	393	IMPLICIT NONE
	394	TYPE(txios(axisgroup)) :: axisgroup_hdl
	395	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
[546]	396	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	397	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]	398	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	399	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	400	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	401	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]	402	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
	403	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
	404	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
	405	LOGICAL(KIND=C_BOOL) :: data_index_tmp
	406	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
	407	LOGICAL(KIND=C_BOOL) :: data_n_tmp
[432]	408	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	409	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[817]	410	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	411	LOGICAL(KIND=C_BOOL) :: index_tmp
[432]	412	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	413	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	414	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	415	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	416	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	417	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	418	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	419	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	420	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	421	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	422	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	423	LOGICAL(KIND=C_BOOL) :: name_tmp
	424	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	425	LOGICAL(KIND=C_BOOL) :: positive_tmp
	426	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	427	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	428	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	429	LOGICAL(KIND=C_BOOL) :: unit_tmp
	430	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	431	LOGICAL(KIND=C_BOOL) :: value_tmp
[581]	432
[966]	433	CALL xios(get_axisgroup_handle) &
	434	(axisgroup_id,axisgroup_hdl)
[432]	435	CALL xios(is_defined_axisgroup_attr_hdl_) &
[817]	436	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	437	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	438
[432]	439	END SUBROUTINE xios(is_defined_axisgroup_attr)
[581]	440
[432]	441	SUBROUTINE xios(is_defined_axisgroup_attr_hdl) &
[817]	442	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	443	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	444
[432]	445	IMPLICIT NONE
	446	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	447	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	448	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[666]	449	LOGICAL, OPTIONAL, INTENT(OUT) :: begin
	450	LOGICAL(KIND=C_BOOL) :: begin_tmp
[609]	451	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	452	LOGICAL(KIND=C_BOOL) :: bounds_tmp
[555]	453	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin
	454	LOGICAL(KIND=C_BOOL) :: data_begin_tmp
	455	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index
	456	LOGICAL(KIND=C_BOOL) :: data_index_tmp
	457	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n
	458	LOGICAL(KIND=C_BOOL) :: data_n_tmp
[432]	459	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	460	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[817]	461	LOGICAL, OPTIONAL, INTENT(OUT) :: index
	462	LOGICAL(KIND=C_BOOL) :: index_tmp
[432]	463	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	464	LOGICAL(KIND=C_BOOL) :: long_name_tmp
[555]	465	LOGICAL, OPTIONAL, INTENT(OUT) :: mask
	466	LOGICAL(KIND=C_BOOL) :: mask_tmp
[666]	467	LOGICAL, OPTIONAL, INTENT(OUT) :: n
	468	LOGICAL(KIND=C_BOOL) :: n_tmp
[779]	469	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition
	470	LOGICAL(KIND=C_BOOL) :: n_distributed_partition_tmp
[666]	471	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo
	472	LOGICAL(KIND=C_BOOL) :: n_glo_tmp
[432]	473	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	474	LOGICAL(KIND=C_BOOL) :: name_tmp
	475	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	476	LOGICAL(KIND=C_BOOL) :: positive_tmp
	477	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	478	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	479	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	480	LOGICAL(KIND=C_BOOL) :: unit_tmp
	481	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	482	LOGICAL(KIND=C_BOOL) :: value_tmp
[581]	483
[432]	484	CALL xios(is_defined_axisgroup_attr_hdl_) &
[817]	485	( axisgroup_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, group_ref, index, long_name &
[779]	486	, mask, n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value )
[581]	487
[432]	488	END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
[581]	489
[432]	490	SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) &
[817]	491	( axisgroup_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, group_ref_, index_ &
	492	, long_name_, mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_ &
	493	, unit_, value_ )
[581]	494
[432]	495	IMPLICIT NONE
	496	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	497	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	498	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[666]	499	LOGICAL, OPTIONAL, INTENT(OUT) :: begin_
	500	LOGICAL(KIND=C_BOOL) :: begin__tmp
[609]	501	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
	502	LOGICAL(KIND=C_BOOL) :: bounds__tmp
[555]	503	LOGICAL, OPTIONAL, INTENT(OUT) :: data_begin_
	504	LOGICAL(KIND=C_BOOL) :: data_begin__tmp
	505	LOGICAL, OPTIONAL, INTENT(OUT) :: data_index_
	506	LOGICAL(KIND=C_BOOL) :: data_index__tmp
	507	LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_
	508	LOGICAL(KIND=C_BOOL) :: data_n__tmp
[432]	509	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	510	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[817]	511	LOGICAL, OPTIONAL, INTENT(OUT) :: index_
	512	LOGICAL(KIND=C_BOOL) :: index__tmp
[432]	513	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	514	LOGICAL(KIND=C_BOOL) :: long_name__tmp
[555]	515	LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
	516	LOGICAL(KIND=C_BOOL) :: mask__tmp
[666]	517	LOGICAL, OPTIONAL, INTENT(OUT) :: n_
	518	LOGICAL(KIND=C_BOOL) :: n__tmp
[779]	519	LOGICAL, OPTIONAL, INTENT(OUT) :: n_distributed_partition_
	520	LOGICAL(KIND=C_BOOL) :: n_distributed_partition__tmp
[666]	521	LOGICAL, OPTIONAL, INTENT(OUT) :: n_glo_
	522	LOGICAL(KIND=C_BOOL) :: n_glo__tmp
[432]	523	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	524	LOGICAL(KIND=C_BOOL) :: name__tmp
	525	LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
	526	LOGICAL(KIND=C_BOOL) :: positive__tmp
	527	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	528	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
	529	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	530	LOGICAL(KIND=C_BOOL) :: unit__tmp
	531	LOGICAL, OPTIONAL, INTENT(OUT) :: value_
	532	LOGICAL(KIND=C_BOOL) :: value__tmp
[581]	533
[546]	534	IF (PRESENT(axis_ref_)) THEN
[966]	535	axis_ref__tmp = cxios_is_defined_axisgroup_axis_ref &
	536	(axisgroup_hdl%daddr)
[581]	537	axis_ref_ = axis_ref__tmp
[546]	538	ENDIF
[581]	539
[666]	540	IF (PRESENT(begin_)) THEN
[966]	541	begin__tmp = cxios_is_defined_axisgroup_begin &
	542	(axisgroup_hdl%daddr)
[666]	543	begin_ = begin__tmp
	544	ENDIF
	545
[609]	546	IF (PRESENT(bounds_)) THEN
[966]	547	bounds__tmp = cxios_is_defined_axisgroup_bounds &
	548	(axisgroup_hdl%daddr)
[609]	549	bounds_ = bounds__tmp
	550	ENDIF
	551
[555]	552	IF (PRESENT(data_begin_)) THEN
[966]	553	data_begin__tmp = cxios_is_defined_axisgroup_data_begin &
	554	(axisgroup_hdl%daddr)
[581]	555	data_begin_ = data_begin__tmp
[555]	556	ENDIF
[581]	557
[555]	558	IF (PRESENT(data_index_)) THEN
[966]	559	data_index__tmp = cxios_is_defined_axisgroup_data_index &
	560	(axisgroup_hdl%daddr)
[581]	561	data_index_ = data_index__tmp
[555]	562	ENDIF
[581]	563
[555]	564	IF (PRESENT(data_n_)) THEN
[966]	565	data_n__tmp = cxios_is_defined_axisgroup_data_n &
	566	(axisgroup_hdl%daddr)
[581]	567	data_n_ = data_n__tmp
[555]	568	ENDIF
[581]	569
[432]	570	IF (PRESENT(group_ref_)) THEN
[966]	571	group_ref__tmp = cxios_is_defined_axisgroup_group_ref &
	572	(axisgroup_hdl%daddr)
[581]	573	group_ref_ = group_ref__tmp
[432]	574	ENDIF
[581]	575
[817]	576	IF (PRESENT(index_)) THEN
[966]	577	index__tmp = cxios_is_defined_axisgroup_index &
	578	(axisgroup_hdl%daddr)
[817]	579	index_ = index__tmp
	580	ENDIF
	581
[432]	582	IF (PRESENT(long_name_)) THEN
[966]	583	long_name__tmp = cxios_is_defined_axisgroup_long_name &
	584	(axisgroup_hdl%daddr)
[581]	585	long_name_ = long_name__tmp
[432]	586	ENDIF
[581]	587
[555]	588	IF (PRESENT(mask_)) THEN
[966]	589	mask__tmp = cxios_is_defined_axisgroup_mask &
	590	(axisgroup_hdl%daddr)
[581]	591	mask_ = mask__tmp
[555]	592	ENDIF
[581]	593
[666]	594	IF (PRESENT(n_)) THEN
[966]	595	n__tmp = cxios_is_defined_axisgroup_n &
	596	(axisgroup_hdl%daddr)
[666]	597	n_ = n__tmp
	598	ENDIF
	599
[779]	600	IF (PRESENT(n_distributed_partition_)) THEN
[966]	601	n_distributed_partition__tmp = cxios_is_defined_axisgroup_n_distributed_partition &
	602	(axisgroup_hdl%daddr)
[779]	603	n_distributed_partition_ = n_distributed_partition__tmp
	604	ENDIF
	605
[666]	606	IF (PRESENT(n_glo_)) THEN
[966]	607	n_glo__tmp = cxios_is_defined_axisgroup_n_glo &
	608	(axisgroup_hdl%daddr)
[666]	609	n_glo_ = n_glo__tmp
	610	ENDIF
	611
[432]	612	IF (PRESENT(name_)) THEN
[966]	613	name__tmp = cxios_is_defined_axisgroup_name &
	614	(axisgroup_hdl%daddr)
[581]	615	name_ = name__tmp
[432]	616	ENDIF
[581]	617
[432]	618	IF (PRESENT(positive_)) THEN
[966]	619	positive__tmp = cxios_is_defined_axisgroup_positive &
	620	(axisgroup_hdl%daddr)
[581]	621	positive_ = positive__tmp
[432]	622	ENDIF
[581]	623
[432]	624	IF (PRESENT(standard_name_)) THEN
[966]	625	standard_name__tmp = cxios_is_defined_axisgroup_standard_name &
	626	(axisgroup_hdl%daddr)
[581]	627	standard_name_ = standard_name__tmp
[432]	628	ENDIF
[581]	629
[432]	630	IF (PRESENT(unit_)) THEN
[966]	631	unit__tmp = cxios_is_defined_axisgroup_unit &
	632	(axisgroup_hdl%daddr)
[581]	633	unit_ = unit__tmp
[432]	634	ENDIF
[581]	635
[432]	636	IF (PRESENT(value_)) THEN
[966]	637	value__tmp = cxios_is_defined_axisgroup_value &
	638	(axisgroup_hdl%daddr)
[581]	639	value_ = value__tmp
[432]	640	ENDIF
[581]	641
[432]	642	END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
[581]	643
[326]	644	END MODULE iaxisgroup_attr

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

Context Navigation

source: XIOS/trunk/src/interface/fortran_attr/iaxisgroup_attr.F90 @ 1005

Download in other formats: