Context Navigation

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

Last change on this file since 551 was 546, checked in by rlacroix, 10 years ago
Update the Fortran interface after r540.
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: 17.2 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
	10
	11	CONTAINS
	12
	13	SUBROUTINE xios(set_axisgroup_attr) &
[546]	14	( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	15	, zoom_begin, zoom_end, zoom_size )
[326]	16
	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
[326]	21	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
	22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	23	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	24	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[326]	25	INTEGER , OPTIONAL, INTENT(IN) :: size
	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	28	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[369]	29	INTEGER , OPTIONAL, INTENT(IN) :: zoom_begin
	30	INTEGER , OPTIONAL, INTENT(IN) :: zoom_end
	31	INTEGER , OPTIONAL, INTENT(IN) :: zoom_size
[326]	32
	33	CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
	34	CALL xios(set_axisgroup_attr_hdl_) &
[546]	35	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	36	, zoom_begin, zoom_end, zoom_size )
[326]	37
	38	END SUBROUTINE xios(set_axisgroup_attr)
	39
	40	SUBROUTINE xios(set_axisgroup_attr_hdl) &
[546]	41	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	42	, zoom_begin, zoom_end, zoom_size )
[326]	43
	44	IMPLICIT NONE
	45	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	46	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[326]	47	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
	48	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[415]	50	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[326]	51	INTEGER , OPTIONAL, INTENT(IN) :: size
	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	54	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value(:)
[369]	55	INTEGER , OPTIONAL, INTENT(IN) :: zoom_begin
	56	INTEGER , OPTIONAL, INTENT(IN) :: zoom_end
	57	INTEGER , OPTIONAL, INTENT(IN) :: zoom_size
[326]	58
	59	CALL xios(set_axisgroup_attr_hdl_) &
[546]	60	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	61	, zoom_begin, zoom_end, zoom_size )
[326]	62
	63	END SUBROUTINE xios(set_axisgroup_attr_hdl)
	64
	65	SUBROUTINE xios(set_axisgroup_attr_hdl_) &
[546]	66	( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_ &
	67	, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
[326]	68
	69	IMPLICIT NONE
	70	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	71	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[326]	72	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
	73	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
	74	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[415]	75	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
[326]	76	INTEGER , OPTIONAL, INTENT(IN) :: size_
	77	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
	78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
	79	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_(:)
[369]	80	INTEGER , OPTIONAL, INTENT(IN) :: zoom_begin_
	81	INTEGER , OPTIONAL, INTENT(IN) :: zoom_end_
	82	INTEGER , OPTIONAL, INTENT(IN) :: zoom_size_
[326]	83
[546]	84	IF (PRESENT(axis_ref_)) THEN
	85	CALL cxios_set_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
	86	ENDIF
	87
[326]	88	IF (PRESENT(group_ref_)) THEN
	89	CALL cxios_set_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
	90	ENDIF
	91
	92	IF (PRESENT(long_name_)) THEN
	93	CALL cxios_set_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
	94	ENDIF
	95
	96	IF (PRESENT(name_)) THEN
	97	CALL cxios_set_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
	98	ENDIF
	99
[415]	100	IF (PRESENT(positive_)) THEN
	101	CALL cxios_set_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
	102	ENDIF
	103
[326]	104	IF (PRESENT(size_)) THEN
	105	CALL cxios_set_axisgroup_size(axisgroup_hdl%daddr, size_)
	106	ENDIF
	107
	108	IF (PRESENT(standard_name_)) THEN
	109	CALL cxios_set_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
	110	ENDIF
	111
	112	IF (PRESENT(unit_)) THEN
	113	CALL cxios_set_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
	114	ENDIF
	115
	116	IF (PRESENT(value_)) THEN
	117	CALL cxios_set_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
	118	ENDIF
	119
[369]	120	IF (PRESENT(zoom_begin_)) THEN
	121	CALL cxios_set_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
	122	ENDIF
[326]	123
[369]	124	IF (PRESENT(zoom_end_)) THEN
	125	CALL cxios_set_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
	126	ENDIF
	127
	128	IF (PRESENT(zoom_size_)) THEN
	129	CALL cxios_set_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
	130	ENDIF
	131
	132
[326]	133
	134	END SUBROUTINE xios(set_axisgroup_attr_hdl_)
	135
	136	SUBROUTINE xios(get_axisgroup_attr) &
[546]	137	( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	138	, zoom_begin, zoom_end, zoom_size )
[326]	139
	140	IMPLICIT NONE
	141	TYPE(txios(axisgroup)) :: axisgroup_hdl
	142	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
[546]	143	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[326]	144	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
	145	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	146	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	147	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[326]	148	INTEGER , OPTIONAL, INTENT(OUT) :: size
	149	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	150	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	151	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[369]	152	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_begin
	153	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end
	154	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size
[326]	155
	156	CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
	157	CALL xios(get_axisgroup_attr_hdl_) &
[546]	158	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	159	, zoom_begin, zoom_end, zoom_size )
[326]	160
	161	END SUBROUTINE xios(get_axisgroup_attr)
	162
	163	SUBROUTINE xios(get_axisgroup_attr_hdl) &
[546]	164	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	165	, zoom_begin, zoom_end, zoom_size )
[326]	166
	167	IMPLICIT NONE
	168	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	169	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[326]	170	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
	171	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	172	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[415]	173	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[326]	174	INTEGER , OPTIONAL, INTENT(OUT) :: size
	175	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	176	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	177	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value(:)
[369]	178	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_begin
	179	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end
	180	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size
[326]	181
	182	CALL xios(get_axisgroup_attr_hdl_) &
[546]	183	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	184	, zoom_begin, zoom_end, zoom_size )
[326]	185
	186	END SUBROUTINE xios(get_axisgroup_attr_hdl)
	187
	188	SUBROUTINE xios(get_axisgroup_attr_hdl_) &
[546]	189	( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_ &
	190	, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
[326]	191
	192	IMPLICIT NONE
	193	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	194	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[326]	195	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
	196	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	197	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[415]	198	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
[326]	199	INTEGER , OPTIONAL, INTENT(OUT) :: size_
	200	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
	201	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
	202	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_(:)
[369]	203	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_begin_
	204	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_end_
	205	INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size_
[326]	206
[546]	207	IF (PRESENT(axis_ref_)) THEN
	208	CALL cxios_get_axisgroup_axis_ref(axisgroup_hdl%daddr, axis_ref_, len(axis_ref_))
	209	ENDIF
	210
[326]	211	IF (PRESENT(group_ref_)) THEN
	212	CALL cxios_get_axisgroup_group_ref(axisgroup_hdl%daddr, group_ref_, len(group_ref_))
	213	ENDIF
	214
	215	IF (PRESENT(long_name_)) THEN
	216	CALL cxios_get_axisgroup_long_name(axisgroup_hdl%daddr, long_name_, len(long_name_))
	217	ENDIF
	218
	219	IF (PRESENT(name_)) THEN
	220	CALL cxios_get_axisgroup_name(axisgroup_hdl%daddr, name_, len(name_))
	221	ENDIF
	222
[415]	223	IF (PRESENT(positive_)) THEN
	224	CALL cxios_get_axisgroup_positive(axisgroup_hdl%daddr, positive_, len(positive_))
	225	ENDIF
	226
[326]	227	IF (PRESENT(size_)) THEN
	228	CALL cxios_get_axisgroup_size(axisgroup_hdl%daddr, size_)
	229	ENDIF
	230
	231	IF (PRESENT(standard_name_)) THEN
	232	CALL cxios_get_axisgroup_standard_name(axisgroup_hdl%daddr, standard_name_, len(standard_name_))
	233	ENDIF
	234
	235	IF (PRESENT(unit_)) THEN
	236	CALL cxios_get_axisgroup_unit(axisgroup_hdl%daddr, unit_, len(unit_))
	237	ENDIF
	238
	239	IF (PRESENT(value_)) THEN
	240	CALL cxios_get_axisgroup_value(axisgroup_hdl%daddr, value_,size(value_,1))
	241	ENDIF
	242
[369]	243	IF (PRESENT(zoom_begin_)) THEN
	244	CALL cxios_get_axisgroup_zoom_begin(axisgroup_hdl%daddr, zoom_begin_)
	245	ENDIF
[326]	246
[369]	247	IF (PRESENT(zoom_end_)) THEN
	248	CALL cxios_get_axisgroup_zoom_end(axisgroup_hdl%daddr, zoom_end_)
	249	ENDIF
	250
	251	IF (PRESENT(zoom_size_)) THEN
	252	CALL cxios_get_axisgroup_zoom_size(axisgroup_hdl%daddr, zoom_size_)
	253	ENDIF
	254
	255
[326]	256
	257	END SUBROUTINE xios(get_axisgroup_attr_hdl_)
	258
[432]	259	SUBROUTINE xios(is_defined_axisgroup_attr) &
[546]	260	( axisgroup_id, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	261	, zoom_begin, zoom_end, zoom_size )
[432]	262
	263	IMPLICIT NONE
	264	TYPE(txios(axisgroup)) :: axisgroup_hdl
	265	CHARACTER(LEN=*), INTENT(IN) ::axisgroup_id
[546]	266	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	267	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[432]	268	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	269	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
	270	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	271	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	272	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	273	LOGICAL(KIND=C_BOOL) :: name_tmp
	274	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	275	LOGICAL(KIND=C_BOOL) :: positive_tmp
	276	LOGICAL, OPTIONAL, INTENT(OUT) :: size
	277	LOGICAL(KIND=C_BOOL) :: size_tmp
	278	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	279	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	280	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	281	LOGICAL(KIND=C_BOOL) :: unit_tmp
	282	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	283	LOGICAL(KIND=C_BOOL) :: value_tmp
	284	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
	285	LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
	286	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
	287	LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
	288	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
	289	LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
	290
	291	CALL xios(get_axisgroup_handle)(axisgroup_id,axisgroup_hdl)
	292	CALL xios(is_defined_axisgroup_attr_hdl_) &
[546]	293	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	294	, zoom_begin, zoom_end, zoom_size )
[432]	295
	296	END SUBROUTINE xios(is_defined_axisgroup_attr)
	297
	298	SUBROUTINE xios(is_defined_axisgroup_attr_hdl) &
[546]	299	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	300	, zoom_begin, zoom_end, zoom_size )
[432]	301
	302	IMPLICIT NONE
	303	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	304	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
	305	LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[432]	306	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	307	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
	308	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	309	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	310	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	311	LOGICAL(KIND=C_BOOL) :: name_tmp
	312	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	313	LOGICAL(KIND=C_BOOL) :: positive_tmp
	314	LOGICAL, OPTIONAL, INTENT(OUT) :: size
	315	LOGICAL(KIND=C_BOOL) :: size_tmp
	316	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	317	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	318	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	319	LOGICAL(KIND=C_BOOL) :: unit_tmp
	320	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	321	LOGICAL(KIND=C_BOOL) :: value_tmp
	322	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin
	323	LOGICAL(KIND=C_BOOL) :: zoom_begin_tmp
	324	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end
	325	LOGICAL(KIND=C_BOOL) :: zoom_end_tmp
	326	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size
	327	LOGICAL(KIND=C_BOOL) :: zoom_size_tmp
	328
	329	CALL xios(is_defined_axisgroup_attr_hdl_) &
[546]	330	( axisgroup_hdl, axis_ref, group_ref, long_name, name, positive, size, standard_name, unit, value &
	331	, zoom_begin, zoom_end, zoom_size )
[432]	332
	333	END SUBROUTINE xios(is_defined_axisgroup_attr_hdl)
	334
	335	SUBROUTINE xios(is_defined_axisgroup_attr_hdl_) &
[546]	336	( axisgroup_hdl, axis_ref_, group_ref_, long_name_, name_, positive_, size_, standard_name_ &
	337	, unit_, value_, zoom_begin_, zoom_end_, zoom_size_ )
[432]	338
	339	IMPLICIT NONE
	340	TYPE(txios(axisgroup)) , INTENT(IN) :: axisgroup_hdl
[546]	341	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
	342	LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[432]	343	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	344	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
	345	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	346	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	347	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	348	LOGICAL(KIND=C_BOOL) :: name__tmp
	349	LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
	350	LOGICAL(KIND=C_BOOL) :: positive__tmp
	351	LOGICAL, OPTIONAL, INTENT(OUT) :: size_
	352	LOGICAL(KIND=C_BOOL) :: size__tmp
	353	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
	354	LOGICAL(KIND=C_BOOL) :: standard_name__tmp
	355	LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
	356	LOGICAL(KIND=C_BOOL) :: unit__tmp
	357	LOGICAL, OPTIONAL, INTENT(OUT) :: value_
	358	LOGICAL(KIND=C_BOOL) :: value__tmp
	359	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_begin_
	360	LOGICAL(KIND=C_BOOL) :: zoom_begin__tmp
	361	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_end_
	362	LOGICAL(KIND=C_BOOL) :: zoom_end__tmp
	363	LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_size_
	364	LOGICAL(KIND=C_BOOL) :: zoom_size__tmp
	365
[546]	366	IF (PRESENT(axis_ref_)) THEN
	367	axis_ref__tmp=cxios_is_defined_axisgroup_axis_ref(axisgroup_hdl%daddr)
	368	axis_ref_=axis_ref__tmp
	369	ENDIF
	370
[432]	371	IF (PRESENT(group_ref_)) THEN
	372	group_ref__tmp=cxios_is_defined_axisgroup_group_ref(axisgroup_hdl%daddr)
	373	group_ref_=group_ref__tmp
	374	ENDIF
	375
	376	IF (PRESENT(long_name_)) THEN
	377	long_name__tmp=cxios_is_defined_axisgroup_long_name(axisgroup_hdl%daddr)
	378	long_name_=long_name__tmp
	379	ENDIF
	380
	381	IF (PRESENT(name_)) THEN
	382	name__tmp=cxios_is_defined_axisgroup_name(axisgroup_hdl%daddr)
	383	name_=name__tmp
	384	ENDIF
	385
	386	IF (PRESENT(positive_)) THEN
	387	positive__tmp=cxios_is_defined_axisgroup_positive(axisgroup_hdl%daddr)
	388	positive_=positive__tmp
	389	ENDIF
	390
	391	IF (PRESENT(size_)) THEN
	392	size__tmp=cxios_is_defined_axisgroup_size(axisgroup_hdl%daddr)
	393	size_=size__tmp
	394	ENDIF
	395
	396	IF (PRESENT(standard_name_)) THEN
	397	standard_name__tmp=cxios_is_defined_axisgroup_standard_name(axisgroup_hdl%daddr)
	398	standard_name_=standard_name__tmp
	399	ENDIF
	400
	401	IF (PRESENT(unit_)) THEN
	402	unit__tmp=cxios_is_defined_axisgroup_unit(axisgroup_hdl%daddr)
	403	unit_=unit__tmp
	404	ENDIF
	405
	406	IF (PRESENT(value_)) THEN
	407	value__tmp=cxios_is_defined_axisgroup_value(axisgroup_hdl%daddr)
	408	value_=value__tmp
	409	ENDIF
	410
	411	IF (PRESENT(zoom_begin_)) THEN
	412	zoom_begin__tmp=cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl%daddr)
	413	zoom_begin_=zoom_begin__tmp
	414	ENDIF
	415
	416	IF (PRESENT(zoom_end_)) THEN
	417	zoom_end__tmp=cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl%daddr)
	418	zoom_end_=zoom_end__tmp
	419	ENDIF
	420
	421	IF (PRESENT(zoom_size_)) THEN
	422	zoom_size__tmp=cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl%daddr)
	423	zoom_size_=zoom_size__tmp
	424	ENDIF
	425
	426
	427
	428	END SUBROUTINE xios(is_defined_axisgroup_attr_hdl_)
	429
[326]	430	END MODULE iaxisgroup_attr

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

Download in other formats: