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