1 SUBROUTINE dger(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
4 INTEGER incx,incy,lda,m,n
7 DOUBLE PRECISION a(lda,*),x(*),y(*)
85 parameter(zero=0.0d+0)
89 INTEGER i,info,ix,j,jy,kx
103 ELSE IF (n.LT.0)
THEN 105 ELSE IF (incx.EQ.0)
THEN 107 ELSE IF (incy.EQ.0)
THEN 109 ELSE IF (lda.LT.max(1,m))
THEN 113 CALL xerbla(
'DGER ',info)
119 IF ((m.EQ.0) .OR. (n.EQ.0) .OR. (alpha.EQ.zero))
RETURN 131 IF (y(jy).NE.zero)
THEN 134 a(i,j) = a(i,j) + x(i)*temp
146 IF (y(jy).NE.zero)
THEN 150 a(i,j) = a(i,j) + x(ix)*temp