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: