| /external/eigen/blas/f2c/ |
| chpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; local
202 i__3 = i__;
203 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
204 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
224 i__3 = iy;
225 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
226 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3
[all...] |
| zhpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; local
202 i__3 = i__;
203 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
204 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
224 i__3 = iy;
225 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
226 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3
[all...] |
| dtbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
244 i__2 = 1, i__3 = j - *k;
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
266 i__3 = j - 1;
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
290 i__1 = *n, i__3 = j + *k;
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {
312 i__3 = j + 1;
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {
345 i__3 = max(i__4,i__1)
[all...] |
| ctbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
251 i__2 = 1, i__3 = j - *k;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
255 i__3 = i__;
260 q__1.r = x[i__3].r + q__2.r, q__1.i = x[i__3].i +
268 i__3 = kplus1 + j * a_dim1;
269 q__1.r = x[i__2].r * a[i__3].r - x[i__2].i * a[
270 i__3].i, q__1.i = x[i__2].r * a[i__3].i +
[all...] |
| ztbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
251 i__2 = 1, i__3 = j - *k;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
255 i__3 = i__;
260 z__1.r = x[i__3].r + z__2.r, z__1.i = x[i__3].i +
268 i__3 = kplus1 + j * a_dim1;
269 z__1.r = x[i__2].r * a[i__3].r - x[i__2].i * a[
270 i__3].i, z__1.i = x[i__2].r * a[i__3].i +
[all...] |
| stbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
244 i__2 = 1, i__3 = j - *k;
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
266 i__3 = j - 1;
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
290 i__1 = *n, i__3 = j + *k;
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {
312 i__3 = j + 1;
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {
345 i__3 = max(i__4,i__1)
[all...] |
| chbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
243 i__3 = i__;
244 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
245 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
265 i__3 = iy;
266 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
267 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3
[all...] |
| zhbmv.c | 21 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
244 i__3 = i__;
245 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
246 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
266 i__3 = iy;
267 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
268 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3
[all...] |
| dsbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
269 i__2 = 1, i__3 = j - *k;
271 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
291 i__3 = j - 1;
292 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
323 i__3 = min(i__4,i__2);
324 for (i__ = j + 1; i__ <= i__3; ++i__) {
345 i__3 = min(i__4,i__2);
346 for (i__ = j + 1; i__ <= i__3; ++i__) {
|
| ssbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
271 i__2 = 1, i__3 = j - *k;
273 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
293 i__3 = j - 1;
294 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
325 i__3 = min(i__4,i__2);
326 for (i__ = j + 1; i__ <= i__3; ++i__) {
347 i__3 = min(i__4,i__2);
348 for (i__ = j + 1; i__ <= i__3; ++i__) {
|
