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 )

Definition at line 3148 of file dblat2.f.

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

Here is the caller graph for this function: