Lines Matching refs:Y

1       SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)  argument
8       COMPLEX A(LDA,*),X(*),Y(*)  local
204                       Y(I) = ZERO
208                       Y(I) = BETA*Y(I)
215                       Y(IY) = ZERO
220                       Y(IY) = BETA*Y(IY)
238                       Y(I) = Y(I) + TEMP1*A(L+I,J)
241                   Y(J) = Y(J) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
253                       Y(IY) = Y(IY) + TEMP1*A(L+I,J)
258                   Y(JY) = Y(JY) + TEMP1*REAL(A(KPLUS1,J)) + ALPHA*TEMP2
275                   Y(J) = Y(J) + TEMP1*REAL(A(1,J))
278                       Y(I) = Y(I) + TEMP1*A(L+I,J)
281                   Y(J) = Y(J) + ALPHA*TEMP2
289                   Y(JY) = Y(JY) + TEMP1*REAL(A(1,J))
296                       Y(IY) = Y(IY) + TEMP1*A(L+I,J)
299                   Y(JY) = Y(JY) + ALPHA*TEMP2