|
|
|
@@ -95,7 +95,6 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOA |
|
|
|
for (k = j; k > 0; k -= vl, i += vl) |
|
|
|
{ |
|
|
|
vl = VSETVL(k); |
|
|
|
vr = VFMVVF_FLOAT(0, vl); |
|
|
|
vy = VLEV_FLOAT(&y[i], vl); |
|
|
|
va = VLEV_FLOAT(&a_ptr[i], vl); |
|
|
|
vy = VFMACCVF_FLOAT(vy, temp1, va, vl); |
|
|
|
@@ -125,7 +124,6 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOA |
|
|
|
{ |
|
|
|
vl = VSETVL(k); |
|
|
|
inc_yv = inc_y * vl; |
|
|
|
vr = VFMVVF_FLOAT(0, vl); |
|
|
|
vy = VLSEV_FLOAT(&y[iy], stride_y, vl); |
|
|
|
va = VLEV_FLOAT(&a_ptr[i], vl); |
|
|
|
vy = VFMACCVF_FLOAT(vy, temp1, va, vl); |
|
|
|
@@ -158,7 +156,6 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOA |
|
|
|
{ |
|
|
|
vl = VSETVL(k); |
|
|
|
inc_xv = inc_x * vl; |
|
|
|
vr = VFMVVF_FLOAT(0, vl); |
|
|
|
|
|
|
|
vy = VLEV_FLOAT(&y[i], vl); |
|
|
|
va = VLEV_FLOAT(&a_ptr[i], vl); |
|
|
|
@@ -197,7 +194,6 @@ int CNAME(BLASLONG m, BLASLONG offset, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOA |
|
|
|
vl = VSETVL(k); |
|
|
|
inc_xv = inc_x * vl; |
|
|
|
inc_yv = inc_y * vl; |
|
|
|
vr = VFMVVF_FLOAT(0, vl); |
|
|
|
vy = VLSEV_FLOAT(&y[iy], stride_y, vl); |
|
|
|
va = VLEV_FLOAT(&a_ptr[i], vl); |
|
|
|
vy = VFMACCVF_FLOAT(vy, temp1, va, vl); |
|
|
|
|