Lines Matching defs:AP
1 SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
8 COMPLEX AP(*),X(*),Y(*)
27 * array AP as follows:
30 * supplied in AP.
33 * supplied in AP.
46 * AP - COMPLEX array of DIMENSION at least
48 * Before entry with UPLO = 'U' or 'u', the array AP must
50 * packed sequentially, column by column, so that AP( 1 )
51 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 1, 2 )
53 * Before entry with UPLO = 'L' or 'l', the array AP must
55 * packed sequentially, column by column, so that AP( 1 )
56 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 2, 1 )
157 * Start the operations. In this version the elements of the array AP
158 * are accessed sequentially with one pass through AP.
192 * Form y when AP contains the upper triangle.
200 Y(I) = Y(I) + TEMP1*AP(K)
201 TEMP2 = TEMP2 + CONJG(AP(K))*X(I)
204 Y(J) = Y(J) + TEMP1*REAL(AP(KK+J-1)) + ALPHA*TEMP2
216 Y(IY) = Y(IY) + TEMP1*AP(K)
217 TEMP2 = TEMP2 + CONJG(AP(K))*X(IX)
221 Y(JY) = Y(JY) + TEMP1*REAL(AP(KK+J-1)) + ALPHA*TEMP2
229 * Form y when AP contains the lower triangle.
235 Y(J) = Y(J) + TEMP1*REAL(AP(KK))
238 Y(I) = Y(I) + TEMP1*AP(K)
239 TEMP2 = TEMP2 + CONJG(AP(K))*X(I)
251 Y(JY) = Y(JY) + TEMP1*REAL(AP(KK))
257 Y(IY) = Y(IY) + TEMP1*AP(K)
258 TEMP2 = TEMP2 + CONJG(AP(K))*X(IX)