lapack/netlib: let lapacke compute optimal work length for Dgeqrf

gonum · May 15, 2018 · 14f1951 · 14f1951
1 parent bc8d96c
commit 14f1951
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/lapack/netlib/lapack.go b/lapack/netlib/lapack.go
@@ -1076,12 +1076,8 @@ func (impl Implementation) Dgeqrf(m, n int, a []float64, lda int, tau, work []fl
 	if len(work) < max(1, lwork) {
 		panic(shortWork)
 	}
-	if lwork == -1 {
-		work[0] = float64(n)
-		return
-	}
 	checkMatrix(m, n, a, lda)
-	if lwork < n {
+	if lwork < n && lwork != -1 {
 		panic(badWork)
 	}
 	k := min(m, n)