dregr1()

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