From e94f8ad0e75460eb5c2d0c22c462f02dea06b4e7 Mon Sep 17 00:00:00 2001
From: Tom Callaway <spot@fedoraproject.org>
Date: Fri, 7 Oct 2005 05:49:27 +0000
Subject: [PATCH] Fix Bugzilla 169558

---
 lapack-fixlwork.patch | 40 ++++++++++++++++++++++++++++++++++++++++
 lapack.spec           |  8 +++++++-
 2 files changed, 47 insertions(+), 1 deletion(-)
 create mode 100644 lapack-fixlwork.patch

diff --git a/lapack-fixlwork.patch b/lapack-fixlwork.patch
new file mode 100644
index 0000000..27759f0
--- /dev/null
+++ b/lapack-fixlwork.patch
@@ -0,0 +1,40 @@
+--- LAPACK/SRC/dgesdd.f.BAD	2005-10-06 22:53:05.000000000 -0500
++++ LAPACK/SRC/dgesdd.f	2005-10-06 22:55:17.000000000 -0500
+@@ -294,6 +294,8 @@
+ *
+                WRKBL = 3*N + ( M+N )*ILAENV( 1, 'DGEBRD', ' ', M, N, -1,
+      $                 -1 )
++               MAXWRK = MAX( WRKBL, BDSPAC )
++               MINWRK = BDSPAC
+                IF( WNTQO ) THEN
+                   WRKBL = MAX( WRKBL, 3*N+N*
+      $                    ILAENV( 1, 'DORMBR', 'QLN', M, N, N, -1 ) )
+@@ -390,6 +392,8 @@
+ *
+                WRKBL = 3*M + ( M+N )*ILAENV( 1, 'DGEBRD', ' ', M, N, -1,
+      $                 -1 )
++               MAXWRK = MAX( WRKBL, BDSPAC )
++               MINWRK = BDSPAC
+                IF( WNTQO ) THEN
+                   WRKBL = MAX( WRKBL, 3*M+M*
+      $                    ILAENV( 1, 'DORMBR', 'QLN', M, M, N, -1 ) )
+--- LAPACK/SRC/sgesdd.f.BAD	2005-10-06 22:55:41.000000000 -0500
++++ LAPACK/SRC/sgesdd.f	2005-10-06 22:56:50.000000000 -0500
+@@ -294,6 +294,8 @@
+ *
+                WRKBL = 3*N + ( M+N )*ILAENV( 1, 'SGEBRD', ' ', M, N, -1,
+      $                 -1 )
++               MAXWRK = MAX( WRKBL, BDSPAC )
++               MINWRK = BDSPAC
+                IF( WNTQO ) THEN
+                   WRKBL = MAX( WRKBL, 3*N+N*
+      $                    ILAENV( 1, 'SORMBR', 'QLN', M, N, N, -1 ) )
+@@ -390,6 +392,8 @@
+ *
+                WRKBL = 3*M + ( M+N )*ILAENV( 1, 'SGEBRD', ' ', M, N, -1,
+      $                 -1 )
++               MAXWRK = MAX( WRKBL, BDSPAC )
++               MINWRK = BDSPAC
+                IF( WNTQO ) THEN
+                   WRKBL = MAX( WRKBL, 3*M+M*
+      $                    ILAENV( 1, 'SORMBR', 'QLN', M, M, N, -1 ) )
diff --git a/lapack.spec b/lapack.spec
index cc065c8..d3c42a7 100644
--- a/lapack.spec
+++ b/lapack.spec
@@ -1,7 +1,7 @@
 Summary: The LAPACK libraries for numerical linear algebra.
 Name: lapack
 Version: 3.0
-Release: 32%{?dist}
+Release: 33%{?dist}
 License: Freely distributable
 Group: Development/Libraries
 URL: http://www.netlib.org/lapack/
@@ -13,6 +13,7 @@ Source4: http://www.netlib.org/lapack/lapackqref.ps
 Source5: http://www.netlib.org/blas/blasqr.ps
 Patch0: lapack-20010525.patch
 Patch1: blas-bz143340.patch
+Patch2:	lapack-fixlwork.patch
 Obsoletes: lapack-man
 BuildRequires: gcc-gfortran
 BuildRoot: %{_tmppath}/lapack-%{version}-root
@@ -62,6 +63,8 @@ BLAS development libraries for applications that link statically.
 %patch0 -p1
 # Adds 8 missing BLAS functions from upstream tarball
 %patch1 -p1
+# Fix Bugzilla 169558
+%patch2 -p1
 cp -f $RPM_SOURCE_DIR/Makefile.blas BLAS/SRC/Makefile
 cp -f $RPM_SOURCE_DIR/Makefile.lapack SRC/Makefile
 
@@ -161,6 +164,9 @@ rm -fr ${RPM_BUILD_ROOT}
 %{_libdir}/libblas*.a
 
 %changelog
+* Thu Oct  6 2005 Tom "spot" Callaway <tcallawa@redhat.com> 3.0-33
+- fix bz 169558
+
 * Wed Sep 28 2005 Tom "spot" Callaway <tcallawa@redhat.com> 3.0-32
 - move to latest upstream 3.0 tarballs
 - add 8 missing BLAS functions from upstream blas tarball (bz 143340)