zregr1()

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