Lines Matching full:alpha
15 /* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha,
38 /* y := alpha*A*x + beta*y, */
40 /* where alpha and beta are scalars, x and y are n element vectors and */
64 /* ALPHA - DOUBLE PRECISION. */
65 /* On entry, ALPHA specifies the scalar alpha. */
157 if (*n == 0 || (*alpha == 0. && *beta == 1.)) {
213 if (*alpha == 0.) {
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;
