cregr1()

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

Definition at line 3251 of file cblat2.f.

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

Here is the caller graph for this function: