| /external/eigen/blas/f2c/ |
| D | drotm.c | 27 integer i__; in drotm_() local
116 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) { in drotm_()
117 w = dx[i__]; in drotm_()
118 z__ = dy[i__]; in drotm_()
119 dx[i__] = w + z__ * dh12; in drotm_()
120 dy[i__] = w * dh21 + z__; in drotm_()
129 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1) { in drotm_()
130 w = dx[i__]; in drotm_()
131 z__ = dy[i__]; in drotm_()
132 dx[i__] = w * dh11 + z__; in drotm_()
[all …]
|
| D | srotm.c | 27 integer i__; in srotm_() local
117 for (i__ = 1; i__2 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__2) { in srotm_()
118 w = sx[i__]; in srotm_()
119 z__ = sy[i__]; in srotm_()
120 sx[i__] = w + z__ * sh12; in srotm_()
121 sy[i__] = w * sh21 + z__; in srotm_()
130 for (i__ = 1; i__1 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__1) { in srotm_()
131 w = sx[i__]; in srotm_()
132 z__ = sy[i__]; in srotm_()
133 sx[i__] = w * sh11 + z__; in srotm_()
[all …]
|
| D | dsbmv.c | 23 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; in dsbmv_() local
224 for (i__ = 1; i__ <= i__1; ++i__) { in dsbmv_()
225 y[i__] = 0.; in dsbmv_()
230 for (i__ = 1; i__ <= i__1; ++i__) { in dsbmv_()
231 y[i__] = *beta * y[i__]; in dsbmv_()
239 for (i__ = 1; i__ <= i__1; ++i__) { in dsbmv_()
246 for (i__ = 1; i__ <= i__1; ++i__) { in dsbmv_()
271 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { 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_()
[all …]
|
| D | ssbmv.c | 23 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; in ssbmv_() local
226 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
227 y[i__] = 0.f; in ssbmv_()
232 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
233 y[i__] = *beta * y[i__]; in ssbmv_()
241 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
248 for (i__ = 1; i__ <= i__1; ++i__) { in ssbmv_()
273 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { 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_()
[all …]
|
| D | stbmv.c | 23 integer i__, j, l, ix, jx, kx, info; in stbmv_() local
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in stbmv_()
247 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in stbmv_()
268 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in stbmv_()
293 x[i__] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) { in stbmv_()
314 x[ix] += temp * a[l + i__ + j * a_dim1]; in stbmv_()
346 for (i__ = j - 1; i__ >= i__3; --i__) { in stbmv_()
[all …]
|
| D | dtbmv.c | 23 integer i__, j, l, ix, jx, kx, info; in dtbmv_() local
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in dtbmv_()
247 x[i__] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in dtbmv_()
268 x[ix] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in dtbmv_()
293 x[i__] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) { in dtbmv_()
314 x[ix] += temp * a[l + i__ + j * a_dim1]; in dtbmv_()
346 for (i__ = j - 1; i__ >= i__3; --i__) { in dtbmv_()
[all …]
|
| D | dspmv.c | 23 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; in dspmv_() local
183 for (i__ = 1; i__ <= i__1; ++i__) { in dspmv_()
184 y[i__] = 0.; in dspmv_()
189 for (i__ = 1; i__ <= i__1; ++i__) { in dspmv_()
190 y[i__] = *beta * y[i__]; in dspmv_()
198 for (i__ = 1; i__ <= i__1; ++i__) { in dspmv_()
205 for (i__ = 1; i__ <= i__1; ++i__) { in dspmv_()
228 for (i__ = 1; i__ <= i__2; ++i__) { in dspmv_()
229 y[i__] += temp1 * ap[k]; in dspmv_()
230 temp2 += ap[k] * x[i__]; in dspmv_()
[all …]
|
| D | sspmv.c | 23 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; in sspmv_() local
183 for (i__ = 1; i__ <= i__1; ++i__) { in sspmv_()
184 y[i__] = 0.f; in sspmv_()
189 for (i__ = 1; i__ <= i__1; ++i__) { in sspmv_()
190 y[i__] = *beta * y[i__]; in sspmv_()
198 for (i__ = 1; i__ <= i__1; ++i__) { in sspmv_()
205 for (i__ = 1; i__ <= i__1; ++i__) { in sspmv_()
228 for (i__ = 1; i__ <= i__2; ++i__) { in sspmv_()
229 y[i__] += temp1 * ap[k]; in sspmv_()
230 temp2 += ap[k] * x[i__]; in sspmv_()
[all …]
|
| D | ztbmv.c | 27 integer i__, j, l, ix, jx, kx, info; in ztbmv_() local
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in ztbmv_()
254 i__2 = i__; in ztbmv_()
255 i__3 = i__; in ztbmv_()
256 i__5 = l + i__ + j * a_dim1; in ztbmv_()
290 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in ztbmv_()
293 i__5 = l + i__ + j * a_dim1; in ztbmv_()
331 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in ztbmv_()
332 i__1 = i__; in ztbmv_()
333 i__3 = i__; in ztbmv_()
[all …]
|
| D | ctbmv.c | 27 integer i__, j, l, ix, jx, kx, info; in ctbmv_() local
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in ctbmv_()
254 i__2 = i__; in ctbmv_()
255 i__3 = i__; in ctbmv_()
256 i__5 = l + i__ + j * a_dim1; in ctbmv_()
290 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) { in ctbmv_()
293 i__5 = l + i__ + j * a_dim1; in ctbmv_()
331 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) { in ctbmv_()
332 i__1 = i__; in ctbmv_()
333 i__3 = i__; in ctbmv_()
[all …]
|
| D | chbmv.c | 28 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; in chbmv_() local
234 for (i__ = 1; i__ <= i__1; ++i__) { in chbmv_()
235 i__2 = i__; in chbmv_()
241 for (i__ = 1; i__ <= i__1; ++i__) { in chbmv_()
242 i__2 = i__; in chbmv_()
243 i__3 = i__; in chbmv_()
255 for (i__ = 1; i__ <= i__1; ++i__) { in chbmv_()
263 for (i__ = 1; i__ <= i__1; ++i__) { in chbmv_()
296 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in chbmv_()
297 i__2 = i__; in chbmv_()
[all …]
|
| D | zhbmv.c | 29 integer i__, j, l, ix, iy, jx, jy, kx, ky, info; in zhbmv_() local
235 for (i__ = 1; i__ <= i__1; ++i__) { in zhbmv_()
236 i__2 = i__; in zhbmv_()
242 for (i__ = 1; i__ <= i__1; ++i__) { in zhbmv_()
243 i__2 = i__; in zhbmv_()
244 i__3 = i__; in zhbmv_()
256 for (i__ = 1; i__ <= i__1; ++i__) { in zhbmv_()
264 for (i__ = 1; i__ <= i__1; ++i__) { in zhbmv_()
297 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) { in zhbmv_()
298 i__2 = i__; in zhbmv_()
[all …]
|
| D | chpmv.c | 28 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; in chpmv_() local
193 for (i__ = 1; i__ <= i__1; ++i__) { in chpmv_()
194 i__2 = i__; in chpmv_()
200 for (i__ = 1; i__ <= i__1; ++i__) { in chpmv_()
201 i__2 = i__; in chpmv_()
202 i__3 = i__; in chpmv_()
214 for (i__ = 1; i__ <= i__1; ++i__) { in chpmv_()
222 for (i__ = 1; i__ <= i__1; ++i__) { in chpmv_()
253 for (i__ = 1; i__ <= i__2; ++i__) { in chpmv_()
254 i__3 = i__; in chpmv_()
[all …]
|
| D | zhpmv.c | 28 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info; in zhpmv_() local
193 for (i__ = 1; i__ <= i__1; ++i__) { in zhpmv_()
194 i__2 = i__; in zhpmv_()
200 for (i__ = 1; i__ <= i__1; ++i__) { in zhpmv_()
201 i__2 = i__; in zhpmv_()
202 i__3 = i__; in zhpmv_()
214 for (i__ = 1; i__ <= i__1; ++i__) { in zhpmv_()
222 for (i__ = 1; i__ <= i__1; ++i__) { in zhpmv_()
253 for (i__ = 1; i__ <= i__2; ++i__) { in zhpmv_()
254 i__3 = i__; in zhpmv_()
[all …]
|