diff options
Diffstat (limited to 'kernel/generic/zhemm3m_ucopy_1.c')
-rw-r--r-- | kernel/generic/zhemm3m_ucopy_1.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/kernel/generic/zhemm3m_ucopy_1.c b/kernel/generic/zhemm3m_ucopy_1.c index a6d4975e2..43f6d997f 100644 --- a/kernel/generic/zhemm3m_ucopy_1.c +++ b/kernel/generic/zhemm3m_ucopy_1.c @@ -69,15 +69,15 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON lda *= 2; js = n; - + while (js > 0){ - + offset = posX - posY; - + if (offset > 0) ao1 = a + posY * 2 + (posX + 0) * lda; else ao1 = a + (posX + 0) * 2 + posY * lda; - + i = m; - + while (i > 0) { if (offset > 0) { data01 = CMULT(*(ao1 + 0), -*(ao1 + 1)); @@ -87,17 +87,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON } else { data01 = CMULT(*(ao1 + 0), ZERO); } - + if (offset > 0) ao1 += 2; else ao1 += lda; b[ 0] = data01; - + b ++; - + offset --; i --; } - + posX ++; js --; } |