Lines Matching defs:AP
1 SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
8 REAL AP(*),X(*),Y(*)
27 * array AP as follows:
30 * supplied in AP.
33 * supplied in AP.
46 * AP - REAL 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 )
150 * Start the operations. In this version the elements of the array AP
151 * are accessed sequentially with one pass through AP.
185 * Form y when AP contains the upper triangle.
193 Y(I) = Y(I) + TEMP1*AP(K)
194 TEMP2 = TEMP2 + AP(K)*X(I)
197 Y(J) = Y(J) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
209 Y(IY) = Y(IY) + TEMP1*AP(K)
210 TEMP2 = TEMP2 + AP(K)*X(IX)
214 Y(JY) = Y(JY) + TEMP1*AP(KK+J-1) + ALPHA*TEMP2
222 * Form y when AP contains the lower triangle.
228 Y(J) = Y(J) + TEMP1*AP(KK)
231 Y(I) = Y(I) + TEMP1*AP(K)
232 TEMP2 = TEMP2 + AP(K)*X(I)
244 Y(JY) = Y(JY) + TEMP1*AP(KK)
250 Y(IY) = Y(IY) + TEMP1*AP(K)
251 TEMP2 = TEMP2 + AP(K)*X(IX)
