| /external/eigen/blas/f2c/ |
| drotm.c | 27 integer i__; local
116 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
117 w = dx[i__];
118 z__ = dy[i__];
119 dx[i__] = w + z__ * dh12;
120 dy[i__] = w * dh21 + z__;
129 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1)
[all...] |
| srotm.c | 27 integer i__; local
117 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) {
118 w = sx[i__];
119 z__ = sy[i__];
120 sx[i__] = w + z__ * sh12;
121 sy[i__] = w * sh21 + z__;
130 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1)
[all...] |
| dsbmv.c | 23 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; local
224 for (i__ = 1; i__ <= i__1; ++i__) {
225 y[i__] = 0.;
230 for (i__ = 1; i__ <= i__1; ++i__) {
231 y[i__] = *beta * y[i__];
[all...] |
| ssbmv.c | 23 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; local
226 for (i__ = 1; i__ <= i__1; ++i__) {
227 y[i__] = 0.f;
232 for (i__ = 1; i__ <= i__1; ++i__) {
233 y[i__] = *beta * y[i__];
[all...] |
| dtbmv.c | 23 integer i__, j, l, ix, jx, kx, info; local
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
247 x[i__] += temp * a[l + i__ + j * a_dim1];
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
268 x[ix] += temp * a[l + i__ + j * a_dim1]
[all...] |
| stbmv.c | 23 integer i__, j, l, ix, jx, kx, info; local
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
247 x[i__] += temp * a[l + i__ + j * a_dim1];
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
268 x[ix] += temp * a[l + i__ + j * a_dim1]
[all...] |
| dspmv.c | 23 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; local
183 for (i__ = 1; i__ <= i__1; ++i__) {
184 y[i__] = 0.;
189 for (i__ = 1; i__ <= i__1; ++i__) {
190 y[i__] = *beta * y[i__];
[all...] |
| sspmv.c | 23 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; local
183 for (i__ = 1; i__ <= i__1; ++i__) {
184 y[i__] = 0.f;
189 for (i__ = 1; i__ <= i__1; ++i__) {
190 y[i__] = *beta * y[i__];
[all...] |
| ctbmv.c | 27 integer i__, j, l, ix, jx, kx, info; local
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
254 i__2 = i__;
255 i__3 = i__;
256 i__5 = l + i__ + j * a_dim1;
290 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
[all...] |
| ztbmv.c | 27 integer i__, j, l, ix, jx, kx, info; local
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
254 i__2 = i__;
255 i__3 = i__;
256 i__5 = l + i__ + j * a_dim1;
290 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
[all...] |
| chpmv.c | 28 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; local
193 for (i__ = 1; i__ <= i__1; ++i__) {
194 i__2 = i__;
200 for (i__ = 1; i__ <= i__1; ++i__) {
201 i__2 = i__;
202 i__3 = i__;
[all...] |
| zhpmv.c | 28 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; local
193 for (i__ = 1; i__ <= i__1; ++i__) {
194 i__2 = i__;
200 for (i__ = 1; i__ <= i__1; ++i__) {
201 i__2 = i__;
202 i__3 = i__;
[all...] |
| chbmv.c | 28 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; local
234 for (i__ = 1; i__ <= i__1; ++i__) {
235 i__2 = i__;
241 for (i__ = 1; i__ <= i__1; ++i__) {
242 i__2 = i__;
243 i__3 = i__;
[all...] |
| zhbmv.c | 29 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; local
235 for (i__ = 1; i__ <= i__1; ++i__) {
236 i__2 = i__;
242 for (i__ = 1; i__ <= i__1; ++i__) {
243 i__2 = i__;
244 i__3 = i__;
[all...] |
