Context Navigation

source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalargroup_attr.F90 @ 1941

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

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

Download in other formats: