Lines Matching full:alpha
16 alpha, complex *a, integer *lda, complex *x, integer *incx, complex *
44 /* y := alpha*A*x + beta*y, */
46 /* where alpha and beta are scalars, x and y are n element vectors and */
75 /* ALPHA - COMPLEX . */
76 /* On entry, ALPHA specifies the scalar alpha. */
207 if (*n == 0 || (alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f &&
276 if (alpha->r == 0.f && alpha->i == 0.f) {
288 q__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, q__1.i =
289 alpha->r * x[i__2].i + alpha->i * x[i__2].r;
319 q__4.r = alpha->r * temp2.r - alpha->i * temp2.i, q__4.i =
320 alpha->r * temp2.i + alpha->i * temp2.r;
331 q__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, q__1.i =
332 alpha->r * x[i__4].i + alpha->i * x[i__4].r;
366 q__4.r = alpha->r * temp2.r - alpha->i * temp2.i, q__4.i =
367 alpha->r * temp2.i + alpha->i * temp2.r;
387 q__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, q__1.i =
388 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
421 q__2.r = alpha->r * temp2.r - alpha->i * temp2.i, q__2.i =
422 alpha->r * temp2.i + alpha->i * temp2.r;
433 q__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, q__1.i =
434 alpha->r * x[i__3].i + alpha->i * x[i__3].r;
471 q__2.r = alpha->r * temp2.r - alpha->i * temp2.i, q__2.i =
472 alpha->r * temp2.i + alpha->i * temp2.r;
