From 032a55604337f357a01675a6dc37eb9e67c4639a Mon Sep 17 00:00:00 2001
From: Vladimir Chalupecky <vladimir.chalupecky@gmail.com>
Date: Tue, 23 Aug 2016 14:19:05 +0900
Subject: [PATCH] native: fix computation of ldwork in Dormqr

---
 native/dormqr.go | 1 +
 1 file changed, 1 insertion(+)

diff --git a/native/dormqr.go b/native/dormqr.go
index 6896b3bc..2df0b388 100644
--- a/native/dormqr.go
+++ b/native/dormqr.go
@@ -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))
 		}
 	}