Lines Matching full:alpha
15 /* Subroutine */ int sspmv_(char *uplo, integer *n, real *alpha, real *ap,
38 /* y := alpha*A*x + beta*y, */
40 /* where alpha and beta are scalars, x and y are n element vectors and */
64 /* ALPHA - REAL . */
65 /* On entry, ALPHA specifies the scalar alpha. */
157 if (*n == 0 || (*alpha == 0.f && *beta == 1.f)) {
213 if (*alpha == 0.f) {
224 temp1 = *alpha * x[j];
234 y[j] = y[j] + temp1 * ap[kk + j - 1] + *alpha * temp2;
243 temp1 = *alpha * x[jx];
255 y[jy] = y[jy] + temp1 * ap[kk + j - 1] + *alpha * temp2;
269 temp1 = *alpha * x[j];
280 y[j] += *alpha * temp2;
289 temp1 = *alpha * x[jx];
302 y[jy] += *alpha * temp2;
