1 SUBROUTINE dger ( M, N, ALPHA, X, INCX, Y, INCY, A, LDA )
4 INTEGER INCX, INCY, LDA, M, N
6 DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )
81 parameter( zero = 0.0d+0 )
84 INTEGER I, INFO, IX, J, JY, KX
99 ELSE IF( incx.EQ.0 )
THEN
101 ELSE IF( incy.EQ.0 )
THEN
103 ELSE IF( lda.LT.max( 1, m ) )
THEN
107 CALL xerbla(
'DGER ', info )
113 IF( ( m.EQ.0 ).OR.( n.EQ.0 ).OR.( alpha.EQ.zero ) )
122 jy = 1 - ( n - 1 )*incy
126 IF( y( jy ).NE.zero )
THEN
129 a( i, j ) = a( i, j ) + x( i )*temp
138 kx = 1 - ( m - 1 )*incx
141 IF( y( jy ).NE.zero )
THEN
145 a( i, j ) = a( i, j ) + x( ix )*temp
subroutine dger(M, N, ALPHA, X, INCX, Y, INCY, A, LDA)
subroutine xerbla(SRNAME, INFO)