stest()

subroutine stest	(	integer	LEN,
		double precision, dimension(len)	SCOMP,
		double precision, dimension(len)	STRUE,
		double precision, dimension(len)	SSIZE,
		double precision	SFAC
	)