Context Navigation

source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalar_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: 19.4 KB

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

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

Download in other formats: