Lines Matching full:alpha
15 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha,
43 /* y := alpha*A*x + beta*y, */
45 /* where alpha and beta are scalars, x and y are n element vectors and */
69 /* ALPHA - COMPLEX*16 . */
70 /* On entry, ALPHA specifies the scalar alpha. */
166 if (*n == 0 || (alpha->r == 0. && alpha->i == 0. && (beta->r == 1. &&
235 if (alpha->r == 0. && alpha->i == 0.) {
247 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =
248 alpha->r * x[i__2].i + alpha->i * x[i__2].r;
277 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i =
278 alpha->r * temp2.i + alpha->i * temp2.r;
290 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =
291 alpha->r * x[i__2].i + alpha->i * x[i__2].r;
322 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i =
323 alpha->r * temp2.i + alpha->i * temp2.r;
340 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =
341 alpha->r * x[i__2].i + alpha->i * x[i__2].r;
373 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i =
374 alpha->r * temp2.i + alpha->i * temp2.r;
386 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i =
387 alpha->r * x[i__2].i + alpha->i * x[i__2].r;
421 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i =
422 alpha->r * temp2.i + alpha->i * temp2.r;
