stest()

subroutine stest	(	integer	len,
		double precision, dimension(len)	scomp,
		double precision, dimension(len)	strue,
		double precision, dimension(len)	ssize,
		double precision	sfac
	)