| /external/eigen/blas/f2c/ |
| D | chpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; in chpmv_() local
202 i__3 = i__; in chpmv_()
203 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in chpmv_()
204 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in chpmv_()
224 i__3 = iy; in chpmv_()
225 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in chpmv_()
226 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in chpmv_()
254 i__3 = i__; in chpmv_()
261 y[i__3].r = q__1.r, y[i__3].i = q__1.i; in chpmv_()
263 i__3 = i__; in chpmv_()
[all …]
|
| D | zhpmv.c | 20 integer i__1, i__2, i__3, i__4, i__5; in zhpmv_() local
202 i__3 = i__; in zhpmv_()
203 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in zhpmv_()
204 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in zhpmv_()
224 i__3 = iy; in zhpmv_()
225 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in zhpmv_()
226 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in zhpmv_()
254 i__3 = i__; in zhpmv_()
261 y[i__3].r = z__1.r, y[i__3].i = z__1.i; in zhpmv_()
263 i__3 = i__; in zhpmv_()
[all …]
|
| D | ztbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; in ztbmv_() local
251 i__2 = 1, i__3 = j - *k; in ztbmv_()
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in ztbmv_()
255 i__3 = i__; in ztbmv_()
260 z__1.r = x[i__3].r + z__2.r, z__1.i = x[i__3].i + in ztbmv_()
268 i__3 = kplus1 + j * a_dim1; in ztbmv_()
269 z__1.r = x[i__2].r * a[i__3].r - x[i__2].i * a[ in ztbmv_()
270 i__3].i, z__1.i = x[i__2].r * a[i__3].i + in ztbmv_()
271 x[i__2].i * a[i__3].r; in ztbmv_()
289 i__3 = j - 1; in ztbmv_()
[all …]
|
| D | ctbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; in ctbmv_() local
251 i__2 = 1, i__3 = j - *k; in ctbmv_()
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in ctbmv_()
255 i__3 = i__; in ctbmv_()
260 q__1.r = x[i__3].r + q__2.r, q__1.i = x[i__3].i + in ctbmv_()
268 i__3 = kplus1 + j * a_dim1; in ctbmv_()
269 q__1.r = x[i__2].r * a[i__3].r - x[i__2].i * a[ in ctbmv_()
270 i__3].i, q__1.i = x[i__2].r * a[i__3].i + in ctbmv_()
271 x[i__2].i * a[i__3].r; in ctbmv_()
289 i__3 = j - 1; in ctbmv_()
[all …]
|
| D | chbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; in chbmv_() local
243 i__3 = i__; 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_()
265 i__3 = iy; 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_()
294 i__2 = 1, i__3 = j - *k; in chbmv_()
296 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in chbmv_()
298 i__3 = i__; in chbmv_()
[all …]
|
| D | zhbmv.c | 21 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; in zhbmv_() local
244 i__3 = i__; in zhbmv_()
245 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in zhbmv_()
246 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in zhbmv_()
266 i__3 = iy; in zhbmv_()
267 z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i, in zhbmv_()
268 z__1.i = beta->r * y[i__3].i + beta->i * y[i__3] in zhbmv_()
295 i__2 = 1, i__3 = j - *k; in zhbmv_()
297 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in zhbmv_()
299 i__3 = i__; in zhbmv_()
[all …]
|
| D | stbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in stbmv_() local
244 i__2 = 1, i__3 = j - *k; in stbmv_()
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in stbmv_()
266 i__3 = j - 1; in stbmv_()
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in stbmv_()
290 i__1 = *n, i__3 = j + *k; in stbmv_()
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in stbmv_()
312 i__3 = j + 1; in stbmv_()
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) { in stbmv_()
345 i__3 = max(i__4,i__1); in stbmv_()
[all …]
|
| D | dtbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in dtbmv_() local
244 i__2 = 1, i__3 = j - *k; in dtbmv_()
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in dtbmv_()
266 i__3 = j - 1; in dtbmv_()
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in dtbmv_()
290 i__1 = *n, i__3 = j + *k; in dtbmv_()
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in dtbmv_()
312 i__3 = j + 1; in dtbmv_()
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) { in dtbmv_()
345 i__3 = max(i__4,i__1); in dtbmv_()
[all …]
|
| D | ssbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in ssbmv_() local
271 i__2 = 1, i__3 = j - *k; in ssbmv_()
273 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in ssbmv_()
293 i__3 = j - 1; in ssbmv_()
294 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in ssbmv_()
325 i__3 = min(i__4,i__2); in ssbmv_()
326 for (i__ = j + 1; i__ <= i__3; ++i__) { in ssbmv_()
347 i__3 = min(i__4,i__2); in ssbmv_()
348 for (i__ = j + 1; i__ <= i__3; ++i__) { in ssbmv_()
|
| D | dsbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in dsbmv_() local
269 i__2 = 1, i__3 = j - *k; in dsbmv_()
271 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in dsbmv_()
291 i__3 = j - 1; in dsbmv_()
292 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in dsbmv_()
323 i__3 = min(i__4,i__2); in dsbmv_()
324 for (i__ = j + 1; i__ <= i__3; ++i__) { in dsbmv_()
345 i__3 = min(i__4,i__2); in dsbmv_()
346 for (i__ = j + 1; i__ <= i__3; ++i__) { in dsbmv_()
|