| /external/eigen/blas/f2c/ |
| drotm.c | 24 integer i__1, i__2; local
115 i__2 = *incx;
116 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
127 i__2 = nsteps;
129 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1) {
143 i__2 = *incx;
144 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
[all...] |
| srotm.c | 24 integer i__1, i__2; local
116 i__2 = *incx;
117 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
128 i__2 = nsteps;
130 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1) {
144 i__2 = *incx;
145 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
[all...] |
| chpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; local
194 i__2 = i__;
195 y[i__2].r = 0.f, y[i__2].i = 0.f;
201 i__2 = i__;
206 y[i__2].r = q__1.r, y[i__2].i = q__1.i;
215 i__2 = iy;
216 y[i__2].r = 0.f, y[i__2].i = 0.f
[all...] |
| zhpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; local
194 i__2 = i__;
195 y[i__2].r = 0., y[i__2].i = 0.;
201 i__2 = i__;
206 y[i__2].r = z__1.r, y[i__2].i = z__1.i;
215 i__2 = iy;
216 y[i__2].r = 0., y[i__2].i = 0.
[all...] |
| ctbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
245 i__2 = j;
246 if (x[i__2].r != 0.f || x[i__2].i != 0.f) {
247 i__2 = j;
248 temp.r = x[i__2].r, temp.i = x[i__2].i;
251 i__2 = 1, i__3 = j - *k;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
254 i__2 = i__
[all...] |
| ztbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
245 i__2 = j;
246 if (x[i__2].r != 0. || x[i__2].i != 0.) {
247 i__2 = j;
248 temp.r = x[i__2].r, temp.i = x[i__2].i;
251 i__2 = 1, i__3 = j - *k;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
254 i__2 = i__
[all...] |
| chbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
235 i__2 = i__;
236 y[i__2].r = 0.f, y[i__2].i = 0.f;
242 i__2 = i__;
247 y[i__2].r = q__1.r, y[i__2].i = q__1.i;
256 i__2 = iy;
257 y[i__2].r = 0.f, y[i__2].i = 0.f
[all...] |
| zhbmv.c | 21 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; local
236 i__2 = i__;
237 y[i__2].r = 0., y[i__2].i = 0.;
243 i__2 = i__;
248 y[i__2].r = z__1.r, y[i__2].i = z__1.i;
257 i__2 = iy;
258 y[i__2].r = 0., y[i__2].i = 0.
[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__) {
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);
|
| dspmv.c | 20 integer i__1, i__2; local
227 i__2 = j - 1;
228 for (i__ = 1; i__ <= i__2; ++i__) {
247 i__2 = kk + j - 2;
248 for (k = kk; k <= i__2; ++k) {
273 i__2 = *n;
274 for (i__ = j + 1; i__ <= i__2; ++i__) {
294 i__2 = kk + *n - j;
295 for (k = kk + 1; k <= i__2; ++k) {
|
| 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__) {
265 i__4 = 1, i__2 = j - *k;
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
387 i__1 = *n, i__2 = j + *k;
388 i__4 = min(i__1,i__2);
408 i__1 = *n, i__2 = j + *k;
409 i__4 = min(i__1,i__2);
|
| 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__) {
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);
|
| sspmv.c | 20 integer i__1, i__2; local
227 i__2 = j - 1;
228 for (i__ = 1; i__ <= i__2; ++i__) {
247 i__2 = kk + j - 2;
248 for (k = kk; k <= i__2; ++k) {
273 i__2 = *n;
274 for (i__ = j + 1; i__ <= i__2; ++i__) {
294 i__2 = kk + *n - j;
295 for (k = kk + 1; k <= i__2; ++k) {
|
| 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__) {
265 i__4 = 1, i__2 = j - *k;
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
387 i__1 = *n, i__2 = j + *k;
388 i__4 = min(i__1,i__2);
408 i__1 = *n, i__2 = j + *k;
409 i__4 = min(i__1,i__2);
|
