Context Navigation

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

Last change on this file since 674 was 674, checked in by rlacroix, 9 years ago

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

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

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

Download in other formats: