Lines Matching +full:x +full:- +full:alpha
1 /* chbmv.f -- translated by f2c (version 20100827).
4 on Linux or Unix systems, link with .../path/to/libf2c.a -lm
5 or, if you install libf2c.a in a standard place, with -lf2c -lm
6 -- in that order, at the end of the command line, as in
7 cc *.o -lf2c -lm
16 alpha, complex *a, integer *lda, complex *x, integer *incx, complex * in chbmv_() argument
42 /* CHBMV performs the matrix-vector operation */ in chbmv_()
44 /* y := alpha*A*x + beta*y, */ in chbmv_()
46 /* where alpha and beta are scalars, x and y are n element vectors and */ in chbmv_()
47 /* A is an n by n hermitian band matrix, with k super-diagonals. */ in chbmv_()
52 /* UPLO - CHARACTER*1. */ in chbmv_()
65 /* N - INTEGER. */ in chbmv_()
70 /* K - INTEGER. */ in chbmv_()
71 /* On entry, K specifies the number of super-diagonals of the */ in chbmv_()
75 /* ALPHA - COMPLEX . */ in chbmv_()
76 /* On entry, ALPHA specifies the scalar alpha. */ in chbmv_()
79 /* A - COMPLEX array of DIMENSION ( LDA, n ). */ in chbmv_()
84 /* ( k + 1 ) of the array, the first super-diagonal starting at */ in chbmv_()
92 /* M = K + 1 - J */ in chbmv_()
93 /* DO 10, I = MAX( 1, J - K ), J */ in chbmv_()
102 /* the array, the first sub-diagonal starting at position 1 in */ in chbmv_()
110 /* M = 1 - J */ in chbmv_()
120 /* LDA - INTEGER. */ in chbmv_()
126 /* X - COMPLEX array of DIMENSION at least */ in chbmv_()
127 /* ( 1 + ( n - 1 )*abs( INCX ) ). */ in chbmv_()
128 /* Before entry, the incremented array X must contain the */ in chbmv_()
129 /* vector x. */ in chbmv_()
132 /* INCX - INTEGER. */ in chbmv_()
134 /* X. INCX must not be zero. */ in chbmv_()
137 /* BETA - COMPLEX . */ in chbmv_()
141 /* Y - COMPLEX array of DIMENSION at least */ in chbmv_()
142 /* ( 1 + ( n - 1 )*abs( INCY ) ). */ in chbmv_()
146 /* INCY - INTEGER. */ in chbmv_()
156 /* -- Written on 22-October-1986. */ in chbmv_()
180 a -= a_offset; in chbmv_()
181 --x; in chbmv_()
182 --y; in chbmv_()
207 if (*n == 0 || (alpha->r == 0.f && alpha->i == 0.f && (beta->r == 1.f && in chbmv_()
208 beta->i == 0.f))) { in chbmv_()
212 /* Set up the start points in X and Y. */ in chbmv_()
217 kx = 1 - (*n - 1) * *incx; in chbmv_()
222 ky = 1 - (*n - 1) * *incy; in chbmv_()
230 if (beta->r != 1.f || beta->i != 0.f) { in chbmv_()
232 if (beta->r == 0.f && beta->i == 0.f) { in chbmv_()
244 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in chbmv_()
245 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in chbmv_()
253 if (beta->r == 0.f && beta->i == 0.f) { in chbmv_()
266 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in chbmv_()
267 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in chbmv_()
276 if (alpha->r == 0.f && alpha->i == 0.f) { in chbmv_()
288 q__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i, q__1.i = in chbmv_()
289 alpha->r * x[i__2].i + alpha->i * x[i__2].r; in chbmv_()
292 l = kplus1 - j; in chbmv_()
294 i__2 = 1, i__3 = j - *k; in chbmv_()
295 i__4 = j - 1; in chbmv_()
300 q__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in chbmv_()
307 q__2.r = q__3.r * x[i__2].r - q__3.i * x[i__2].i, q__2.i = in chbmv_()
308 q__3.r * x[i__2].i + q__3.i * x[i__2].r; in chbmv_()
319 q__4.r = alpha->r * temp2.r - alpha->i * temp2.i, q__4.i = in chbmv_()
320 alpha->r * temp2.i + alpha->i * temp2.r; in chbmv_()
331 q__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, q__1.i = in chbmv_()
332 alpha->r * x[i__4].i + alpha->i * x[i__4].r; in chbmv_()
337 l = kplus1 - j; in chbmv_()
339 i__4 = 1, i__2 = j - *k; in chbmv_()
340 i__3 = j - 1; in chbmv_()
345 q__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in chbmv_()
352 q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i, q__2.i = in chbmv_()
353 q__3.r * x[i__4].i + q__3.i * x[i__4].r; in chbmv_()
366 q__4.r = alpha->r * temp2.r - alpha->i * temp2.i, q__4.i = in chbmv_()
367 alpha->r * temp2.i + alpha->i * temp2.r; in chbmv_()
387 q__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, q__1.i = in chbmv_()
388 alpha->r * x[i__3].i + alpha->i * x[i__3].r; in chbmv_()
398 l = 1 - j; in chbmv_()
406 q__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in chbmv_()
413 q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i, q__2.i = in chbmv_()
414 q__3.r * x[i__4].i + q__3.i * x[i__4].r; in chbmv_()
421 q__2.r = alpha->r * temp2.r - alpha->i * temp2.i, q__2.i = in chbmv_()
422 alpha->r * temp2.i + alpha->i * temp2.r; in chbmv_()
433 q__1.r = alpha->r * x[i__3].r - alpha->i * x[i__3].i, q__1.i = in chbmv_()
434 alpha->r * x[i__3].i + alpha->i * x[i__3].r; in chbmv_()
444 l = 1 - j; in chbmv_()
456 q__2.r = temp1.r * a[i__5].r - temp1.i * a[i__5].i, in chbmv_()
463 q__2.r = q__3.r * x[i__4].r - q__3.i * x[i__4].i, q__2.i = in chbmv_()
464 q__3.r * x[i__4].i + q__3.i * x[i__4].r; in chbmv_()
471 q__2.r = alpha->r * temp2.r - alpha->i * temp2.i, q__2.i = in chbmv_()
472 alpha->r * temp2.i + alpha->i * temp2.r; in chbmv_()