fix ztrsm lt/ut copy
This commit is contained in:
parent
f1315288a8
commit
0fb6cc07bf
|
@ -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 {
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue