Context Navigation

iscalargroup_attr.F90

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

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

Context Navigation

source: XIOS3/trunk/src/interface/fortran_attr/iscalargroup_attr.F90

Download in other formats: