diff options
Diffstat (limited to 'SRC')
722 files changed, 1418 insertions, 1427 deletions
diff --git a/SRC/cgbbrd.f b/SRC/cgbbrd.f index fc47ca86..8af41634 100644 --- a/SRC/cgbbrd.f +++ b/SRC/cgbbrd.f @@ -1,10 +1,10 @@ SUBROUTINE CGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER VECT diff --git a/SRC/cgbcon.f b/SRC/cgbcon.f index 0493c0ff..913ed0cd 100644 --- a/SRC/cgbcon.f +++ b/SRC/cgbcon.f @@ -1,10 +1,10 @@ SUBROUTINE CGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cgebd2.f b/SRC/cgebd2.f index 13d56b58..5778aba6 100644 --- a/SRC/cgebd2.f +++ b/SRC/cgebd2.f @@ -1,9 +1,9 @@ SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgebrd.f b/SRC/cgebrd.f index 06c95fb1..0e0533da 100644 --- a/SRC/cgebrd.f +++ b/SRC/cgebrd.f @@ -1,10 +1,10 @@ SUBROUTINE CGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgecon.f b/SRC/cgecon.f index affb98b7..5918cd9d 100644 --- a/SRC/cgecon.f +++ b/SRC/cgecon.f @@ -1,10 +1,10 @@ SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cgehd2.f b/SRC/cgehd2.f index 866ff472..0c4b1670 100644 --- a/SRC/cgehd2.f +++ b/SRC/cgehd2.f @@ -1,9 +1,9 @@ SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/cgehrd.f b/SRC/cgehrd.f index 8cf805d9..b925ec96 100644 --- a/SRC/cgehrd.f +++ b/SRC/cgehrd.f @@ -1,6 +1,6 @@ SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/cgelq2.f b/SRC/cgelq2.f index c513d496..a1b96ac8 100644 --- a/SRC/cgelq2.f +++ b/SRC/cgelq2.f @@ -1,9 +1,9 @@ SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgelqf.f b/SRC/cgelqf.f index 06a60975..1c544831 100644 --- a/SRC/cgelqf.f +++ b/SRC/cgelqf.f @@ -1,9 +1,9 @@ SUBROUTINE CGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgels.f b/SRC/cgels.f index ebd38463..6cffb9a6 100644 --- a/SRC/cgels.f +++ b/SRC/cgels.f @@ -1,10 +1,10 @@ SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/cgelsx.f b/SRC/cgelsx.f index 1642ea80..63990afd 100644 --- a/SRC/cgelsx.f +++ b/SRC/cgelsx.f @@ -1,10 +1,10 @@ SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/SRC/cgelsy.f b/SRC/cgelsy.f index e6052f66..e6a72a30 100644 --- a/SRC/cgelsy.f +++ b/SRC/cgelsy.f @@ -1,10 +1,10 @@ SUBROUTINE CGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/SRC/cgeql2.f b/SRC/cgeql2.f index d42fae13..e6eb20b4 100644 --- a/SRC/cgeql2.f +++ b/SRC/cgeql2.f @@ -1,9 +1,9 @@ SUBROUTINE CGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgeqlf.f b/SRC/cgeqlf.f index c99a4b26..607be700 100644 --- a/SRC/cgeqlf.f +++ b/SRC/cgeqlf.f @@ -1,9 +1,9 @@ SUBROUTINE CGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgeqp3.f b/SRC/cgeqp3.f index d70f613e..bab52eeb 100644 --- a/SRC/cgeqp3.f +++ b/SRC/cgeqp3.f @@ -1,10 +1,10 @@ SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgeqpf.f b/SRC/cgeqpf.f index 3ff29843..c82e38a6 100644 --- a/SRC/cgeqpf.f +++ b/SRC/cgeqpf.f @@ -1,9 +1,9 @@ SUBROUTINE CGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * -* -- LAPACK deprecated computational routine (version 3.2.2) -- +* -- LAPACK deprecated computational routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -81,7 +81,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * * ===================================================================== diff --git a/SRC/cgeqr2.f b/SRC/cgeqr2.f index 28c0b994..03ab4e8c 100644 --- a/SRC/cgeqr2.f +++ b/SRC/cgeqr2.f @@ -1,9 +1,9 @@ SUBROUTINE CGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgeqr2p.f b/SRC/cgeqr2p.f index 59841041..162d3115 100644 --- a/SRC/cgeqr2p.f +++ b/SRC/cgeqr2p.f @@ -1,9 +1,9 @@ SUBROUTINE CGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgeqrf.f b/SRC/cgeqrf.f index b5f303b6..3a4e4269 100644 --- a/SRC/cgeqrf.f +++ b/SRC/cgeqrf.f @@ -1,9 +1,9 @@ SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgeqrfp.f b/SRC/cgeqrfp.f index 26dd05dc..54c8540b 100644 --- a/SRC/cgeqrfp.f +++ b/SRC/cgeqrfp.f @@ -1,9 +1,9 @@ SUBROUTINE CGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgerq2.f b/SRC/cgerq2.f index c900b35f..c5bf3756 100644 --- a/SRC/cgerq2.f +++ b/SRC/cgerq2.f @@ -1,9 +1,9 @@ SUBROUTINE CGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgerqf.f b/SRC/cgerqf.f index cf03cde0..9d5f6ad4 100644 --- a/SRC/cgerqf.f +++ b/SRC/cgerqf.f @@ -1,9 +1,9 @@ SUBROUTINE CGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgetrs.f b/SRC/cgetrs.f index 62bb3a08..dfac3bd4 100644 --- a/SRC/cgetrs.f +++ b/SRC/cgetrs.f @@ -1,9 +1,9 @@ SUBROUTINE CGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/cggglm.f b/SRC/cggglm.f index 9e738cc8..dd65d1b9 100644 --- a/SRC/cggglm.f +++ b/SRC/cggglm.f @@ -1,10 +1,10 @@ SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/cgglse.f b/SRC/cgglse.f index e3614017..e68d1b52 100644 --- a/SRC/cgglse.f +++ b/SRC/cgglse.f @@ -1,10 +1,10 @@ SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/cggqrf.f b/SRC/cggqrf.f index 7f8fb74c..2c13ed58 100644 --- a/SRC/cggqrf.f +++ b/SRC/cggqrf.f @@ -1,10 +1,10 @@ SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/cggrqf.f b/SRC/cggrqf.f index 51f39734..5251a8a1 100644 --- a/SRC/cggrqf.f +++ b/SRC/cggrqf.f @@ -1,10 +1,10 @@ SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/cggsvd.f b/SRC/cggsvd.f index 944b9e2b..a83922ef 100644 --- a/SRC/cggsvd.f +++ b/SRC/cggsvd.f @@ -2,10 +2,10 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/cggsvp.f b/SRC/cggsvp.f index f194cbdb..c3d7e2bc 100644 --- a/SRC/cggsvp.f +++ b/SRC/cggsvp.f @@ -2,10 +2,10 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/cgtcon.f b/SRC/cgtcon.f index 67d478bd..886456fb 100644 --- a/SRC/cgtcon.f +++ b/SRC/cgtcon.f @@ -1,10 +1,10 @@ SUBROUTINE CGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cgtsv.f b/SRC/cgtsv.f index 40c857f1..4cbc72b7 100644 --- a/SRC/cgtsv.f +++ b/SRC/cgtsv.f @@ -1,9 +1,9 @@ SUBROUTINE CGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/chbgvd.f b/SRC/chbgvd.f index 093fad21..e81ce3dc 100644 --- a/SRC/chbgvd.f +++ b/SRC/chbgvd.f @@ -2,10 +2,10 @@ $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @generated c * * .. Scalar Arguments .. diff --git a/SRC/checon.f b/SRC/checon.f index a4e0e920..4df062ec 100644 --- a/SRC/checon.f +++ b/SRC/checon.f @@ -1,10 +1,10 @@ SUBROUTINE CHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cheevx.f b/SRC/cheevx.f index 29ab90f4..cc488ffd 100644 --- a/SRC/cheevx.f +++ b/SRC/cheevx.f @@ -2,10 +2,10 @@ $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @generated c * * .. Scalar Arguments .. diff --git a/SRC/chegs2.f b/SRC/chegs2.f index ebaaf909..767db76e 100644 --- a/SRC/chegs2.f +++ b/SRC/chegs2.f @@ -1,9 +1,9 @@ SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chegst.f b/SRC/chegst.f index c61bd36a..6136f097 100644 --- a/SRC/chegst.f +++ b/SRC/chegst.f @@ -1,9 +1,9 @@ SUBROUTINE CHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chegv.f b/SRC/chegv.f index 6d5c4a30..3abd2aa8 100644 --- a/SRC/chegv.f +++ b/SRC/chegv.f @@ -1,10 +1,10 @@ SUBROUTINE CHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/chegvd.f b/SRC/chegvd.f index 7d0362a6..b2976aa5 100644 --- a/SRC/chegvd.f +++ b/SRC/chegvd.f @@ -1,10 +1,10 @@ SUBROUTINE CHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/chegvx.f b/SRC/chegvx.f index c07a8299..9672009b 100644 --- a/SRC/chegvx.f +++ b/SRC/chegvx.f @@ -2,10 +2,10 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/chesv.f b/SRC/chesv.f index 5e59ca44..3ac7e051 100644 --- a/SRC/chesv.f +++ b/SRC/chesv.f @@ -1,10 +1,10 @@ SUBROUTINE CHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.3.0) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2011 +* -- April 2011 -- * @generated c * * .. Scalar Arguments .. diff --git a/SRC/chesvx.f b/SRC/chesvx.f index 2a22358f..47e0e7c7 100644 --- a/SRC/chesvx.f +++ b/SRC/chesvx.f @@ -2,10 +2,10 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/cheswapr.f b/SRC/cheswapr.f index ad54f487..fd06ad3c 100644 --- a/SRC/cheswapr.f +++ b/SRC/cheswapr.f @@ -1,9 +1,9 @@ SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetd2.f b/SRC/chetd2.f index ad123ef4..7ec57305 100644 --- a/SRC/chetd2.f +++ b/SRC/chetd2.f @@ -1,9 +1,9 @@ SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetf2.f b/SRC/chetf2.f index 5d41a374..d740a392 100644 --- a/SRC/chetf2.f +++ b/SRC/chetf2.f @@ -1,9 +1,9 @@ SUBROUTINE CHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetrd.f b/SRC/chetrd.f index cf928151..0d7762b1 100644 --- a/SRC/chetrd.f +++ b/SRC/chetrd.f @@ -1,9 +1,9 @@ SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetrf.f b/SRC/chetrf.f index ad6ad54e..616e2ed1 100644 --- a/SRC/chetrf.f +++ b/SRC/chetrf.f @@ -1,9 +1,9 @@ SUBROUTINE CHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetri.f b/SRC/chetri.f index 582c4822..c1ed54d3 100644 --- a/SRC/chetri.f +++ b/SRC/chetri.f @@ -1,9 +1,9 @@ SUBROUTINE CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetri2.f b/SRC/chetri2.f index 6a496b5e..59640061 100644 --- a/SRC/chetri2.f +++ b/SRC/chetri2.f @@ -1,9 +1,9 @@ SUBROUTINE CHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/chetri2x.f b/SRC/chetri2x.f index aaa6a85e..809974f5 100644 --- a/SRC/chetri2x.f +++ b/SRC/chetri2x.f @@ -1,9 +1,9 @@ SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/chetrs.f b/SRC/chetrs.f index a7767c07..799a006d 100644 --- a/SRC/chetrs.f +++ b/SRC/chetrs.f @@ -1,9 +1,9 @@ SUBROUTINE CHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetrs2.f b/SRC/chetrs2.f index 90ea8019..8634ece1 100644 --- a/SRC/chetrs2.f +++ b/SRC/chetrs2.f @@ -1,10 +1,10 @@ SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK PROTOTYPE routine (version 3.3.0) -- +* -- LAPACK PROTOTYPE routine (version 3.3.1) -- * * -- Written by Julie Langou of the Univ. of TN -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/chfrk.f b/SRC/chfrk.f index 07b909a9..d9cfcbf9 100644 --- a/SRC/chfrk.f +++ b/SRC/chfrk.f @@ -1,10 +1,10 @@ SUBROUTINE CHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/chgeqz.f b/SRC/chgeqz.f index 91283024..47d0b3f6 100644 --- a/SRC/chgeqz.f +++ b/SRC/chgeqz.f @@ -2,10 +2,10 @@ $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB diff --git a/SRC/chpcon.f b/SRC/chpcon.f index cae21d02..da09e3de 100644 --- a/SRC/chpcon.f +++ b/SRC/chpcon.f @@ -1,9 +1,9 @@ SUBROUTINE CHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/chpgst.f b/SRC/chpgst.f index f3b607a5..f343b365 100644 --- a/SRC/chpgst.f +++ b/SRC/chpgst.f @@ -1,9 +1,9 @@ SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chpgv.f b/SRC/chpgv.f index 727768a3..d7ee75c2 100644 --- a/SRC/chpgv.f +++ b/SRC/chpgv.f @@ -1,10 +1,10 @@ SUBROUTINE CHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/chpgvd.f b/SRC/chpgvd.f index 4a55b7bc..2f27db60 100644 --- a/SRC/chpgvd.f +++ b/SRC/chpgvd.f @@ -1,10 +1,10 @@ SUBROUTINE CHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/chpgvx.f b/SRC/chpgvx.f index 910fd963..0515ea85 100644 --- a/SRC/chpgvx.f +++ b/SRC/chpgvx.f @@ -2,10 +2,10 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/chpsv.f b/SRC/chpsv.f index 7ff3dc15..f23a0b6a 100644 --- a/SRC/chpsv.f +++ b/SRC/chpsv.f @@ -1,9 +1,9 @@ SUBROUTINE CHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chpsvx.f b/SRC/chpsvx.f index d5a6b12c..be443c50 100644 --- a/SRC/chpsvx.f +++ b/SRC/chpsvx.f @@ -1,10 +1,10 @@ SUBROUTINE CHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/chptrd.f b/SRC/chptrd.f index 94357958..477f920b 100644 --- a/SRC/chptrd.f +++ b/SRC/chptrd.f @@ -1,9 +1,9 @@ SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chptrf.f b/SRC/chptrf.f index 184d739a..61fdec0a 100644 --- a/SRC/chptrf.f +++ b/SRC/chptrf.f @@ -1,9 +1,9 @@ SUBROUTINE CHPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chptri.f b/SRC/chptri.f index e922ac1c..b4b5333f 100644 --- a/SRC/chptri.f +++ b/SRC/chptri.f @@ -1,9 +1,9 @@ SUBROUTINE CHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chptrs.f b/SRC/chptrs.f index 658e893a..7222400e 100644 --- a/SRC/chptrs.f +++ b/SRC/chptrs.f @@ -1,9 +1,9 @@ SUBROUTINE CHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cla_gbamv.f b/SRC/cla_gbamv.f index 18c765ff..f7301e3e 100644 --- a/SRC/cla_gbamv.f +++ b/SRC/cla_gbamv.f @@ -1,7 +1,7 @@ SUBROUTINE CLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/cla_geamv.f b/SRC/cla_geamv.f index 927cd87a..00a169ae 100644 --- a/SRC/cla_geamv.f +++ b/SRC/cla_geamv.f @@ -1,7 +1,7 @@ SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/clabrd.f b/SRC/clabrd.f index f731337b..50105057 100644 --- a/SRC/clabrd.f +++ b/SRC/clabrd.f @@ -1,10 +1,10 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/claed7.f b/SRC/claed7.f index c8c34336..a924ae96 100644 --- a/SRC/claed7.f +++ b/SRC/claed7.f @@ -3,10 +3,10 @@ $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/SRC/claein.f b/SRC/claein.f index 75b5c5ea..1bf9570f 100644 --- a/SRC/claein.f +++ b/SRC/claein.f @@ -1,10 +1,10 @@ SUBROUTINE CLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/clag2z.f b/SRC/clag2z.f index d7f2fce9..e0b80651 100644 --- a/SRC/clag2z.f +++ b/SRC/clag2z.f @@ -1,9 +1,9 @@ SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- +* -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2007 +* -- April 2011 -- * * .. * .. Scalar Arguments .. diff --git a/SRC/clags2.f b/SRC/clags2.f index 4b035d3f..4258c720 100644 --- a/SRC/clags2.f +++ b/SRC/clags2.f @@ -1,10 +1,10 @@ SUBROUTINE CLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/SRC/clagtm.f b/SRC/clagtm.f index c0cfae9b..3b861114 100644 --- a/SRC/clagtm.f +++ b/SRC/clagtm.f @@ -1,10 +1,10 @@ SUBROUTINE CLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/clahef.f b/SRC/clahef.f index 3b30a2fc..6ddc281e 100644 --- a/SRC/clahef.f +++ b/SRC/clahef.f @@ -1,9 +1,9 @@ SUBROUTINE CLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clahr2.f b/SRC/clahr2.f index 1fd6af28..ed588497 100644 --- a/SRC/clahr2.f +++ b/SRC/clahr2.f @@ -1,6 +1,6 @@ SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2.1) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/clahrd.f b/SRC/clahrd.f index ffabde38..1c52faf8 100644 --- a/SRC/clahrd.f +++ b/SRC/clahrd.f @@ -1,9 +1,9 @@ SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/claic1.f b/SRC/claic1.f index 32bf0212..4323a3cf 100644 --- a/SRC/claic1.f +++ b/SRC/claic1.f @@ -1,9 +1,9 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/clalsd.f b/SRC/clalsd.f index 98812577..bfaa0f8a 100644 --- a/SRC/clalsd.f +++ b/SRC/clalsd.f @@ -1,10 +1,10 @@ SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clanhf.f b/SRC/clanhf.f index 621a3028..6d0544cc 100644 --- a/SRC/clanhf.f +++ b/SRC/clanhf.f @@ -1,6 +1,6 @@ REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- * -- April 2009 -- diff --git a/SRC/claqhb.f b/SRC/claqhb.f index c648dd2d..f1696d2c 100644 --- a/SRC/claqhb.f +++ b/SRC/claqhb.f @@ -1,9 +1,9 @@ SUBROUTINE CLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/claqp2.f b/SRC/claqp2.f index 61ec1bfe..da2e7722 100644 --- a/SRC/claqp2.f +++ b/SRC/claqp2.f @@ -1,10 +1,10 @@ SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET @@ -75,7 +75,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/claqps.f b/SRC/claqps.f index ba4bf1c3..d6e08d1b 100644 --- a/SRC/claqps.f +++ b/SRC/claqps.f @@ -1,10 +1,10 @@ SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET @@ -91,7 +91,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/claqsb.f b/SRC/claqsb.f index 8ea7adff..2fb0bfa3 100644 --- a/SRC/claqsb.f +++ b/SRC/claqsb.f @@ -1,9 +1,9 @@ SUBROUTINE CLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/clar1v.f b/SRC/clar1v.f index 9fff18c0..713a1d71 100644 --- a/SRC/clar1v.f +++ b/SRC/clar1v.f @@ -2,10 +2,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/clarf.f b/SRC/clarf.f index c9fd3ef0..e98ebc48 100644 --- a/SRC/clarf.f +++ b/SRC/clarf.f @@ -1,10 +1,10 @@ SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/clarfb.f b/SRC/clarfb.f index c9771be7..e68a11bd 100644 --- a/SRC/clarfb.f +++ b/SRC/clarfb.f @@ -2,10 +2,10 @@ $ T, LDT, C, LDC, WORK, LDWORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/clarfg.f b/SRC/clarfg.f index 274b8993..42233e05 100644 --- a/SRC/clarfg.f +++ b/SRC/clarfg.f @@ -1,9 +1,9 @@ SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/clarfgp.f b/SRC/clarfgp.f index 0e189ab1..a80c393b 100644 --- a/SRC/clarfgp.f +++ b/SRC/clarfgp.f @@ -1,9 +1,9 @@ SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/clarft.f b/SRC/clarft.f index d4eff11f..3a7be33a 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -1,9 +1,9 @@ SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/clarfx.f b/SRC/clarfx.f index 97e14f1c..c1cc9726 100644 --- a/SRC/clarfx.f +++ b/SRC/clarfx.f @@ -1,10 +1,10 @@ SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/clarrv.f b/SRC/clarrv.f index 234fb209..ceeb8bf9 100644 --- a/SRC/clarrv.f +++ b/SRC/clarrv.f @@ -4,10 +4,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/clarz.f b/SRC/clarz.f index 33277039..6853cb19 100644 --- a/SRC/clarz.f +++ b/SRC/clarz.f @@ -1,9 +1,9 @@ SUBROUTINE CLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/clarzb.f b/SRC/clarzb.f index 099f846f..114d9bb4 100644 --- a/SRC/clarzb.f +++ b/SRC/clarzb.f @@ -1,10 +1,10 @@ SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/clarzt.f b/SRC/clarzt.f index 1fc319a1..527686d9 100644 --- a/SRC/clarzt.f +++ b/SRC/clarzt.f @@ -1,9 +1,9 @@ SUBROUTINE CLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/clasyf.f b/SRC/clasyf.f index ea749f72..643d0efb 100644 --- a/SRC/clasyf.f +++ b/SRC/clasyf.f @@ -1,9 +1,9 @@ SUBROUTINE CLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clatrd.f b/SRC/clatrd.f index 6d736a39..4a3aecd5 100644 --- a/SRC/clatrd.f +++ b/SRC/clatrd.f @@ -1,9 +1,9 @@ SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clatrz.f b/SRC/clatrz.f index a572b8ce..31713e53 100644 --- a/SRC/clatrz.f +++ b/SRC/clatrz.f @@ -1,9 +1,9 @@ SUBROUTINE CLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/clatzm.f b/SRC/clatzm.f index ed410441..ca3431ba 100644 --- a/SRC/clatzm.f +++ b/SRC/clatzm.f @@ -1,9 +1,9 @@ SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/clauu2.f b/SRC/clauu2.f index 732f420b..181194d0 100644 --- a/SRC/clauu2.f +++ b/SRC/clauu2.f @@ -1,9 +1,9 @@ SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clauum.f b/SRC/clauum.f index 01e5d4c6..6d5d6559 100644 --- a/SRC/clauum.f +++ b/SRC/clauum.f @@ -1,9 +1,9 @@ SUBROUTINE CLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpbcon.f b/SRC/cpbcon.f index cb2238aa..42d5ca1d 100644 --- a/SRC/cpbcon.f +++ b/SRC/cpbcon.f @@ -1,10 +1,10 @@ SUBROUTINE CPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cpbsv.f b/SRC/cpbsv.f index 9b23f182..74c394e2 100644 --- a/SRC/cpbsv.f +++ b/SRC/cpbsv.f @@ -1,9 +1,9 @@ SUBROUTINE CPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpbsvx.f b/SRC/cpbsvx.f index cea2d80b..71488497 100644 --- a/SRC/cpbsvx.f +++ b/SRC/cpbsvx.f @@ -2,10 +2,10 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/cpbtf2.f b/SRC/cpbtf2.f index 62547f9a..ca2948c4 100644 --- a/SRC/cpbtf2.f +++ b/SRC/cpbtf2.f @@ -1,9 +1,9 @@ SUBROUTINE CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpbtrs.f b/SRC/cpbtrs.f index 857e1281..89c97a04 100644 --- a/SRC/cpbtrs.f +++ b/SRC/cpbtrs.f @@ -1,9 +1,9 @@ SUBROUTINE CPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpftrf.f b/SRC/cpftrf.f index 4726f806..56c352b7 100644 --- a/SRC/cpftrf.f +++ b/SRC/cpftrf.f @@ -1,9 +1,9 @@ SUBROUTINE CPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 -- +* -- April 2011 ---- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/cpftri.f b/SRC/cpftri.f index af349404..beed1c91 100644 --- a/SRC/cpftri.f +++ b/SRC/cpftri.f @@ -1,9 +1,9 @@ SUBROUTINE CPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/cpftrs.f b/SRC/cpftrs.f index 97f4b1c0..602bd79c 100644 --- a/SRC/cpftrs.f +++ b/SRC/cpftrs.f @@ -1,9 +1,9 @@ SUBROUTINE CPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/cpocon.f b/SRC/cpocon.f index 526e4410..948d4f18 100644 --- a/SRC/cpocon.f +++ b/SRC/cpocon.f @@ -1,10 +1,10 @@ SUBROUTINE CPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cpoequb.f b/SRC/cpoequb.f index ca7af368..c0802482 100644 --- a/SRC/cpoequb.f +++ b/SRC/cpoequb.f @@ -1,6 +1,6 @@ SUBROUTINE CPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- November 2008 -- diff --git a/SRC/cposv.f b/SRC/cposv.f index 1520561a..9b41bdf5 100644 --- a/SRC/cposv.f +++ b/SRC/cposv.f @@ -1,9 +1,9 @@ SUBROUTINE CPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cposvx.f b/SRC/cposvx.f index b829faf2..89327a06 100644 --- a/SRC/cposvx.f +++ b/SRC/cposvx.f @@ -2,10 +2,10 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/cpotf2.f b/SRC/cpotf2.f index 49d31d89..e725b7ec 100644 --- a/SRC/cpotf2.f +++ b/SRC/cpotf2.f @@ -1,9 +1,9 @@ SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpotrf.f b/SRC/cpotrf.f index 174e582c..9c4ced52 100644 --- a/SRC/cpotrf.f +++ b/SRC/cpotrf.f @@ -1,9 +1,9 @@ SUBROUTINE CPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpotri.f b/SRC/cpotri.f index 1d8ff3b7..32a9691c 100644 --- a/SRC/cpotri.f +++ b/SRC/cpotri.f @@ -1,9 +1,9 @@ SUBROUTINE CPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpotrs.f b/SRC/cpotrs.f index fe5e8300..9c0e5853 100644 --- a/SRC/cpotrs.f +++ b/SRC/cpotrs.f @@ -1,9 +1,9 @@ SUBROUTINE CPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cppcon.f b/SRC/cppcon.f index 7b67efc0..9fb43a2b 100644 --- a/SRC/cppcon.f +++ b/SRC/cppcon.f @@ -1,9 +1,9 @@ SUBROUTINE CPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cppsv.f b/SRC/cppsv.f index f697442f..82abdcfd 100644 --- a/SRC/cppsv.f +++ b/SRC/cppsv.f @@ -1,9 +1,9 @@ SUBROUTINE CPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cppsvx.f b/SRC/cppsvx.f index 8165703d..01826dfb 100644 --- a/SRC/cppsvx.f +++ b/SRC/cppsvx.f @@ -1,10 +1,10 @@ SUBROUTINE CPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/cpptrf.f b/SRC/cpptrf.f index d3080090..a1bb65b4 100644 --- a/SRC/cpptrf.f +++ b/SRC/cpptrf.f @@ -1,9 +1,9 @@ SUBROUTINE CPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpptri.f b/SRC/cpptri.f index 753331a9..ae2c8a30 100644 --- a/SRC/cpptri.f +++ b/SRC/cpptri.f @@ -1,9 +1,9 @@ SUBROUTINE CPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpptrs.f b/SRC/cpptrs.f index dc06efaf..e3987459 100644 --- a/SRC/cpptrs.f +++ b/SRC/cpptrs.f @@ -1,9 +1,9 @@ SUBROUTINE CPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cptcon.f b/SRC/cptcon.f index c5da88c0..5ef936a1 100644 --- a/SRC/cptcon.f +++ b/SRC/cptcon.f @@ -1,9 +1,9 @@ SUBROUTINE CPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/cptrfs.f b/SRC/cptrfs.f index 58c08e09..baf63c67 100644 --- a/SRC/cptrfs.f +++ b/SRC/cptrfs.f @@ -1,10 +1,10 @@ SUBROUTINE CPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cptsv.f b/SRC/cptsv.f index bd263cc4..4e6d87e3 100644 --- a/SRC/cptsv.f +++ b/SRC/cptsv.f @@ -1,9 +1,9 @@ SUBROUTINE CPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/cptsvx.f b/SRC/cptsvx.f index 6b98480d..816f709f 100644 --- a/SRC/cptsvx.f +++ b/SRC/cptsvx.f @@ -1,10 +1,10 @@ SUBROUTINE CPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/cpttrf.f b/SRC/cpttrf.f index 91d20d36..022db764 100644 --- a/SRC/cpttrf.f +++ b/SRC/cpttrf.f @@ -1,9 +1,9 @@ SUBROUTINE CPTTRF( N, D, E, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/cpttrs.f b/SRC/cpttrs.f index 0f5db516..c906a66f 100644 --- a/SRC/cpttrs.f +++ b/SRC/cpttrs.f @@ -1,9 +1,9 @@ SUBROUTINE CPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cptts2.f b/SRC/cptts2.f index 6c2785f8..3e81af3f 100644 --- a/SRC/cptts2.f +++ b/SRC/cptts2.f @@ -1,9 +1,9 @@ SUBROUTINE CPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS diff --git a/SRC/cspcon.f b/SRC/cspcon.f index e9074613..f1c6debe 100644 --- a/SRC/cspcon.f +++ b/SRC/cspcon.f @@ -1,9 +1,9 @@ SUBROUTINE CSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/cspsv.f b/SRC/cspsv.f index c26d2c4b..01b8e650 100644 --- a/SRC/cspsv.f +++ b/SRC/cspsv.f @@ -1,9 +1,9 @@ SUBROUTINE CSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cspsvx.f b/SRC/cspsvx.f index 6db4603e..397dd762 100644 --- a/SRC/cspsvx.f +++ b/SRC/cspsvx.f @@ -1,10 +1,10 @@ SUBROUTINE CSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/csptrf.f b/SRC/csptrf.f index 9eac37f3..4a84f624 100644 --- a/SRC/csptrf.f +++ b/SRC/csptrf.f @@ -1,9 +1,9 @@ SUBROUTINE CSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csptri.f b/SRC/csptri.f index 81bf98da..503f66db 100644 --- a/SRC/csptri.f +++ b/SRC/csptri.f @@ -1,9 +1,9 @@ SUBROUTINE CSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csptrs.f b/SRC/csptrs.f index bc71d28f..939a4719 100644 --- a/SRC/csptrs.f +++ b/SRC/csptrs.f @@ -1,9 +1,9 @@ SUBROUTINE CSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csycon.f b/SRC/csycon.f index 1aff138a..10601bea 100644 --- a/SRC/csycon.f +++ b/SRC/csycon.f @@ -1,10 +1,10 @@ SUBROUTINE CSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/csysv.f b/SRC/csysv.f index c54c41cc..60322a9e 100644 --- a/SRC/csysv.f +++ b/SRC/csysv.f @@ -1,10 +1,10 @@ SUBROUTINE CSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.3.0) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2011 +* -- April 2011 -- * @generated c * * .. Scalar Arguments .. diff --git a/SRC/csysvx.f b/SRC/csysvx.f index 0194337f..af1b2c7a 100644 --- a/SRC/csysvx.f +++ b/SRC/csysvx.f @@ -2,10 +2,10 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/csyswapr.f b/SRC/csyswapr.f index 31a04fe2..c19764cb 100644 --- a/SRC/csyswapr.f +++ b/SRC/csyswapr.f @@ -1,9 +1,9 @@ SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csytf2.f b/SRC/csytf2.f index 7534c7f9..964ebfed 100644 --- a/SRC/csytf2.f +++ b/SRC/csytf2.f @@ -1,9 +1,9 @@ SUBROUTINE CSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csytrf.f b/SRC/csytrf.f index a3dac79f..da90c228 100644 --- a/SRC/csytrf.f +++ b/SRC/csytrf.f @@ -1,9 +1,9 @@ SUBROUTINE CSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csytri.f b/SRC/csytri.f index d2de840c..26a279e5 100644 --- a/SRC/csytri.f +++ b/SRC/csytri.f @@ -1,9 +1,9 @@ SUBROUTINE CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csytri2.f b/SRC/csytri2.f index 0bb7b50a..f52dbbf0 100644 --- a/SRC/csytri2.f +++ b/SRC/csytri2.f @@ -1,9 +1,9 @@ SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/csytri2x.f b/SRC/csytri2x.f index db02d01a..b5e58f6a 100644 --- a/SRC/csytri2x.f +++ b/SRC/csytri2x.f @@ -1,9 +1,9 @@ SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/csytrs.f b/SRC/csytrs.f index c4233a37..4918ca9e 100644 --- a/SRC/csytrs.f +++ b/SRC/csytrs.f @@ -1,9 +1,9 @@ SUBROUTINE CSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csytrs2.f b/SRC/csytrs2.f index abe7079e..98bc1cb0 100644 --- a/SRC/csytrs2.f +++ b/SRC/csytrs2.f @@ -1,10 +1,10 @@ SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK PROTOTYPE routine (version 3.2.2) -- +* -- LAPACK PROTOTYPE routine (version 3.3.1) -- * * -- Written by Julie Langou of the Univ. of TN -- -* May 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ctfsm.f b/SRC/ctfsm.f index 841e1173..f975e0ed 100644 --- a/SRC/ctfsm.f +++ b/SRC/ctfsm.f @@ -1,10 +1,10 @@ SUBROUTINE CTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ctftri.f b/SRC/ctftri.f index a5978124..4921bc90 100644 --- a/SRC/ctftri.f +++ b/SRC/ctftri.f @@ -1,9 +1,9 @@ SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ctfttp.f b/SRC/ctfttp.f index 034c6f1e..0d9ca8ac 100644 --- a/SRC/ctfttp.f +++ b/SRC/ctfttp.f @@ -1,9 +1,9 @@ SUBROUTINE CTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ctfttr.f b/SRC/ctfttr.f index 133fe4bf..7502acda 100644 --- a/SRC/ctfttr.f +++ b/SRC/ctfttr.f @@ -1,9 +1,9 @@ SUBROUTINE CTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ctgex2.f b/SRC/ctgex2.f index 8008ea32..a6dc79e3 100644 --- a/SRC/ctgex2.f +++ b/SRC/ctgex2.f @@ -1,10 +1,10 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/ctgexc.f b/SRC/ctgexc.f index e0083b23..16178baf 100644 --- a/SRC/ctgexc.f +++ b/SRC/ctgexc.f @@ -1,10 +1,10 @@ SUBROUTINE CTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/ctgsen.f b/SRC/ctgsen.f index a9be1e9b..62008623 100644 --- a/SRC/ctgsen.f +++ b/SRC/ctgsen.f @@ -2,10 +2,10 @@ $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/ctgsja.f b/SRC/ctgsja.f index 3f07b22b..5247c1f7 100644 --- a/SRC/ctgsja.f +++ b/SRC/ctgsja.f @@ -2,7 +2,7 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/ctgsna.f b/SRC/ctgsna.f index 1e832e4a..99a81309 100644 --- a/SRC/ctgsna.f +++ b/SRC/ctgsna.f @@ -2,10 +2,10 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/SRC/ctgsy2.f b/SRC/ctgsy2.f index d03a5fc7..c4543da4 100644 --- a/SRC/ctgsy2.f +++ b/SRC/ctgsy2.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/ctgsyl.f b/SRC/ctgsyl.f index 598b35f4..45d85032 100644 --- a/SRC/ctgsyl.f +++ b/SRC/ctgsyl.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/ctpttf.f b/SRC/ctpttf.f index 2c6ec570..fe235a17 100644 --- a/SRC/ctpttf.f +++ b/SRC/ctpttf.f @@ -1,9 +1,9 @@ SUBROUTINE CTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ctrevc.f b/SRC/ctrevc.f index 9bfe2b93..82531141 100644 --- a/SRC/ctrevc.f +++ b/SRC/ctrevc.f @@ -1,10 +1,10 @@ SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/SRC/ctrsen.f b/SRC/ctrsen.f index a5eb9d70..a78d5f17 100644 --- a/SRC/ctrsen.f +++ b/SRC/ctrsen.f @@ -1,10 +1,10 @@ SUBROUTINE CTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, $ SEP, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/ctrsna.f b/SRC/ctrsna.f index 6ed7f961..988ed573 100644 --- a/SRC/ctrsna.f +++ b/SRC/ctrsna.f @@ -2,10 +2,10 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call CLACN2 in place of CLACON, 10 Feb 03, SJH. * diff --git a/SRC/ctrsyl.f b/SRC/ctrsyl.f index 28c930c3..d800cf5d 100644 --- a/SRC/ctrsyl.f +++ b/SRC/ctrsyl.f @@ -1,10 +1,10 @@ SUBROUTINE CTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/SRC/ctrttf.f b/SRC/ctrttf.f index 825cfeea..b5e4ba88 100644 --- a/SRC/ctrttf.f +++ b/SRC/ctrttf.f @@ -1,9 +1,9 @@ SUBROUTINE CTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ctzrqf.f b/SRC/ctzrqf.f index 3e90546d..5b8ed7b2 100644 --- a/SRC/ctzrqf.f +++ b/SRC/ctzrqf.f @@ -1,9 +1,9 @@ SUBROUTINE CTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/ctzrzf.f b/SRC/ctzrzf.f index 7afbbd22..374a7972 100644 --- a/SRC/ctzrzf.f +++ b/SRC/ctzrzf.f @@ -1,9 +1,9 @@ SUBROUTINE CTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @generated c * * .. Scalar Arguments .. diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index b5166a8f..808daa2d 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -6,7 +6,7 @@ $ IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Brian Sutton of the Randolph-Macon College -- * -- November 2010 diff --git a/SRC/cungl2.f b/SRC/cungl2.f index 03e2967e..ab59036f 100644 --- a/SRC/cungl2.f +++ b/SRC/cungl2.f @@ -1,9 +1,9 @@ SUBROUTINE CUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/cunglq.f b/SRC/cunglq.f index c1809407..3e07b4b4 100644 --- a/SRC/cunglq.f +++ b/SRC/cunglq.f @@ -1,9 +1,9 @@ SUBROUTINE CUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/cungr2.f b/SRC/cungr2.f index 3f104be3..d1e9d502 100644 --- a/SRC/cungr2.f +++ b/SRC/cungr2.f @@ -1,9 +1,9 @@ SUBROUTINE CUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/cungrq.f b/SRC/cungrq.f index a09442c5..470d6f0c 100644 --- a/SRC/cungrq.f +++ b/SRC/cungrq.f @@ -1,9 +1,9 @@ SUBROUTINE CUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/cunm2l.f b/SRC/cunm2l.f index 6aebcaff..525c6fe3 100644 --- a/SRC/cunm2l.f +++ b/SRC/cunm2l.f @@ -1,10 +1,10 @@ SUBROUTINE CUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunm2r.f b/SRC/cunm2r.f index 69f22ae3..41f9ceb6 100644 --- a/SRC/cunm2r.f +++ b/SRC/cunm2r.f @@ -1,10 +1,10 @@ SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunml2.f b/SRC/cunml2.f index 191656d7..43178c40 100644 --- a/SRC/cunml2.f +++ b/SRC/cunml2.f @@ -1,10 +1,10 @@ SUBROUTINE CUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmlq.f b/SRC/cunmlq.f index c700d856..2becceec 100644 --- a/SRC/cunmlq.f +++ b/SRC/cunmlq.f @@ -1,10 +1,10 @@ SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmql.f b/SRC/cunmql.f index cf448bb3..3f0db6b7 100644 --- a/SRC/cunmql.f +++ b/SRC/cunmql.f @@ -1,10 +1,10 @@ SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmqr.f b/SRC/cunmqr.f index 0215f28b..80bec598 100644 --- a/SRC/cunmqr.f +++ b/SRC/cunmqr.f @@ -1,10 +1,10 @@ SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmr2.f b/SRC/cunmr2.f index cea18732..a3fb2823 100644 --- a/SRC/cunmr2.f +++ b/SRC/cunmr2.f @@ -1,10 +1,10 @@ SUBROUTINE CUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmr3.f b/SRC/cunmr3.f index ce440abd..612ffcd9 100644 --- a/SRC/cunmr3.f +++ b/SRC/cunmr3.f @@ -1,10 +1,10 @@ SUBROUTINE CUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmrq.f b/SRC/cunmrq.f index 54cea54c..de288c59 100644 --- a/SRC/cunmrq.f +++ b/SRC/cunmrq.f @@ -1,10 +1,10 @@ SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmrz.f b/SRC/cunmrz.f index 26c224a6..613d9f6a 100644 --- a/SRC/cunmrz.f +++ b/SRC/cunmrz.f @@ -1,10 +1,10 @@ SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cupmtr.f b/SRC/cupmtr.f index c5ab2e9e..c18c2433 100644 --- a/SRC/cupmtr.f +++ b/SRC/cupmtr.f @@ -1,10 +1,10 @@ SUBROUTINE CUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/SRC/dbdsdc.f b/SRC/dbdsdc.f index af08e139..ee419e6a 100644 --- a/SRC/dbdsdc.f +++ b/SRC/dbdsdc.f @@ -1,10 +1,10 @@ SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, $ WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER COMPQ, UPLO diff --git a/SRC/dgbbrd.f b/SRC/dgbbrd.f index 12f0d8f8..fbd77865 100644 --- a/SRC/dgbbrd.f +++ b/SRC/dgbbrd.f @@ -1,10 +1,10 @@ SUBROUTINE DGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER VECT diff --git a/SRC/dgbcon.f b/SRC/dgbcon.f index 7596cf5c..37372c12 100644 --- a/SRC/dgbcon.f +++ b/SRC/dgbcon.f @@ -1,10 +1,10 @@ SUBROUTINE DGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dgebd2.f b/SRC/dgebd2.f index 93e22627..d0efbf48 100644 --- a/SRC/dgebd2.f +++ b/SRC/dgebd2.f @@ -1,9 +1,9 @@ SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgebrd.f b/SRC/dgebrd.f index 737d85c5..f4118c7d 100644 --- a/SRC/dgebrd.f +++ b/SRC/dgebrd.f @@ -1,10 +1,10 @@ SUBROUTINE DGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgecon.f b/SRC/dgecon.f index 207ca98e..23fa9a37 100644 --- a/SRC/dgecon.f +++ b/SRC/dgecon.f @@ -1,10 +1,10 @@ SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dgeev.f b/SRC/dgeev.f index 98cae6de..76c84512 100644 --- a/SRC/dgeev.f +++ b/SRC/dgeev.f @@ -1,10 +1,10 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/SRC/dgeevx.f b/SRC/dgeevx.f index 0632f0a6..484f5fbc 100644 --- a/SRC/dgeevx.f +++ b/SRC/dgeevx.f @@ -2,10 +2,10 @@ $ VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/SRC/dgehd2.f b/SRC/dgehd2.f index e182e5f9..0f0bc49b 100644 --- a/SRC/dgehd2.f +++ b/SRC/dgehd2.f @@ -1,9 +1,9 @@ SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/dgehrd.f b/SRC/dgehrd.f index f3dc4505..f0b6bddc 100644 --- a/SRC/dgehrd.f +++ b/SRC/dgehrd.f @@ -1,6 +1,6 @@ SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index fee34ddc..fdb05767 100644 --- a/SRC/dgejsv.f +++ b/SRC/dgejsv.f @@ -2,11 +2,11 @@ $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dgelq2.f b/SRC/dgelq2.f index 8ca127e3..77d45108 100644 --- a/SRC/dgelq2.f +++ b/SRC/dgelq2.f @@ -1,9 +1,9 @@ SUBROUTINE DGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgelqf.f b/SRC/dgelqf.f index 14590518..5a3ceeff 100644 --- a/SRC/dgelqf.f +++ b/SRC/dgelqf.f @@ -1,9 +1,9 @@ SUBROUTINE DGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgels.f b/SRC/dgels.f index 49a423cc..25176bfb 100644 --- a/SRC/dgels.f +++ b/SRC/dgels.f @@ -1,10 +1,10 @@ SUBROUTINE DGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dgelsx.f b/SRC/dgelsx.f index da7b0ce8..297801fa 100644 --- a/SRC/dgelsx.f +++ b/SRC/dgelsx.f @@ -1,10 +1,10 @@ SUBROUTINE DGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/SRC/dgelsy.f b/SRC/dgelsy.f index 4200e4d9..8a15eb50 100644 --- a/SRC/dgelsy.f +++ b/SRC/dgelsy.f @@ -1,10 +1,10 @@ SUBROUTINE DGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/SRC/dgeql2.f b/SRC/dgeql2.f index 4e7e724a..6516c644 100644 --- a/SRC/dgeql2.f +++ b/SRC/dgeql2.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeqlf.f b/SRC/dgeqlf.f index 9c5edc1c..50463a7f 100644 --- a/SRC/dgeqlf.f +++ b/SRC/dgeqlf.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgeqp3.f b/SRC/dgeqp3.f index fa65ffe5..e3abab5d 100644 --- a/SRC/dgeqp3.f +++ b/SRC/dgeqp3.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgeqpf.f b/SRC/dgeqpf.f index 3809cf41..e4bf68fd 100644 --- a/SRC/dgeqpf.f +++ b/SRC/dgeqpf.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * -* -- LAPACK deprecated computational routine (version 3.2.2) -- +* -- LAPACK deprecated computational routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -78,7 +78,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * * ===================================================================== diff --git a/SRC/dgeqr2.f b/SRC/dgeqr2.f index aa18f8f9..daefb4bc 100644 --- a/SRC/dgeqr2.f +++ b/SRC/dgeqr2.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeqr2p.f b/SRC/dgeqr2p.f index 767ea3a0..2d5a9daa 100644 --- a/SRC/dgeqr2p.f +++ b/SRC/dgeqr2p.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeqrf.f b/SRC/dgeqrf.f index 3d1392de..9608b741 100644 --- a/SRC/dgeqrf.f +++ b/SRC/dgeqrf.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgeqrfp.f b/SRC/dgeqrfp.f index 1960972f..5671eb55 100644 --- a/SRC/dgeqrfp.f +++ b/SRC/dgeqrfp.f @@ -1,9 +1,9 @@ SUBROUTINE DGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgerq2.f b/SRC/dgerq2.f index aff63eec..504536c1 100644 --- a/SRC/dgerq2.f +++ b/SRC/dgerq2.f @@ -1,9 +1,9 @@ SUBROUTINE DGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgerqf.f b/SRC/dgerqf.f index 67f1192c..b5189716 100644 --- a/SRC/dgerqf.f +++ b/SRC/dgerqf.f @@ -1,9 +1,9 @@ SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgesvd.f b/SRC/dgesvd.f index 79debeeb..9a1c8489 100644 --- a/SRC/dgesvd.f +++ b/SRC/dgesvd.f @@ -1,10 +1,10 @@ SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f index f687183a..5b40d0f2 100644 --- a/SRC/dgesvj.f +++ b/SRC/dgesvj.f @@ -5,7 +5,7 @@ * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* January 2011 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dgetrs.f b/SRC/dgetrs.f index 89e13dc5..74ca3cc2 100644 --- a/SRC/dgetrs.f +++ b/SRC/dgetrs.f @@ -1,9 +1,9 @@ SUBROUTINE DGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dggglm.f b/SRC/dggglm.f index b75e9af6..ef0c11fe 100644 --- a/SRC/dggglm.f +++ b/SRC/dggglm.f @@ -1,10 +1,10 @@ SUBROUTINE DGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/dgglse.f b/SRC/dgglse.f index d10c75ad..e50f39d0 100644 --- a/SRC/dgglse.f +++ b/SRC/dgglse.f @@ -1,10 +1,10 @@ SUBROUTINE DGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/dggqrf.f b/SRC/dggqrf.f index c4660326..ae8b7d0d 100644 --- a/SRC/dggqrf.f +++ b/SRC/dggqrf.f @@ -1,10 +1,10 @@ SUBROUTINE DGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/dggrqf.f b/SRC/dggrqf.f index 56d1fc97..0af9a837 100644 --- a/SRC/dggrqf.f +++ b/SRC/dggrqf.f @@ -1,10 +1,10 @@ SUBROUTINE DGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/dggsvd.f b/SRC/dggsvd.f index e235cc7a..e10c85a8 100644 --- a/SRC/dggsvd.f +++ b/SRC/dggsvd.f @@ -2,10 +2,10 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/dggsvp.f b/SRC/dggsvp.f index ce717675..f8dc923e 100644 --- a/SRC/dggsvp.f +++ b/SRC/dggsvp.f @@ -2,10 +2,10 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/dgsvj0.f b/SRC/dgsvj0.f index 6644fbcb..94c8fadc 100644 --- a/SRC/dgsvj0.f +++ b/SRC/dgsvj0.f @@ -5,7 +5,7 @@ * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* January 2011 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dgsvj1.f b/SRC/dgsvj1.f index ae4f8bfe..f915b4cc 100644 --- a/SRC/dgsvj1.f +++ b/SRC/dgsvj1.f @@ -5,7 +5,7 @@ * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* January 2011 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dgtcon.f b/SRC/dgtcon.f index f90190ac..b84d7009 100644 --- a/SRC/dgtcon.f +++ b/SRC/dgtcon.f @@ -1,10 +1,10 @@ SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dgtsv.f b/SRC/dgtsv.f index 0d81a248..e1bf1920 100644 --- a/SRC/dgtsv.f +++ b/SRC/dgtsv.f @@ -1,9 +1,9 @@ SUBROUTINE DGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/dhgeqz.f b/SRC/dhgeqz.f index 1070d1cb..a67bfbb0 100644 --- a/SRC/dhgeqz.f +++ b/SRC/dhgeqz.f @@ -2,7 +2,7 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/dla_gbamv.f b/SRC/dla_gbamv.f index 85dc22d0..37cac580 100644 --- a/SRC/dla_gbamv.f +++ b/SRC/dla_gbamv.f @@ -1,7 +1,7 @@ SUBROUTINE DLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/dla_geamv.f b/SRC/dla_geamv.f index 37482b4d..b5e74f1d 100644 --- a/SRC/dla_geamv.f +++ b/SRC/dla_geamv.f @@ -1,7 +1,7 @@ SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/dlabrd.f b/SRC/dlabrd.f index 1793c992..0a153af1 100644 --- a/SRC/dlabrd.f +++ b/SRC/dlabrd.f @@ -1,10 +1,10 @@ SUBROUTINE DLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/dlaebz.f b/SRC/dlaebz.f index ef2cb9f0..13c458ab 100644 --- a/SRC/dlaebz.f +++ b/SRC/dlaebz.f @@ -2,10 +2,10 @@ $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f index 015942bc..c34407a0 100644 --- a/SRC/dlaed7.f +++ b/SRC/dlaed7.f @@ -3,10 +3,10 @@ $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/SRC/dlaein.f b/SRC/dlaein.f index 1149895a..f4c34eab 100644 --- a/SRC/dlaein.f +++ b/SRC/dlaein.f @@ -1,10 +1,10 @@ SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/dlag2s.f b/SRC/dlag2s.f index 1c0ae741..a90409fe 100644 --- a/SRC/dlag2s.f +++ b/SRC/dlag2s.f @@ -1,9 +1,9 @@ SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- +* -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2007 +* -- April 2011 -- * * .. * .. Scalar Arguments .. diff --git a/SRC/dlags2.f b/SRC/dlags2.f index 5b0e5ab1..732df8e4 100644 --- a/SRC/dlags2.f +++ b/SRC/dlags2.f @@ -1,10 +1,10 @@ SUBROUTINE DLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/SRC/dlagtm.f b/SRC/dlagtm.f index 4699e194..690bf2bf 100644 --- a/SRC/dlagtm.f +++ b/SRC/dlagtm.f @@ -1,10 +1,10 @@ SUBROUTINE DLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dlagts.f b/SRC/dlagts.f index c31c7c5d..b67bf022 100644 --- a/SRC/dlagts.f +++ b/SRC/dlagts.f @@ -1,9 +1,9 @@ SUBROUTINE DLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/SRC/dlahr2.f b/SRC/dlahr2.f index 3ea96d13..8d588503 100644 --- a/SRC/dlahr2.f +++ b/SRC/dlahr2.f @@ -1,6 +1,6 @@ SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2.1) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/dlahrd.f b/SRC/dlahrd.f index 7fd4736b..ad9cbd11 100644 --- a/SRC/dlahrd.f +++ b/SRC/dlahrd.f @@ -1,9 +1,9 @@ SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/dlaic1.f b/SRC/dlaic1.f index 5873e80f..6dd1aebd 100644 --- a/SRC/dlaic1.f +++ b/SRC/dlaic1.f @@ -1,9 +1,9 @@ SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/dlansf.f b/SRC/dlansf.f index 21d63c7f..e7662877 100644 --- a/SRC/dlansf.f +++ b/SRC/dlansf.f @@ -1,9 +1,9 @@ DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index 2a677559..192df23a 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -1,10 +1,10 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET @@ -75,7 +75,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/dlaqps.f b/SRC/dlaqps.f index 161a7d8e..66cc9104 100644 --- a/SRC/dlaqps.f +++ b/SRC/dlaqps.f @@ -1,10 +1,10 @@ SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET @@ -91,7 +91,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/dlaqsb.f b/SRC/dlaqsb.f index 84eb9f41..5a0baab5 100644 --- a/SRC/dlaqsb.f +++ b/SRC/dlaqsb.f @@ -1,9 +1,9 @@ SUBROUTINE DLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/dlaqtr.f b/SRC/dlaqtr.f index 07c8346d..512ab1b6 100644 --- a/SRC/dlaqtr.f +++ b/SRC/dlaqtr.f @@ -1,10 +1,10 @@ SUBROUTINE DLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/SRC/dlar1v.f b/SRC/dlar1v.f index 43d6f5e8..adc13085 100644 --- a/SRC/dlar1v.f +++ b/SRC/dlar1v.f @@ -2,10 +2,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/dlarf.f b/SRC/dlarf.f index ebc6877d..0d9278c9 100644 --- a/SRC/dlarf.f +++ b/SRC/dlarf.f @@ -1,10 +1,10 @@ SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/dlarfb.f b/SRC/dlarfb.f index c2b63e07..3338bbf6 100644 --- a/SRC/dlarfb.f +++ b/SRC/dlarfb.f @@ -2,10 +2,10 @@ $ T, LDT, C, LDC, WORK, LDWORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/dlarfg.f b/SRC/dlarfg.f index e8190d51..a4221e79 100644 --- a/SRC/dlarfg.f +++ b/SRC/dlarfg.f @@ -1,9 +1,9 @@ SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/dlarfgp.f b/SRC/dlarfgp.f index 3c5819f6..54c63e47 100644 --- a/SRC/dlarfgp.f +++ b/SRC/dlarfgp.f @@ -1,9 +1,9 @@ SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/dlarft.f b/SRC/dlarft.f index fde95a06..bbfa9c78 100644 --- a/SRC/dlarft.f +++ b/SRC/dlarft.f @@ -1,10 +1,10 @@ SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/dlarfx.f b/SRC/dlarfx.f index 24a02587..ce3e7d2e 100644 --- a/SRC/dlarfx.f +++ b/SRC/dlarfx.f @@ -1,10 +1,10 @@ SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/dlarre.f b/SRC/dlarre.f index 9e483f29..41cc69fb 100644 --- a/SRC/dlarre.f +++ b/SRC/dlarre.f @@ -4,10 +4,10 @@ $ WORK, IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER RANGE diff --git a/SRC/dlarrv.f b/SRC/dlarrv.f index e5bd2172..2d81d6a8 100644 --- a/SRC/dlarrv.f +++ b/SRC/dlarrv.f @@ -4,10 +4,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/dlarz.f b/SRC/dlarz.f index 0200d893..c4ac4fa4 100644 --- a/SRC/dlarz.f +++ b/SRC/dlarz.f @@ -1,9 +1,9 @@ SUBROUTINE DLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/dlarzb.f b/SRC/dlarzb.f index a7a1eeac..46674774 100644 --- a/SRC/dlarzb.f +++ b/SRC/dlarzb.f @@ -1,10 +1,10 @@ SUBROUTINE DLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/dlarzt.f b/SRC/dlarzt.f index f0246d52..7decd445 100644 --- a/SRC/dlarzt.f +++ b/SRC/dlarzt.f @@ -1,9 +1,9 @@ SUBROUTINE DLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/dlasd1.f b/SRC/dlasd1.f index bf73e9ca..23f1587e 100644 --- a/SRC/dlasd1.f +++ b/SRC/dlasd1.f @@ -1,10 +1,10 @@ SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/SRC/dlasd4.f b/SRC/dlasd4.f index 99dafc9b..802c7c64 100644 --- a/SRC/dlasd4.f +++ b/SRC/dlasd4.f @@ -1,9 +1,9 @@ SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/dlasq4.f b/SRC/dlasq4.f index ea42bbc4..de4a1fe3 100644 --- a/SRC/dlasq4.f +++ b/SRC/dlasq4.f @@ -1,7 +1,7 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Osni Marques of the Lawrence Berkeley National -- * -- Laboratory and Beresford Parlett of the Univ. of California at -- diff --git a/SRC/dlasyf.f b/SRC/dlasyf.f index cd69b1e0..ffb2d9ec 100644 --- a/SRC/dlasyf.f +++ b/SRC/dlasyf.f @@ -1,9 +1,9 @@ SUBROUTINE DLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlat2s.f b/SRC/dlat2s.f index 8026a0ae..b48e2128 100644 --- a/SRC/dlat2s.f +++ b/SRC/dlat2s.f @@ -1,9 +1,9 @@ SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- +* -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* May 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlatrd.f b/SRC/dlatrd.f index 0c39a824..f7849fd2 100644 --- a/SRC/dlatrd.f +++ b/SRC/dlatrd.f @@ -1,9 +1,9 @@ SUBROUTINE DLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlatrz.f b/SRC/dlatrz.f index 2fac6e8f..65980853 100644 --- a/SRC/dlatrz.f +++ b/SRC/dlatrz.f @@ -1,9 +1,9 @@ SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/dlatzm.f b/SRC/dlatzm.f index f7a688ff..eeda8ba4 100644 --- a/SRC/dlatzm.f +++ b/SRC/dlatzm.f @@ -1,9 +1,9 @@ SUBROUTINE DLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/dlauu2.f b/SRC/dlauu2.f index 1e6bdfec..c49939df 100644 --- a/SRC/dlauu2.f +++ b/SRC/dlauu2.f @@ -1,9 +1,9 @@ SUBROUTINE DLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlauum.f b/SRC/dlauum.f index fb9fdb5f..c1ab1a48 100644 --- a/SRC/dlauum.f +++ b/SRC/dlauum.f @@ -1,9 +1,9 @@ SUBROUTINE DLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f index 65b2fbe2..a4a0b18e 100644 --- a/SRC/dorcsd.f +++ b/SRC/dorcsd.f @@ -5,7 +5,7 @@ $ LDV2T, WORK, LWORK, IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Brian Sutton of the Randolph-Macon College -- * -- November 2010 diff --git a/SRC/dorglq.f b/SRC/dorglq.f index eb83f24f..bab4269f 100644 --- a/SRC/dorglq.f +++ b/SRC/dorglq.f @@ -1,9 +1,9 @@ SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/dorgrq.f b/SRC/dorgrq.f index b4499c87..dffbb756 100644 --- a/SRC/dorgrq.f +++ b/SRC/dorgrq.f @@ -1,9 +1,9 @@ SUBROUTINE DORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/dorm2l.f b/SRC/dorm2l.f index ac1990a3..0c176827 100644 --- a/SRC/dorm2l.f +++ b/SRC/dorm2l.f @@ -1,10 +1,10 @@ SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dorm2r.f b/SRC/dorm2r.f index 6e847452..2dab71a7 100644 --- a/SRC/dorm2r.f +++ b/SRC/dorm2r.f @@ -1,10 +1,10 @@ SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dorml2.f b/SRC/dorml2.f index ab784bbc..d2b0a907 100644 --- a/SRC/dorml2.f +++ b/SRC/dorml2.f @@ -1,10 +1,10 @@ SUBROUTINE DORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormlq.f b/SRC/dormlq.f index edb381fd..f81e86a8 100644 --- a/SRC/dormlq.f +++ b/SRC/dormlq.f @@ -1,10 +1,10 @@ SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormql.f b/SRC/dormql.f index f4e9dcff..178d524f 100644 --- a/SRC/dormql.f +++ b/SRC/dormql.f @@ -1,10 +1,10 @@ SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormqr.f b/SRC/dormqr.f index 5cc54e19..2ada955b 100644 --- a/SRC/dormqr.f +++ b/SRC/dormqr.f @@ -1,10 +1,10 @@ SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormr2.f b/SRC/dormr2.f index 8c1fcae7..945aeca6 100644 --- a/SRC/dormr2.f +++ b/SRC/dormr2.f @@ -1,10 +1,10 @@ SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormr3.f b/SRC/dormr3.f index cf33553e..0a66cd02 100644 --- a/SRC/dormr3.f +++ b/SRC/dormr3.f @@ -1,10 +1,10 @@ SUBROUTINE DORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormrq.f b/SRC/dormrq.f index 07d54b80..0edce668 100644 --- a/SRC/dormrq.f +++ b/SRC/dormrq.f @@ -1,10 +1,10 @@ SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormrz.f b/SRC/dormrz.f index a6c5f2aa..f40d8582 100644 --- a/SRC/dormrz.f +++ b/SRC/dormrz.f @@ -1,10 +1,10 @@ SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dpbcon.f b/SRC/dpbcon.f index 297cc2af..31141868 100644 --- a/SRC/dpbcon.f +++ b/SRC/dpbcon.f @@ -1,10 +1,10 @@ SUBROUTINE DPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dpbsv.f b/SRC/dpbsv.f index e4a89bcc..466410d9 100644 --- a/SRC/dpbsv.f +++ b/SRC/dpbsv.f @@ -1,9 +1,9 @@ SUBROUTINE DPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpbsvx.f b/SRC/dpbsvx.f index 4986097b..c38cc387 100644 --- a/SRC/dpbsvx.f +++ b/SRC/dpbsvx.f @@ -2,10 +2,10 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/dpbtf2.f b/SRC/dpbtf2.f index 2296f8bf..abd7b100 100644 --- a/SRC/dpbtf2.f +++ b/SRC/dpbtf2.f @@ -1,9 +1,9 @@ SUBROUTINE DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpbtrs.f b/SRC/dpbtrs.f index eb1dcd72..5f4c870d 100644 --- a/SRC/dpbtrs.f +++ b/SRC/dpbtrs.f @@ -1,9 +1,9 @@ SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpftrf.f b/SRC/dpftrf.f index dd5e3075..81328214 100644 --- a/SRC/dpftrf.f +++ b/SRC/dpftrf.f @@ -1,9 +1,9 @@ SUBROUTINE DPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dpftri.f b/SRC/dpftri.f index cb9be9a8..0748300d 100644 --- a/SRC/dpftri.f +++ b/SRC/dpftri.f @@ -1,9 +1,9 @@ SUBROUTINE DPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dpftrs.f b/SRC/dpftrs.f index dd60d905..aab5728d 100644 --- a/SRC/dpftrs.f +++ b/SRC/dpftrs.f @@ -1,9 +1,9 @@ SUBROUTINE DPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dpocon.f b/SRC/dpocon.f index 6e6a1085..c51792e0 100644 --- a/SRC/dpocon.f +++ b/SRC/dpocon.f @@ -1,10 +1,10 @@ SUBROUTINE DPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dposv.f b/SRC/dposv.f index c93b9fd6..336ef864 100644 --- a/SRC/dposv.f +++ b/SRC/dposv.f @@ -1,9 +1,9 @@ SUBROUTINE DPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dposvx.f b/SRC/dposvx.f index a9ce9272..b0a5da2b 100644 --- a/SRC/dposvx.f +++ b/SRC/dposvx.f @@ -2,10 +2,10 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/dpotf2.f b/SRC/dpotf2.f index 6c7adae8..996d3ac0 100644 --- a/SRC/dpotf2.f +++ b/SRC/dpotf2.f @@ -1,9 +1,9 @@ SUBROUTINE DPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpotrf.f b/SRC/dpotrf.f index e3d7bafa..e9553b61 100644 --- a/SRC/dpotrf.f +++ b/SRC/dpotrf.f @@ -1,9 +1,9 @@ SUBROUTINE DPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpotri.f b/SRC/dpotri.f index e0c7a75d..73659c94 100644 --- a/SRC/dpotri.f +++ b/SRC/dpotri.f @@ -1,9 +1,9 @@ SUBROUTINE DPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpotrs.f b/SRC/dpotrs.f index 6851fea2..0f755a06 100644 --- a/SRC/dpotrs.f +++ b/SRC/dpotrs.f @@ -1,9 +1,9 @@ SUBROUTINE DPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dppcon.f b/SRC/dppcon.f index 239fd8da..3af794f7 100644 --- a/SRC/dppcon.f +++ b/SRC/dppcon.f @@ -1,9 +1,9 @@ SUBROUTINE DPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dppsv.f b/SRC/dppsv.f index a8a5fe8d..d83cb0bb 100644 --- a/SRC/dppsv.f +++ b/SRC/dppsv.f @@ -1,9 +1,9 @@ SUBROUTINE DPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dppsvx.f b/SRC/dppsvx.f index 76051de0..96b62f41 100644 --- a/SRC/dppsvx.f +++ b/SRC/dppsvx.f @@ -1,10 +1,10 @@ SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/dpptrf.f b/SRC/dpptrf.f index 99648e43..62ae3363 100644 --- a/SRC/dpptrf.f +++ b/SRC/dpptrf.f @@ -1,9 +1,9 @@ SUBROUTINE DPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpptri.f b/SRC/dpptri.f index b5a317e3..7b7c0cba 100644 --- a/SRC/dpptri.f +++ b/SRC/dpptri.f @@ -1,9 +1,9 @@ SUBROUTINE DPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpptrs.f b/SRC/dpptrs.f index de90cfaa..5f05d030 100644 --- a/SRC/dpptrs.f +++ b/SRC/dpptrs.f @@ -1,9 +1,9 @@ SUBROUTINE DPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dptcon.f b/SRC/dptcon.f index dfb7a7b4..15404af2 100644 --- a/SRC/dptcon.f +++ b/SRC/dptcon.f @@ -1,9 +1,9 @@ SUBROUTINE DPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dptrfs.f b/SRC/dptrfs.f index 99f5ebe5..4bd65e99 100644 --- a/SRC/dptrfs.f +++ b/SRC/dptrfs.f @@ -1,10 +1,10 @@ SUBROUTINE DPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/SRC/dptsv.f b/SRC/dptsv.f index c1975f21..a58f33ae 100644 --- a/SRC/dptsv.f +++ b/SRC/dptsv.f @@ -1,9 +1,9 @@ SUBROUTINE DPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/dptsvx.f b/SRC/dptsvx.f index 9b4fd274..54666784 100644 --- a/SRC/dptsvx.f +++ b/SRC/dptsvx.f @@ -1,10 +1,10 @@ SUBROUTINE DPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/dpttrf.f b/SRC/dpttrf.f index adffa113..e30a7b76 100644 --- a/SRC/dpttrf.f +++ b/SRC/dpttrf.f @@ -1,9 +1,9 @@ SUBROUTINE DPTTRF( N, D, E, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dpttrs.f b/SRC/dpttrs.f index d0ea407e..e581f5e0 100644 --- a/SRC/dpttrs.f +++ b/SRC/dpttrs.f @@ -1,9 +1,9 @@ SUBROUTINE DPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/dptts2.f b/SRC/dptts2.f index f5e1aa74..cf77d1e2 100644 --- a/SRC/dptts2.f +++ b/SRC/dptts2.f @@ -1,9 +1,9 @@ SUBROUTINE DPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/SRC/dsfrk.f b/SRC/dsfrk.f index 1b136f85..d44bdc62 100644 --- a/SRC/dsfrk.f +++ b/SRC/dsfrk.f @@ -1,10 +1,10 @@ SUBROUTINE DSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dsgesv.f b/SRC/dsgesv.f index bc6b3ce5..a61c9344 100644 --- a/SRC/dsgesv.f +++ b/SRC/dsgesv.f @@ -1,10 +1,10 @@ SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) * -* -- LAPACK PROTOTYPE driver routine (version 3.2.2) -- +* -- LAPACK PROTOTYPE driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2007 +* -- April 2011 -- * * .. * .. Scalar Arguments .. diff --git a/SRC/dspcon.f b/SRC/dspcon.f index f145711f..1fab988e 100644 --- a/SRC/dspcon.f +++ b/SRC/dspcon.f @@ -1,10 +1,10 @@ SUBROUTINE DSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dspgst.f b/SRC/dspgst.f index 86729f6a..6f9baa60 100644 --- a/SRC/dspgst.f +++ b/SRC/dspgst.f @@ -1,9 +1,9 @@ SUBROUTINE DSPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dspgv.f b/SRC/dspgv.f index 93692752..4ac82b59 100644 --- a/SRC/dspgv.f +++ b/SRC/dspgv.f @@ -1,10 +1,10 @@ SUBROUTINE DSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/dspgvd.f b/SRC/dspgvd.f index 323645a3..b80255a9 100644 --- a/SRC/dspgvd.f +++ b/SRC/dspgvd.f @@ -1,10 +1,10 @@ SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/dspgvx.f b/SRC/dspgvx.f index 11c88f5a..f30bd0dd 100644 --- a/SRC/dspgvx.f +++ b/SRC/dspgvx.f @@ -2,10 +2,10 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/dsposv.f b/SRC/dsposv.f index e85bb44e..e3fe2b7d 100644 --- a/SRC/dsposv.f +++ b/SRC/dsposv.f @@ -1,9 +1,9 @@ SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) * -* -- LAPACK PROTOTYPE driver routine (version 3.3.0) -- +* -- LAPACK PROTOTYPE driver routine (version 3.3.1) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd.. -* November 2010 +* -- April 2011 -- * * .. * .. Scalar Arguments .. diff --git a/SRC/dspsv.f b/SRC/dspsv.f index 7af58c4b..69f642c1 100644 --- a/SRC/dspsv.f +++ b/SRC/dspsv.f @@ -1,9 +1,9 @@ SUBROUTINE DSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dspsvx.f b/SRC/dspsvx.f index 6f1da4bf..413e486a 100644 --- a/SRC/dspsvx.f +++ b/SRC/dspsvx.f @@ -1,10 +1,10 @@ SUBROUTINE DSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/dsptrd.f b/SRC/dsptrd.f index 56b436d8..8fcceedc 100644 --- a/SRC/dsptrd.f +++ b/SRC/dsptrd.f @@ -1,9 +1,9 @@ SUBROUTINE DSPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsptrf.f b/SRC/dsptrf.f index 889596b1..85493f46 100644 --- a/SRC/dsptrf.f +++ b/SRC/dsptrf.f @@ -1,9 +1,9 @@ SUBROUTINE DSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsptri.f b/SRC/dsptri.f index 48b0eb0a..8ce906ca 100644 --- a/SRC/dsptri.f +++ b/SRC/dsptri.f @@ -1,9 +1,9 @@ SUBROUTINE DSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsptrs.f b/SRC/dsptrs.f index 26e6b955..49dfa5a9 100644 --- a/SRC/dsptrs.f +++ b/SRC/dsptrs.f @@ -1,9 +1,9 @@ SUBROUTINE DSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dstebz.f b/SRC/dstebz.f index 634a9a8b..6b8e059b 100644 --- a/SRC/dstebz.f +++ b/SRC/dstebz.f @@ -2,10 +2,10 @@ $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * 8-18-00: Increase FUDGE factor for T3E (eca) * * .. Scalar Arguments .. diff --git a/SRC/dsteqr.f b/SRC/dsteqr.f index 17a17468..2b364884 100644 --- a/SRC/dsteqr.f +++ b/SRC/dsteqr.f @@ -1,9 +1,9 @@ SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/SRC/dsterf.f b/SRC/dsterf.f index 74f289b6..c7ea81d1 100644 --- a/SRC/dsterf.f +++ b/SRC/dsterf.f @@ -1,9 +1,9 @@ SUBROUTINE DSTERF( N, D, E, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dsycon.f b/SRC/dsycon.f index 209ea1c8..33e8949e 100644 --- a/SRC/dsycon.f +++ b/SRC/dsycon.f @@ -1,10 +1,10 @@ SUBROUTINE DSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dsygs2.f b/SRC/dsygs2.f index 100c99d3..0d8f4c45 100644 --- a/SRC/dsygs2.f +++ b/SRC/dsygs2.f @@ -1,9 +1,9 @@ SUBROUTINE DSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsygst.f b/SRC/dsygst.f index 97ad94c2..2d290e47 100644 --- a/SRC/dsygst.f +++ b/SRC/dsygst.f @@ -1,9 +1,9 @@ SUBROUTINE DSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsygv.f b/SRC/dsygv.f index 9fc2c250..29020dcb 100644 --- a/SRC/dsygv.f +++ b/SRC/dsygv.f @@ -1,10 +1,10 @@ SUBROUTINE DSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/dsygvd.f b/SRC/dsygvd.f index 857abfd8..efd1aa7b 100644 --- a/SRC/dsygvd.f +++ b/SRC/dsygvd.f @@ -1,10 +1,10 @@ SUBROUTINE DSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/dsygvx.f b/SRC/dsygvx.f index e70009df..d2e50568 100644 --- a/SRC/dsygvx.f +++ b/SRC/dsygvx.f @@ -2,10 +2,10 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/dsysv.f b/SRC/dsysv.f index 5979f38b..eaaabecc 100644 --- a/SRC/dsysv.f +++ b/SRC/dsysv.f @@ -1,10 +1,10 @@ SUBROUTINE DSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.3.0) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2011 +* -- April 2011 -- * @generated d * * .. Scalar Arguments .. diff --git a/SRC/dsysvx.f b/SRC/dsysvx.f index 3149606d..59b17eaa 100644 --- a/SRC/dsysvx.f +++ b/SRC/dsysvx.f @@ -2,10 +2,10 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/dsyswapr.f b/SRC/dsyswapr.f index 0a09f4aa..59e545f7 100644 --- a/SRC/dsyswapr.f +++ b/SRC/dsyswapr.f @@ -1,9 +1,9 @@ SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytd2.f b/SRC/dsytd2.f index eeede7a7..a2485489 100644 --- a/SRC/dsytd2.f +++ b/SRC/dsytd2.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytf2.f b/SRC/dsytf2.f index 689ef119..53839181 100644 --- a/SRC/dsytf2.f +++ b/SRC/dsytf2.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytrd.f b/SRC/dsytrd.f index 0622ce67..53bbab73 100644 --- a/SRC/dsytrd.f +++ b/SRC/dsytrd.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytrf.f b/SRC/dsytrf.f index 377aa21d..1f0ad3c3 100644 --- a/SRC/dsytrf.f +++ b/SRC/dsytrf.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytri.f b/SRC/dsytri.f index 3e7d88e5..9b3ba6c0 100644 --- a/SRC/dsytri.f +++ b/SRC/dsytri.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytri2.f b/SRC/dsytri2.f index 6e1fa5bd..b13b1c81 100644 --- a/SRC/dsytri2.f +++ b/SRC/dsytri2.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/dsytri2x.f b/SRC/dsytri2x.f index 9ab1a64c..2eb42710 100644 --- a/SRC/dsytri2x.f +++ b/SRC/dsytri2x.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/dsytrs.f b/SRC/dsytrs.f index 7a4a0f77..c32b8e84 100644 --- a/SRC/dsytrs.f +++ b/SRC/dsytrs.f @@ -1,9 +1,9 @@ SUBROUTINE DSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytrs2.f b/SRC/dsytrs2.f index 9e256d85..2de7d999 100644 --- a/SRC/dsytrs2.f +++ b/SRC/dsytrs2.f @@ -1,10 +1,10 @@ SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK PROTOTYPE routine (version 3.3.0) -- +* -- LAPACK PROTOTYPE routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/dtbrfs.f b/SRC/dtbrfs.f index a1c2e7b5..aa493144 100644 --- a/SRC/dtbrfs.f +++ b/SRC/dtbrfs.f @@ -1,10 +1,10 @@ SUBROUTINE DTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dtfsm.f b/SRC/dtfsm.f index 94673aec..7ce92e45 100644 --- a/SRC/dtfsm.f +++ b/SRC/dtfsm.f @@ -1,10 +1,10 @@ SUBROUTINE DTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dtftri.f b/SRC/dtftri.f index 066bacec..74e7008f 100644 --- a/SRC/dtftri.f +++ b/SRC/dtftri.f @@ -1,9 +1,9 @@ SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 -- +* -- April 2011 ---- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dtfttp.f b/SRC/dtfttp.f index 00adb2e7..8c5164fc 100644 --- a/SRC/dtfttp.f +++ b/SRC/dtfttp.f @@ -1,9 +1,9 @@ SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dtfttr.f b/SRC/dtfttr.f index 4cf87aad..8589af44 100644 --- a/SRC/dtfttr.f +++ b/SRC/dtfttr.f @@ -1,9 +1,9 @@ SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dtgevc.f b/SRC/dtgevc.f index 920f76d8..cf8bff8e 100644 --- a/SRC/dtgevc.f +++ b/SRC/dtgevc.f @@ -1,10 +1,10 @@ SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/SRC/dtgex2.f b/SRC/dtgex2.f index 9362fe21..ae743a91 100644 --- a/SRC/dtgex2.f +++ b/SRC/dtgex2.f @@ -1,10 +1,10 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/dtgexc.f b/SRC/dtgexc.f index f7e2cc17..44c38973 100644 --- a/SRC/dtgexc.f +++ b/SRC/dtgexc.f @@ -1,10 +1,10 @@ SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/dtgsen.f b/SRC/dtgsen.f index 1735c006..cf04b06f 100644 --- a/SRC/dtgsen.f +++ b/SRC/dtgsen.f @@ -2,10 +2,10 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dtgsja.f b/SRC/dtgsja.f index 702ef939..84226b35 100644 --- a/SRC/dtgsja.f +++ b/SRC/dtgsja.f @@ -2,7 +2,7 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/dtgsna.f b/SRC/dtgsna.f index 6cbc0c72..ebf7f7af 100644 --- a/SRC/dtgsna.f +++ b/SRC/dtgsna.f @@ -2,10 +2,10 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/SRC/dtgsy2.f b/SRC/dtgsy2.f index bfaa9ae5..bddc38e8 100644 --- a/SRC/dtgsy2.f +++ b/SRC/dtgsy2.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dtgsyl.f b/SRC/dtgsyl.f index 4fc82c87..f91059a6 100644 --- a/SRC/dtgsyl.f +++ b/SRC/dtgsyl.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dtprfs.f b/SRC/dtprfs.f index ff275c14..30b7fba0 100644 --- a/SRC/dtprfs.f +++ b/SRC/dtprfs.f @@ -1,10 +1,10 @@ SUBROUTINE DTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dtpttf.f b/SRC/dtpttf.f index 8f2b85da..c00ee36c 100644 --- a/SRC/dtpttf.f +++ b/SRC/dtpttf.f @@ -1,9 +1,9 @@ SUBROUTINE DTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dtrevc.f b/SRC/dtrevc.f index 0ac5725d..e7cbc5dc 100644 --- a/SRC/dtrevc.f +++ b/SRC/dtrevc.f @@ -1,10 +1,10 @@ SUBROUTINE DTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/SRC/dtrrfs.f b/SRC/dtrrfs.f index 6a5c23d7..441863d8 100644 --- a/SRC/dtrrfs.f +++ b/SRC/dtrrfs.f @@ -1,10 +1,10 @@ SUBROUTINE DTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dtrsen.f b/SRC/dtrsen.f index e92b2962..58900e06 100644 --- a/SRC/dtrsen.f +++ b/SRC/dtrsen.f @@ -1,10 +1,10 @@ SUBROUTINE DTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/SRC/dtrsna.f b/SRC/dtrsna.f index 6595d877..a71b4a95 100644 --- a/SRC/dtrsna.f +++ b/SRC/dtrsna.f @@ -2,10 +2,10 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. * diff --git a/SRC/dtrsyl.f b/SRC/dtrsyl.f index e63db3c5..d95e63e9 100644 --- a/SRC/dtrsyl.f +++ b/SRC/dtrsyl.f @@ -1,10 +1,10 @@ SUBROUTINE DTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/SRC/dtrttf.f b/SRC/dtrttf.f index e0ca3b4f..f1d0966a 100644 --- a/SRC/dtrttf.f +++ b/SRC/dtrttf.f @@ -1,9 +1,9 @@ SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/dtzrqf.f b/SRC/dtzrqf.f index cbec29e8..395daffd 100644 --- a/SRC/dtzrqf.f +++ b/SRC/dtzrqf.f @@ -1,9 +1,9 @@ SUBROUTINE DTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dtzrzf.f b/SRC/dtzrzf.f index bf7135b6..4f0b8af1 100644 --- a/SRC/dtzrzf.f +++ b/SRC/dtzrzf.f @@ -1,9 +1,9 @@ SUBROUTINE DTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @generated d * * .. Scalar Arguments .. diff --git a/SRC/ieeeck.f b/SRC/ieeeck.f index befe08c5..ba917428 100644 --- a/SRC/ieeeck.f +++ b/SRC/ieeeck.f @@ -1,9 +1,9 @@ INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER ISPEC diff --git a/SRC/ilaclr.f b/SRC/ilaclr.f index 1a14aece..3163544a 100644 --- a/SRC/ilaclr.f +++ b/SRC/ilaclr.f @@ -1,12 +1,10 @@ INTEGER FUNCTION ILACLR( M, N, A, LDA ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2.2) -- -* -* -- June 2010 -- -* +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/iladlr.f b/SRC/iladlr.f index 745aef6d..dd4d37ca 100644 --- a/SRC/iladlr.f +++ b/SRC/iladlr.f @@ -1,12 +1,10 @@ INTEGER FUNCTION ILADLR( M, N, A, LDA ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2.2) -- -* -* -- June 2010 -- -* +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f index 32b2dfa8..06e71be1 100644 --- a/SRC/ilaslr.f +++ b/SRC/ilaslr.f @@ -1,12 +1,10 @@ INTEGER FUNCTION ILASLR( M, N, A, LDA ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2.2) -- -* -* -- June 2010 -- -* +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f index a661a571..0647ac8e 100644 --- a/SRC/ilazlr.f +++ b/SRC/ilazlr.f @@ -1,13 +1,10 @@ INTEGER FUNCTION ILAZLR( M, N, A, LDA ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2.2) -- -* -* -- June 2010 -- -* +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* +* -- April 2011 -- * .. Scalar Arguments .. INTEGER M, N, LDA * .. diff --git a/SRC/sgbbrd.f b/SRC/sgbbrd.f index b2193861..666e2324 100644 --- a/SRC/sgbbrd.f +++ b/SRC/sgbbrd.f @@ -1,10 +1,10 @@ SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER VECT diff --git a/SRC/sgbcon.f b/SRC/sgbcon.f index 473c4ebb..664431ed 100644 --- a/SRC/sgbcon.f +++ b/SRC/sgbcon.f @@ -1,10 +1,10 @@ SUBROUTINE SGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/sgebd2.f b/SRC/sgebd2.f index fa0bc55c..95cee538 100644 --- a/SRC/sgebd2.f +++ b/SRC/sgebd2.f @@ -1,9 +1,9 @@ SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgebrd.f b/SRC/sgebrd.f index 9a49eac5..c0105629 100644 --- a/SRC/sgebrd.f +++ b/SRC/sgebrd.f @@ -1,10 +1,10 @@ SUBROUTINE SGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgecon.f b/SRC/sgecon.f index 56c30232..e5ea03a4 100644 --- a/SRC/sgecon.f +++ b/SRC/sgecon.f @@ -1,10 +1,10 @@ SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/sgeev.f b/SRC/sgeev.f index 87b9861f..0267cd54 100644 --- a/SRC/sgeev.f +++ b/SRC/sgeev.f @@ -1,10 +1,10 @@ SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/SRC/sgeevx.f b/SRC/sgeevx.f index 483930fe..ca242063 100644 --- a/SRC/sgeevx.f +++ b/SRC/sgeevx.f @@ -2,10 +2,10 @@ $ VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/SRC/sgehd2.f b/SRC/sgehd2.f index 466fef45..b361d696 100644 --- a/SRC/sgehd2.f +++ b/SRC/sgehd2.f @@ -1,9 +1,9 @@ SUBROUTINE SGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/sgehrd.f b/SRC/sgehrd.f index 3ba78516..2d3a8cc0 100644 --- a/SRC/sgehrd.f +++ b/SRC/sgehrd.f @@ -1,6 +1,6 @@ SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f index 7873bbbd..1afb50d7 100644 --- a/SRC/sgejsv.f +++ b/SRC/sgejsv.f @@ -6,7 +6,7 @@ * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* January 2011 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/sgelq2.f b/SRC/sgelq2.f index d7f5c105..cf227861 100644 --- a/SRC/sgelq2.f +++ b/SRC/sgelq2.f @@ -1,9 +1,9 @@ SUBROUTINE SGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgelqf.f b/SRC/sgelqf.f index 40140ff4..0a6f3928 100644 --- a/SRC/sgelqf.f +++ b/SRC/sgelqf.f @@ -1,9 +1,9 @@ SUBROUTINE SGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgels.f b/SRC/sgels.f index 6fc82655..4aaeea63 100644 --- a/SRC/sgels.f +++ b/SRC/sgels.f @@ -1,10 +1,10 @@ SUBROUTINE SGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/sgelsx.f b/SRC/sgelsx.f index b7ea0f1f..b0a18c0a 100644 --- a/SRC/sgelsx.f +++ b/SRC/sgelsx.f @@ -1,10 +1,10 @@ SUBROUTINE SGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/SRC/sgelsy.f b/SRC/sgelsy.f index 9e7bcd1a..0158ad88 100644 --- a/SRC/sgelsy.f +++ b/SRC/sgelsy.f @@ -1,10 +1,10 @@ SUBROUTINE SGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/SRC/sgeql2.f b/SRC/sgeql2.f index 91e1aa3b..e3d67cdc 100644 --- a/SRC/sgeql2.f +++ b/SRC/sgeql2.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeqlf.f b/SRC/sgeqlf.f index 65aa74a7..b4d481b9 100644 --- a/SRC/sgeqlf.f +++ b/SRC/sgeqlf.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgeqp3.f b/SRC/sgeqp3.f index 12bfb585..9cb5eafd 100644 --- a/SRC/sgeqp3.f +++ b/SRC/sgeqp3.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgeqpf.f b/SRC/sgeqpf.f index 1c631413..5fca2d0d 100644 --- a/SRC/sgeqpf.f +++ b/SRC/sgeqpf.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * -* -- LAPACK deprecated computational routine (version 3.2.2) -- +* -- LAPACK deprecated computational routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -78,7 +78,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * * ===================================================================== diff --git a/SRC/sgeqr2.f b/SRC/sgeqr2.f index e5fce4a9..4eb385ae 100644 --- a/SRC/sgeqr2.f +++ b/SRC/sgeqr2.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeqr2p.f b/SRC/sgeqr2p.f index 070e93b3..b81f7d2b 100644 --- a/SRC/sgeqr2p.f +++ b/SRC/sgeqr2p.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeqrf.f b/SRC/sgeqrf.f index a2b71d80..d6d8cd1b 100644 --- a/SRC/sgeqrf.f +++ b/SRC/sgeqrf.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgeqrfp.f b/SRC/sgeqrfp.f index 6c6493fa..d9c7e434 100644 --- a/SRC/sgeqrfp.f +++ b/SRC/sgeqrfp.f @@ -1,9 +1,9 @@ SUBROUTINE SGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgerq2.f b/SRC/sgerq2.f index 3f6e5720..2783cbea 100644 --- a/SRC/sgerq2.f +++ b/SRC/sgerq2.f @@ -1,9 +1,9 @@ SUBROUTINE SGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgerqf.f b/SRC/sgerqf.f index 639906ac..875c557f 100644 --- a/SRC/sgerqf.f +++ b/SRC/sgerqf.f @@ -1,9 +1,9 @@ SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgesvd.f b/SRC/sgesvd.f index 5c200c48..1f0f0537 100644 --- a/SRC/sgesvd.f +++ b/SRC/sgesvd.f @@ -1,10 +1,10 @@ SUBROUTINE SGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f index 32798519..4e2ffc9f 100644 --- a/SRC/sgesvj.f +++ b/SRC/sgesvj.f @@ -5,7 +5,7 @@ * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* January 2011 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/sgetrs.f b/SRC/sgetrs.f index 5aae04df..b35021ce 100644 --- a/SRC/sgetrs.f +++ b/SRC/sgetrs.f @@ -1,9 +1,9 @@ SUBROUTINE SGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/sggglm.f b/SRC/sggglm.f index 4b5eac46..833dea90 100644 --- a/SRC/sggglm.f +++ b/SRC/sggglm.f @@ -1,10 +1,10 @@ SUBROUTINE SGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/sgglse.f b/SRC/sgglse.f index 706853da..fffc3f83 100644 --- a/SRC/sgglse.f +++ b/SRC/sgglse.f @@ -1,10 +1,10 @@ SUBROUTINE SGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/sggqrf.f b/SRC/sggqrf.f index bb4f50f0..634fb440 100644 --- a/SRC/sggqrf.f +++ b/SRC/sggqrf.f @@ -1,10 +1,10 @@ SUBROUTINE SGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/sggrqf.f b/SRC/sggrqf.f index aed20ed8..4dde32c1 100644 --- a/SRC/sggrqf.f +++ b/SRC/sggrqf.f @@ -1,10 +1,10 @@ SUBROUTINE SGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/sggsvd.f b/SRC/sggsvd.f index 322d478b..15e7805c 100644 --- a/SRC/sggsvd.f +++ b/SRC/sggsvd.f @@ -2,10 +2,10 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/sggsvp.f b/SRC/sggsvp.f index 4b633f30..18b1aa98 100644 --- a/SRC/sggsvp.f +++ b/SRC/sggsvp.f @@ -2,10 +2,10 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/sgsvj0.f b/SRC/sgsvj0.f index 3e0ed57e..eeaaab7e 100644 --- a/SRC/sgsvj0.f +++ b/SRC/sgsvj0.f @@ -5,7 +5,7 @@ * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* January 2011 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f index c1249b79..c1e25a7d 100644 --- a/SRC/sgsvj1.f +++ b/SRC/sgsvj1.f @@ -1,11 +1,11 @@ SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/sgtcon.f b/SRC/sgtcon.f index 53e8eb18..316b842a 100644 --- a/SRC/sgtcon.f +++ b/SRC/sgtcon.f @@ -1,10 +1,10 @@ SUBROUTINE SGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/sgtsv.f b/SRC/sgtsv.f index b2de9760..d31b90d3 100644 --- a/SRC/sgtsv.f +++ b/SRC/sgtsv.f @@ -1,9 +1,9 @@ SUBROUTINE SGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/shgeqz.f b/SRC/shgeqz.f index eb2a35eb..83b6ebfb 100644 --- a/SRC/shgeqz.f +++ b/SRC/shgeqz.f @@ -2,7 +2,7 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/sla_gbamv.f b/SRC/sla_gbamv.f index cab2aa11..6499bf6a 100644 --- a/SRC/sla_gbamv.f +++ b/SRC/sla_gbamv.f @@ -1,7 +1,7 @@ SUBROUTINE SLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/sla_geamv.f b/SRC/sla_geamv.f index 29681994..f58122d3 100644 --- a/SRC/sla_geamv.f +++ b/SRC/sla_geamv.f @@ -1,7 +1,7 @@ SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/slabrd.f b/SRC/slabrd.f index a4e3a7ae..433c6cb2 100644 --- a/SRC/slabrd.f +++ b/SRC/slabrd.f @@ -1,10 +1,10 @@ SUBROUTINE SLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/slaebz.f b/SRC/slaebz.f index aea39bd2..39fbbc21 100644 --- a/SRC/slaebz.f +++ b/SRC/slaebz.f @@ -2,10 +2,10 @@ $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/SRC/slaed7.f b/SRC/slaed7.f index b0fd20eb..d36837b7 100644 --- a/SRC/slaed7.f +++ b/SRC/slaed7.f @@ -3,10 +3,10 @@ $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/SRC/slaein.f b/SRC/slaein.f index d868de9a..c60b769f 100644 --- a/SRC/slaein.f +++ b/SRC/slaein.f @@ -1,10 +1,10 @@ SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/slag2d.f b/SRC/slag2d.f index 888b3181..1a3aedfa 100644 --- a/SRC/slag2d.f +++ b/SRC/slag2d.f @@ -1,9 +1,9 @@ SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- +* -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2007 +* -- April 2011 -- * * .. * .. Scalar Arguments .. diff --git a/SRC/slags2.f b/SRC/slags2.f index 36c8dedb..3415dbe9 100644 --- a/SRC/slags2.f +++ b/SRC/slags2.f @@ -1,10 +1,10 @@ SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/SRC/slagtm.f b/SRC/slagtm.f index fe96b309..80e9f80b 100644 --- a/SRC/slagtm.f +++ b/SRC/slagtm.f @@ -1,10 +1,10 @@ SUBROUTINE SLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/slagts.f b/SRC/slagts.f index 16e95380..35461528 100644 --- a/SRC/slagts.f +++ b/SRC/slagts.f @@ -1,9 +1,9 @@ SUBROUTINE SLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/SRC/slahr2.f b/SRC/slahr2.f index 1aaf7b78..d54087cc 100644 --- a/SRC/slahr2.f +++ b/SRC/slahr2.f @@ -1,6 +1,6 @@ SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2.1) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/slahrd.f b/SRC/slahrd.f index 9c995463..09bf6eba 100644 --- a/SRC/slahrd.f +++ b/SRC/slahrd.f @@ -1,9 +1,9 @@ SUBROUTINE SLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/slaic1.f b/SRC/slaic1.f index 385bcdee..fdd54a91 100644 --- a/SRC/slaic1.f +++ b/SRC/slaic1.f @@ -1,9 +1,9 @@ SUBROUTINE SLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/slansf.f b/SRC/slansf.f index d960ef22..298c154e 100644 --- a/SRC/slansf.f +++ b/SRC/slansf.f @@ -1,9 +1,9 @@ REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/slaqp2.f b/SRC/slaqp2.f index d838c8fa..6e6ab885 100644 --- a/SRC/slaqp2.f +++ b/SRC/slaqp2.f @@ -1,10 +1,10 @@ SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET @@ -75,7 +75,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/slaqps.f b/SRC/slaqps.f index f9c65c63..6c229cc2 100644 --- a/SRC/slaqps.f +++ b/SRC/slaqps.f @@ -1,10 +1,10 @@ SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET @@ -91,7 +91,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/slaqsb.f b/SRC/slaqsb.f index d693fab9..e05d9d67 100644 --- a/SRC/slaqsb.f +++ b/SRC/slaqsb.f @@ -1,9 +1,9 @@ SUBROUTINE SLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/slaqtr.f b/SRC/slaqtr.f index e87c21be..e0c39ea1 100644 --- a/SRC/slaqtr.f +++ b/SRC/slaqtr.f @@ -1,10 +1,10 @@ SUBROUTINE SLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/SRC/slar1v.f b/SRC/slar1v.f index 1c059ed0..9ddd6d1d 100644 --- a/SRC/slar1v.f +++ b/SRC/slar1v.f @@ -2,10 +2,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/slarf.f b/SRC/slarf.f index 380d808b..87b43325 100644 --- a/SRC/slarf.f +++ b/SRC/slarf.f @@ -1,10 +1,10 @@ SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/slarfb.f b/SRC/slarfb.f index 40011874..a330ea46 100644 --- a/SRC/slarfb.f +++ b/SRC/slarfb.f @@ -2,10 +2,10 @@ $ T, LDT, C, LDC, WORK, LDWORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/slarfg.f b/SRC/slarfg.f index 8afa18d5..e0904b77 100644 --- a/SRC/slarfg.f +++ b/SRC/slarfg.f @@ -1,9 +1,9 @@ SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/slarfgp.f b/SRC/slarfgp.f index 14f61349..000be58b 100644 --- a/SRC/slarfgp.f +++ b/SRC/slarfgp.f @@ -1,9 +1,9 @@ SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/slarft.f b/SRC/slarft.f index d2801834..5738597c 100644 --- a/SRC/slarft.f +++ b/SRC/slarft.f @@ -1,10 +1,10 @@ SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/slarfx.f b/SRC/slarfx.f index 3af7f92b..9e179703 100644 --- a/SRC/slarfx.f +++ b/SRC/slarfx.f @@ -1,9 +1,9 @@ SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/slarre.f b/SRC/slarre.f index b3815b9d..a3d6060b 100644 --- a/SRC/slarre.f +++ b/SRC/slarre.f @@ -4,10 +4,10 @@ $ WORK, IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER RANGE diff --git a/SRC/slarrv.f b/SRC/slarrv.f index aa60876e..76dc1292 100644 --- a/SRC/slarrv.f +++ b/SRC/slarrv.f @@ -4,10 +4,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/slarz.f b/SRC/slarz.f index f842ee01..ee0f633f 100644 --- a/SRC/slarz.f +++ b/SRC/slarz.f @@ -1,9 +1,9 @@ SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/slarzb.f b/SRC/slarzb.f index a0b820fc..5a8a0a80 100644 --- a/SRC/slarzb.f +++ b/SRC/slarzb.f @@ -1,10 +1,10 @@ SUBROUTINE SLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/slarzt.f b/SRC/slarzt.f index b8689fa5..db5f869a 100644 --- a/SRC/slarzt.f +++ b/SRC/slarzt.f @@ -1,9 +1,9 @@ SUBROUTINE SLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/slasd1.f b/SRC/slasd1.f index 080a9f28..6e3a2a67 100644 --- a/SRC/slasd1.f +++ b/SRC/slasd1.f @@ -1,10 +1,10 @@ SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/SRC/slasd4.f b/SRC/slasd4.f index ab3f70e6..ed614458 100644 --- a/SRC/slasd4.f +++ b/SRC/slasd4.f @@ -1,9 +1,9 @@ SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/slasq4.f b/SRC/slasq4.f index 65324e68..93505c59 100644 --- a/SRC/slasq4.f +++ b/SRC/slasq4.f @@ -1,7 +1,7 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Osni Marques of the Lawrence Berkeley National -- * -- Laboratory and Beresford Parlett of the Univ. of California at -- diff --git a/SRC/slasyf.f b/SRC/slasyf.f index b9053885..257c5da6 100644 --- a/SRC/slasyf.f +++ b/SRC/slasyf.f @@ -1,9 +1,9 @@ SUBROUTINE SLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slatrd.f b/SRC/slatrd.f index f73fecc7..76116636 100644 --- a/SRC/slatrd.f +++ b/SRC/slatrd.f @@ -1,9 +1,9 @@ SUBROUTINE SLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slatrz.f b/SRC/slatrz.f index a5852bcf..375d845c 100644 --- a/SRC/slatrz.f +++ b/SRC/slatrz.f @@ -1,9 +1,9 @@ SUBROUTINE SLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/slatzm.f b/SRC/slatzm.f index 1694dd65..ce914cb5 100644 --- a/SRC/slatzm.f +++ b/SRC/slatzm.f @@ -1,9 +1,9 @@ SUBROUTINE SLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/slauu2.f b/SRC/slauu2.f index e1eb9c61..f4252f6a 100644 --- a/SRC/slauu2.f +++ b/SRC/slauu2.f @@ -1,9 +1,9 @@ SUBROUTINE SLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slauum.f b/SRC/slauum.f index de0081ce..b77c0276 100644 --- a/SRC/slauum.f +++ b/SRC/slauum.f @@ -1,9 +1,9 @@ SUBROUTINE SLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f index 6886ff8f..e8dc9681 100644 --- a/SRC/sorcsd.f +++ b/SRC/sorcsd.f @@ -5,7 +5,7 @@ $ LDV2T, WORK, LWORK, IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Brian Sutton of the Randolph-Macon College -- * -- November 2010 diff --git a/SRC/sorglq.f b/SRC/sorglq.f index 8285f32d..c4fc7190 100644 --- a/SRC/sorglq.f +++ b/SRC/sorglq.f @@ -1,9 +1,9 @@ SUBROUTINE SORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/sorgrq.f b/SRC/sorgrq.f index 82814d2d..5c0e03af 100644 --- a/SRC/sorgrq.f +++ b/SRC/sorgrq.f @@ -1,9 +1,9 @@ SUBROUTINE SORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/sorm2l.f b/SRC/sorm2l.f index e8fc91fd..8723969d 100644 --- a/SRC/sorm2l.f +++ b/SRC/sorm2l.f @@ -1,10 +1,10 @@ SUBROUTINE SORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sorm2r.f b/SRC/sorm2r.f index 971e5397..33d0be9a 100644 --- a/SRC/sorm2r.f +++ b/SRC/sorm2r.f @@ -1,10 +1,10 @@ SUBROUTINE SORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sorml2.f b/SRC/sorml2.f index 45015055..6d34b62f 100644 --- a/SRC/sorml2.f +++ b/SRC/sorml2.f @@ -1,10 +1,10 @@ SUBROUTINE SORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormlq.f b/SRC/sormlq.f index d2918767..0bb06d2f 100644 --- a/SRC/sormlq.f +++ b/SRC/sormlq.f @@ -1,10 +1,10 @@ SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormql.f b/SRC/sormql.f index 7ed15d74..9fc9d303 100644 --- a/SRC/sormql.f +++ b/SRC/sormql.f @@ -1,10 +1,10 @@ SUBROUTINE SORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormqr.f b/SRC/sormqr.f index a35c71d6..7f12aec6 100644 --- a/SRC/sormqr.f +++ b/SRC/sormqr.f @@ -1,10 +1,10 @@ SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormr2.f b/SRC/sormr2.f index 05e32932..83d1cd6a 100644 --- a/SRC/sormr2.f +++ b/SRC/sormr2.f @@ -1,10 +1,10 @@ SUBROUTINE SORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormr3.f b/SRC/sormr3.f index 541a2d2b..6fb0b147 100644 --- a/SRC/sormr3.f +++ b/SRC/sormr3.f @@ -1,10 +1,10 @@ SUBROUTINE SORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormrq.f b/SRC/sormrq.f index cfb72670..5bd8eea2 100644 --- a/SRC/sormrq.f +++ b/SRC/sormrq.f @@ -1,10 +1,10 @@ SUBROUTINE SORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormrz.f b/SRC/sormrz.f index 801f137c..00ba7af8 100644 --- a/SRC/sormrz.f +++ b/SRC/sormrz.f @@ -1,10 +1,10 @@ SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/spbcon.f b/SRC/spbcon.f index 0fb53dd9..1076e759 100644 --- a/SRC/spbcon.f +++ b/SRC/spbcon.f @@ -1,10 +1,10 @@ SUBROUTINE SPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/spbsv.f b/SRC/spbsv.f index b32d58a3..8c046420 100644 --- a/SRC/spbsv.f +++ b/SRC/spbsv.f @@ -1,9 +1,9 @@ SUBROUTINE SPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spbsvx.f b/SRC/spbsvx.f index 95dc5ac6..672fa6f4 100644 --- a/SRC/spbsvx.f +++ b/SRC/spbsvx.f @@ -2,10 +2,10 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/spbtf2.f b/SRC/spbtf2.f index 6dd688e6..0903783e 100644 --- a/SRC/spbtf2.f +++ b/SRC/spbtf2.f @@ -1,9 +1,9 @@ SUBROUTINE SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spbtrs.f b/SRC/spbtrs.f index a52834b7..48569c6e 100644 --- a/SRC/spbtrs.f +++ b/SRC/spbtrs.f @@ -1,9 +1,9 @@ SUBROUTINE SPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spftrf.f b/SRC/spftrf.f index 83ce11c1..62f89611 100644 --- a/SRC/spftrf.f +++ b/SRC/spftrf.f @@ -1,9 +1,9 @@ SUBROUTINE SPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/spftri.f b/SRC/spftri.f index 16f7a5cf..e840e18e 100644 --- a/SRC/spftri.f +++ b/SRC/spftri.f @@ -1,9 +1,9 @@ SUBROUTINE SPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/spftrs.f b/SRC/spftrs.f index 6b77dbdd..95bc45b5 100644 --- a/SRC/spftrs.f +++ b/SRC/spftrs.f @@ -1,9 +1,9 @@ SUBROUTINE SPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/spocon.f b/SRC/spocon.f index 0a50fa18..68bfd587 100644 --- a/SRC/spocon.f +++ b/SRC/spocon.f @@ -1,10 +1,10 @@ SUBROUTINE SPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/sposv.f b/SRC/sposv.f index 19909a35..01bb1bed 100644 --- a/SRC/sposv.f +++ b/SRC/sposv.f @@ -1,9 +1,9 @@ SUBROUTINE SPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sposvx.f b/SRC/sposvx.f index 090ae300..5efffce9 100644 --- a/SRC/sposvx.f +++ b/SRC/sposvx.f @@ -2,10 +2,10 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/spotf2.f b/SRC/spotf2.f index 2b8d5157..0792a90b 100644 --- a/SRC/spotf2.f +++ b/SRC/spotf2.f @@ -1,9 +1,9 @@ SUBROUTINE SPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spotrf.f b/SRC/spotrf.f index 45dc72be..6d5043bd 100644 --- a/SRC/spotrf.f +++ b/SRC/spotrf.f @@ -1,9 +1,9 @@ SUBROUTINE SPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spotri.f b/SRC/spotri.f index 401a7921..c8c5c51a 100644 --- a/SRC/spotri.f +++ b/SRC/spotri.f @@ -1,9 +1,9 @@ SUBROUTINE SPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spotrs.f b/SRC/spotrs.f index 1792841c..cd18ca7e 100644 --- a/SRC/spotrs.f +++ b/SRC/spotrs.f @@ -1,9 +1,9 @@ SUBROUTINE SPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sppcon.f b/SRC/sppcon.f index 1d492754..59ae0e1e 100644 --- a/SRC/sppcon.f +++ b/SRC/sppcon.f @@ -1,9 +1,9 @@ SUBROUTINE SPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/sppsv.f b/SRC/sppsv.f index e0f4259e..a91b3357 100644 --- a/SRC/sppsv.f +++ b/SRC/sppsv.f @@ -1,9 +1,9 @@ SUBROUTINE SPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sppsvx.f b/SRC/sppsvx.f index b7be9041..802150db 100644 --- a/SRC/sppsvx.f +++ b/SRC/sppsvx.f @@ -1,10 +1,10 @@ SUBROUTINE SPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/spptrf.f b/SRC/spptrf.f index b0d7cd20..5ad6f971 100644 --- a/SRC/spptrf.f +++ b/SRC/spptrf.f @@ -1,9 +1,9 @@ SUBROUTINE SPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spptri.f b/SRC/spptri.f index 5bb7961a..f7987b5d 100644 --- a/SRC/spptri.f +++ b/SRC/spptri.f @@ -1,9 +1,9 @@ SUBROUTINE SPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spptrs.f b/SRC/spptrs.f index b099f55a..ee5f3790 100644 --- a/SRC/spptrs.f +++ b/SRC/spptrs.f @@ -1,9 +1,9 @@ SUBROUTINE SPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sptcon.f b/SRC/sptcon.f index bf47778a..05b88449 100644 --- a/SRC/sptcon.f +++ b/SRC/sptcon.f @@ -1,9 +1,9 @@ SUBROUTINE SPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/sptrfs.f b/SRC/sptrfs.f index 875d76b2..062ae2d1 100644 --- a/SRC/sptrfs.f +++ b/SRC/sptrfs.f @@ -1,10 +1,10 @@ SUBROUTINE SPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/SRC/sptsv.f b/SRC/sptsv.f index 09b08613..e4cbb38b 100644 --- a/SRC/sptsv.f +++ b/SRC/sptsv.f @@ -1,9 +1,9 @@ SUBROUTINE SPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/sptsvx.f b/SRC/sptsvx.f index 8e1fa861..c81f77a4 100644 --- a/SRC/sptsvx.f +++ b/SRC/sptsvx.f @@ -1,10 +1,10 @@ SUBROUTINE SPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/spttrf.f b/SRC/spttrf.f index ab88d09c..180ab89d 100644 --- a/SRC/spttrf.f +++ b/SRC/spttrf.f @@ -1,9 +1,9 @@ SUBROUTINE SPTTRF( N, D, E, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/spttrs.f b/SRC/spttrs.f index d4a9e5f5..b71c1bfa 100644 --- a/SRC/spttrs.f +++ b/SRC/spttrs.f @@ -1,9 +1,9 @@ SUBROUTINE SPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/sptts2.f b/SRC/sptts2.f index 6e185fda..4022c462 100644 --- a/SRC/sptts2.f +++ b/SRC/sptts2.f @@ -1,9 +1,9 @@ SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/SRC/ssfrk.f b/SRC/ssfrk.f index 51e2bb48..776b03b1 100644 --- a/SRC/ssfrk.f +++ b/SRC/ssfrk.f @@ -1,10 +1,10 @@ SUBROUTINE SSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/sspcon.f b/SRC/sspcon.f index 7b2d467b..179a5cb5 100644 --- a/SRC/sspcon.f +++ b/SRC/sspcon.f @@ -1,10 +1,10 @@ SUBROUTINE SSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 5 Feb 03, SJH. * diff --git a/SRC/sspgst.f b/SRC/sspgst.f index f4482258..e1d49b11 100644 --- a/SRC/sspgst.f +++ b/SRC/sspgst.f @@ -1,9 +1,9 @@ SUBROUTINE SSPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sspgv.f b/SRC/sspgv.f index 27ea0076..0a4e2aa7 100644 --- a/SRC/sspgv.f +++ b/SRC/sspgv.f @@ -1,10 +1,10 @@ SUBROUTINE SSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/sspgvd.f b/SRC/sspgvd.f index 48cb24bb..52b7f679 100644 --- a/SRC/sspgvd.f +++ b/SRC/sspgvd.f @@ -1,10 +1,10 @@ SUBROUTINE SSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/sspgvx.f b/SRC/sspgvx.f index 26f0b71c..cfd565d2 100644 --- a/SRC/sspgvx.f +++ b/SRC/sspgvx.f @@ -2,10 +2,10 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/sspsv.f b/SRC/sspsv.f index a1994997..c16c180e 100644 --- a/SRC/sspsv.f +++ b/SRC/sspsv.f @@ -1,9 +1,9 @@ SUBROUTINE SSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sspsvx.f b/SRC/sspsvx.f index f1a2f868..17a8e4f0 100644 --- a/SRC/sspsvx.f +++ b/SRC/sspsvx.f @@ -1,10 +1,10 @@ SUBROUTINE SSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/ssptrd.f b/SRC/ssptrd.f index 8ebd3dd1..db4d555f 100644 --- a/SRC/ssptrd.f +++ b/SRC/ssptrd.f @@ -1,9 +1,9 @@ SUBROUTINE SSPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssptrf.f b/SRC/ssptrf.f index 3b38eb83..c5b5ea15 100644 --- a/SRC/ssptrf.f +++ b/SRC/ssptrf.f @@ -1,9 +1,9 @@ SUBROUTINE SSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssptri.f b/SRC/ssptri.f index 634f6f25..562fbb3b 100644 --- a/SRC/ssptri.f +++ b/SRC/ssptri.f @@ -1,9 +1,9 @@ SUBROUTINE SSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssptrs.f b/SRC/ssptrs.f index 04b95d2f..7a65528b 100644 --- a/SRC/ssptrs.f +++ b/SRC/ssptrs.f @@ -1,9 +1,9 @@ SUBROUTINE SSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sstebz.f b/SRC/sstebz.f index 13496e78..6b1598c8 100644 --- a/SRC/sstebz.f +++ b/SRC/sstebz.f @@ -2,10 +2,10 @@ $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * 8-18-00: Increase FUDGE factor for T3E (eca) * * .. Scalar Arguments .. diff --git a/SRC/ssteqr.f b/SRC/ssteqr.f index 835c82fc..4b756ae4 100644 --- a/SRC/ssteqr.f +++ b/SRC/ssteqr.f @@ -1,9 +1,9 @@ SUBROUTINE SSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/SRC/ssterf.f b/SRC/ssterf.f index b9110dd6..daa97982 100644 --- a/SRC/ssterf.f +++ b/SRC/ssterf.f @@ -1,9 +1,9 @@ SUBROUTINE SSTERF( N, D, E, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/ssycon.f b/SRC/ssycon.f index fe5dc16a..26244bbf 100644 --- a/SRC/ssycon.f +++ b/SRC/ssycon.f @@ -1,10 +1,10 @@ SUBROUTINE SSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/ssygs2.f b/SRC/ssygs2.f index b1b940ed..5cebc7ba 100644 --- a/SRC/ssygs2.f +++ b/SRC/ssygs2.f @@ -1,9 +1,9 @@ SUBROUTINE SSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssygst.f b/SRC/ssygst.f index 7537b7b3..9a1c2f63 100644 --- a/SRC/ssygst.f +++ b/SRC/ssygst.f @@ -1,9 +1,9 @@ SUBROUTINE SSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssygv.f b/SRC/ssygv.f index a05dd701..709e69ca 100644 --- a/SRC/ssygv.f +++ b/SRC/ssygv.f @@ -1,10 +1,10 @@ SUBROUTINE SSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/ssygvd.f b/SRC/ssygvd.f index 6dd57381..4b391a57 100644 --- a/SRC/ssygvd.f +++ b/SRC/ssygvd.f @@ -1,10 +1,10 @@ SUBROUTINE SSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/ssygvx.f b/SRC/ssygvx.f index 7a6aa961..6197992b 100644 --- a/SRC/ssygvx.f +++ b/SRC/ssygvx.f @@ -2,10 +2,10 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/ssysv.f b/SRC/ssysv.f index fdaa147f..0b995eb7 100644 --- a/SRC/ssysv.f +++ b/SRC/ssysv.f @@ -1,10 +1,10 @@ SUBROUTINE SSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.3.0) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2011 +* -- April 2011 -- * @generated s * * .. Scalar Arguments .. diff --git a/SRC/ssysvx.f b/SRC/ssysvx.f index 7776f414..d137a1c6 100644 --- a/SRC/ssysvx.f +++ b/SRC/ssysvx.f @@ -2,10 +2,10 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/ssyswapr.f b/SRC/ssyswapr.f index 0100e5b8..83b416da 100644 --- a/SRC/ssyswapr.f +++ b/SRC/ssyswapr.f @@ -1,9 +1,9 @@ SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytd2.f b/SRC/ssytd2.f index 19fe1057..c3933e34 100644 --- a/SRC/ssytd2.f +++ b/SRC/ssytd2.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytf2.f b/SRC/ssytf2.f index d94f7f70..6878a80d 100644 --- a/SRC/ssytf2.f +++ b/SRC/ssytf2.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytrd.f b/SRC/ssytrd.f index bb8b1647..9454295d 100644 --- a/SRC/ssytrd.f +++ b/SRC/ssytrd.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytrf.f b/SRC/ssytrf.f index 6fb06d7e..e66d0f5a 100644 --- a/SRC/ssytrf.f +++ b/SRC/ssytrf.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytri.f b/SRC/ssytri.f index 118fc6b2..c378bae6 100644 --- a/SRC/ssytri.f +++ b/SRC/ssytri.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytri2.f b/SRC/ssytri2.f index 0d488bcc..11fab1e9 100644 --- a/SRC/ssytri2.f +++ b/SRC/ssytri2.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/ssytri2x.f b/SRC/ssytri2x.f index 6e422a91..81188bf2 100644 --- a/SRC/ssytri2x.f +++ b/SRC/ssytri2x.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/ssytrs.f b/SRC/ssytrs.f index 80600ea2..1fca3a10 100644 --- a/SRC/ssytrs.f +++ b/SRC/ssytrs.f @@ -1,9 +1,9 @@ SUBROUTINE SSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytrs2.f b/SRC/ssytrs2.f index 5d903212..d96ee309 100644 --- a/SRC/ssytrs2.f +++ b/SRC/ssytrs2.f @@ -1,10 +1,10 @@ SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK PROTOTYPE routine (version 3.3.0) -- +* -- LAPACK PROTOTYPE routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/stbrfs.f b/SRC/stbrfs.f index 594444a7..1e159e88 100644 --- a/SRC/stbrfs.f +++ b/SRC/stbrfs.f @@ -1,10 +1,10 @@ SUBROUTINE STBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/stfsm.f b/SRC/stfsm.f index 70b66ca4..6a5f782e 100644 --- a/SRC/stfsm.f +++ b/SRC/stfsm.f @@ -1,10 +1,10 @@ SUBROUTINE STFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/stftri.f b/SRC/stftri.f index a5ceb60b..d30f6d88 100644 --- a/SRC/stftri.f +++ b/SRC/stftri.f @@ -1,9 +1,9 @@ SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/stfttp.f b/SRC/stfttp.f index 157d5c03..1f6b12d2 100644 --- a/SRC/stfttp.f +++ b/SRC/stfttp.f @@ -1,9 +1,9 @@ SUBROUTINE STFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/stfttr.f b/SRC/stfttr.f index f5bf0894..630b8d33 100644 --- a/SRC/stfttr.f +++ b/SRC/stfttr.f @@ -1,9 +1,9 @@ SUBROUTINE STFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/stgevc.f b/SRC/stgevc.f index d9fbf88a..27a615f7 100644 --- a/SRC/stgevc.f +++ b/SRC/stgevc.f @@ -1,10 +1,10 @@ SUBROUTINE STGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/SRC/stgex2.f b/SRC/stgex2.f index 2c3ea65e..7cb03174 100644 --- a/SRC/stgex2.f +++ b/SRC/stgex2.f @@ -1,10 +1,10 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/stgexc.f b/SRC/stgexc.f index 71051bcb..ef4db2e9 100644 --- a/SRC/stgexc.f +++ b/SRC/stgexc.f @@ -1,10 +1,10 @@ SUBROUTINE STGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/stgsen.f b/SRC/stgsen.f index 134cc83d..85121dbd 100644 --- a/SRC/stgsen.f +++ b/SRC/stgsen.f @@ -2,10 +2,10 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/stgsja.f b/SRC/stgsja.f index 7818223f..ab2398d9 100644 --- a/SRC/stgsja.f +++ b/SRC/stgsja.f @@ -2,7 +2,7 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/stgsna.f b/SRC/stgsna.f index 32759c67..dc6f9840 100644 --- a/SRC/stgsna.f +++ b/SRC/stgsna.f @@ -2,10 +2,10 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/SRC/stgsy2.f b/SRC/stgsy2.f index 74e3ba49..dca68dcb 100644 --- a/SRC/stgsy2.f +++ b/SRC/stgsy2.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/stgsyl.f b/SRC/stgsyl.f index d1ec0b11..7f7495b1 100644 --- a/SRC/stgsyl.f +++ b/SRC/stgsyl.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/stprfs.f b/SRC/stprfs.f index 2c913dc3..39f5ceae 100644 --- a/SRC/stprfs.f +++ b/SRC/stprfs.f @@ -1,10 +1,10 @@ SUBROUTINE STPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/stpttf.f b/SRC/stpttf.f index c633bb97..e9f767e2 100644 --- a/SRC/stpttf.f +++ b/SRC/stpttf.f @@ -1,9 +1,9 @@ SUBROUTINE STPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/strevc.f b/SRC/strevc.f index 12b1ae79..e5894215 100644 --- a/SRC/strevc.f +++ b/SRC/strevc.f @@ -1,10 +1,10 @@ SUBROUTINE STREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/SRC/strrfs.f b/SRC/strrfs.f index d5fb484e..7d2b3295 100644 --- a/SRC/strrfs.f +++ b/SRC/strrfs.f @@ -1,10 +1,10 @@ SUBROUTINE STRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/strsen.f b/SRC/strsen.f index a367fb2c..b1351d3a 100644 --- a/SRC/strsen.f +++ b/SRC/strsen.f @@ -1,10 +1,10 @@ SUBROUTINE STRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/strsna.f b/SRC/strsna.f index 62c90af8..9813af69 100644 --- a/SRC/strsna.f +++ b/SRC/strsna.f @@ -2,10 +2,10 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call SLACN2 in place of SLACON, 7 Feb 03, SJH. * diff --git a/SRC/strsyl.f b/SRC/strsyl.f index c947a079..fbe598b4 100644 --- a/SRC/strsyl.f +++ b/SRC/strsyl.f @@ -1,10 +1,10 @@ SUBROUTINE STRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/SRC/strttf.f b/SRC/strttf.f index 6c405f56..1870cb77 100644 --- a/SRC/strttf.f +++ b/SRC/strttf.f @@ -1,9 +1,9 @@ SUBROUTINE STRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/stzrqf.f b/SRC/stzrqf.f index a7f0b777..ff6572a9 100644 --- a/SRC/stzrqf.f +++ b/SRC/stzrqf.f @@ -1,9 +1,9 @@ SUBROUTINE STZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/stzrzf.f b/SRC/stzrzf.f index b333b1b9..99d8f308 100644 --- a/SRC/stzrzf.f +++ b/SRC/stzrzf.f @@ -1,9 +1,9 @@ SUBROUTINE STZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @generated s * * .. Scalar Arguments .. diff --git a/SRC/zcgesv.f b/SRC/zcgesv.f index 71611f90..a94d3d9f 100644 --- a/SRC/zcgesv.f +++ b/SRC/zcgesv.f @@ -1,10 +1,10 @@ SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) * -* -- LAPACK PROTOTYPE driver routine (version 3.2.2) -- +* -- LAPACK PROTOTYPE driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. * .. Scalar Arguments .. diff --git a/SRC/zcposv.f b/SRC/zcposv.f index 7350826b..5b7ebf57 100644 --- a/SRC/zcposv.f +++ b/SRC/zcposv.f @@ -1,9 +1,9 @@ SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) * -* -- LAPACK PROTOTYPE driver routine (version 3.3.0) -- +* -- LAPACK PROTOTYPE driver routine (version 3.3.1) -- * -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/zgbbrd.f b/SRC/zgbbrd.f index e5564856..3aae4b82 100644 --- a/SRC/zgbbrd.f +++ b/SRC/zgbbrd.f @@ -1,10 +1,10 @@ SUBROUTINE ZGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER VECT diff --git a/SRC/zgbcon.f b/SRC/zgbcon.f index 82d8829e..be78b2ae 100644 --- a/SRC/zgbcon.f +++ b/SRC/zgbcon.f @@ -1,10 +1,10 @@ SUBROUTINE ZGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zgebd2.f b/SRC/zgebd2.f index 2d2db958..37fbc008 100644 --- a/SRC/zgebd2.f +++ b/SRC/zgebd2.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgebrd.f b/SRC/zgebrd.f index fcc4bdf2..04b13ee6 100644 --- a/SRC/zgebrd.f +++ b/SRC/zgebrd.f @@ -1,10 +1,10 @@ SUBROUTINE ZGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgecon.f b/SRC/zgecon.f index c74680f5..1e7b62b8 100644 --- a/SRC/zgecon.f +++ b/SRC/zgecon.f @@ -1,10 +1,10 @@ SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zgehd2.f b/SRC/zgehd2.f index b545b15a..0c67e65a 100644 --- a/SRC/zgehd2.f +++ b/SRC/zgehd2.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/zgehrd.f b/SRC/zgehrd.f index becbd5fe..320ea2a9 100644 --- a/SRC/zgehrd.f +++ b/SRC/zgehrd.f @@ -1,6 +1,6 @@ SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/zgelq2.f b/SRC/zgelq2.f index f0118ca4..c591a884 100644 --- a/SRC/zgelq2.f +++ b/SRC/zgelq2.f @@ -1,9 +1,9 @@ SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgelqf.f b/SRC/zgelqf.f index 1417b7fe..c6beac31 100644 --- a/SRC/zgelqf.f +++ b/SRC/zgelqf.f @@ -1,9 +1,9 @@ SUBROUTINE ZGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgels.f b/SRC/zgels.f index 1f1d25df..06dbc0eb 100644 --- a/SRC/zgels.f +++ b/SRC/zgels.f @@ -1,10 +1,10 @@ SUBROUTINE ZGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zgelsx.f b/SRC/zgelsx.f index 40653f2f..68ab87f7 100644 --- a/SRC/zgelsx.f +++ b/SRC/zgelsx.f @@ -1,10 +1,10 @@ SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/SRC/zgelsy.f b/SRC/zgelsy.f index 929c5117..701b6549 100644 --- a/SRC/zgelsy.f +++ b/SRC/zgelsy.f @@ -1,10 +1,10 @@ SUBROUTINE ZGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/SRC/zgeql2.f b/SRC/zgeql2.f index 0287bb00..f3ab7e16 100644 --- a/SRC/zgeql2.f +++ b/SRC/zgeql2.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgeqlf.f b/SRC/zgeqlf.f index 35799726..0ccd2045 100644 --- a/SRC/zgeqlf.f +++ b/SRC/zgeqlf.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgeqp3.f b/SRC/zgeqp3.f index 234b09d9..b4b6e4b6 100644 --- a/SRC/zgeqp3.f +++ b/SRC/zgeqp3.f @@ -1,10 +1,10 @@ SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgeqpf.f b/SRC/zgeqpf.f index 99129134..dde547b5 100644 --- a/SRC/zgeqpf.f +++ b/SRC/zgeqpf.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * -* -- LAPACK deprecated computational routine (version 3.2.2) -- +* -- LAPACK deprecated computational routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -81,7 +81,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * * ===================================================================== diff --git a/SRC/zgeqr2.f b/SRC/zgeqr2.f index d829a2f3..8f357817 100644 --- a/SRC/zgeqr2.f +++ b/SRC/zgeqr2.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgeqr2p.f b/SRC/zgeqr2p.f index 03a755f0..b2a70a41 100644 --- a/SRC/zgeqr2p.f +++ b/SRC/zgeqr2p.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgeqrf.f b/SRC/zgeqrf.f index 9312a3e6..1e4f02da 100644 --- a/SRC/zgeqrf.f +++ b/SRC/zgeqrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgeqrfp.f b/SRC/zgeqrfp.f index 138aeb96..b0619bfe 100644 --- a/SRC/zgeqrfp.f +++ b/SRC/zgeqrfp.f @@ -1,9 +1,9 @@ SUBROUTINE ZGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgerq2.f b/SRC/zgerq2.f index 92d1aca5..50037cea 100644 --- a/SRC/zgerq2.f +++ b/SRC/zgerq2.f @@ -1,9 +1,9 @@ SUBROUTINE ZGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgerqf.f b/SRC/zgerqf.f index 9a825b6e..a82f24b0 100644 --- a/SRC/zgerqf.f +++ b/SRC/zgerqf.f @@ -1,9 +1,9 @@ SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgetrs.f b/SRC/zgetrs.f index c9086d23..9c5de812 100644 --- a/SRC/zgetrs.f +++ b/SRC/zgetrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zggglm.f b/SRC/zggglm.f index 3ede5eda..b7b9d271 100644 --- a/SRC/zggglm.f +++ b/SRC/zggglm.f @@ -1,10 +1,10 @@ SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/zgglse.f b/SRC/zgglse.f index 2c021cce..e1dbbb3b 100644 --- a/SRC/zgglse.f +++ b/SRC/zgglse.f @@ -1,10 +1,10 @@ SUBROUTINE ZGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2007 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/zggqrf.f b/SRC/zggqrf.f index a5c652f9..1e809b86 100644 --- a/SRC/zggqrf.f +++ b/SRC/zggqrf.f @@ -1,10 +1,10 @@ SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/zggrqf.f b/SRC/zggrqf.f index 29dbf098..afbc7afd 100644 --- a/SRC/zggrqf.f +++ b/SRC/zggrqf.f @@ -1,10 +1,10 @@ SUBROUTINE ZGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/SRC/zggsvd.f b/SRC/zggsvd.f index c7be33f2..2598c509 100644 --- a/SRC/zggsvd.f +++ b/SRC/zggsvd.f @@ -2,10 +2,10 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/zggsvp.f b/SRC/zggsvp.f index 6d2373aa..4dcd868f 100644 --- a/SRC/zggsvp.f +++ b/SRC/zggsvp.f @@ -2,10 +2,10 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/SRC/zgtcon.f b/SRC/zgtcon.f index 46cb8f09..ff7e035f 100644 --- a/SRC/zgtcon.f +++ b/SRC/zgtcon.f @@ -1,10 +1,10 @@ SUBROUTINE ZGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zgtsv.f b/SRC/zgtsv.f index 291ea43c..f3a40047 100644 --- a/SRC/zgtsv.f +++ b/SRC/zgtsv.f @@ -1,9 +1,9 @@ SUBROUTINE ZGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/zhbgvd.f b/SRC/zhbgvd.f index 4cf7842b..856ffd5c 100644 --- a/SRC/zhbgvd.f +++ b/SRC/zhbgvd.f @@ -2,10 +2,10 @@ $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @precisions normal z -> c * * .. Scalar Arguments .. diff --git a/SRC/zhecon.f b/SRC/zhecon.f index 44ed4256..580049d0 100644 --- a/SRC/zhecon.f +++ b/SRC/zhecon.f @@ -1,10 +1,10 @@ SUBROUTINE ZHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zheevr.f b/SRC/zheevr.f index e97ef0fa..44e3554e 100644 --- a/SRC/zheevr.f +++ b/SRC/zheevr.f @@ -2,10 +2,10 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/zheevx.f b/SRC/zheevx.f index 1b87c88d..eb64770e 100644 --- a/SRC/zheevx.f +++ b/SRC/zheevx.f @@ -2,10 +2,10 @@ $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @precisions normal z -> c * * .. Scalar Arguments .. diff --git a/SRC/zhegs2.f b/SRC/zhegs2.f index 8e28624b..351da32b 100644 --- a/SRC/zhegs2.f +++ b/SRC/zhegs2.f @@ -1,9 +1,9 @@ SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhegst.f b/SRC/zhegst.f index e2ae9ba7..6aad3cc5 100644 --- a/SRC/zhegst.f +++ b/SRC/zhegst.f @@ -1,9 +1,9 @@ SUBROUTINE ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhegv.f b/SRC/zhegv.f index 4593bf54..bee5fc1d 100644 --- a/SRC/zhegv.f +++ b/SRC/zhegv.f @@ -1,10 +1,10 @@ SUBROUTINE ZHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/zhegvd.f b/SRC/zhegvd.f index 4f961ef9..06206f24 100644 --- a/SRC/zhegvd.f +++ b/SRC/zhegvd.f @@ -1,10 +1,10 @@ SUBROUTINE ZHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/zhegvx.f b/SRC/zhegvx.f index f002b64b..bfb0baff 100644 --- a/SRC/zhegvx.f +++ b/SRC/zhegvx.f @@ -2,10 +2,10 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/zhesv.f b/SRC/zhesv.f index 8ea5533d..01b8ea0c 100644 --- a/SRC/zhesv.f +++ b/SRC/zhesv.f @@ -1,10 +1,10 @@ SUBROUTINE ZHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.3.0) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2011 +* -- April 2011 -- * @precisions normal z -> c * * .. Scalar Arguments .. diff --git a/SRC/zhesvx.f b/SRC/zhesvx.f index a2d1313a..d201a46f 100644 --- a/SRC/zhesvx.f +++ b/SRC/zhesvx.f @@ -2,10 +2,10 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/zheswapr.f b/SRC/zheswapr.f index 11c726cb..cfac1924 100644 --- a/SRC/zheswapr.f +++ b/SRC/zheswapr.f @@ -1,9 +1,9 @@ SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetd2.f b/SRC/zhetd2.f index 4baf6981..90d68af1 100644 --- a/SRC/zhetd2.f +++ b/SRC/zhetd2.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetf2.f b/SRC/zhetf2.f index b1980d09..199407ce 100644 --- a/SRC/zhetf2.f +++ b/SRC/zhetf2.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetrd.f b/SRC/zhetrd.f index e68d4e0b..b816648c 100644 --- a/SRC/zhetrd.f +++ b/SRC/zhetrd.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetrf.f b/SRC/zhetrf.f index 5d21da9b..024f79f5 100644 --- a/SRC/zhetrf.f +++ b/SRC/zhetrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetri.f b/SRC/zhetri.f index 8e4d66ce..428a3089 100644 --- a/SRC/zhetri.f +++ b/SRC/zhetri.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetri2.f b/SRC/zhetri2.f index 750dfaeb..124d2a25 100644 --- a/SRC/zhetri2.f +++ b/SRC/zhetri2.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/zhetri2x.f b/SRC/zhetri2x.f index 6149a735..e81d4b27 100644 --- a/SRC/zhetri2x.f +++ b/SRC/zhetri2x.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/zhetrs.f b/SRC/zhetrs.f index 86a53278..e4477c0f 100644 --- a/SRC/zhetrs.f +++ b/SRC/zhetrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f index d0259b82..d0536136 100644 --- a/SRC/zhetrs2.f +++ b/SRC/zhetrs2.f @@ -1,10 +1,10 @@ SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK PROTOTYPE routine (version 3.3.0) -- +* -- LAPACK PROTOTYPE routine (version 3.3.1) -- * * -- Written by Julie Langou of the Univ. of TN -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/zhfrk.f b/SRC/zhfrk.f index d945ee3f..f8f92e34 100644 --- a/SRC/zhfrk.f +++ b/SRC/zhfrk.f @@ -1,10 +1,10 @@ SUBROUTINE ZHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/zhpcon.f b/SRC/zhpcon.f index 07ccf508..687f7271 100644 --- a/SRC/zhpcon.f +++ b/SRC/zhpcon.f @@ -1,9 +1,9 @@ SUBROUTINE ZHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zhpgst.f b/SRC/zhpgst.f index 8cfa2444..eb9e35d8 100644 --- a/SRC/zhpgst.f +++ b/SRC/zhpgst.f @@ -1,9 +1,9 @@ SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhpgv.f b/SRC/zhpgv.f index 269fd497..2828c8aa 100644 --- a/SRC/zhpgv.f +++ b/SRC/zhpgv.f @@ -1,10 +1,10 @@ SUBROUTINE ZHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/zhpgvd.f b/SRC/zhpgvd.f index 94e59043..dd764004 100644 --- a/SRC/zhpgvd.f +++ b/SRC/zhpgvd.f @@ -1,10 +1,10 @@ SUBROUTINE ZHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/zhpgvx.f b/SRC/zhpgvx.f index 0770eebb..296dfb2a 100644 --- a/SRC/zhpgvx.f +++ b/SRC/zhpgvx.f @@ -2,10 +2,10 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/zhpsv.f b/SRC/zhpsv.f index 811bd0f8..7cc19a2d 100644 --- a/SRC/zhpsv.f +++ b/SRC/zhpsv.f @@ -1,9 +1,9 @@ SUBROUTINE ZHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhpsvx.f b/SRC/zhpsvx.f index 80341a2c..a9cbe3ab 100644 --- a/SRC/zhpsvx.f +++ b/SRC/zhpsvx.f @@ -1,10 +1,10 @@ SUBROUTINE ZHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/zhptrd.f b/SRC/zhptrd.f index 140581a9..75ce2c36 100644 --- a/SRC/zhptrd.f +++ b/SRC/zhptrd.f @@ -1,9 +1,9 @@ SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhptrf.f b/SRC/zhptrf.f index d3aecf0c..e20fa092 100644 --- a/SRC/zhptrf.f +++ b/SRC/zhptrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhptri.f b/SRC/zhptri.f index 738359fc..f5f40454 100644 --- a/SRC/zhptri.f +++ b/SRC/zhptri.f @@ -1,9 +1,9 @@ SUBROUTINE ZHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhptrs.f b/SRC/zhptrs.f index f302d89a..08afb6aa 100644 --- a/SRC/zhptrs.f +++ b/SRC/zhptrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zla_gbamv.f b/SRC/zla_gbamv.f index 59451f55..23d5e2c8 100644 --- a/SRC/zla_gbamv.f +++ b/SRC/zla_gbamv.f @@ -1,7 +1,7 @@ SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/zla_geamv.f b/SRC/zla_geamv.f index add41629..791c6b37 100644 --- a/SRC/zla_geamv.f +++ b/SRC/zla_geamv.f @@ -1,7 +1,7 @@ SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- June 2010 -- diff --git a/SRC/zlabrd.f b/SRC/zlabrd.f index bd928a79..ac41b178 100644 --- a/SRC/zlabrd.f +++ b/SRC/zlabrd.f @@ -1,10 +1,10 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/zlaed7.f b/SRC/zlaed7.f index 393ef4f5..46e0b409 100644 --- a/SRC/zlaed7.f +++ b/SRC/zlaed7.f @@ -3,10 +3,10 @@ $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/SRC/zlaein.f b/SRC/zlaein.f index c9c4f505..a5b52e71 100644 --- a/SRC/zlaein.f +++ b/SRC/zlaein.f @@ -1,10 +1,10 @@ SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/zlag2c.f b/SRC/zlag2c.f index 4d4f94b5..c0dcd318 100644 --- a/SRC/zlag2c.f +++ b/SRC/zlag2c.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- +* -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2007 +* -- April 2011 -- * * .. * .. Scalar Arguments .. diff --git a/SRC/zlags2.f b/SRC/zlags2.f index 39b8d58c..2bae869b 100644 --- a/SRC/zlags2.f +++ b/SRC/zlags2.f @@ -1,10 +1,10 @@ SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/SRC/zlagtm.f b/SRC/zlagtm.f index 7d3bdd60..65703fff 100644 --- a/SRC/zlagtm.f +++ b/SRC/zlagtm.f @@ -1,10 +1,10 @@ SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zlahef.f b/SRC/zlahef.f index c37a449b..e06f2a2c 100644 --- a/SRC/zlahef.f +++ b/SRC/zlahef.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlahr2.f b/SRC/zlahr2.f index b670de14..6d0f83c2 100644 --- a/SRC/zlahr2.f +++ b/SRC/zlahr2.f @@ -1,6 +1,6 @@ SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2.1) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/zlahrd.f b/SRC/zlahrd.f index 81d039cb..cdb63d75 100644 --- a/SRC/zlahrd.f +++ b/SRC/zlahrd.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/zlaic1.f b/SRC/zlaic1.f index 4e5230f6..98d9c9f3 100644 --- a/SRC/zlaic1.f +++ b/SRC/zlaic1.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/zlalsd.f b/SRC/zlalsd.f index 2eee0686..3ca8fa77 100644 --- a/SRC/zlalsd.f +++ b/SRC/zlalsd.f @@ -1,10 +1,10 @@ SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlanhf.f b/SRC/zlanhf.f index 60da0db2..2399fd63 100644 --- a/SRC/zlanhf.f +++ b/SRC/zlanhf.f @@ -1,6 +1,6 @@ DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- * -- April 2009 -- diff --git a/SRC/zlaqhb.f b/SRC/zlaqhb.f index 4ae039f5..9cfa0dc3 100644 --- a/SRC/zlaqhb.f +++ b/SRC/zlaqhb.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlaqp2.f b/SRC/zlaqp2.f index 0e70a495..1d5cd756 100644 --- a/SRC/zlaqp2.f +++ b/SRC/zlaqp2.f @@ -1,10 +1,10 @@ SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET @@ -75,7 +75,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/zlaqps.f b/SRC/zlaqps.f index 5dc52070..803e071c 100644 --- a/SRC/zlaqps.f +++ b/SRC/zlaqps.f @@ -1,10 +1,10 @@ SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET @@ -91,7 +91,7 @@ * Partial column norm updating strategy modified by * Z. Drmac and Z. Bujanovic, Dept. of Mathematics, * University of Zagreb, Croatia. -* June 2010 +* -- April 2011 -- * For more details see LAPACK Working Note 176. * ===================================================================== * diff --git a/SRC/zlaqsb.f b/SRC/zlaqsb.f index 5ec4adb4..eaba98e1 100644 --- a/SRC/zlaqsb.f +++ b/SRC/zlaqsb.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlar1v.f b/SRC/zlar1v.f index fdd8e5b5..97878950 100644 --- a/SRC/zlar1v.f +++ b/SRC/zlar1v.f @@ -2,10 +2,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/zlarf.f b/SRC/zlarf.f index 4ff7362a..cdfd2225 100644 --- a/SRC/zlarf.f +++ b/SRC/zlarf.f @@ -1,10 +1,10 @@ SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/zlarfb.f b/SRC/zlarfb.f index 075e3b67..ec42de0b 100644 --- a/SRC/zlarfb.f +++ b/SRC/zlarfb.f @@ -2,10 +2,10 @@ $ T, LDT, C, LDC, WORK, LDWORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/zlarfg.f b/SRC/zlarfg.f index 1c338837..8a28851e 100644 --- a/SRC/zlarfg.f +++ b/SRC/zlarfg.f @@ -1,9 +1,9 @@ SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/zlarfgp.f b/SRC/zlarfgp.f index bc8af144..efc685e2 100644 --- a/SRC/zlarfgp.f +++ b/SRC/zlarfgp.f @@ -1,9 +1,9 @@ SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/zlarft.f b/SRC/zlarft.f index a3e85c32..06d5adb0 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -1,9 +1,9 @@ SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/zlarfx.f b/SRC/zlarfx.f index 686f0e20..9ced041f 100644 --- a/SRC/zlarfx.f +++ b/SRC/zlarfx.f @@ -1,10 +1,10 @@ SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/zlarrv.f b/SRC/zlarrv.f index 1849c76a..dfb3b239 100644 --- a/SRC/zlarrv.f +++ b/SRC/zlarrv.f @@ -4,10 +4,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/zlarz.f b/SRC/zlarz.f index f2a90d04..c6d95361 100644 --- a/SRC/zlarz.f +++ b/SRC/zlarz.f @@ -1,9 +1,9 @@ SUBROUTINE ZLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/zlarzb.f b/SRC/zlarzb.f index 0ee12379..cfa0ca1a 100644 --- a/SRC/zlarzb.f +++ b/SRC/zlarzb.f @@ -1,10 +1,10 @@ SUBROUTINE ZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/zlarzt.f b/SRC/zlarzt.f index e25a3376..76554d08 100644 --- a/SRC/zlarzt.f +++ b/SRC/zlarzt.f @@ -1,9 +1,9 @@ SUBROUTINE ZLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/zlasyf.f b/SRC/zlasyf.f index a4a8d547..e79d750a 100644 --- a/SRC/zlasyf.f +++ b/SRC/zlasyf.f @@ -1,9 +1,9 @@ SUBROUTINE ZLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlat2c.f b/SRC/zlat2c.f index 674b2c53..e01aab7b 100644 --- a/SRC/zlat2c.f +++ b/SRC/zlat2c.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- +* -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* May 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlatrd.f b/SRC/zlatrd.f index 5203189b..432552d8 100644 --- a/SRC/zlatrd.f +++ b/SRC/zlatrd.f @@ -1,9 +1,9 @@ SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlatrz.f b/SRC/zlatrz.f index ca50049c..e696f86c 100644 --- a/SRC/zlatrz.f +++ b/SRC/zlatrz.f @@ -1,9 +1,9 @@ SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/zlatzm.f b/SRC/zlatzm.f index caa10780..64f39699 100644 --- a/SRC/zlatzm.f +++ b/SRC/zlatzm.f @@ -1,9 +1,9 @@ SUBROUTINE ZLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/zlauu2.f b/SRC/zlauu2.f index b8fd4d65..3a265c5d 100644 --- a/SRC/zlauu2.f +++ b/SRC/zlauu2.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlauum.f b/SRC/zlauum.f index b257d02f..df8a3381 100644 --- a/SRC/zlauum.f +++ b/SRC/zlauum.f @@ -1,9 +1,9 @@ SUBROUTINE ZLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpbcon.f b/SRC/zpbcon.f index 880d08f4..e9bb3ed3 100644 --- a/SRC/zpbcon.f +++ b/SRC/zpbcon.f @@ -1,10 +1,10 @@ SUBROUTINE ZPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zpbsv.f b/SRC/zpbsv.f index 2b9fe269..923a3758 100644 --- a/SRC/zpbsv.f +++ b/SRC/zpbsv.f @@ -1,9 +1,9 @@ SUBROUTINE ZPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpbsvx.f b/SRC/zpbsvx.f index 8631a8fc..381fae94 100644 --- a/SRC/zpbsvx.f +++ b/SRC/zpbsvx.f @@ -2,10 +2,10 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/zpbtf2.f b/SRC/zpbtf2.f index 93486f98..6936b9fa 100644 --- a/SRC/zpbtf2.f +++ b/SRC/zpbtf2.f @@ -1,9 +1,9 @@ SUBROUTINE ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpbtrs.f b/SRC/zpbtrs.f index a732ce30..fe59a3dd 100644 --- a/SRC/zpbtrs.f +++ b/SRC/zpbtrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpftrf.f b/SRC/zpftrf.f index b2509072..b81d963c 100644 --- a/SRC/zpftrf.f +++ b/SRC/zpftrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 -- +* -- April 2011 ---- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/zpftri.f b/SRC/zpftri.f index 91eb9a83..63cf2220 100644 --- a/SRC/zpftri.f +++ b/SRC/zpftri.f @@ -1,9 +1,9 @@ SUBROUTINE ZPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/zpftrs.f b/SRC/zpftrs.f index 65c43f8d..daa2fcb6 100644 --- a/SRC/zpftrs.f +++ b/SRC/zpftrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/zpocon.f b/SRC/zpocon.f index 3d5cbeef..a8779901 100644 --- a/SRC/zpocon.f +++ b/SRC/zpocon.f @@ -1,10 +1,10 @@ SUBROUTINE ZPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zpoequb.f b/SRC/zpoequb.f index 4e311015..3b064d7c 100644 --- a/SRC/zpoequb.f +++ b/SRC/zpoequb.f @@ -1,6 +1,6 @@ SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and -- * -- Jason Riedy of Univ. of California Berkeley. -- * -- November 2008 -- diff --git a/SRC/zposv.f b/SRC/zposv.f index f56d1d5b..fa5e9ef3 100644 --- a/SRC/zposv.f +++ b/SRC/zposv.f @@ -1,9 +1,9 @@ SUBROUTINE ZPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zposvx.f b/SRC/zposvx.f index 3dc5b789..8da07b30 100644 --- a/SRC/zposvx.f +++ b/SRC/zposvx.f @@ -2,10 +2,10 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/zpotf2.f b/SRC/zpotf2.f index 228d530a..5a923c5a 100644 --- a/SRC/zpotf2.f +++ b/SRC/zpotf2.f @@ -1,9 +1,9 @@ SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpotrf.f b/SRC/zpotrf.f index 73fec59c..3c6f270d 100644 --- a/SRC/zpotrf.f +++ b/SRC/zpotrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpotri.f b/SRC/zpotri.f index 3ebd5f52..dee160ea 100644 --- a/SRC/zpotri.f +++ b/SRC/zpotri.f @@ -1,9 +1,9 @@ SUBROUTINE ZPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpotrs.f b/SRC/zpotrs.f index 1e677855..01af8f34 100644 --- a/SRC/zpotrs.f +++ b/SRC/zpotrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zppcon.f b/SRC/zppcon.f index ab18a79a..67d5751e 100644 --- a/SRC/zppcon.f +++ b/SRC/zppcon.f @@ -1,9 +1,9 @@ SUBROUTINE ZPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zppsv.f b/SRC/zppsv.f index 27ccc9d0..d7114485 100644 --- a/SRC/zppsv.f +++ b/SRC/zppsv.f @@ -1,9 +1,9 @@ SUBROUTINE ZPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zppsvx.f b/SRC/zppsvx.f index 27e17a34..2c116ae0 100644 --- a/SRC/zppsvx.f +++ b/SRC/zppsvx.f @@ -1,10 +1,10 @@ SUBROUTINE ZPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/zpptrf.f b/SRC/zpptrf.f index 89a9590f..734ed897 100644 --- a/SRC/zpptrf.f +++ b/SRC/zpptrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpptri.f b/SRC/zpptri.f index 58959bb2..b1d1df6e 100644 --- a/SRC/zpptri.f +++ b/SRC/zpptri.f @@ -1,9 +1,9 @@ SUBROUTINE ZPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpptrs.f b/SRC/zpptrs.f index 93a821e2..85cab59e 100644 --- a/SRC/zpptrs.f +++ b/SRC/zpptrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zptcon.f b/SRC/zptcon.f index dbee4199..4131c0f1 100644 --- a/SRC/zptcon.f +++ b/SRC/zptcon.f @@ -1,9 +1,9 @@ SUBROUTINE ZPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/zptrfs.f b/SRC/zptrfs.f index c3ae8f23..3c7d2179 100644 --- a/SRC/zptrfs.f +++ b/SRC/zptrfs.f @@ -1,10 +1,10 @@ SUBROUTINE ZPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zptsv.f b/SRC/zptsv.f index 246f7c76..a50f4a88 100644 --- a/SRC/zptsv.f +++ b/SRC/zptsv.f @@ -1,9 +1,9 @@ SUBROUTINE ZPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/zptsvx.f b/SRC/zptsvx.f index d933c443..a390beb0 100644 --- a/SRC/zptsvx.f +++ b/SRC/zptsvx.f @@ -1,10 +1,10 @@ SUBROUTINE ZPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/zpttrf.f b/SRC/zpttrf.f index fca677dc..299007d0 100644 --- a/SRC/zpttrf.f +++ b/SRC/zpttrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZPTTRF( N, D, E, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/zpttrs.f b/SRC/zpttrs.f index 667e543b..14a9a7e7 100644 --- a/SRC/zpttrs.f +++ b/SRC/zpttrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zptts2.f b/SRC/zptts2.f index d8701b69..bccf0706 100644 --- a/SRC/zptts2.f +++ b/SRC/zptts2.f @@ -1,9 +1,9 @@ SUBROUTINE ZPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS diff --git a/SRC/zspcon.f b/SRC/zspcon.f index b065a766..796d8526 100644 --- a/SRC/zspcon.f +++ b/SRC/zspcon.f @@ -1,9 +1,9 @@ SUBROUTINE ZSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zspsv.f b/SRC/zspsv.f index 60474253..3928b90a 100644 --- a/SRC/zspsv.f +++ b/SRC/zspsv.f @@ -1,9 +1,9 @@ SUBROUTINE ZSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zspsvx.f b/SRC/zspsvx.f index 6505d51f..b44a04dd 100644 --- a/SRC/zspsvx.f +++ b/SRC/zspsvx.f @@ -1,10 +1,10 @@ SUBROUTINE ZSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/zsptrf.f b/SRC/zsptrf.f index 752b16b0..8cf892b3 100644 --- a/SRC/zsptrf.f +++ b/SRC/zsptrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsptri.f b/SRC/zsptri.f index 5491f997..3d41b61e 100644 --- a/SRC/zsptri.f +++ b/SRC/zsptri.f @@ -1,9 +1,9 @@ SUBROUTINE ZSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsptrs.f b/SRC/zsptrs.f index 2fc812bf..1306f6a7 100644 --- a/SRC/zsptrs.f +++ b/SRC/zsptrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsycon.f b/SRC/zsycon.f index adf2a05f..370c805d 100644 --- a/SRC/zsycon.f +++ b/SRC/zsycon.f @@ -1,10 +1,10 @@ SUBROUTINE ZSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/zsysv.f b/SRC/zsysv.f index 7794f607..e1971b85 100644 --- a/SRC/zsysv.f +++ b/SRC/zsysv.f @@ -1,10 +1,10 @@ SUBROUTINE ZSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.3.0) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2011 +* -- April 2011 -- * @precisions normal z -> s d c * * .. Scalar Arguments .. diff --git a/SRC/zsysvx.f b/SRC/zsysvx.f index 0a97d32b..a4563932 100644 --- a/SRC/zsysvx.f +++ b/SRC/zsysvx.f @@ -2,10 +2,10 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.2) -- +* -- LAPACK driver routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/SRC/zsyswapr.f b/SRC/zsyswapr.f index ffc6d59e..62cace36 100644 --- a/SRC/zsyswapr.f +++ b/SRC/zsyswapr.f @@ -1,9 +1,9 @@ SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.3.0) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsytf2.f b/SRC/zsytf2.f index abecad11..dfe4b283 100644 --- a/SRC/zsytf2.f +++ b/SRC/zsytf2.f @@ -1,9 +1,9 @@ SUBROUTINE ZSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsytrf.f b/SRC/zsytrf.f index 6687826a..4a76635f 100644 --- a/SRC/zsytrf.f +++ b/SRC/zsytrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsytri.f b/SRC/zsytri.f index 73be67c1..2fd19fdc 100644 --- a/SRC/zsytri.f +++ b/SRC/zsytri.f @@ -1,9 +1,9 @@ SUBROUTINE ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsytri2.f b/SRC/zsytri2.f index f4c06bae..f995edd9 100644 --- a/SRC/zsytri2.f +++ b/SRC/zsytri2.f @@ -1,9 +1,9 @@ SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/zsytri2x.f b/SRC/zsytri2x.f index e2ba02ff..584a9fea 100644 --- a/SRC/zsytri2x.f +++ b/SRC/zsytri2x.f @@ -1,9 +1,9 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2010 +* -- April 2011 -- * * -- Written by Julie Langou of the Univ. of TN -- * diff --git a/SRC/zsytrs.f b/SRC/zsytrs.f index 7ccee7cc..ba5826de 100644 --- a/SRC/zsytrs.f +++ b/SRC/zsytrs.f @@ -1,9 +1,9 @@ SUBROUTINE ZSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsytrs2.f b/SRC/zsytrs2.f index 8588ec49..b2df5e6d 100644 --- a/SRC/zsytrs2.f +++ b/SRC/zsytrs2.f @@ -1,10 +1,10 @@ SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK PROTOTYPE routine (version 3.2.2) -- +* -- LAPACK PROTOTYPE routine (version 3.3.1) -- * * -- Written by Julie Langou of the Univ. of TN -- -* May 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ztfsm.f b/SRC/ztfsm.f index 803d68ae..c0ffdbc4 100644 --- a/SRC/ztfsm.f +++ b/SRC/ztfsm.f @@ -1,10 +1,10 @@ SUBROUTINE ZTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ztftri.f b/SRC/ztftri.f index 529f0567..1442e27e 100644 --- a/SRC/ztftri.f +++ b/SRC/ztftri.f @@ -1,9 +1,9 @@ SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ztfttp.f b/SRC/ztfttp.f index 1e0cb6ae..8bf015a4 100644 --- a/SRC/ztfttp.f +++ b/SRC/ztfttp.f @@ -1,9 +1,9 @@ SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ztfttr.f b/SRC/ztfttr.f index f70cc6c6..5a55d446 100644 --- a/SRC/ztfttr.f +++ b/SRC/ztfttr.f @@ -1,9 +1,9 @@ SUBROUTINE ZTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ztgex2.f b/SRC/ztgex2.f index d672e43e..5f7082fe 100644 --- a/SRC/ztgex2.f +++ b/SRC/ztgex2.f @@ -1,10 +1,10 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/ztgexc.f b/SRC/ztgexc.f index fa853c54..ca26a797 100644 --- a/SRC/ztgexc.f +++ b/SRC/ztgexc.f @@ -1,10 +1,10 @@ SUBROUTINE ZTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/ztgsen.f b/SRC/ztgsen.f index bb11ae65..d9f7206e 100644 --- a/SRC/ztgsen.f +++ b/SRC/ztgsen.f @@ -2,10 +2,10 @@ $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/ztgsja.f b/SRC/ztgsja.f index 3a0ed1a0..4ffcbb72 100644 --- a/SRC/ztgsja.f +++ b/SRC/ztgsja.f @@ -2,7 +2,7 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- April 2009 -- diff --git a/SRC/ztgsna.f b/SRC/ztgsna.f index 02d07e94..46fdce5a 100644 --- a/SRC/ztgsna.f +++ b/SRC/ztgsna.f @@ -2,10 +2,10 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/SRC/ztgsy2.f b/SRC/ztgsy2.f index 52f4a0df..388a1f99 100644 --- a/SRC/ztgsy2.f +++ b/SRC/ztgsy2.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/ztgsyl.f b/SRC/ztgsyl.f index aedaf182..6c6f32e4 100644 --- a/SRC/ztgsyl.f +++ b/SRC/ztgsyl.f @@ -2,10 +2,10 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/ztpttf.f b/SRC/ztpttf.f index 26039092..7c37c5cb 100644 --- a/SRC/ztpttf.f +++ b/SRC/ztpttf.f @@ -1,9 +1,9 @@ SUBROUTINE ZTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ztrevc.f b/SRC/ztrevc.f index 2558fddf..e74a4179 100644 --- a/SRC/ztrevc.f +++ b/SRC/ztrevc.f @@ -1,10 +1,10 @@ SUBROUTINE ZTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/SRC/ztrsen.f b/SRC/ztrsen.f index 1400f141..838d6887 100644 --- a/SRC/ztrsen.f +++ b/SRC/ztrsen.f @@ -1,10 +1,10 @@ SUBROUTINE ZTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, $ SEP, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/ztrsna.f b/SRC/ztrsna.f index 69ace750..06e7f282 100644 --- a/SRC/ztrsna.f +++ b/SRC/ztrsna.f @@ -2,10 +2,10 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * Modified to call ZLACN2 in place of ZLACON, 10 Feb 03, SJH. * diff --git a/SRC/ztrsyl.f b/SRC/ztrsyl.f index 4c32dba1..af93b424 100644 --- a/SRC/ztrsyl.f +++ b/SRC/ztrsyl.f @@ -1,10 +1,10 @@ SUBROUTINE ZTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/SRC/ztrttf.f b/SRC/ztrttf.f index f1103a06..56816098 100644 --- a/SRC/ztrttf.f +++ b/SRC/ztrttf.f @@ -1,9 +1,9 @@ SUBROUTINE ZTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* November 2010 +* -- April 2011 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- diff --git a/SRC/ztzrqf.f b/SRC/ztzrqf.f index 1b1a1bd0..df6382a0 100644 --- a/SRC/ztzrqf.f +++ b/SRC/ztzrqf.f @@ -1,9 +1,9 @@ SUBROUTINE ZTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/ztzrzf.f b/SRC/ztzrzf.f index b5d916e7..90d9dbfe 100644 --- a/SRC/ztzrzf.f +++ b/SRC/ztzrzf.f @@ -1,9 +1,9 @@ SUBROUTINE ZTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * @precisions normal z -> s d c * * .. Scalar Arguments .. diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index 0e4f973a..723cd661 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -6,7 +6,7 @@ $ IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK routine (version 3.3.0) -- +* -- LAPACK routine (version 3.3.1) -- * * -- Contributed by Brian Sutton of the Randolph-Macon College -- * -- November 2010 diff --git a/SRC/zungl2.f b/SRC/zungl2.f index f636d7d1..95eb3c86 100644 --- a/SRC/zungl2.f +++ b/SRC/zungl2.f @@ -1,9 +1,9 @@ SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/zunglq.f b/SRC/zunglq.f index 61992586..1e00d1a5 100644 --- a/SRC/zunglq.f +++ b/SRC/zunglq.f @@ -1,9 +1,9 @@ SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/zungr2.f b/SRC/zungr2.f index 5fe697c8..e02d38bf 100644 --- a/SRC/zungr2.f +++ b/SRC/zungr2.f @@ -1,9 +1,9 @@ SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/zungrq.f b/SRC/zungrq.f index ecd13396..197a5466 100644 --- a/SRC/zungrq.f +++ b/SRC/zungrq.f @@ -1,9 +1,9 @@ SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/SRC/zunm2l.f b/SRC/zunm2l.f index e683ce00..00dde137 100644 --- a/SRC/zunm2l.f +++ b/SRC/zunm2l.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunm2r.f b/SRC/zunm2r.f index 03322a2d..646fd093 100644 --- a/SRC/zunm2r.f +++ b/SRC/zunm2r.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunml2.f b/SRC/zunml2.f index a51dec3b..e8042804 100644 --- a/SRC/zunml2.f +++ b/SRC/zunml2.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmlq.f b/SRC/zunmlq.f index b6a5d3d4..c336fb09 100644 --- a/SRC/zunmlq.f +++ b/SRC/zunmlq.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmql.f b/SRC/zunmql.f index fece8c9b..7a1657ce 100644 --- a/SRC/zunmql.f +++ b/SRC/zunmql.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmqr.f b/SRC/zunmqr.f index c1bbe77e..25a24400 100644 --- a/SRC/zunmqr.f +++ b/SRC/zunmqr.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmr2.f b/SRC/zunmr2.f index d341b399..86850b76 100644 --- a/SRC/zunmr2.f +++ b/SRC/zunmr2.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmr3.f b/SRC/zunmr3.f index 335b725c..eab78129 100644 --- a/SRC/zunmr3.f +++ b/SRC/zunmr3.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmrq.f b/SRC/zunmrq.f index d16a9d59..9b315313 100644 --- a/SRC/zunmrq.f +++ b/SRC/zunmrq.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmrz.f b/SRC/zunmrz.f index 53f0a8ec..ced6493a 100644 --- a/SRC/zunmrz.f +++ b/SRC/zunmrz.f @@ -1,10 +1,10 @@ SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2007 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zupmtr.f b/SRC/zupmtr.f index 3b5bffe6..9f386c48 100644 --- a/SRC/zupmtr.f +++ b/SRC/zupmtr.f @@ -1,10 +1,10 @@ SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO |