commit lapack for openSUSE:Factory
Hello community, here is the log from the commit of package lapack for openSUSE:Factory checked in at Mon May 16 09:18:03 CEST 2011. -------- --- lapack/lapack.changes 2010-08-12 15:52:46.000000000 +0200 +++ /mounts/work_src_done/STABLE/lapack/lapack.changes 2011-05-12 09:24:27.000000000 +0200 @@ -1,0 +2,12 @@ +Thu May 12 07:12:55 UTC 2011 - burnus@net-b.de + +- Update to 3.3.1 [bnc#654560] + * New procedures to compute the complete CS decomposition of a + partitioned unitary matrix + * Level-3 BLAS symmetric indefinite solve (xSYTRS) and symmetric + indefinite inversion (xSYTRI) + * Bug fixes + * Changes see at http://www.netlib.org/lapack/lapack-3.3.1.html + and http://www.netlib.org/lapack/lapack-3.3.0.html + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- lapack-3.2.2.tar.bz2 manpages-3.2.0.tar.bz2 New: ---- ila-bound-fix.patch lapack-3.3.1.tar.bz2 manpages.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ lapack.spec ++++++ --- /var/tmp/diff_new_pack.D5b2a7/_old 2011-05-16 09:17:18.000000000 +0200 +++ /var/tmp/diff_new_pack.D5b2a7/_new 2011-05-16 09:17:18.000000000 +0200 @@ -1,7 +1,7 @@ # -# spec file for package lapack (Version 3.2.2) +# spec file for package lapack # -# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -21,14 +21,15 @@ Name: lapack BuildRequires: gcc-fortran Summary: Linear Algebra Package -Version: 3.2.2 +Version: 3.3.1 Release: 1 License: Public Domain, Freeware Group: Development/Libraries/Parallel Source0: lapack-%{version}.tar.bz2 -Source1: manpages-3.2.0.tar.bz2 +Source1: manpages.tar.bz2 Source99: lapack-rpmlintrc Patch1: lapack-3.2.2.patch +Patch2: ila-bound-fix.patch Url: http://www.netlib.org/lapack/ Requires: blas = %{version} Requires: liblapack3 = %{version} @@ -150,7 +151,8 @@ %prep %setup -q %patch1 -tar xjf %{S:1} --strip-components=1 +%patch2 +tar xjf %{S:1} %build cp make.inc.example make.inc ++++++ ila-bound-fix.patch ++++++
From SVN: r977 | james | 2011-04-22 00:00:11 +0200 (Fri, 22 Apr 2011) | 2 lines fixed problems with zero matrix and scan
bug0079 :: ILA[SDCZ]LR out of bound access in the DO LOOP for array A. Change DO LOOP condition and add a IF inside the DO LOOP Index: SRC/ilazlr.f =================================================================== --- SRC/ilazlr.f (revision 976) +++ SRC/ilazlr.f (revision 977) @@ -53,9 +53,12 @@ ILAZLR = 0 DO J = 1, N I=M - DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) - I=I-1 - ENDDO + DO WHILE ((A(I,J).EQ.ZERO).AND.(I.GT.1)) + I=I-1 + ENDDO + IF( (I.EQ.1).AND.(A(1,J).EQ.ZERO) ) THEN + I = 0 + END IF ILAZLR = MAX( ILAZLR, I ) END DO END IF Index: SRC/ilaclr.f =================================================================== --- SRC/ilaclr.f (revision 976) +++ SRC/ilaclr.f (revision 977) @@ -54,9 +54,12 @@ ILACLR = 0 DO J = 1, N I=M - DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) - I=I-1 - ENDDO + DO WHILE ((A(I,J).EQ.ZERO).AND.(I.GT.1)) + I=I-1 + ENDDO + IF( (I.EQ.1).AND.(A(1,J).EQ.ZERO) ) THEN + I = 0 + END IF ILACLR = MAX( ILACLR, I ) END DO END IF Index: SRC/ilaslr.f =================================================================== --- SRC/ilaslr.f (revision 976) +++ SRC/ilaslr.f (revision 977) @@ -54,9 +54,12 @@ ILASLR = 0 DO J = 1, N I=M - DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) - I=I-1 + DO WHILE ((A(I,J).EQ.ZERO).AND.(I.GT.1)) + I=I-1 ENDDO + IF( (I.EQ.1).AND.(A(1,J).EQ.ZERO) ) THEN + I = 0 + END IF ILASLR = MAX( ILASLR, I ) END DO END IF Index: SRC/iladlr.f =================================================================== --- SRC/iladlr.f (revision 976) +++ SRC/iladlr.f (revision 977) @@ -53,10 +53,13 @@ * Scan up each column tracking the last zero row seen. ILADLR = 0 DO J = 1, N - I=M - DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1)) - I=I-1 + I = M + DO WHILE ((A(I,J).EQ.ZERO).AND.(I.GT.1)) + I=I-1 ENDDO + IF( (I.EQ.1).AND.(A(1,J).EQ.ZERO) ) THEN + I = 0 + END IF ILADLR = MAX( ILADLR, I ) END DO END IF ++++++ lapack-3.2.2.tar.bz2 -> lapack-3.3.1.tar.bz2 ++++++ ++++ 85045 lines of diff (skipped) ++++++ manpages-3.2.0.tar.bz2 -> manpages.tar.bz2 ++++++ ++++ 419898 lines of diff (skipped) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org
participants (1)
-
root@hilbert.suse.de