sregr1()

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

Definition at line 3148 of file sblat2.f.

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

Here is the caller graph for this function: