Lines Matching refs:alpha
15 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, in zhpmv_() argument
166 if (*n == 0 || (alpha->r == 0. && alpha->i == 0. && (beta->r == 1. && in zhpmv_()
235 if (alpha->r == 0. && alpha->i == 0.) { in zhpmv_()
247 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i = in zhpmv_()
248 alpha->r * x[i__2].i + alpha->i * x[i__2].r; in zhpmv_()
277 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i = in zhpmv_()
278 alpha->r * temp2.i + alpha->i * temp2.r; in zhpmv_()
290 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i = in zhpmv_()
291 alpha->r * x[i__2].i + alpha->i * x[i__2].r; in zhpmv_()
322 z__4.r = alpha->r * temp2.r - alpha->i * temp2.i, z__4.i = in zhpmv_()
323 alpha->r * temp2.i + alpha->i * temp2.r; in zhpmv_()
340 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i = in zhpmv_()
341 alpha->r * x[i__2].i + alpha->i * x[i__2].r; in zhpmv_()
373 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i = in zhpmv_()
374 alpha->r * temp2.i + alpha->i * temp2.r; in zhpmv_()
386 z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, z__1.i = in zhpmv_()
387 alpha->r * x[i__2].i + alpha->i * x[i__2].r; in zhpmv_()
421 z__2.r = alpha->r * temp2.r - alpha->i * temp2.i, z__2.i = in zhpmv_()
422 alpha->r * temp2.i + alpha->i * temp2.r; in zhpmv_()