Context Navigation

source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/iscalargroup_attr.F90 @ 1780

Last change on this file since 1780 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

File size: 20.1 KB

Rev	Line
[891]	1	! * ************************************************************************** *
	2	! * Interface auto generated - do not modify *
	3	! * ************************************************************************** *
	4	#include "xios_fortran_prefix.hpp"
	5
	6	MODULE iscalargroup_attr
	7	USE, INTRINSIC :: ISO_C_BINDING
	8	USE iscalar
	9	USE scalargroup_interface_attr
	10
	11	CONTAINS
	12
	13	SUBROUTINE xios(set_scalargroup_attr) &
[1492]	14	( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	15	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	16
	17	IMPLICIT NONE
	18	TYPE(txios(scalargroup)) :: scalargroup_hdl
	19	CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
[1492]	20	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
	21	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:)
	22	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
	23	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[891]	24	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[1492]	25	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label
[891]	26	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	27	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[1492]	28	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1158]	29	INTEGER , OPTIONAL, INTENT(IN) :: prec
[891]	30	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
	31	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	32	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	33	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
	34
[966]	35	CALL xios(get_scalargroup_handle) &
	36	(scalargroup_id,scalargroup_hdl)
[891]	37	CALL xios(set_scalargroup_attr_hdl_) &
[1492]	38	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	39	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	40
	41	END SUBROUTINE xios(set_scalargroup_attr)
	42
	43	SUBROUTINE xios(set_scalargroup_attr_hdl) &
[1492]	44	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	45	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	46
	47	IMPLICIT NONE
	48	TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
[1492]	49	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type
	50	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds(:)
	51	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name
	52	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[891]	53	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[1492]	54	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label
[891]	55	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
	56	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
[1492]	57	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive
[1158]	58	INTEGER , OPTIONAL, INTENT(IN) :: prec
[891]	59	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
	60	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
	61	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
	62	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value
	63
	64	CALL xios(set_scalargroup_attr_hdl_) &
[1492]	65	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	66	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	67
	68	END SUBROUTINE xios(set_scalargroup_attr_hdl)
	69
	70	SUBROUTINE xios(set_scalargroup_attr_hdl_) &
[1492]	71	( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ &
	72	, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
[891]	73
	74	IMPLICIT NONE
	75	TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
[1492]	76	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_type_
	77	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_(:)
	78	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_name_
	79	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[891]	80	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[1492]	81	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_
[891]	82	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
	83	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
[1492]	84	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_
[1158]	85	INTEGER , OPTIONAL, INTENT(IN) :: prec_
[891]	86	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
	87	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
	88	CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
	89	REAL (KIND=8) , OPTIONAL, INTENT(IN) :: value_
	90
[1492]	91	IF (PRESENT(axis_type_)) THEN
	92	CALL cxios_set_scalargroup_axis_type &
	93	(scalargroup_hdl%daddr, axis_type_, len(axis_type_))
	94	ENDIF
	95
	96	IF (PRESENT(bounds_)) THEN
	97	CALL cxios_set_scalargroup_bounds &
	98	(scalargroup_hdl%daddr, bounds_, SHAPE(bounds_))
	99	ENDIF
	100
	101	IF (PRESENT(bounds_name_)) THEN
	102	CALL cxios_set_scalargroup_bounds_name &
	103	(scalargroup_hdl%daddr, bounds_name_, len(bounds_name_))
	104	ENDIF
	105
	106	IF (PRESENT(comment_)) THEN
	107	CALL cxios_set_scalargroup_comment &
	108	(scalargroup_hdl%daddr, comment_, len(comment_))
	109	ENDIF
	110
[891]	111	IF (PRESENT(group_ref_)) THEN
[966]	112	CALL cxios_set_scalargroup_group_ref &
	113	(scalargroup_hdl%daddr, group_ref_, len(group_ref_))
[891]	114	ENDIF
	115
[1492]	116	IF (PRESENT(label_)) THEN
	117	CALL cxios_set_scalargroup_label &
	118	(scalargroup_hdl%daddr, label_, len(label_))
	119	ENDIF
	120
[891]	121	IF (PRESENT(long_name_)) THEN
[966]	122	CALL cxios_set_scalargroup_long_name &
	123	(scalargroup_hdl%daddr, long_name_, len(long_name_))
[891]	124	ENDIF
	125
	126	IF (PRESENT(name_)) THEN
[966]	127	CALL cxios_set_scalargroup_name &
	128	(scalargroup_hdl%daddr, name_, len(name_))
[891]	129	ENDIF
	130
[1492]	131	IF (PRESENT(positive_)) THEN
	132	CALL cxios_set_scalargroup_positive &
	133	(scalargroup_hdl%daddr, positive_, len(positive_))
	134	ENDIF
	135
[1158]	136	IF (PRESENT(prec_)) THEN
	137	CALL cxios_set_scalargroup_prec &
	138	(scalargroup_hdl%daddr, prec_)
	139	ENDIF
	140
[891]	141	IF (PRESENT(scalar_ref_)) THEN
[966]	142	CALL cxios_set_scalargroup_scalar_ref &
	143	(scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]	144	ENDIF
	145
	146	IF (PRESENT(standard_name_)) THEN
[966]	147	CALL cxios_set_scalargroup_standard_name &
	148	(scalargroup_hdl%daddr, standard_name_, len(standard_name_))
[891]	149	ENDIF
	150
	151	IF (PRESENT(unit_)) THEN
[966]	152	CALL cxios_set_scalargroup_unit &
	153	(scalargroup_hdl%daddr, unit_, len(unit_))
[891]	154	ENDIF
	155
	156	IF (PRESENT(value_)) THEN
[966]	157	CALL cxios_set_scalargroup_value &
	158	(scalargroup_hdl%daddr, value_)
[891]	159	ENDIF
	160
	161	END SUBROUTINE xios(set_scalargroup_attr_hdl_)
	162
	163	SUBROUTINE xios(get_scalargroup_attr) &
[1492]	164	( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	165	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	166
	167	IMPLICIT NONE
	168	TYPE(txios(scalargroup)) :: scalargroup_hdl
	169	CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
[1492]	170	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
	171	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
	172	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
	173	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[891]	174	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[1492]	175	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
[891]	176	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	177	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[1492]	178	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1158]	179	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[891]	180	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
	181	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	182	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	183	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
	184
[966]	185	CALL xios(get_scalargroup_handle) &
	186	(scalargroup_id,scalargroup_hdl)
[891]	187	CALL xios(get_scalargroup_attr_hdl_) &
[1492]	188	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	189	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	190
	191	END SUBROUTINE xios(get_scalargroup_attr)
	192
	193	SUBROUTINE xios(get_scalargroup_attr_hdl) &
[1492]	194	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	195	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	196
	197	IMPLICIT NONE
	198	TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
[1492]	199	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type
	200	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds(:)
	201	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name
	202	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[891]	203	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[1492]	204	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label
[891]	205	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
	206	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
[1492]	207	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive
[1158]	208	INTEGER , OPTIONAL, INTENT(OUT) :: prec
[891]	209	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
	210	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
	211	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
	212	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value
	213
	214	CALL xios(get_scalargroup_attr_hdl_) &
[1492]	215	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	216	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	217
	218	END SUBROUTINE xios(get_scalargroup_attr_hdl)
	219
	220	SUBROUTINE xios(get_scalargroup_attr_hdl_) &
[1492]	221	( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ &
	222	, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
[891]	223
	224	IMPLICIT NONE
	225	TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
[1492]	226	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_type_
	227	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_(:)
	228	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_name_
	229	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[891]	230	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[1492]	231	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_
[891]	232	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
	233	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
[1492]	234	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_
[1158]	235	INTEGER , OPTIONAL, INTENT(OUT) :: prec_
[891]	236	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
	237	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
	238	CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
	239	REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: value_
	240
[1492]	241	IF (PRESENT(axis_type_)) THEN
	242	CALL cxios_get_scalargroup_axis_type &
	243	(scalargroup_hdl%daddr, axis_type_, len(axis_type_))
	244	ENDIF
	245
	246	IF (PRESENT(bounds_)) THEN
	247	CALL cxios_get_scalargroup_bounds &
	248	(scalargroup_hdl%daddr, bounds_, SHAPE(bounds_))
	249	ENDIF
	250
	251	IF (PRESENT(bounds_name_)) THEN
	252	CALL cxios_get_scalargroup_bounds_name &
	253	(scalargroup_hdl%daddr, bounds_name_, len(bounds_name_))
	254	ENDIF
	255
	256	IF (PRESENT(comment_)) THEN
	257	CALL cxios_get_scalargroup_comment &
	258	(scalargroup_hdl%daddr, comment_, len(comment_))
	259	ENDIF
	260
[891]	261	IF (PRESENT(group_ref_)) THEN
[966]	262	CALL cxios_get_scalargroup_group_ref &
	263	(scalargroup_hdl%daddr, group_ref_, len(group_ref_))
[891]	264	ENDIF
	265
[1492]	266	IF (PRESENT(label_)) THEN
	267	CALL cxios_get_scalargroup_label &
	268	(scalargroup_hdl%daddr, label_, len(label_))
	269	ENDIF
	270
[891]	271	IF (PRESENT(long_name_)) THEN
[966]	272	CALL cxios_get_scalargroup_long_name &
	273	(scalargroup_hdl%daddr, long_name_, len(long_name_))
[891]	274	ENDIF
	275
	276	IF (PRESENT(name_)) THEN
[966]	277	CALL cxios_get_scalargroup_name &
	278	(scalargroup_hdl%daddr, name_, len(name_))
[891]	279	ENDIF
	280
[1492]	281	IF (PRESENT(positive_)) THEN
	282	CALL cxios_get_scalargroup_positive &
	283	(scalargroup_hdl%daddr, positive_, len(positive_))
	284	ENDIF
	285
[1158]	286	IF (PRESENT(prec_)) THEN
	287	CALL cxios_get_scalargroup_prec &
	288	(scalargroup_hdl%daddr, prec_)
	289	ENDIF
	290
[891]	291	IF (PRESENT(scalar_ref_)) THEN
[966]	292	CALL cxios_get_scalargroup_scalar_ref &
	293	(scalargroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]	294	ENDIF
	295
	296	IF (PRESENT(standard_name_)) THEN
[966]	297	CALL cxios_get_scalargroup_standard_name &
	298	(scalargroup_hdl%daddr, standard_name_, len(standard_name_))
[891]	299	ENDIF
	300
	301	IF (PRESENT(unit_)) THEN
[966]	302	CALL cxios_get_scalargroup_unit &
	303	(scalargroup_hdl%daddr, unit_, len(unit_))
[891]	304	ENDIF
	305
	306	IF (PRESENT(value_)) THEN
[966]	307	CALL cxios_get_scalargroup_value &
	308	(scalargroup_hdl%daddr, value_)
[891]	309	ENDIF
	310
	311	END SUBROUTINE xios(get_scalargroup_attr_hdl_)
	312
	313	SUBROUTINE xios(is_defined_scalargroup_attr) &
[1492]	314	( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	315	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	316
	317	IMPLICIT NONE
	318	TYPE(txios(scalargroup)) :: scalargroup_hdl
	319	CHARACTER(LEN=*), INTENT(IN) ::scalargroup_id
[1492]	320	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
	321	LOGICAL(KIND=C_BOOL) :: axis_type_tmp
	322	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	323	LOGICAL(KIND=C_BOOL) :: bounds_tmp
	324	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
	325	LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
	326	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	327	LOGICAL(KIND=C_BOOL) :: comment_tmp
[891]	328	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	329	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[1492]	330	LOGICAL, OPTIONAL, INTENT(OUT) :: label
	331	LOGICAL(KIND=C_BOOL) :: label_tmp
[891]	332	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	333	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	334	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	335	LOGICAL(KIND=C_BOOL) :: name_tmp
[1492]	336	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	337	LOGICAL(KIND=C_BOOL) :: positive_tmp
[1158]	338	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	339	LOGICAL(KIND=C_BOOL) :: prec_tmp
[891]	340	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
	341	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
	342	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	343	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	344	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	345	LOGICAL(KIND=C_BOOL) :: unit_tmp
	346	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	347	LOGICAL(KIND=C_BOOL) :: value_tmp
	348
[966]	349	CALL xios(get_scalargroup_handle) &
	350	(scalargroup_id,scalargroup_hdl)
[891]	351	CALL xios(is_defined_scalargroup_attr_hdl_) &
[1492]	352	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	353	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	354
	355	END SUBROUTINE xios(is_defined_scalargroup_attr)
	356
	357	SUBROUTINE xios(is_defined_scalargroup_attr_hdl) &
[1492]	358	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	359	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	360
	361	IMPLICIT NONE
	362	TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
[1492]	363	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type
	364	LOGICAL(KIND=C_BOOL) :: axis_type_tmp
	365	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds
	366	LOGICAL(KIND=C_BOOL) :: bounds_tmp
	367	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name
	368	LOGICAL(KIND=C_BOOL) :: bounds_name_tmp
	369	LOGICAL, OPTIONAL, INTENT(OUT) :: comment
	370	LOGICAL(KIND=C_BOOL) :: comment_tmp
[891]	371	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
	372	LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[1492]	373	LOGICAL, OPTIONAL, INTENT(OUT) :: label
	374	LOGICAL(KIND=C_BOOL) :: label_tmp
[891]	375	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
	376	LOGICAL(KIND=C_BOOL) :: long_name_tmp
	377	LOGICAL, OPTIONAL, INTENT(OUT) :: name
	378	LOGICAL(KIND=C_BOOL) :: name_tmp
[1492]	379	LOGICAL, OPTIONAL, INTENT(OUT) :: positive
	380	LOGICAL(KIND=C_BOOL) :: positive_tmp
[1158]	381	LOGICAL, OPTIONAL, INTENT(OUT) :: prec
	382	LOGICAL(KIND=C_BOOL) :: prec_tmp
[891]	383	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
	384	LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
	385	LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
	386	LOGICAL(KIND=C_BOOL) :: standard_name_tmp
	387	LOGICAL, OPTIONAL, INTENT(OUT) :: unit
	388	LOGICAL(KIND=C_BOOL) :: unit_tmp
	389	LOGICAL, OPTIONAL, INTENT(OUT) :: value
	390	LOGICAL(KIND=C_BOOL) :: value_tmp
	391
	392	CALL xios(is_defined_scalargroup_attr_hdl_) &
[1492]	393	( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name &
	394	, positive, prec, scalar_ref, standard_name, unit, value )
[891]	395
	396	END SUBROUTINE xios(is_defined_scalargroup_attr_hdl)
	397
	398	SUBROUTINE xios(is_defined_scalargroup_attr_hdl_) &
[1492]	399	( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ &
	400	, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )
[891]	401
	402	IMPLICIT NONE
	403	TYPE(txios(scalargroup)) , INTENT(IN) :: scalargroup_hdl
[1492]	404	LOGICAL, OPTIONAL, INTENT(OUT) :: axis_type_
	405	LOGICAL(KIND=C_BOOL) :: axis_type__tmp
	406	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_
	407	LOGICAL(KIND=C_BOOL) :: bounds__tmp
	408	LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_name_
	409	LOGICAL(KIND=C_BOOL) :: bounds_name__tmp
	410	LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
	411	LOGICAL(KIND=C_BOOL) :: comment__tmp
[891]	412	LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
	413	LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[1492]	414	LOGICAL, OPTIONAL, INTENT(OUT) :: label_
	415	LOGICAL(KIND=C_BOOL) :: label__tmp
[891]	416	LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
	417	LOGICAL(KIND=C_BOOL) :: long_name__tmp
	418	LOGICAL, OPTIONAL, INTENT(OUT) :: name_
	419	LOGICAL(KIND=C_BOOL) :: name__tmp
[1492]	420	LOGICAL, OPTIONAL, INTENT(OUT) :: positive_
	421	LOGICAL(KIND=C_BOOL) :: positive__tmp
[1158]	422	LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
	423	LOGICAL(KIND=C_BOOL) :: prec__tmp
[891]	424	LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
	425	LOGICAL(KIND=C_BOOL) :: scalar_ref__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
	432
[1492]	433	IF (PRESENT(axis_type_)) THEN
	434	axis_type__tmp = cxios_is_defined_scalargroup_axis_type &
	435	(scalargroup_hdl%daddr)
	436	axis_type_ = axis_type__tmp
	437	ENDIF
	438
	439	IF (PRESENT(bounds_)) THEN
	440	bounds__tmp = cxios_is_defined_scalargroup_bounds &
	441	(scalargroup_hdl%daddr)
	442	bounds_ = bounds__tmp
	443	ENDIF
	444
	445	IF (PRESENT(bounds_name_)) THEN
	446	bounds_name__tmp = cxios_is_defined_scalargroup_bounds_name &
	447	(scalargroup_hdl%daddr)
	448	bounds_name_ = bounds_name__tmp
	449	ENDIF
	450
	451	IF (PRESENT(comment_)) THEN
	452	comment__tmp = cxios_is_defined_scalargroup_comment &
	453	(scalargroup_hdl%daddr)
	454	comment_ = comment__tmp
	455	ENDIF
	456
[891]	457	IF (PRESENT(group_ref_)) THEN
[966]	458	group_ref__tmp = cxios_is_defined_scalargroup_group_ref &
	459	(scalargroup_hdl%daddr)
[891]	460	group_ref_ = group_ref__tmp
	461	ENDIF
	462
[1492]	463	IF (PRESENT(label_)) THEN
	464	label__tmp = cxios_is_defined_scalargroup_label &
	465	(scalargroup_hdl%daddr)
	466	label_ = label__tmp
	467	ENDIF
	468
[891]	469	IF (PRESENT(long_name_)) THEN
[966]	470	long_name__tmp = cxios_is_defined_scalargroup_long_name &
	471	(scalargroup_hdl%daddr)
[891]	472	long_name_ = long_name__tmp
	473	ENDIF
	474
	475	IF (PRESENT(name_)) THEN
[966]	476	name__tmp = cxios_is_defined_scalargroup_name &
	477	(scalargroup_hdl%daddr)
[891]	478	name_ = name__tmp
	479	ENDIF
	480
[1492]	481	IF (PRESENT(positive_)) THEN
	482	positive__tmp = cxios_is_defined_scalargroup_positive &
	483	(scalargroup_hdl%daddr)
	484	positive_ = positive__tmp
	485	ENDIF
	486
[1158]	487	IF (PRESENT(prec_)) THEN
	488	prec__tmp = cxios_is_defined_scalargroup_prec &
	489	(scalargroup_hdl%daddr)
	490	prec_ = prec__tmp
	491	ENDIF
	492
[891]	493	IF (PRESENT(scalar_ref_)) THEN
[966]	494	scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref &
	495	(scalargroup_hdl%daddr)
[891]	496	scalar_ref_ = scalar_ref__tmp
	497	ENDIF
	498
	499	IF (PRESENT(standard_name_)) THEN
[966]	500	standard_name__tmp = cxios_is_defined_scalargroup_standard_name &
	501	(scalargroup_hdl%daddr)
[891]	502	standard_name_ = standard_name__tmp
	503	ENDIF
	504
	505	IF (PRESENT(unit_)) THEN
[966]	506	unit__tmp = cxios_is_defined_scalargroup_unit &
	507	(scalargroup_hdl%daddr)
[891]	508	unit_ = unit__tmp
	509	ENDIF
	510
	511	IF (PRESENT(value_)) THEN
[966]	512	value__tmp = cxios_is_defined_scalargroup_value &
	513	(scalargroup_hdl%daddr)
[891]	514	value_ = value__tmp
	515	ENDIF
	516
	517	END SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)
	518
	519	END MODULE iscalargroup_attr

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

Download in other formats: