Lines Matching full:alpha
16 *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *
45 /* y := alpha*A*x + beta*y, */
47 /* where alpha and beta are scalars, x and y are n element vectors and */
76 /* ALPHA - COMPLEX*16 . */
77 /* On entry, ALPHA specifies the scalar alpha. */
208 if (*n == 0 || (alpha->r == 0. && alpha->i == 0. && (beta->r == 1. &&
277 if (alpha->r == 0. && alpha->i == 0.) {
289 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =
290 alpha->r * x[i__2].i + alpha->i * x[i__2].r;
320 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i =
321 alpha->r * temp2.i + alpha->i * temp2.r;
332 z__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, z__1.i =
333 alpha->r * x[i__4].i + alpha->i * x[i__4].r;
367 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i =
368 alpha->r * temp2.i + alpha->i * temp2.r;
388 z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i =
389 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
422 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i =
423 alpha->r * temp2.i + alpha->i * temp2.r;
434 z__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, z__1.i =
435 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
472 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i =
473 alpha->r * temp2.i + alpha->i * temp2.r;
