Lines Matching refs:Y
1 SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) argument
8 DOUBLE COMPLEX AP(*),X(*),Y(*) local
166 Y(I) = ZERO
170 Y(I) = BETA*Y(I)
177 Y(IY) = ZERO
182 Y(IY) = BETA*Y(IY)
200 Y(I) = Y(I) + TEMP1*AP(K)
204 Y(J) = Y(J) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
216 Y(IY) = Y(IY) + TEMP1*AP(K)
221 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK+J-1)) + ALPHA*TEMP2
235 Y(J) = Y(J) + TEMP1*DBLE(AP(KK))
238 Y(I) = Y(I) + TEMP1*AP(K)
242 Y(J) = Y(J) + ALPHA*TEMP2
251 Y(JY) = Y(JY) + TEMP1*DBLE(AP(KK))
257 Y(IY) = Y(IY) + TEMP1*AP(K)
260 Y(JY) = Y(JY) + ALPHA*TEMP2