fix ztrsm lt/ut copy

This commit is contained in:
Bine Brank 2022-01-16 21:39:57 +01:00
parent f1315288a8
commit 0fb6cc07bf
2 changed files with 2 additions and 2 deletions

View File

@ -77,7 +77,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
}
}
b += n_active * n_active * 2;
ao += lda * n_active * 2;
ao += lda * n_active;
i += n_active;
ii += n_active;
} else {

View File

@ -76,7 +76,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
compinv(b + 2*j * n_active + 2*j, *(ao + j * lda + 2*j), *(ao + j * lda + 2*j+1));
//*(b + j * n_active + j) = INV(*(ao + j * lda + j));
}
ao += lda * n_active * 2;
ao += lda * n_active;
b += n_active * n_active * 2;
i += n_active;
ii += n_active;