sregr1()

subroutine sregr1	(	character*1	trans,
		integer	m,
		integer	n,
		integer	ly,
		integer	kl,
		integer	ku,
		real	alpha,
		real, dimension(lda,*)	a,
		integer	lda,
		real, dimension(*)	x,
		integer	incx,
		real	beta,
		real, dimension(*)	y,
		integer	incy,
		real, dimension(*)	ys
	)