Lines Matching full:alpha
15 /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha,
39 /* y := alpha*A*x + beta*y, */
41 /* where alpha and beta are scalars, x and y are n element vectors and */
70 /* ALPHA - REAL . */
71 /* On entry, ALPHA specifies the scalar alpha. */
200 if (*n == 0 || (*alpha == 0.f && *beta == 1.f)) {
256 if (*alpha == 0.f) {
267 temp1 = *alpha * x[j];
278 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2;
286 temp1 = *alpha * x[jx];
301 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha *
319 temp1 = *alpha * x[j];
331 y[j] += *alpha * temp2;
339 temp1 = *alpha * x[jx];
355 y[jy] += *alpha * temp2;
