native: fix computation of ldwork in Dormqr

This commit is contained in:
Vladimir Chalupecky
2016-08-23 14:19:05 +09:00
parent 4937e8ebf6
commit 032a556043

View File

@@ -75,6 +75,7 @@ func (impl Implementation) Dormqr(side blas.Side, trans blas.Transpose, m, n, k
iws := nw * nb
if lwork < iws {
nb = lwork / nw
ldwork = nb
nbmin = max(2, impl.Ilaenv(2, "DORMQR", opts, m, n, k, -1))
}
}