Lines Matching defs:AP
1 SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
8 REAL AP(*),X(*),Y(*)
27 * array AP as follows:
30 * supplied in AP.
33 * supplied in AP.
68 * AP - REAL array of DIMENSION at least
70 * Before entry with UPLO = 'U' or 'u', the array AP must
72 * packed sequentially, column by column, so that AP( 1 )
73 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 1, 2 )
75 * AP is overwritten by the upper triangular part of the
77 * Before entry with UPLO = 'L' or 'l', the array AP must
79 * packed sequentially, column by column, so that AP( 1 )
80 * contains a( 1, 1 ), AP( 2 ) and AP( 3 ) contain a( 2, 1 )
82 * AP is overwritten by the lower triangular part of the
153 * Start the operations. In this version the elements of the array AP
154 * are accessed sequentially with one pass through AP.
159 * Form A when upper triangle is stored in AP.
168 AP(K) = AP(K) + X(I)*TEMP1 + Y(I)*TEMP2
182 AP(K) = AP(K) + X(IX)*TEMP1 + Y(IY)*TEMP2
194 * Form A when lower triangle is stored in AP.
203 AP(K) = AP(K) + X(I)*TEMP1 + Y(I)*TEMP2
217 AP(K) = AP(K) + X(IX)*TEMP1 + Y(IY)*TEMP2
