| /external/eigen/blas/f2c/ |
| D | stbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in stbmv_() local
180 a_dim1 = *lda; in stbmv_()
181 a_offset = 1 + a_dim1; in stbmv_()
247 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
251 x[j] *= a[kplus1 + j * a_dim1]; in stbmv_()
268 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
273 x[jx] *= a[kplus1 + j * a_dim1]; in stbmv_()
293 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
297 x[j] *= a[j * a_dim1 + 1]; in stbmv_()
314 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
[all …]
|
| D | dtbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in dtbmv_() local
180 a_dim1 = *lda; in dtbmv_()
181 a_offset = 1 + a_dim1; in dtbmv_()
247 x[i__] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
251 x[j] *= a[kplus1 + j * a_dim1]; in dtbmv_()
268 x[ix] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
273 x[jx] *= a[kplus1 + j * a_dim1]; in dtbmv_()
293 x[i__] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
297 x[j] *= a[j * a_dim1 + 1]; in dtbmv_()
314 x[ix] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
[all …]
|
| D | dsbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in dsbmv_() local
169 a_dim1 = *lda; in dsbmv_()
170 a_offset = 1 + a_dim1; in dsbmv_()
272 y[i__] += temp1 * a[l + i__ + j * a_dim1]; in dsbmv_()
273 temp2 += a[l + i__ + j * a_dim1] * x[i__]; in dsbmv_()
276 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2; in dsbmv_()
293 y[iy] += temp1 * a[l + i__ + j * a_dim1]; in dsbmv_()
294 temp2 += a[l + i__ + j * a_dim1] * x[ix]; in dsbmv_()
299 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha * in dsbmv_()
319 y[j] += temp1 * a[j * a_dim1 + 1]; in dsbmv_()
[all …]
|
| D | ssbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4; in ssbmv_() local
171 a_dim1 = *lda; in ssbmv_()
172 a_offset = 1 + a_dim1; in ssbmv_()
274 y[i__] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
275 temp2 += a[l + i__ + j * a_dim1] * x[i__]; in ssbmv_()
278 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2; in ssbmv_()
295 y[iy] += temp1 * a[l + i__ + j * a_dim1]; in ssbmv_()
296 temp2 += a[l + i__ + j * a_dim1] * x[ix]; in ssbmv_()
301 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha * in ssbmv_()
321 y[j] += temp1 * a[j * a_dim1 + 1]; in ssbmv_()
[all …]
|
| D | ztbmv.c | 20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; in ztbmv_() local
184 a_dim1 = *lda; in ztbmv_()
185 a_offset = 1 + a_dim1; in ztbmv_()
256 i__5 = l + i__ + j * a_dim1; in ztbmv_()
268 i__3 = kplus1 + j * a_dim1; in ztbmv_()
293 i__5 = l + i__ + j * a_dim1; in ztbmv_()
306 i__2 = kplus1 + j * a_dim1; in ztbmv_()
334 i__2 = l + i__ + j * a_dim1; in ztbmv_()
346 i__3 = j * a_dim1 + 1; in ztbmv_()
371 i__2 = l + i__ + j * a_dim1; 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
184 a_dim1 = *lda; in ctbmv_()
185 a_offset = 1 + a_dim1; in ctbmv_()
256 i__5 = l + i__ + j * a_dim1; in ctbmv_()
268 i__3 = kplus1 + j * a_dim1; in ctbmv_()
293 i__5 = l + i__ + j * a_dim1; in ctbmv_()
306 i__2 = kplus1 + j * a_dim1; in ctbmv_()
334 i__2 = l + i__ + j * a_dim1; in ctbmv_()
346 i__3 = j * a_dim1 + 1; in ctbmv_()
371 i__2 = l + i__ + j * a_dim1; 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
178 a_dim1 = *lda; in chbmv_()
179 a_offset = 1 + a_dim1; in chbmv_()
299 i__5 = l + i__ + j * a_dim1; in chbmv_()
305 r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); in chbmv_()
315 i__3 = kplus1 + j * a_dim1; in chbmv_()
344 i__5 = l + i__ + j * a_dim1; in chbmv_()
350 r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); in chbmv_()
362 i__2 = kplus1 + j * a_dim1; in chbmv_()
393 i__2 = j * a_dim1 + 1; 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
179 a_dim1 = *lda; in zhbmv_()
180 a_offset = 1 + a_dim1; in zhbmv_()
300 i__5 = l + i__ + j * a_dim1; in zhbmv_()
306 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); in zhbmv_()
316 i__3 = kplus1 + j * a_dim1; in zhbmv_()
345 i__5 = l + i__ + j * a_dim1; in zhbmv_()
351 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); in zhbmv_()
363 i__2 = kplus1 + j * a_dim1; in zhbmv_()
394 i__2 = j * a_dim1 + 1; in zhbmv_()
[all …]
|