diff options
121 files changed, 336 insertions, 280 deletions
diff --git a/INSTALL/dlamch.f b/INSTALL/dlamch.f index aa90112b..74a1a14e 100644 --- a/INSTALL/dlamch.f +++ b/INSTALL/dlamch.f @@ -1,6 +1,6 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * Based on LAPACK DLAMCH but with Fortran 95 query functions @@ -119,9 +119,9 @@ * DOUBLE PRECISION FUNCTION DLAMC3( A, B ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. DOUBLE PRECISION A, B diff --git a/INSTALL/dlamchf77.f b/INSTALL/dlamchf77.f index 8f830e87..16c6775d 100644 --- a/INSTALL/dlamchf77.f +++ b/INSTALL/dlamchf77.f @@ -1,8 +1,8 @@ DOUBLE PRECISION FUNCTION DLAMCH( CMACH ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER CMACH @@ -129,9 +129,9 @@ * SUBROUTINE DLAMC1( BETA, T, RND, IEEE1 ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL IEEE1, RND @@ -315,9 +315,9 @@ * SUBROUTINE DLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL RND @@ -573,9 +573,9 @@ * DOUBLE PRECISION FUNCTION DLAMC3( A, B ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. DOUBLE PRECISION A, B @@ -611,9 +611,9 @@ * SUBROUTINE DLAMC4( EMIN, START, BASE ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER BASE, EMIN @@ -694,9 +694,9 @@ * SUBROUTINE DLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/INSTALL/ilaver.f b/INSTALL/ilaver.f index fc351566..a88012e1 100644 --- a/INSTALL/ilaver.f +++ b/INSTALL/ilaver.f @@ -1,8 +1,8 @@ SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.3) -- * -* -- June 2010 -- +* November 2010 * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- @@ -26,8 +26,8 @@ INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH * ===================================================================== VERS_MAJOR = 3 - VERS_MINOR = 2 - VERS_PATCH = 2 + VERS_MINOR = 3 + VERS_PATCH = 0 * ===================================================================== * RETURN diff --git a/INSTALL/slamch.f b/INSTALL/slamch.f index 902f3220..7c7f6ec2 100644 --- a/INSTALL/slamch.f +++ b/INSTALL/slamch.f @@ -1,6 +1,6 @@ REAL FUNCTION SLAMCH( CMACH ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * Based on LAPACK DLAMCH but with Fortran 95 query functions @@ -119,9 +119,9 @@ * REAL FUNCTION SLAMC3( A, B ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. REAL A, B diff --git a/INSTALL/slamchf77.f b/INSTALL/slamchf77.f index 5bb2c7be..c973e6e4 100644 --- a/INSTALL/slamchf77.f +++ b/INSTALL/slamchf77.f @@ -1,8 +1,8 @@ REAL FUNCTION SLAMCH( CMACH ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER CMACH @@ -129,9 +129,9 @@ * SUBROUTINE SLAMC1( BETA, T, RND, IEEE1 ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL IEEE1, RND @@ -315,9 +315,9 @@ * SUBROUTINE SLAMC2( BETA, T, RND, EPS, EMIN, RMIN, EMAX, RMAX ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL RND @@ -573,9 +573,9 @@ * REAL FUNCTION SLAMC3( A, B ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. REAL A, B @@ -611,9 +611,9 @@ * SUBROUTINE SLAMC4( EMIN, START, BASE ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER BASE @@ -695,9 +695,9 @@ * SUBROUTINE SLAMC5( BETA, P, EMIN, IEEE, EMAX, RMAX ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/SRC/cbbcsd.f b/SRC/cbbcsd.f index 22f946ca..83ea870b 100644 --- a/SRC/cbbcsd.f +++ b/SRC/cbbcsd.f @@ -4,9 +4,13 @@ $ B22D, B22E, RWORK, LRWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS diff --git a/SRC/chesv.f b/SRC/chesv.f index c73e1620..4e41de7b 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.2) -- +* -- LAPACK driver routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetrs2.f b/SRC/chetrs2.f index 266cde66..52c99601 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.2.2) -- +* -- LAPACK PROTOTYPE routine (version 3.3.0) -- * * -- Written by Julie Langou of the Univ. of TN -- -* May 2010 +* November 2010 * * -- 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 1e01965e..407015ec 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- June 2010 -- +* November 2010 * * -- 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/claqr5.f b/SRC/claqr5.f index 9395c1ea..9f4bc77c 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -2,9 +2,9 @@ $ H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, $ WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/clascl.f b/SRC/clascl.f index 628987c9..6c469bfb 100644 --- a/SRC/clascl.f +++ b/SRC/clascl.f @@ -1,9 +1,9 @@ SUBROUTINE CLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/cpftrf.f b/SRC/cpftrf.f index 91dc843e..62bb7be5 100644 --- a/SRC/cpftrf.f +++ b/SRC/cpftrf.f @@ -1,9 +1,9 @@ SUBROUTINE CPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- November 2008 -- +* November 2010 -- * * -- 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 f1119591..0ebd150a 100644 --- a/SRC/cpftri.f +++ b/SRC/cpftri.f @@ -1,9 +1,9 @@ SUBROUTINE CPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 ddbb8d0f..d056cc79 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 cf4cc105..4cc1a0a2 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 2baf7e97..0afa056b 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 f90989dd..9dc90933 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 a97cb40c..841e9f27 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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/ctpttf.f b/SRC/ctpttf.f index 80586795..b9ebeba7 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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/ctpttr.f b/SRC/ctpttr.f index 7aa86b3f..7dab3dc1 100644 --- a/SRC/ctpttr.f +++ b/SRC/ctpttr.f @@ -1,9 +1,9 @@ SUBROUTINE CTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 -- * * -- 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/ctrttf.f b/SRC/ctrttf.f index 6f2b040e..a14be7ab 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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/ctrttp.f b/SRC/ctrttp.f index 46e059c0..6700a8fb 100644 --- a/SRC/ctrttp.f +++ b/SRC/ctrttp.f @@ -1,9 +1,9 @@ SUBROUTINE CTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- * -- and Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 * * -- 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/cunbdb.f b/SRC/cunbdb.f index 57ae5c4c..b14a4d4a 100644 --- a/SRC/cunbdb.f +++ b/SRC/cunbdb.f @@ -3,9 +3,13 @@ $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine ((version 3.3.0)) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 278564ae..ff224cc3 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -6,9 +6,13 @@ $ IWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/SRC/dbbcsd.f b/SRC/dbbcsd.f index c5c9678a..6ecd382d 100644 --- a/SRC/dbbcsd.f +++ b/SRC/dbbcsd.f @@ -4,9 +4,13 @@ $ B22D, B22E, WORK, LWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index 2dd98e1f..043dcc61 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- June 2010 -- +* November 2010 * * -- 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/dgesvj.f b/SRC/dgesvj.f index f3264b16..d48975e3 100644 --- a/SRC/dgesvj.f +++ b/SRC/dgesvj.f @@ -1,11 +1,11 @@ SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, + LDV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- June 2010 -- +* November 2010 * * -- 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/dgsvj0.f b/SRC/dgsvj0.f index 0312690a..e03aeb63 100644 --- a/SRC/dgsvj0.f +++ b/SRC/dgsvj0.f @@ -1,11 +1,11 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, + SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- June 2010 -- +* November 2010 * * -- 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 05f163c1..1a51f15c 100644 --- a/SRC/dgsvj1.f +++ b/SRC/dgsvj1.f @@ -1,11 +1,11 @@ SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, + EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- June 2010 -- +* November 2010 * * -- 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/dlansf.f b/SRC/dlansf.f index 2e0cc7d6..903b6eb3 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/dlaqr5.f b/SRC/dlaqr5.f index 7779de02..06381e1c 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -2,10 +2,10 @@ $ SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, $ LDU, NV, WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/dlarrd.f b/SRC/dlarrd.f index 96b8f53e..c32103ed 100644 --- a/SRC/dlarrd.f +++ b/SRC/dlarrd.f @@ -3,10 +3,10 @@ $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.1) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* -- April 2009 -- +* November 2010 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/SRC/dlarre.f b/SRC/dlarre.f index c3243afc..f08043de 100644 --- a/SRC/dlarre.f +++ b/SRC/dlarre.f @@ -4,10 +4,10 @@ $ WORK, IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* November 2010 * * .. Scalar Arguments .. CHARACTER RANGE diff --git a/SRC/dlartgs.f b/SRC/dlartgs.f index 6b76a6a9..87f4263d 100644 --- a/SRC/dlartgs.f +++ b/SRC/dlartgs.f @@ -1,9 +1,13 @@ SUBROUTINE DLARTGS( X, Y, SIGMA, CS, SN ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. DOUBLE PRECISION CS, SIGMA, SN, X, Y diff --git a/SRC/dlascl.f b/SRC/dlascl.f index ca7fbeb3..ffbb5715 100644 --- a/SRC/dlascl.f +++ b/SRC/dlascl.f @@ -1,9 +1,9 @@ SUBROUTINE DLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/dlasd4.f b/SRC/dlasd4.f index 95f1bdcc..f7b0ebba 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.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f index 0dcdb802..32aad149 100644 --- a/SRC/dlasd6.f +++ b/SRC/dlasd6.f @@ -3,10 +3,10 @@ $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* November 2010 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/SRC/dlasd8.f b/SRC/dlasd8.f index 98438f73..68fee483 100644 --- a/SRC/dlasd8.f +++ b/SRC/dlasd8.f @@ -1,10 +1,10 @@ SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* November 2010 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/SRC/dorbdb.f b/SRC/dorbdb.f index 3105d3b2..1c3fcbcc 100644 --- a/SRC/dorbdb.f +++ b/SRC/dorbdb.f @@ -3,9 +3,13 @@ $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f index 4fda66f1..e845acd0 100644 --- a/SRC/dorcsd.f +++ b/SRC/dorcsd.f @@ -5,9 +5,13 @@ $ LDV2T, WORK, LWORK, IWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/SRC/dpftrf.f b/SRC/dpftrf.f index 7b0326e6..cd9d183c 100644 --- a/SRC/dpftrf.f +++ b/SRC/dpftrf.f @@ -1,9 +1,9 @@ SUBROUTINE DPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 dcdfd475..01d0050b 100644 --- a/SRC/dpftri.f +++ b/SRC/dpftri.f @@ -1,9 +1,9 @@ SUBROUTINE DPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 00508384..25c89e0f 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/dsfrk.f b/SRC/dsfrk.f index dca24eaa..99d89c93 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- June 2010 -- +* November 2010 * * -- 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/dsposv.f b/SRC/dsposv.f index cb996968..1a40b123 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.1.2) -- +* -- LAPACK PROTOTYPE driver routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd.. -* May 2007 +* November 2010 * * .. * .. Scalar Arguments .. diff --git a/SRC/dtfsm.f b/SRC/dtfsm.f index e5adb8f7..5df27217 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 20e9bbf9..2d6bcf54 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 -- * * -- 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 41d8c9b2..acf895e7 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 78ce0daa..7ec769f4 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/dtpttf.f b/SRC/dtpttf.f index fd0998a2..1d58158f 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/dtpttr.f b/SRC/dtpttr.f index f93a0fe9..ad452075 100644 --- a/SRC/dtpttr.f +++ b/SRC/dtpttr.f @@ -1,9 +1,9 @@ SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 -- * * -- 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/dtrttf.f b/SRC/dtrttf.f index b0721a3a..2239dc27 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/dtrttp.f b/SRC/dtrttp.f index ec3c539e..05684456 100644 --- a/SRC/dtrttp.f +++ b/SRC/dtrttp.f @@ -1,9 +1,9 @@ SUBROUTINE DTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- * -- and Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 * * -- 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/ilaver.f b/SRC/ilaver.f index fc351566..771be7b6 100644 --- a/SRC/ilaver.f +++ b/SRC/ilaver.f @@ -1,8 +1,8 @@ SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * -* -- June 2010 -- +* November 2010 * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- @@ -26,8 +26,8 @@ INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH * ===================================================================== VERS_MAJOR = 3 - VERS_MINOR = 2 - VERS_PATCH = 2 + VERS_MINOR = 3 + VERS_PATCH = 0 * ===================================================================== * RETURN diff --git a/SRC/sbbcsd.f b/SRC/sbbcsd.f index 6353f90b..9daaf037 100644 --- a/SRC/sbbcsd.f +++ b/SRC/sbbcsd.f @@ -4,9 +4,13 @@ $ B22D, B22E, WORK, LWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f index a88202d2..e2138cff 100644 --- a/SRC/sgejsv.f +++ b/SRC/sgejsv.f @@ -2,11 +2,11 @@ & M, N, A, LDA, SVA, U, LDU, V, LDV, & WORK, LWORK, IWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- April 2009 -- +* November 2010 * * -- 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/sgesvj.f b/SRC/sgesvj.f index e38f2f61..01a3d248 100644 --- a/SRC/sgesvj.f +++ b/SRC/sgesvj.f @@ -1,11 +1,11 @@ SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, + LDV, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- April 2009 -- +* November 2010 * * -- 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/sgsvj0.f b/SRC/sgsvj0.f index 44833fbd..1279162d 100644 --- a/SRC/sgsvj0.f +++ b/SRC/sgsvj0.f @@ -1,11 +1,11 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, + SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- April 2009 -- +* November 2010 * * -- 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 0021d57f..efa09248 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Zlatko Drmac of the University of Zagreb and -- * -- Kresimir Veselic of the Fernuniversitaet Hagen -- -* -- April 2009 -- +* November 2010 * * -- 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/slansf.f b/SRC/slansf.f index 2c779002..6d1373b7 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/slaqr5.f b/SRC/slaqr5.f index 9ad0d51b..6439ad76 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -2,10 +2,10 @@ $ SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, $ LDU, NV, WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/slarrd.f b/SRC/slarrd.f index 570e574a..c48b6d9f 100644 --- a/SRC/slarrd.f +++ b/SRC/slarrd.f @@ -3,10 +3,10 @@ $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.1) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* -- April 2009 -- +* November 2010 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/SRC/slarre.f b/SRC/slarre.f index 6154a204..b2a439b6 100644 --- a/SRC/slarre.f +++ b/SRC/slarre.f @@ -4,10 +4,10 @@ $ WORK, IWORK, INFO ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* November 2010 * * .. Scalar Arguments .. CHARACTER RANGE diff --git a/SRC/slartgs.f b/SRC/slartgs.f index ed2291e2..a9493500 100644 --- a/SRC/slartgs.f +++ b/SRC/slartgs.f @@ -1,9 +1,13 @@ SUBROUTINE SLARTGS( X, Y, SIGMA, CS, SN ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. REAL CS, SIGMA, SN, X, Y diff --git a/SRC/slascl.f b/SRC/slascl.f index 3c97efec..8be809a9 100644 --- a/SRC/slascl.f +++ b/SRC/slascl.f @@ -1,9 +1,9 @@ SUBROUTINE SLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/slasd4.f b/SRC/slasd4.f index d6322c10..0f59a7ec 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.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/slasd6.f b/SRC/slasd6.f index e63dffe2..7b996587 100644 --- a/SRC/slasd6.f +++ b/SRC/slasd6.f @@ -3,10 +3,10 @@ $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* November 2010 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/SRC/slasd8.f b/SRC/slasd8.f index ec7774f2..98e321fe 100644 --- a/SRC/slasd8.f +++ b/SRC/slasd8.f @@ -1,10 +1,10 @@ SUBROUTINE SLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.2.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2010 +* November 2010 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/SRC/sorbdb.f b/SRC/sorbdb.f index d59a6f49..0c9cedd5 100644 --- a/SRC/sorbdb.f +++ b/SRC/sorbdb.f @@ -3,9 +3,13 @@ $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f index d2795032..d78051d6 100644 --- a/SRC/sorcsd.f +++ b/SRC/sorcsd.f @@ -5,9 +5,13 @@ $ LDV2T, WORK, LWORK, IWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/SRC/spftrf.f b/SRC/spftrf.f index f283cab2..47f2ca69 100644 --- a/SRC/spftrf.f +++ b/SRC/spftrf.f @@ -1,9 +1,9 @@ SUBROUTINE SPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 60214156..14b6a5fc 100644 --- a/SRC/spftri.f +++ b/SRC/spftri.f @@ -1,9 +1,9 @@ SUBROUTINE SPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 c08e21d6..b01a4bb4 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/ssfrk.f b/SRC/ssfrk.f index e52af884..dfdc1fdd 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- June 2010 -- +* November 2010 * * -- 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/stfsm.f b/SRC/stfsm.f index 09f7e436..94a4ab02 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 5d84165b..631d0fca 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 90974092..52bff33d 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 565f26e6..2fa02ff2 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/stpttf.f b/SRC/stpttf.f index c83b0d94..42b9d777 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/stpttr.f b/SRC/stpttr.f index 6666c84f..4255c67c 100644 --- a/SRC/stpttr.f +++ b/SRC/stpttr.f @@ -1,9 +1,9 @@ SUBROUTINE STPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 -- * * -- 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/strttf.f b/SRC/strttf.f index 544bcf8f..2e1aab77 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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/strttp.f b/SRC/strttp.f index 624babdc..e0e8ac11 100644 --- a/SRC/strttp.f +++ b/SRC/strttp.f @@ -1,9 +1,9 @@ SUBROUTINE STRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- * -- and Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 * * -- 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/zbbcsd.f b/SRC/zbbcsd.f index c9e961dc..19c696cd 100644 --- a/SRC/zbbcsd.f +++ b/SRC/zbbcsd.f @@ -4,9 +4,13 @@ $ B22D, B22E, RWORK, LRWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS diff --git a/SRC/zcposv.f b/SRC/zcposv.f index dc33aafd..0ba33ec1 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.2.2) -- +* -- LAPACK PROTOTYPE driver routine (version 3.3.0) -- * -* -- June 2010 -- +* November 2010 * * -- 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/zhesv.f b/SRC/zhesv.f index d7bb9307..6404a3d8 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.2) -- +* -- LAPACK driver routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f index 8ce2cc81..3695bca4 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.2.2) -- +* -- LAPACK PROTOTYPE routine (version 3.3.0) -- * * -- Written by Julie Langou of the Univ. of TN -- -* May 2010 +* November 2010 * * -- 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 87e52256..76f9a2d3 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- June 2010 -- +* November 2010 * * -- 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/zlaqr5.f b/SRC/zlaqr5.f index 56bc028d..0e4fb1e0 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -2,9 +2,9 @@ $ H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, $ WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/zlascl.f b/SRC/zlascl.f index c32a6640..e9afdfd9 100644 --- a/SRC/zlascl.f +++ b/SRC/zlascl.f @@ -1,9 +1,9 @@ SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.2) -- +* -- LAPACK auxiliary routine (version 3.3.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2010 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/zpftrf.f b/SRC/zpftrf.f index f9d7f946..89151c62 100644 --- a/SRC/zpftrf.f +++ b/SRC/zpftrf.f @@ -1,9 +1,9 @@ SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- November 2008 -- +* November 2010 -- * * -- 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 9eba2666..60d8ba88 100644 --- a/SRC/zpftri.f +++ b/SRC/zpftri.f @@ -1,9 +1,9 @@ SUBROUTINE ZPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK routine (version 3.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 13318ece..2db93202 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 835194c7..bd2281a0 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.2.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- June 2010 -- +* November 2010 * * -- 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 6853d383..ce35fb38 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 84bd82a6..c7577eed 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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 b8afb199..65d66fea 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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/ztpttf.f b/SRC/ztpttf.f index 916008c1..44e3c2c9 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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/ztpttr.f b/SRC/ztpttr.f index 0180c71b..7fa16dcb 100644 --- a/SRC/ztpttr.f +++ b/SRC/ztpttr.f @@ -1,9 +1,9 @@ SUBROUTINE ZTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 -- * * -- 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/ztrttf.f b/SRC/ztrttf.f index 90c6f405..ba39ffd5 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.2.1) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- -* -- April 2009 -- +* November 2010 * * -- 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/ztrttp.f b/SRC/ztrttp.f index b820c82a..6128ba85 100644 --- a/SRC/ztrttp.f +++ b/SRC/ztrttp.f @@ -1,10 +1,10 @@ SUBROUTINE ZTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.0) -- * * -- Contributed by Fred Gustavson of the IBM Watson Research Center -- * -- and Julien Langou of the Univ. of Colorado Denver -- -* -- November 2008 -- +* November 2010 -- * * -- 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/zunbdb.f b/SRC/zunbdb.f index 71aa02da..57871985 100644 --- a/SRC/zunbdb.f +++ b/SRC/zunbdb.f @@ -3,9 +3,13 @@ $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine ((version 3.3.0)) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index 24cceece..6694f4e3 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -6,9 +6,13 @@ $ IWORK, INFO ) IMPLICIT NONE * -* Brian Sutton -* Randolph-Macon College -* July 2010 +* -- LAPACK routine (version 3.3.0) -- +* +* -- Contributed by Brian Sutton of the Randolph-Macon College -- +* -- November 2010 +* +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/TESTING/EIG/cckcsd.f b/TESTING/EIG/cckcsd.f index d9a8b029..76d983e2 100644 --- a/TESTING/EIG/cckcsd.f +++ b/TESTING/EIG/cckcsd.f @@ -4,9 +4,9 @@ IMPLICIT NONE * * Originally CCKGSV -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * Adapted to CCKCSD * July 2010 diff --git a/TESTING/EIG/ccsdts.f b/TESTING/EIG/ccsdts.f index 897f4ff7..bbdc43d6 100644 --- a/TESTING/EIG/ccsdts.f +++ b/TESTING/EIG/ccsdts.f @@ -4,9 +4,9 @@ IMPLICIT NONE * * Originally xGSVTS -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * Adapted to CCSDTS by * July 2010 diff --git a/TESTING/EIG/dchkee.f b/TESTING/EIG/dchkee.f index ec170732..cc2c0878 100644 --- a/TESTING/EIG/dchkee.f +++ b/TESTING/EIG/dchkee.f @@ -1,6 +1,6 @@ PROGRAM DCHKEE * -* -- LAPACK test routine (version 3.1.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * January 2007 * diff --git a/TESTING/EIG/zchkee.f b/TESTING/EIG/zchkee.f index 6d740c2d..d37e3c52 100644 --- a/TESTING/EIG/zchkee.f +++ b/TESTING/EIG/zchkee.f @@ -1,6 +1,6 @@ PROGRAM ZCHKEE * -* -- LAPACK test routine (version 3.1.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * February 2007 * diff --git a/TESTING/EIG/zckcsd.f b/TESTING/EIG/zckcsd.f index 15e6fd29..8f43067b 100644 --- a/TESTING/EIG/zckcsd.f +++ b/TESTING/EIG/zckcsd.f @@ -4,9 +4,9 @@ IMPLICIT NONE * * Originally ZCKGSV -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * Adapted to ZCKCSD * July 2010 diff --git a/TESTING/EIG/zcsdts.f b/TESTING/EIG/zcsdts.f index 408e230f..82f81729 100644 --- a/TESTING/EIG/zcsdts.f +++ b/TESTING/EIG/zcsdts.f @@ -4,9 +4,9 @@ IMPLICIT NONE * * Originally xGSVTS -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * Adapted to ZCSDTS * July 2010 diff --git a/TESTING/LIN/alahd.f b/TESTING/LIN/alahd.f index 56c893f7..63949e83 100644 --- a/TESTING/LIN/alahd.f +++ b/TESTING/LIN/alahd.f @@ -1,8 +1,8 @@ SUBROUTINE ALAHD( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/TESTING/LIN/cchkhe.f b/TESTING/LIN/cchkhe.f index 534d70e6..1f0b6db5 100644 --- a/TESTING/LIN/cchkhe.f +++ b/TESTING/LIN/cchkhe.f @@ -2,9 +2,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/cchkqr.f b/TESTING/LIN/cchkqr.f index 722b7638..5fd3eb7a 100644 --- a/TESTING/LIN/cchkqr.f +++ b/TESTING/LIN/cchkqr.f @@ -2,9 +2,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/cerrqr.f b/TESTING/LIN/cerrqr.f index b99a1109..b6d893bb 100644 --- a/TESTING/LIN/cerrqr.f +++ b/TESTING/LIN/cerrqr.f @@ -1,8 +1,8 @@ SUBROUTINE CERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/TESTING/LIN/dchkqr.f b/TESTING/LIN/dchkqr.f index 302225d2..ba43b88c 100644 --- a/TESTING/LIN/dchkqr.f +++ b/TESTING/LIN/dchkqr.f @@ -2,9 +2,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/dchksy.f b/TESTING/LIN/dchksy.f index 6f49079d..5ec38242 100644 --- a/TESTING/LIN/dchksy.f +++ b/TESTING/LIN/dchksy.f @@ -2,9 +2,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/derrqr.f b/TESTING/LIN/derrqr.f index 205fb24e..63bf1f06 100644 --- a/TESTING/LIN/derrqr.f +++ b/TESTING/LIN/derrqr.f @@ -1,8 +1,8 @@ SUBROUTINE DERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/TESTING/LIN/schkqr.f b/TESTING/LIN/schkqr.f index 5cc5228f..7ebab8e7 100644 --- a/TESTING/LIN/schkqr.f +++ b/TESTING/LIN/schkqr.f @@ -2,9 +2,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/schksy.f b/TESTING/LIN/schksy.f index 327e69e1..d6a23ba8 100644 --- a/TESTING/LIN/schksy.f +++ b/TESTING/LIN/schksy.f @@ -2,9 +2,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/serrqr.f b/TESTING/LIN/serrqr.f index 4f255852..4524165e 100644 --- a/TESTING/LIN/serrqr.f +++ b/TESTING/LIN/serrqr.f @@ -1,8 +1,8 @@ SUBROUTINE SERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/TESTING/LIN/zchkhe.f b/TESTING/LIN/zchkhe.f index a030a1de..1d04bbd4 100644 --- a/TESTING/LIN/zchkhe.f +++ b/TESTING/LIN/zchkhe.f @@ -2,9 +2,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine (version 3.3.0) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* November 2010 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/zerrqr.f b/TESTING/LIN/zerrqr.f index 38d09c3d..4875fab9 100644 --- a/TESTING/LIN/zerrqr.f +++ b/TESTING/LIN/zerrqr.f @@ -1,8 +1,8 @@ SUBROUTINE ZERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.1) -- +* -- LAPACK test routine ((version 3.3.0)) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* June 2010 +* November 2010 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/make.inc.example b/make.inc.example index f9c3cbbe..930290eb 100644 --- a/make.inc.example +++ b/make.inc.example @@ -1,8 +1,8 @@ # -*- Makefile -*- #################################################################### # LAPACK make include file. # -# LAPACK, Version 3.2.2 # -# June 2010 # +# LAPACK, Version 3.3.0 # +# November 2010 # #################################################################### # # See the INSTALL/ directory for more examples. |