Context Navigation

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

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

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

Download in other formats: