Lines Matching full:alpha
16 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx,
39 /* y := alpha*A*x + beta*y, */
41 /* where alpha and beta are scalars, x and y are n element vectors and */
70 /* ALPHA - DOUBLE PRECISION. */
71 /* On entry, ALPHA specifies the scalar alpha. */
198 if (*n == 0 || (*alpha == 0. && *beta == 1.)) {
254 if (*alpha == 0.) {
265 temp1 = *alpha * x[j];
276 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2;
284 temp1 = *alpha * x[jx];
299 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha *
317 temp1 = *alpha * x[j];
329 y[j] += *alpha * temp2;
337 temp1 = *alpha * x[jx];
353 y[jy] += *alpha * temp2;
