| /external/eigen/blas/f2c/ |
| ctbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
252 i__4 = j - 1;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
266 i__4 = j;
272 x[i__4].r = q__1.r, x[i__4].i = q__1.i;
281 i__4 = jx;
282 if (x[i__4].r != 0.f || x[i__4].i != 0.f) {
283 i__4 = jx
[all...] |
| ztbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
252 i__4 = j - 1;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
266 i__4 = j;
272 x[i__4].r = z__1.r, x[i__4].i = z__1.i;
281 i__4 = jx;
282 if (x[i__4].r != 0. || x[i__4].i != 0.) {
283 i__4 = jx
[all...] |
| dtbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
245 i__4 = j - 1;
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
265 i__4 = 1, i__2 = j - *k;
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
291 i__4 = j + 1;
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {
311 i__4 = *n, i__1 = j + *k;
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {
344 i__4 = 1, i__1 = j - *k
[all...] |
| chbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
295 i__4 = j - 1;
296 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
313 i__4 = j;
322 y[i__4].r = q__1.r, y[i__4].i = q__1.i;
330 i__4 = jx;
331 q__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, q__1.i =
332 alpha->r * x[i__4].i + alpha->i * x[i__4].r
[all...] |
| zhbmv.c | 21 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
296 i__4 = j - 1;
297 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
314 i__4 = j;
323 y[i__4].r = z__1.r, y[i__4].i = z__1.i;
331 i__4 = jx;
332 z__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i, z__1.i =
333 alpha->r * x[i__4].i + alpha->i * x[i__4].r
[all...] |
| stbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
245 i__4 = j - 1;
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
265 i__4 = 1, i__2 = j - *k;
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
291 i__4 = j + 1;
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {
311 i__4 = *n, i__1 = j + *k;
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {
344 i__4 = 1, i__1 = j - *k
[all...] |
| dsbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
270 i__4 = j - 1;
271 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
290 i__4 = 1, i__2 = j - *k;
292 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
322 i__4 = *n, i__2 = j + *k;
323 i__3 = min(i__4,i__2);
344 i__4 = *n, i__2 = j + *k;
345 i__3 = min(i__4,i__2);
|
| ssbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; local
272 i__4 = j - 1;
273 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
292 i__4 = 1, i__2 = j - *k;
294 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
324 i__4 = *n, i__2 = j + *k;
325 i__3 = min(i__4,i__2);
346 i__4 = *n, i__2 = j + *k;
347 i__3 = min(i__4,i__2);
|
| chpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; local
255 i__4 = i__;
260 q__1.r = y[i__4].r + q__2.r, q__1.i = y[i__4].i + q__2.i;
273 i__4 = kk + j - 1;
274 r__1 = ap[i__4].r;
299 i__4 = iy;
304 q__1.r = y[i__4].r + q__2.r, q__1.i = y[i__4].i + q__2.i;
318 i__4 = kk + j - 1
[all...] |
| zhpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; local
255 i__4 = i__;
260 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;
273 i__4 = kk + j - 1;
274 d__1 = ap[i__4].r;
299 i__4 = iy;
304 z__1.r = y[i__4].r + z__2.r, z__1.i = y[i__4].i + z__2.i;
318 i__4 = kk + j - 1
[all...] |
