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
	)

Definition at line 3259 of file zblat2.f.

*
*  Input initialization for regression test.
*
*     .. Scalar Arguments ..
      CHARACTER*1        TRANS
      INTEGER            LY, M, N, KL, KU, LDA, INCX, INCY
      COMPLEX*16         ALPHA, BETA
*     .. Array Arguments ..
      COMPLEX*16         A(LDA,*), X(*), Y(*), YS(*)
*     .. Local Scalars ..
      INTEGER            I
*     .. Intrinsic Functions ..
      INTRINSIC          dble, dcmplx
*     .. Executable Statements ..
      trans = 'T'
      m = 0
      n = 5
      kl = 0
      ku = 0
      alpha = dcmplx( 1.0d0 )
      lda = max( 1, m )
      incx = 1
      beta = dcmplx( -0.7d0, -0.8d0 )
      incy = 1
      ly = abs( incy )*n
      DO 10 i = 1, ly
         y( i ) = dcmplx( 42.0d0, dble( i ) )
         ys( i ) = y( i )
  10  CONTINUE
      RETURN

Here is the caller graph for this function: