Package: release.debian.org Severity: normal User: release.debian....@packages.debian.org Usertags: pu X-Debbugs-CC: sylves...@debian.org, mba...@debian.org
Please find attached a proposed update for LAPACK. It fixes an issue with wrong numerical results in a multithreaded environment, so I consider this severe enough to warrant a stable update. Note that instead of adding the RECURSIVE keyword in the declaration of all affected routines, another fix could have been to add the gfortran flag -frecursive. The latter option would have given a smaller source diff, but would have actually been a bigger change, since it would be equivalent to adding the RECURSIVE keyword to *all* LAPACK functions. Thanks, -- .''`. Sébastien Villemot : :' : Debian Developer `. `' http://www.dynare.org/sebastien `- GPG Key: 4096R/381A7594
Index: debian/changelog =================================================================== --- debian/changelog (révision 45845) +++ debian/changelog (copie de travail) @@ -1,3 +1,11 @@ +lapack (3.4.1+dfsg-1+deb70u1) stable; urgency=low + + * recursive.patch: fix some routines which produce incorrect results in + multithreaded environment. Thanks to Michael Banck for the fix + (Closes: #693269) + + -- Sébastien Villemot <sebast...@debian.org> Tue, 07 May 2013 22:38:47 +0200 + lapack (3.4.1+dfsg-1) unstable; urgency=low * Repackage upstream tarball. Delete non-DFSG-free files: Index: debian/patches/recursive.patch =================================================================== --- debian/patches/recursive.patch (révision 0) +++ debian/patches/recursive.patch (copie de travail) @@ -0,0 +1,525 @@ +Description: Ensure thread safety of functions with large local variables + Some LAPACK functions allocate large local variables. The default behavior of + gfortran is to allocate such variables statically, instead of using the heap. + This makes these functions thread unsafe. The fix consists in declaring these + functions as RECURSIVE, to force heap allocation. +Author: Michael Banck <mba...@debian.org> +Bug: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=2&t=1930 +Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=693269 +Reviewed-by: Sébastien Villemot <sebast...@debian.org> +Last-Update: 2013-05-07 +--- +This patch header follows DEP-3: http://dep.debian.net/deps/dep3/ +--- ./src/cgbtrf.f.orig 2013-05-06 00:43:02.302380624 +0200 ++++ ./src/cgbtrf.f 2013-05-06 00:44:23.910803548 +0200 +@@ -18,7 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) ++* RECURSIVE SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, ++* INFO ) + * + * .. Scalar Arguments .. + * INTEGER INFO, KL, KU, LDAB, M, N +@@ -142,7 +143,7 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) ++ RECURSIVE SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/cgehrd.f.orig 2013-05-06 00:43:02.330380770 +0200 ++++ ./src/cgehrd.f 2013-05-06 00:44:48.006928485 +0200 +@@ -18,7 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, ++* LWORK, INFO ) + * + * .. Scalar Arguments .. + * INTEGER IHI, ILO, INFO, LDA, LWORK, N +@@ -166,7 +167,8 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, ++ $ LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/cunmlq.f.orig 2013-05-06 00:43:02.342380830 +0200 ++++ ./src/cunmlq.f 2013-05-06 00:45:13.531060884 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -167,8 +167,8 @@ + *> \ingroup complexOTHERcomputational + * + * ===================================================================== +- SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/cunmql.f.orig 2013-05-06 00:43:02.346380852 +0200 ++++ ./src/cunmql.f 2013-05-06 00:45:38.595190881 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -167,8 +167,8 @@ + *> \ingroup complexOTHERcomputational + * + * ===================================================================== +- SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/cunmqr.f.orig 2013-05-06 00:43:02.354380895 +0200 ++++ ./src/cunmqr.f 2013-05-06 00:46:00.215303045 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -167,8 +167,8 @@ + *> \ingroup complexOTHERcomputational + * + * ===================================================================== +- SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/cunmrq.f.orig 2013-05-06 00:43:02.358380915 +0200 ++++ ./src/cunmrq.f 2013-05-06 00:46:19.227401696 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -167,8 +167,8 @@ + *> \ingroup complexOTHERcomputational + * + * ===================================================================== +- SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/cunmrz.f.orig 2013-05-06 00:43:02.366380963 +0200 ++++ ./src/cunmrz.f 2013-05-06 00:47:00.103613938 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, ++* TAU, C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -186,8 +186,8 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, ++ $ C, LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/dgbtrf.f.orig 2013-05-06 00:43:02.370380976 +0200 ++++ ./src/dgbtrf.f 2013-05-06 00:47:24.251739304 +0200 +@@ -18,7 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) ++* RECURSIVE SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, ++* INFO ) + * + * .. Scalar Arguments .. + * INTEGER INFO, KL, KU, LDAB, M, N +@@ -142,7 +143,7 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) ++ RECURSIVE SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/dgehrd.f.orig 2013-05-06 00:43:02.374380999 +0200 ++++ ./src/dgehrd.f 2013-05-06 00:48:03.159940485 +0200 +@@ -18,7 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, ++* LWORK, INFO ) + * + * .. Scalar Arguments .. + * INTEGER IHI, ILO, INFO, LDA, LWORK, N +@@ -166,7 +167,8 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, ++ $ LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/dormlq.f.orig 2013-05-06 00:43:02.378381025 +0200 ++++ ./src/dormlq.f 2013-05-06 00:48:46.296162283 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup doubleOTHERcomputational + * + * ===================================================================== +- SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/dormql.f.orig 2013-05-06 00:43:02.378381025 +0200 ++++ ./src/dormql.f 2013-05-06 00:49:09.000279167 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup doubleOTHERcomputational + * + * ===================================================================== +- SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/dormqr.f.orig 2013-05-06 00:43:02.386381060 +0200 ++++ ./src/dormqr.f 2013-05-06 00:49:28.200378044 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup doubleOTHERcomputational + * + * ===================================================================== +- SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/dormrq.f.orig 2013-05-06 00:43:02.390381086 +0200 ++++ ./src/dormrq.f 2013-05-06 00:49:45.356466338 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup doubleOTHERcomputational + * + * ===================================================================== +- SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/dormrz.f.orig 2013-05-06 00:43:02.390381086 +0200 ++++ ./src/dormrz.f 2013-05-06 00:50:09.080588466 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, ++* TAU, C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -186,8 +186,8 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, ++ $ C, LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zgbtrf.f.orig 2013-05-06 00:43:02.402381151 +0200 ++++ ./src/zgbtrf.f 2013-05-06 00:50:22.912659759 +0200 +@@ -18,7 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) ++* RECURSIVE SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, ++* INFO ) + * + * .. Scalar Arguments .. + * INTEGER INFO, KL, KU, LDAB, M, N +@@ -142,7 +143,7 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) ++ RECURSIVE SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zgehrd.f.orig 2013-05-06 00:43:02.410381187 +0200 ++++ ./src/zgehrd.f 2013-05-06 00:50:47.492786505 +0200 +@@ -18,7 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, ++* LWORK, INFO ) + * + * .. Scalar Arguments .. + * INTEGER IHI, ILO, INFO, LDA, LWORK, N +@@ -166,7 +167,8 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, ++ $ LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zhseqr.f.orig 2013-05-06 00:43:02.418381225 +0200 ++++ ./src/zhseqr.f 2013-05-06 00:51:10.892907129 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, ++* Z, LDZ, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N +@@ -296,8 +296,8 @@ + *> of Matrix Analysis, volume 23, pages 948--973, 2002. + * + * ===================================================================== +- SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, ++ $ Z, LDZ, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zunmlq.f.orig 2013-05-06 00:43:02.434381307 +0200 ++++ ./src/zunmlq.f 2013-05-06 00:51:36.541039363 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup complex16OTHERcomputational + * + * ===================================================================== +- SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zunmql.f.orig 2013-05-06 00:43:02.446381363 +0200 ++++ ./src/zunmql.f 2013-05-06 00:51:56.885144378 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup complex16OTHERcomputational + * + * ===================================================================== +- SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zunmqr.f.orig 2013-05-06 00:43:02.454381421 +0200 ++++ ./src/zunmqr.f 2013-05-06 00:52:16.285244558 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup complex16OTHERcomputational + * + * ===================================================================== +- SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zunmrq.f.orig 2013-05-06 00:43:02.462381453 +0200 ++++ ./src/zunmrq.f 2013-05-06 00:52:49.781417511 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, ++* C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -166,8 +166,8 @@ + *> \ingroup complex16OTHERcomputational + * + * ===================================================================== +- SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, ++ $ LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- +--- ./src/zunmrz.f.orig 2013-05-06 00:43:02.470381498 +0200 ++++ ./src/zunmrz.f 2013-05-06 00:53:26.621607788 +0200 +@@ -18,8 +18,8 @@ + * Definition: + * =========== + * +-* SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, +-* WORK, LWORK, INFO ) ++* RECURSIVE SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, ++* TAU, C, LDC, WORK, LWORK, INFO ) + * + * .. Scalar Arguments .. + * CHARACTER SIDE, TRANS +@@ -186,8 +186,8 @@ + *> \endverbatim + *> + * ===================================================================== +- SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, +- $ WORK, LWORK, INFO ) ++ RECURSIVE SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, ++ $ C, LDC, WORK, LWORK, INFO ) + * + * -- LAPACK computational routine (version 3.4.0) -- + * -- LAPACK is a software package provided by Univ. of Tennessee, -- Index: debian/patches/series =================================================================== --- debian/patches/series (révision 45845) +++ debian/patches/series (copie de travail) @@ -3,3 +3,4 @@ lapack_testing.patch no_blas_manpages.patch lapacke_no_matgen.patch +recursive.patch
signature.asc
Description: Digital signature