131 SUBROUTINE cgerc(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
140 INTEGER INCX,INCY,LDA,M,N
143 COMPLEX A(lda,*),X(*),Y(*)
150 parameter(zero= (0.0e+0,0.0e+0))
154 INTEGER I,INFO,IX,J,JY,KX
168 ELSE IF (n.LT.0)
THEN
170 ELSE IF (incx.EQ.0)
THEN
172 ELSE IF (incy.EQ.0)
THEN
174 ELSE IF (lda.LT.max(1,m))
THEN
178 CALL xerbla(
'CGERC ',info)
184 IF ((m.EQ.0) .OR. (n.EQ.0) .OR. (alpha.EQ.zero))
RETURN
196 IF (y(jy).NE.zero)
THEN
197 temp = alpha*conjg(y(jy))
199 a(i,j) = a(i,j) + x(i)*temp
211 IF (y(jy).NE.zero)
THEN
212 temp = alpha*conjg(y(jy))
215 a(i,j) = a(i,j) + x(ix)*temp
subroutine cgerc(M, N, ALPHA, X, INCX, Y, INCY, A, LDA)
CGERC
subroutine xerbla(SRNAME, INFO)
XERBLA