diff options
832 files changed, 2492 insertions, 2492 deletions
diff --git a/INSTALL/ilaver.f b/INSTALL/ilaver.f index 0c625ca6..b3006444 100644 --- a/INSTALL/ilaver.f +++ b/INSTALL/ilaver.f @@ -41,7 +41,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * diff --git a/SRC/cgbtf2.f b/SRC/cgbtf2.f index 382e24b6..ca093b91 100644 --- a/SRC/cgbtf2.f +++ b/SRC/cgbtf2.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE CGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/SRC/cgebd2.f b/SRC/cgebd2.f index 8bf97bc5..6f76350b 100644 --- a/SRC/cgebd2.f +++ b/SRC/cgebd2.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @precisions normal c -> s d z @@ -190,10 +190,10 @@ * ===================================================================== SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgehd2.f b/SRC/cgehd2.f index 99de31b9..6ffb0347 100644 --- a/SRC/cgehd2.f +++ b/SRC/cgehd2.f @@ -106,7 +106,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -149,10 +149,10 @@ * ===================================================================== SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/cgelq2.f b/SRC/cgelq2.f index b944670f..6a1e0646 100644 --- a/SRC/cgelq2.f +++ b/SRC/cgelq2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgeql2.f b/SRC/cgeql2.f index e831aa1c..77bd34de 100644 --- a/SRC/cgeql2.f +++ b/SRC/cgeql2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE CGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgeqp3.f b/SRC/cgeqp3.f index 9fe687e5..6ba2f64f 100644 --- a/SRC/cgeqp3.f +++ b/SRC/cgeqp3.f @@ -127,7 +127,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -159,10 +159,10 @@ SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/cgeqr2.f b/SRC/cgeqr2.f index cc401be3..178c0d02 100644 --- a/SRC/cgeqr2.f +++ b/SRC/cgeqr2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE CGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgeqr2p.f b/SRC/cgeqr2p.f index 5824e81a..469f3f66 100644 --- a/SRC/cgeqr2p.f +++ b/SRC/cgeqr2p.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE CGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgeqrt2.f b/SRC/cgeqrt2.f index d1c57467..4d7a0188 100644 --- a/SRC/cgeqrt2.f +++ b/SRC/cgeqrt2.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -127,10 +127,10 @@ * ===================================================================== SUBROUTINE CGEQRT2( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N diff --git a/SRC/cgeqrt3.f b/SRC/cgeqrt3.f index 520076b7..b7b3150d 100644 --- a/SRC/cgeqrt3.f +++ b/SRC/cgeqrt3.f @@ -100,7 +100,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -132,10 +132,10 @@ * ===================================================================== RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/SRC/cgerq2.f b/SRC/cgerq2.f index 6ee90678..b28392ab 100644 --- a/SRC/cgerq2.f +++ b/SRC/cgerq2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE CGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgesc2.f b/SRC/cgesc2.f index 80958a53..7563987e 100644 --- a/SRC/cgesc2.f +++ b/SRC/cgesc2.f @@ -102,7 +102,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEauxiliary * @@ -115,10 +115,10 @@ * ===================================================================== SUBROUTINE CGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/SRC/cgetc2.f b/SRC/cgetc2.f index 2c3e8cce..50cf6d4c 100644 --- a/SRC/cgetc2.f +++ b/SRC/cgetc2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEauxiliary * @@ -111,10 +111,10 @@ * ===================================================================== SUBROUTINE CGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/SRC/cgetf2.f b/SRC/cgetf2.f index 78e9f352..263d2131 100644 --- a/SRC/cgetf2.f +++ b/SRC/cgetf2.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/cgtcon.f b/SRC/cgtcon.f index 348782d7..b1d9f22d 100644 --- a/SRC/cgtcon.f +++ b/SRC/cgtcon.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGTcomputational * @@ -141,10 +141,10 @@ SUBROUTINE CGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/cgtrfs.f b/SRC/cgtrfs.f index 5f9e484c..62ddbabc 100644 --- a/SRC/cgtrfs.f +++ b/SRC/cgtrfs.f @@ -201,7 +201,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGTcomputational * @@ -210,10 +210,10 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/cgtsv.f b/SRC/cgtsv.f index 027c5722..a59446a2 100644 --- a/SRC/cgtsv.f +++ b/SRC/cgtsv.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGTsolve * * ===================================================================== SUBROUTINE CGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/cgtsvx.f b/SRC/cgtsvx.f index 3ed75192..da4023e9 100644 --- a/SRC/cgtsvx.f +++ b/SRC/cgtsvx.f @@ -285,7 +285,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexGTsolve * @@ -294,10 +294,10 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/SRC/cgttrf.f b/SRC/cgttrf.f index 55cbb5f8..d39acad4 100644 --- a/SRC/cgttrf.f +++ b/SRC/cgttrf.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/cgttrs.f b/SRC/cgttrs.f index dd631823..c1989f4f 100644 --- a/SRC/cgttrs.f +++ b/SRC/cgttrs.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGTcomputational * @@ -138,10 +138,10 @@ SUBROUTINE CGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/cgtts2.f b/SRC/cgtts2.f index 7c59f2d5..6c5ce807 100644 --- a/SRC/cgtts2.f +++ b/SRC/cgtts2.f @@ -121,17 +121,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/SRC/cheevr.f b/SRC/cheevr.f index 3db71bb0..0d609b45 100644 --- a/SRC/cheevr.f +++ b/SRC/cheevr.f @@ -329,7 +329,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEeigen * @@ -348,10 +348,10 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/chegs2.f b/SRC/chegs2.f index 421e21d1..ba5cb4c7 100644 --- a/SRC/chegs2.f +++ b/SRC/chegs2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chegst.f b/SRC/chegst.f index a591dcdd..7b6c2b65 100644 --- a/SRC/chegst.f +++ b/SRC/chegst.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cheswapr.f b/SRC/cheswapr.f index 7005560e..124051be 100644 --- a/SRC/cheswapr.f +++ b/SRC/cheswapr.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEauxiliary * * ===================================================================== SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetd2.f b/SRC/chetd2.f index 799acf87..44cb182d 100644 --- a/SRC/chetd2.f +++ b/SRC/chetd2.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * @@ -175,10 +175,10 @@ * ===================================================================== SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chetf2.f b/SRC/chetf2.f index 57e86269..1b7566e4 100644 --- a/SRC/chetf2.f +++ b/SRC/chetf2.f @@ -118,7 +118,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * @@ -177,10 +177,10 @@ * ===================================================================== SUBROUTINE CHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/chfrk.f b/SRC/chfrk.f index 8a5807ce..836f4efc 100644 --- a/SRC/chfrk.f +++ b/SRC/chfrk.f @@ -160,7 +160,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -168,10 +168,10 @@ SUBROUTINE CHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/cla_gbamv.f b/SRC/cla_gbamv.f index ff56948e..62b35ed9 100644 --- a/SRC/cla_gbamv.f +++ b/SRC/cla_gbamv.f @@ -178,7 +178,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBcomputational * @@ -186,10 +186,10 @@ SUBROUTINE CLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/cla_gbrcond_c.f b/SRC/cla_gbrcond_c.f index 2a6265bb..c531f52e 100644 --- a/SRC/cla_gbrcond_c.f +++ b/SRC/cla_gbrcond_c.f @@ -152,7 +152,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBcomputational * @@ -161,10 +161,10 @@ $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/cla_gbrcond_x.f b/SRC/cla_gbrcond_x.f index 57f6b35e..7dbbaa36 100644 --- a/SRC/cla_gbrcond_x.f +++ b/SRC/cla_gbrcond_x.f @@ -145,7 +145,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBcomputational * @@ -153,10 +153,10 @@ REAL FUNCTION CLA_GBRCOND_X( TRANS, N, KL, KU, AB, LDAB, AFB, $ LDAFB, IPIV, X, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/cla_gbrfsx_extended.f b/SRC/cla_gbrfsx_extended.f index 2908c82d..bf2ea068 100644 --- a/SRC/cla_gbrfsx_extended.f +++ b/SRC/cla_gbrfsx_extended.f @@ -399,7 +399,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBcomputational * @@ -412,10 +412,10 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, diff --git a/SRC/cla_gbrpvgrw.f b/SRC/cla_gbrpvgrw.f index 33fc1555..1438651a 100644 --- a/SRC/cla_gbrpvgrw.f +++ b/SRC/cla_gbrpvgrw.f @@ -109,7 +109,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBcomputational * @@ -117,10 +117,10 @@ REAL FUNCTION CLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB diff --git a/SRC/cla_geamv.f b/SRC/cla_geamv.f index 482f2895..97be42f7 100644 --- a/SRC/cla_geamv.f +++ b/SRC/cla_geamv.f @@ -167,7 +167,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -175,10 +175,10 @@ SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/cla_gercond_c.f b/SRC/cla_gercond_c.f index 71a44bba..71dfe9fc 100644 --- a/SRC/cla_gercond_c.f +++ b/SRC/cla_gercond_c.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -142,10 +142,10 @@ REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Aguments .. CHARACTER TRANS diff --git a/SRC/cla_gercond_x.f b/SRC/cla_gercond_x.f index 46dfa488..213671dc 100644 --- a/SRC/cla_gercond_x.f +++ b/SRC/cla_gercond_x.f @@ -127,7 +127,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * @@ -135,10 +135,10 @@ REAL FUNCTION CLA_GERCOND_X( TRANS, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/cla_gerpvgrw.f b/SRC/cla_gerpvgrw.f index 4dabc1f8..c785d343 100644 --- a/SRC/cla_gerpvgrw.f +++ b/SRC/cla_gerpvgrw.f @@ -91,17 +91,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEcomputational * * ===================================================================== REAL FUNCTION CLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF diff --git a/SRC/cla_heamv.f b/SRC/cla_heamv.f index 1822e7c6..57af7d2e 100644 --- a/SRC/cla_heamv.f +++ b/SRC/cla_heamv.f @@ -154,7 +154,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * @@ -178,10 +178,10 @@ SUBROUTINE CLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/cla_hercond_c.f b/SRC/cla_hercond_c.f index d8223a99..036c1891 100644 --- a/SRC/cla_hercond_c.f +++ b/SRC/cla_hercond_c.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * @@ -138,10 +138,10 @@ REAL FUNCTION CLA_HERCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cla_hercond_x.f b/SRC/cla_hercond_x.f index de1b632b..4f287441 100644 --- a/SRC/cla_hercond_x.f +++ b/SRC/cla_hercond_x.f @@ -123,7 +123,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * @@ -131,10 +131,10 @@ REAL FUNCTION CLA_HERCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cla_herfsx_extended.f b/SRC/cla_herfsx_extended.f index 59d60c21..d0c305a2 100644 --- a/SRC/cla_herfsx_extended.f +++ b/SRC/cla_herfsx_extended.f @@ -385,7 +385,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * @@ -398,10 +398,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/cla_lin_berr.f b/SRC/cla_lin_berr.f index c19bc9bf..3a66e9ed 100644 --- a/SRC/cla_lin_berr.f +++ b/SRC/cla_lin_berr.f @@ -94,17 +94,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS diff --git a/SRC/cla_porcond_c.f b/SRC/cla_porcond_c.f index 5acff83b..739daae0 100644 --- a/SRC/cla_porcond_c.f +++ b/SRC/cla_porcond_c.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPOcomputational * @@ -130,10 +130,10 @@ REAL FUNCTION CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cla_porcond_x.f b/SRC/cla_porcond_x.f index 849a250f..44be5c8c 100644 --- a/SRC/cla_porcond_x.f +++ b/SRC/cla_porcond_x.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPOcomputational * @@ -123,10 +123,10 @@ REAL FUNCTION CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cla_porfsx_extended.f b/SRC/cla_porfsx_extended.f index 13f125b1..192719d5 100644 --- a/SRC/cla_porfsx_extended.f +++ b/SRC/cla_porfsx_extended.f @@ -377,7 +377,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPOcomputational * @@ -390,10 +390,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/cla_porpvgrw.f b/SRC/cla_porpvgrw.f index dfd2c44e..d3eb3960 100644 --- a/SRC/cla_porpvgrw.f +++ b/SRC/cla_porpvgrw.f @@ -98,17 +98,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPOcomputational * * ===================================================================== REAL FUNCTION CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/cla_syamv.f b/SRC/cla_syamv.f index f48df4fe..3d78d586 100644 --- a/SRC/cla_syamv.f +++ b/SRC/cla_syamv.f @@ -155,7 +155,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * @@ -179,10 +179,10 @@ SUBROUTINE CLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/cla_syrcond_c.f b/SRC/cla_syrcond_c.f index 442bebb9..ddd723d6 100644 --- a/SRC/cla_syrcond_c.f +++ b/SRC/cla_syrcond_c.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * @@ -138,10 +138,10 @@ REAL FUNCTION CLA_SYRCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cla_syrcond_x.f b/SRC/cla_syrcond_x.f index ee925401..70b02fce 100644 --- a/SRC/cla_syrcond_x.f +++ b/SRC/cla_syrcond_x.f @@ -123,7 +123,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * @@ -131,10 +131,10 @@ REAL FUNCTION CLA_SYRCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cla_syrfsx_extended.f b/SRC/cla_syrfsx_extended.f index d7392ecc..f1caf58a 100644 --- a/SRC/cla_syrfsx_extended.f +++ b/SRC/cla_syrfsx_extended.f @@ -385,7 +385,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * @@ -398,10 +398,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/cla_syrpvgrw.f b/SRC/cla_syrpvgrw.f index 0ee8c259..cabb679e 100644 --- a/SRC/cla_syrpvgrw.f +++ b/SRC/cla_syrpvgrw.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * @@ -123,10 +123,10 @@ REAL FUNCTION CLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/cla_wwaddw.f b/SRC/cla_wwaddw.f index 17bd3aa3..373cd896 100644 --- a/SRC/cla_wwaddw.f +++ b/SRC/cla_wwaddw.f @@ -74,17 +74,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N diff --git a/SRC/clabrd.f b/SRC/clabrd.f index 94bbd856..d3ab8276 100644 --- a/SRC/clabrd.f +++ b/SRC/clabrd.f @@ -157,7 +157,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -212,10 +212,10 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/clacgv.f b/SRC/clacgv.f index ff830aa3..6788b5b9 100644 --- a/SRC/clacgv.f +++ b/SRC/clacgv.f @@ -67,17 +67,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACGV( N, X, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/clacn2.f b/SRC/clacn2.f index 3b981d52..7c7874b3 100644 --- a/SRC/clacn2.f +++ b/SRC/clacn2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -133,10 +133,10 @@ * ===================================================================== SUBROUTINE CLACN2( N, V, X, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/clacon.f b/SRC/clacon.f index c95aa438..db7a16c7 100644 --- a/SRC/clacon.f +++ b/SRC/clacon.f @@ -89,7 +89,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE CLACON( N, V, X, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/clacp2.f b/SRC/clacp2.f index 48fd7beb..3c83c24f 100644 --- a/SRC/clacp2.f +++ b/SRC/clacp2.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACP2( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clacpy.f b/SRC/clacpy.f index 932b1a83..64bcfb8c 100644 --- a/SRC/clacpy.f +++ b/SRC/clacpy.f @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clacrm.f b/SRC/clacrm.f index f6bcc52a..a3c10764 100644 --- a/SRC/clacrm.f +++ b/SRC/clacrm.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/SRC/clacrt.f b/SRC/clacrt.f index b9cd293b..b928b7d1 100644 --- a/SRC/clacrt.f +++ b/SRC/clacrt.f @@ -98,17 +98,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACRT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/cladiv.f b/SRC/cladiv.f index 531a582b..b936008e 100644 --- a/SRC/cladiv.f +++ b/SRC/cladiv.f @@ -57,17 +57,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== COMPLEX FUNCTION CLADIV( X, Y ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. COMPLEX X, Y diff --git a/SRC/claed0.f b/SRC/claed0.f index aebf1056..abfa21c1 100644 --- a/SRC/claed0.f +++ b/SRC/claed0.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -145,10 +145,10 @@ SUBROUTINE CLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDQ, LDQS, N, QSIZ diff --git a/SRC/claed7.f b/SRC/claed7.f index ea06608a..a3cdae03 100644 --- a/SRC/claed7.f +++ b/SRC/claed7.f @@ -239,7 +239,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -249,10 +249,10 @@ $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/SRC/claed8.f b/SRC/claed8.f index 8834b0ff..a10b1d02 100644 --- a/SRC/claed8.f +++ b/SRC/claed8.f @@ -219,7 +219,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -228,10 +228,10 @@ $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ diff --git a/SRC/claein.f b/SRC/claein.f index 745dc36d..47cd9bc6 100644 --- a/SRC/claein.f +++ b/SRC/claein.f @@ -141,7 +141,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -149,10 +149,10 @@ SUBROUTINE CLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/claesy.f b/SRC/claesy.f index 91201424..f892ea95 100644 --- a/SRC/claesy.f +++ b/SRC/claesy.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. COMPLEX A, B, C, CS1, EVSCAL, RT1, RT2, SN1 diff --git a/SRC/claev2.f b/SRC/claev2.f index a0786288..ad1e0a5b 100644 --- a/SRC/claev2.f +++ b/SRC/claev2.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE CLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL CS1, RT1, RT2 diff --git a/SRC/clag2z.f b/SRC/clag2z.f index ae91b42f..f3a0e91f 100644 --- a/SRC/clag2z.f +++ b/SRC/clag2z.f @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/SRC/clagtm.f b/SRC/clagtm.f index 77b01d90..1ca9b4a2 100644 --- a/SRC/clagtm.f +++ b/SRC/clagtm.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -145,10 +145,10 @@ SUBROUTINE CLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/clahef.f b/SRC/clahef.f index d5887584..0cd23ecf 100644 --- a/SRC/clahef.f +++ b/SRC/clahef.f @@ -150,17 +150,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clahqr.f b/SRC/clahqr.f index 0388eadb..559d5196 100644 --- a/SRC/clahqr.f +++ b/SRC/clahqr.f @@ -171,7 +171,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -195,10 +195,10 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N diff --git a/SRC/clahr2.f b/SRC/clahr2.f index d1841bbb..79171cfb 100644 --- a/SRC/clahr2.f +++ b/SRC/clahr2.f @@ -123,7 +123,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -181,10 +181,10 @@ * ===================================================================== SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/clahrd.f b/SRC/clahrd.f index 067da097..ae37c73d 100644 --- a/SRC/clahrd.f +++ b/SRC/clahrd.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -169,10 +169,10 @@ * ===================================================================== SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/claic1.f b/SRC/claic1.f index 8c6153bf..c2085def 100644 --- a/SRC/claic1.f +++ b/SRC/claic1.f @@ -128,17 +128,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/clals0.f b/SRC/clals0.f index 981ee77b..ecd5ce2c 100644 --- a/SRC/clals0.f +++ b/SRC/clals0.f @@ -254,7 +254,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -270,10 +270,10 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/SRC/clalsa.f b/SRC/clalsa.f index bd06c962..fd135ca5 100644 --- a/SRC/clalsa.f +++ b/SRC/clalsa.f @@ -251,7 +251,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -268,10 +268,10 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/SRC/clalsd.f b/SRC/clalsd.f index 6eb36782..3aa72507 100644 --- a/SRC/clalsd.f +++ b/SRC/clalsd.f @@ -171,7 +171,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -186,10 +186,10 @@ SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clangb.f b/SRC/clangb.f index 005435c2..45d4775c 100644 --- a/SRC/clangb.f +++ b/SRC/clangb.f @@ -117,7 +117,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBauxiliary * @@ -125,10 +125,10 @@ REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/clange.f b/SRC/clange.f index 56ecb0b2..127f4deb 100644 --- a/SRC/clange.f +++ b/SRC/clange.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEauxiliary * * ===================================================================== REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/clangt.f b/SRC/clangt.f index 1bac73cb..898141da 100644 --- a/SRC/clangt.f +++ b/SRC/clangt.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/clanhb.f b/SRC/clanhb.f index b879dcc9..17d6f37d 100644 --- a/SRC/clanhb.f +++ b/SRC/clanhb.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -132,10 +132,10 @@ REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/clanhe.f b/SRC/clanhe.f index 89b26e9d..a579041d 100644 --- a/SRC/clanhe.f +++ b/SRC/clanhe.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEauxiliary * * ===================================================================== REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/clanhf.f b/SRC/clanhf.f index 293fc830..bbdac825 100644 --- a/SRC/clanhf.f +++ b/SRC/clanhf.f @@ -131,7 +131,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -246,10 +246,10 @@ * ===================================================================== REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/SRC/clanhp.f b/SRC/clanhp.f index 85d98aa5..b34cef0e 100644 --- a/SRC/clanhp.f +++ b/SRC/clanhp.f @@ -110,17 +110,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/clanhs.f b/SRC/clanhs.f index 3462416d..93ce54c7 100644 --- a/SRC/clanhs.f +++ b/SRC/clanhs.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/clanht.f b/SRC/clanht.f index 4cd37a8d..ab53e05e 100644 --- a/SRC/clanht.f +++ b/SRC/clanht.f @@ -94,17 +94,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHT( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/clansb.f b/SRC/clansb.f index 4bb46103..63b5525c 100644 --- a/SRC/clansb.f +++ b/SRC/clansb.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -130,10 +130,10 @@ REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/clansp.f b/SRC/clansp.f index 6f2eb4cd..fe66b61d 100644 --- a/SRC/clansp.f +++ b/SRC/clansp.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/clansy.f b/SRC/clansy.f index b322eca2..9364683f 100644 --- a/SRC/clansy.f +++ b/SRC/clansy.f @@ -116,17 +116,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYauxiliary * * ===================================================================== REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/clantb.f b/SRC/clantb.f index 6517c73a..99d9557f 100644 --- a/SRC/clantb.f +++ b/SRC/clantb.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -141,10 +141,10 @@ REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/clantp.f b/SRC/clantp.f index e50d6618..28808ea6 100644 --- a/SRC/clantp.f +++ b/SRC/clantp.f @@ -118,17 +118,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/clantr.f b/SRC/clantr.f index d8e112d4..7300507a 100644 --- a/SRC/clantr.f +++ b/SRC/clantr.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -142,10 +142,10 @@ REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/clapll.f b/SRC/clapll.f index 1908be75..83989e70 100644 --- a/SRC/clapll.f +++ b/SRC/clapll.f @@ -93,17 +93,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/clapmr.f b/SRC/clapmr.f index 17444677..cb349451 100644 --- a/SRC/clapmr.f +++ b/SRC/clapmr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/clapmt.f b/SRC/clapmt.f index a46524fb..225f620b 100644 --- a/SRC/clapmt.f +++ b/SRC/clapmt.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/claqgb.f b/SRC/claqgb.f index c08df83c..25a1f4be 100644 --- a/SRC/claqgb.f +++ b/SRC/claqgb.f @@ -152,7 +152,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGBauxiliary * @@ -160,10 +160,10 @@ SUBROUTINE CLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/claqge.f b/SRC/claqge.f index 247caedc..e57e3563 100644 --- a/SRC/claqge.f +++ b/SRC/claqge.f @@ -135,7 +135,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEauxiliary * @@ -143,10 +143,10 @@ SUBROUTINE CLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/claqhb.f b/SRC/claqhb.f index 5c2cf500..13b6d6ab 100644 --- a/SRC/claqhb.f +++ b/SRC/claqhb.f @@ -134,17 +134,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/claqhe.f b/SRC/claqhe.f index 8e448863..decb7089 100644 --- a/SRC/claqhe.f +++ b/SRC/claqhe.f @@ -127,17 +127,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexHEauxiliary * * ===================================================================== SUBROUTINE CLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/claqhp.f b/SRC/claqhp.f index fa8546de..8135149f 100644 --- a/SRC/claqhp.f +++ b/SRC/claqhp.f @@ -119,17 +119,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/claqp2.f b/SRC/claqp2.f index 674b5bcf..43119907 100644 --- a/SRC/claqp2.f +++ b/SRC/claqp2.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -149,10 +149,10 @@ SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/SRC/claqps.f b/SRC/claqps.f index 0a003e81..9d3c5a43 100644 --- a/SRC/claqps.f +++ b/SRC/claqps.f @@ -150,7 +150,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -178,10 +178,10 @@ SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/SRC/claqr0.f b/SRC/claqr0.f index 8034f9d4..ed69e6fb 100644 --- a/SRC/claqr0.f +++ b/SRC/claqr0.f @@ -214,7 +214,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -240,10 +240,10 @@ SUBROUTINE CLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/claqr1.f b/SRC/claqr1.f index 89d2987e..ffe8a21e 100644 --- a/SRC/claqr1.f +++ b/SRC/claqr1.f @@ -94,7 +94,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -107,10 +107,10 @@ * ===================================================================== SUBROUTINE CLAQR1( N, H, LDH, S1, S2, V ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. COMPLEX S1, S2 diff --git a/SRC/claqr2.f b/SRC/claqr2.f index ccffb1d4..49ea0998 100644 --- a/SRC/claqr2.f +++ b/SRC/claqr2.f @@ -254,7 +254,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -269,10 +269,10 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/claqr3.f b/SRC/claqr3.f index 15542ee2..0ebdf1c3 100644 --- a/SRC/claqr3.f +++ b/SRC/claqr3.f @@ -251,7 +251,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -266,10 +266,10 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/claqr4.f b/SRC/claqr4.f index 0fb2c252..afca76de 100644 --- a/SRC/claqr4.f +++ b/SRC/claqr4.f @@ -223,7 +223,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -249,10 +249,10 @@ SUBROUTINE CLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/claqr5.f b/SRC/claqr5.f index 0a69f42a..acf002ae 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -228,7 +228,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -251,10 +251,10 @@ $ H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, $ WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/claqsb.f b/SRC/claqsb.f index 6659d708..f00ef64b 100644 --- a/SRC/claqsb.f +++ b/SRC/claqsb.f @@ -134,17 +134,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/claqsp.f b/SRC/claqsp.f index 09b6b3e5..ac1e69e8 100644 --- a/SRC/claqsp.f +++ b/SRC/claqsp.f @@ -119,17 +119,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/claqsy.f b/SRC/claqsy.f index 2dc6b0d0..fca36794 100644 --- a/SRC/claqsy.f +++ b/SRC/claqsy.f @@ -127,17 +127,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/clar1v.f b/SRC/clar1v.f index 7a65a266..e8560023 100644 --- a/SRC/clar1v.f +++ b/SRC/clar1v.f @@ -212,7 +212,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -230,10 +230,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/clar2v.f b/SRC/clar2v.f index 3c43d824..817ae4c1 100644 --- a/SRC/clar2v.f +++ b/SRC/clar2v.f @@ -104,17 +104,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/SRC/clarcm.f b/SRC/clarcm.f index 681254f5..78c32652 100644 --- a/SRC/clarcm.f +++ b/SRC/clarcm.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/SRC/clarf.f b/SRC/clarf.f index 7fbc9891..b4811d33 100644 --- a/SRC/clarf.f +++ b/SRC/clarf.f @@ -121,17 +121,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/clarfb.f b/SRC/clarfb.f index 37168595..d1ba21e3 100644 --- a/SRC/clarfb.f +++ b/SRC/clarfb.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -195,10 +195,10 @@ SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/clarfg.f b/SRC/clarfg.f index 06e8a3a9..e2acae0f 100644 --- a/SRC/clarfg.f +++ b/SRC/clarfg.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/clarfgp.f b/SRC/clarfgp.f index 01d9ad05..d02e9148 100644 --- a/SRC/clarfgp.f +++ b/SRC/clarfgp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/clarft.f b/SRC/clarft.f index 1f1847a5..ac76a55f 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -163,10 +163,10 @@ * ===================================================================== SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/clarfx.f b/SRC/clarfx.f index 956ad2d6..1dec1cc5 100644 --- a/SRC/clarfx.f +++ b/SRC/clarfx.f @@ -112,17 +112,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/clargv.f b/SRC/clargv.f index a60c1aa3..a3df7e60 100644 --- a/SRC/clargv.f +++ b/SRC/clargv.f @@ -104,7 +104,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -122,10 +122,10 @@ * ===================================================================== SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/clarnv.f b/SRC/clarnv.f index cff58971..1cc08164 100644 --- a/SRC/clarnv.f +++ b/SRC/clarnv.f @@ -81,7 +81,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -99,10 +99,10 @@ * ===================================================================== SUBROUTINE CLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IDIST, N diff --git a/SRC/clarrv.f b/SRC/clarrv.f index cc3d3ef5..106af167 100644 --- a/SRC/clarrv.f +++ b/SRC/clarrv.f @@ -263,7 +263,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -283,10 +283,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/clarscl2.f b/SRC/clarscl2.f index e5a3bec5..603f639c 100644 --- a/SRC/clarscl2.f +++ b/SRC/clarscl2.f @@ -84,17 +84,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/clartg.f b/SRC/clartg.f index 3524484a..c3904863 100644 --- a/SRC/clartg.f +++ b/SRC/clartg.f @@ -85,7 +85,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -103,10 +103,10 @@ * ===================================================================== SUBROUTINE CLARTG( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL CS diff --git a/SRC/clartv.f b/SRC/clartv.f index 9ba754e4..16dfa784 100644 --- a/SRC/clartv.f +++ b/SRC/clartv.f @@ -100,17 +100,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/clarz.f b/SRC/clarz.f index 6acf2e01..6510c2eb 100644 --- a/SRC/clarz.f +++ b/SRC/clarz.f @@ -129,7 +129,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -147,10 +147,10 @@ * ===================================================================== SUBROUTINE CLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/clarzb.f b/SRC/clarzb.f index e0d7c440..9f1b4f12 100644 --- a/SRC/clarzb.f +++ b/SRC/clarzb.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -183,10 +183,10 @@ SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/clarzt.f b/SRC/clarzt.f index f149be6e..c5deb592 100644 --- a/SRC/clarzt.f +++ b/SRC/clarzt.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -185,10 +185,10 @@ * ===================================================================== SUBROUTINE CLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/clascl.f b/SRC/clascl.f index 1a1a25ae..f6337641 100644 --- a/SRC/clascl.f +++ b/SRC/clascl.f @@ -132,17 +132,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/clascl2.f b/SRC/clascl2.f index 62e0ecef..7fa3feb1 100644 --- a/SRC/clascl2.f +++ b/SRC/clascl2.f @@ -84,17 +84,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/claset.f b/SRC/claset.f index 0f378966..ab6813c0 100644 --- a/SRC/claset.f +++ b/SRC/claset.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clasr.f b/SRC/clasr.f index b764456f..a2c9a4a6 100644 --- a/SRC/clasr.f +++ b/SRC/clasr.f @@ -193,17 +193,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/SRC/classq.f b/SRC/classq.f index 2b8a5033..d3b2f2fe 100644 --- a/SRC/classq.f +++ b/SRC/classq.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/claswp.f b/SRC/claswp.f index c461cae5..87bbf977 100644 --- a/SRC/claswp.f +++ b/SRC/claswp.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE CLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/SRC/clasyf.f b/SRC/clasyf.f index 139244f0..c53f95fe 100644 --- a/SRC/clasyf.f +++ b/SRC/clasyf.f @@ -150,17 +150,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clatbs.f b/SRC/clatbs.f index 7d65e569..33eb8aeb 100644 --- a/SRC/clatbs.f +++ b/SRC/clatbs.f @@ -163,7 +163,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -243,10 +243,10 @@ SUBROUTINE CLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/clatdf.f b/SRC/clatdf.f index b378483f..b6de9d50 100644 --- a/SRC/clatdf.f +++ b/SRC/clatdf.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -169,10 +169,10 @@ SUBROUTINE CLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/SRC/clatps.f b/SRC/clatps.f index c471cec6..52f17301 100644 --- a/SRC/clatps.f +++ b/SRC/clatps.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -231,10 +231,10 @@ SUBROUTINE CLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/clatrd.f b/SRC/clatrd.f index 6b2d3136..885a16c2 100644 --- a/SRC/clatrd.f +++ b/SRC/clatrd.f @@ -140,7 +140,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -199,10 +199,10 @@ * ===================================================================== SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clatrs.f b/SRC/clatrs.f index f9dee136..a08794aa 100644 --- a/SRC/clatrs.f +++ b/SRC/clatrs.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -239,10 +239,10 @@ SUBROUTINE CLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/clatrz.f b/SRC/clatrz.f index b74a5f78..d1f80542 100644 --- a/SRC/clatrz.f +++ b/SRC/clatrz.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -140,10 +140,10 @@ * ===================================================================== SUBROUTINE CLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/clauu2.f b/SRC/clauu2.f index ed907ddd..09eeaf5b 100644 --- a/SRC/clauu2.f +++ b/SRC/clauu2.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/clauum.f b/SRC/clauum.f index 256f5cea..8942fe22 100644 --- a/SRC/clauum.f +++ b/SRC/clauum.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpbtf2.f b/SRC/cpbtf2.f index bed45ef4..8bf2b74b 100644 --- a/SRC/cpbtf2.f +++ b/SRC/cpbtf2.f @@ -110,7 +110,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -142,10 +142,10 @@ * ===================================================================== SUBROUTINE CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpotf2.f b/SRC/cpotf2.f index 43b4862a..3d034cec 100644 --- a/SRC/cpotf2.f +++ b/SRC/cpotf2.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cpstf2.f b/SRC/cpstf2.f index 04a96dcd..b6dc9d9d 100644 --- a/SRC/cpstf2.f +++ b/SRC/cpstf2.f @@ -134,17 +134,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL TOL diff --git a/SRC/cptcon.f b/SRC/cptcon.f index 9e019852..0d380d65 100644 --- a/SRC/cptcon.f +++ b/SRC/cptcon.f @@ -102,7 +102,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPTcomputational * @@ -119,10 +119,10 @@ * ===================================================================== SUBROUTINE CPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/cpteqr.f b/SRC/cpteqr.f index 983836e5..124d647f 100644 --- a/SRC/cpteqr.f +++ b/SRC/cpteqr.f @@ -138,17 +138,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/SRC/cptrfs.f b/SRC/cptrfs.f index fbdc451f..cf4d8b06 100644 --- a/SRC/cptrfs.f +++ b/SRC/cptrfs.f @@ -175,7 +175,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPTcomputational * @@ -183,10 +183,10 @@ SUBROUTINE CPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cptsv.f b/SRC/cptsv.f index b075de5e..86a8f9e0 100644 --- a/SRC/cptsv.f +++ b/SRC/cptsv.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPTsolve * * ===================================================================== SUBROUTINE CPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/cptsvx.f b/SRC/cptsvx.f index 06470985..e879cdd5 100644 --- a/SRC/cptsvx.f +++ b/SRC/cptsvx.f @@ -226,7 +226,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexPTsolve * @@ -234,10 +234,10 @@ SUBROUTINE CPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/cpttrf.f b/SRC/cpttrf.f index eb543601..0b7af35e 100644 --- a/SRC/cpttrf.f +++ b/SRC/cpttrf.f @@ -85,17 +85,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/cpttrs.f b/SRC/cpttrs.f index a5562036..414c8994 100644 --- a/SRC/cpttrs.f +++ b/SRC/cpttrs.f @@ -114,17 +114,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cptts2.f b/SRC/cptts2.f index 899b544e..0f3da5c4 100644 --- a/SRC/cptts2.f +++ b/SRC/cptts2.f @@ -106,17 +106,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CROT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/cspmv.f b/SRC/cspmv.f index b2826d10..bb203af1 100644 --- a/SRC/cspmv.f +++ b/SRC/cspmv.f @@ -144,17 +144,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO @@ -125,17 +125,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSPR( UPLO, N, ALPHA, X, INCX, AP ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csrscl.f b/SRC/csrscl.f index 917e95e0..a78cd76f 100644 --- a/SRC/csrscl.f +++ b/SRC/csrscl.f @@ -77,17 +77,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/cstemr.f b/SRC/cstemr.f index 7137fae9..ace3658d 100644 --- a/SRC/cstemr.f +++ b/SRC/cstemr.f @@ -311,7 +311,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -329,10 +329,10 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/SRC/csymv.f b/SRC/csymv.f index 15183b29..c911b9d5 100644 --- a/SRC/csymv.f +++ b/SRC/csymv.f @@ -150,17 +150,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO @@ -128,17 +128,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csytf2.f b/SRC/csytf2.f index ca7ab6f9..2cb8b992 100644 --- a/SRC/csytf2.f +++ b/SRC/csytf2.f @@ -118,7 +118,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * @@ -182,10 +182,10 @@ * ===================================================================== SUBROUTINE CSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/csytri2.f b/SRC/csytri2.f index 870e8291..ad21f17c 100644 --- a/SRC/csytri2.f +++ b/SRC/csytri2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ctfsm.f b/SRC/ctfsm.f index ebd4f7bc..eb110fa6 100644 --- a/SRC/ctfsm.f +++ b/SRC/ctfsm.f @@ -182,7 +182,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -298,10 +298,10 @@ SUBROUTINE CTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/SRC/ctfttp.f b/SRC/ctfttp.f index bb1ba12f..c2c2ea97 100644 --- a/SRC/ctfttp.f +++ b/SRC/ctfttp.f @@ -93,7 +93,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -208,10 +208,10 @@ * ===================================================================== SUBROUTINE CTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ctfttr.f b/SRC/ctfttr.f index dc9fd7aa..c9180069 100644 --- a/SRC/ctfttr.f +++ b/SRC/ctfttr.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -216,10 +216,10 @@ * ===================================================================== SUBROUTINE CTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ctgex2.f b/SRC/ctgex2.f index fd77b677..4a975354 100644 --- a/SRC/ctgex2.f +++ b/SRC/ctgex2.f @@ -153,7 +153,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexGEauxiliary * @@ -190,10 +190,10 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/ctgsy2.f b/SRC/ctgsy2.f index b9cc7842..0897cfc6 100644 --- a/SRC/ctgsy2.f +++ b/SRC/ctgsy2.f @@ -244,7 +244,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexSYauxiliary * @@ -259,10 +259,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/ctpqrt2.f b/SRC/ctpqrt2.f index 1038582d..2c5db1bf 100644 --- a/SRC/ctpqrt2.f +++ b/SRC/ctpqrt2.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -173,10 +173,10 @@ * ===================================================================== SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/SRC/ctprfb.f b/SRC/ctprfb.f index 1ba56472..b3d23b55 100644 --- a/SRC/ctprfb.f +++ b/SRC/ctprfb.f @@ -194,7 +194,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -251,10 +251,10 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/ctpttf.f b/SRC/ctpttf.f index 8dd247a0..01b8265b 100644 --- a/SRC/ctpttf.f +++ b/SRC/ctpttf.f @@ -92,7 +92,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -207,10 +207,10 @@ * ===================================================================== SUBROUTINE CTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ctpttr.f b/SRC/ctpttr.f index bdbdaf07..d56a1e32 100644 --- a/SRC/ctpttr.f +++ b/SRC/ctpttr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ctrti2.f b/SRC/ctrti2.f index 6eb8ec4b..5fbfb5c1 100644 --- a/SRC/ctrti2.f +++ b/SRC/ctrti2.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/SRC/ctrttf.f b/SRC/ctrttf.f index c2ef1c19..be45b0b2 100644 --- a/SRC/ctrttf.f +++ b/SRC/ctrttf.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -216,10 +216,10 @@ * ===================================================================== SUBROUTINE CTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ctrttp.f b/SRC/ctrttp.f index 72e4d82d..35f79946 100644 --- a/SRC/ctrttp.f +++ b/SRC/ctrttp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/cung2l.f b/SRC/cung2l.f index b2caffca..8a6749ed 100644 --- a/SRC/cung2l.f +++ b/SRC/cung2l.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/cungl2.f b/SRC/cungl2.f index 0889a48d..359377a3 100644 --- a/SRC/cungl2.f +++ b/SRC/cungl2.f @@ -106,17 +106,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/cungr2.f b/SRC/cungr2.f index 5bde3063..c766005b 100644 --- a/SRC/cungr2.f +++ b/SRC/cungr2.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/cunm2l.f b/SRC/cunm2l.f index 2489e6b2..f78e82f5 100644 --- a/SRC/cunm2l.f +++ b/SRC/cunm2l.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE CUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunm2r.f b/SRC/cunm2r.f index da8d5f15..eadeaf77 100644 --- a/SRC/cunm2r.f +++ b/SRC/cunm2r.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunml2.f b/SRC/cunml2.f index 78d8a17a..f950979c 100644 --- a/SRC/cunml2.f +++ b/SRC/cunml2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE CUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmr2.f b/SRC/cunmr2.f index 6cbe6211..c4dce6fe 100644 --- a/SRC/cunmr2.f +++ b/SRC/cunmr2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE CUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/cunmr3.f b/SRC/cunmr3.f index 1336c84b..52b5feab 100644 --- a/SRC/cunmr3.f +++ b/SRC/cunmr3.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERcomputational * @@ -178,10 +178,10 @@ SUBROUTINE CUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dgbtf2.f b/SRC/dgbtf2.f index 54506a2e..43d5edd7 100644 --- a/SRC/dgbtf2.f +++ b/SRC/dgbtf2.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGBcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE DGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/SRC/dgebd2.f b/SRC/dgebd2.f index c7191823..1164f7d9 100644 --- a/SRC/dgebd2.f +++ b/SRC/dgebd2.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -189,10 +189,10 @@ * ===================================================================== SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeev.f b/SRC/dgeev.f index b254436b..51be94c2 100644 --- a/SRC/dgeev.f +++ b/SRC/dgeev.f @@ -181,7 +181,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEeigen * @@ -189,10 +189,10 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/SRC/dgeevx.f b/SRC/dgeevx.f index f2964cd0..a0e9c547 100644 --- a/SRC/dgeevx.f +++ b/SRC/dgeevx.f @@ -294,7 +294,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEeigen * @@ -303,10 +303,10 @@ $ VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/SRC/dgehd2.f b/SRC/dgehd2.f index f3d45ad8..f513da80 100644 --- a/SRC/dgehd2.f +++ b/SRC/dgehd2.f @@ -106,7 +106,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -149,10 +149,10 @@ * ===================================================================== SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/dgejsv.f b/SRC/dgejsv.f index 03bd7a75..e6292320 100644 --- a/SRC/dgejsv.f +++ b/SRC/dgejsv.f @@ -389,7 +389,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEsing * @@ -474,10 +474,10 @@ $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. IMPLICIT NONE diff --git a/SRC/dgelq2.f b/SRC/dgelq2.f index cd17ada6..f6b5aceb 100644 --- a/SRC/dgelq2.f +++ b/SRC/dgelq2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE DGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeql2.f b/SRC/dgeql2.f index bf513895..f9d018ef 100644 --- a/SRC/dgeql2.f +++ b/SRC/dgeql2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE DGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeqp3.f b/SRC/dgeqp3.f index 06f237a5..bf273b7b 100644 --- a/SRC/dgeqp3.f +++ b/SRC/dgeqp3.f @@ -120,7 +120,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -151,10 +151,10 @@ * ===================================================================== SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/dgeqr2.f b/SRC/dgeqr2.f index 3d44a7c3..6562a1bd 100644 --- a/SRC/dgeqr2.f +++ b/SRC/dgeqr2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeqr2p.f b/SRC/dgeqr2p.f index 2a88f71b..2597e8c4 100644 --- a/SRC/dgeqr2p.f +++ b/SRC/dgeqr2p.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE DGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgeqrt2.f b/SRC/dgeqrt2.f index f25f2c8e..a800375f 100644 --- a/SRC/dgeqrt2.f +++ b/SRC/dgeqrt2.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -127,10 +127,10 @@ * ===================================================================== SUBROUTINE DGEQRT2( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N diff --git a/SRC/dgeqrt3.f b/SRC/dgeqrt3.f index 825c7791..3c424bda 100644 --- a/SRC/dgeqrt3.f +++ b/SRC/dgeqrt3.f @@ -100,7 +100,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -132,10 +132,10 @@ * ===================================================================== RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/SRC/dgerq2.f b/SRC/dgerq2.f index b8f121be..8dc05e99 100644 --- a/SRC/dgerq2.f +++ b/SRC/dgerq2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE DGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgesc2.f b/SRC/dgesc2.f index 6377d017..a7c13083 100644 --- a/SRC/dgesc2.f +++ b/SRC/dgesc2.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/SRC/dgesdd.f b/SRC/dgesdd.f index b1494e39..857d8a5e 100644 --- a/SRC/dgesdd.f +++ b/SRC/dgesdd.f @@ -203,7 +203,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEsing * @@ -217,10 +217,10 @@ SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/SRC/dgesvj.f b/SRC/dgesvj.f index cf44f7ae..a82ce2d4 100644 --- a/SRC/dgesvj.f +++ b/SRC/dgesvj.f @@ -258,7 +258,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -335,10 +335,10 @@ SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N diff --git a/SRC/dgetc2.f b/SRC/dgetc2.f index 8fefc489..6b358c2b 100644 --- a/SRC/dgetc2.f +++ b/SRC/dgetc2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEauxiliary * @@ -111,10 +111,10 @@ * ===================================================================== SUBROUTINE DGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/SRC/dgetf2.f b/SRC/dgetf2.f index 417af198..22066802 100644 --- a/SRC/dgetf2.f +++ b/SRC/dgetf2.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/dgsvj0.f b/SRC/dgsvj0.f index fecde17c..8e7f9b89 100644 --- a/SRC/dgsvj0.f +++ b/SRC/dgsvj0.f @@ -193,7 +193,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -218,10 +218,10 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP diff --git a/SRC/dgsvj1.f b/SRC/dgsvj1.f index 154873db..bf990c55 100644 --- a/SRC/dgsvj1.f +++ b/SRC/dgsvj1.f @@ -223,7 +223,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -236,10 +236,10 @@ SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION EPS, SFMIN, TOL diff --git a/SRC/dgtcon.f b/SRC/dgtcon.f index 8e7ae497..67d574fb 100644 --- a/SRC/dgtcon.f +++ b/SRC/dgtcon.f @@ -138,7 +138,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGTcomputational * @@ -146,10 +146,10 @@ SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/dgtrfs.f b/SRC/dgtrfs.f index e1226c12..42f8a67c 100644 --- a/SRC/dgtrfs.f +++ b/SRC/dgtrfs.f @@ -200,7 +200,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGTcomputational * @@ -209,10 +209,10 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dgtsv.f b/SRC/dgtsv.f index 7b687e24..2be5fd36 100644 --- a/SRC/dgtsv.f +++ b/SRC/dgtsv.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGTsolve * * ===================================================================== SUBROUTINE DGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/dgtsvx.f b/SRC/dgtsvx.f index cc26402c..b17f9d55 100644 --- a/SRC/dgtsvx.f +++ b/SRC/dgtsvx.f @@ -284,7 +284,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doubleGTsolve * @@ -293,10 +293,10 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/SRC/dgttrf.f b/SRC/dgttrf.f index bf4280af..422e19fb 100644 --- a/SRC/dgttrf.f +++ b/SRC/dgttrf.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dgttrs.f b/SRC/dgttrs.f index d130b274..0c4a2891 100644 --- a/SRC/dgttrs.f +++ b/SRC/dgttrs.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGTcomputational * @@ -138,10 +138,10 @@ SUBROUTINE DGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dgtts2.f b/SRC/dgtts2.f index 042326e9..21ed3d0d 100644 --- a/SRC/dgtts2.f +++ b/SRC/dgtts2.f @@ -121,17 +121,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/SRC/disnan.f b/SRC/disnan.f index 1fdd97ce..0398885f 100644 --- a/SRC/disnan.f +++ b/SRC/disnan.f @@ -52,17 +52,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== LOGICAL FUNCTION DISNAN( DIN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION DIN diff --git a/SRC/dla_gbamv.f b/SRC/dla_gbamv.f index a41d8318..a40e105d 100644 --- a/SRC/dla_gbamv.f +++ b/SRC/dla_gbamv.f @@ -177,7 +177,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGBcomputational * @@ -185,10 +185,10 @@ SUBROUTINE DLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/dla_gbrcond.f b/SRC/dla_gbrcond.f index 668adfae..28d3cf41 100644 --- a/SRC/dla_gbrcond.f +++ b/SRC/dla_gbrcond.f @@ -161,7 +161,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGBcomputational * @@ -170,10 +170,10 @@ $ AFB, LDAFB, IPIV, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dla_gbrfsx_extended.f b/SRC/dla_gbrfsx_extended.f index 66a7ebc6..438f8523 100644 --- a/SRC/dla_gbrfsx_extended.f +++ b/SRC/dla_gbrfsx_extended.f @@ -401,7 +401,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGBcomputational * @@ -414,10 +414,10 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, diff --git a/SRC/dla_gbrpvgrw.f b/SRC/dla_gbrpvgrw.f index cc3cc8d9..7176b69b 100644 --- a/SRC/dla_gbrpvgrw.f +++ b/SRC/dla_gbrpvgrw.f @@ -109,7 +109,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGBcomputational * @@ -117,10 +117,10 @@ DOUBLE PRECISION FUNCTION DLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB diff --git a/SRC/dla_geamv.f b/SRC/dla_geamv.f index b84201d6..28cd9f40 100644 --- a/SRC/dla_geamv.f +++ b/SRC/dla_geamv.f @@ -166,7 +166,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -174,10 +174,10 @@ SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/dla_gercond.f b/SRC/dla_gercond.f index 4abdcb39..622c9943 100644 --- a/SRC/dla_gercond.f +++ b/SRC/dla_gercond.f @@ -143,7 +143,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -152,10 +152,10 @@ $ LDAF, IPIV, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dla_gerfsx_extended.f b/SRC/dla_gerfsx_extended.f index 2a9ae792..d242b56d 100644 --- a/SRC/dla_gerfsx_extended.f +++ b/SRC/dla_gerfsx_extended.f @@ -387,7 +387,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEcomputational * @@ -399,10 +399,10 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/dla_lin_berr.f b/SRC/dla_lin_berr.f index 36af203e..e3ea1cba 100644 --- a/SRC/dla_lin_berr.f +++ b/SRC/dla_lin_berr.f @@ -94,17 +94,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS diff --git a/SRC/dla_porcond.f b/SRC/dla_porcond.f index 9f492db9..5c7d9e1c 100644 --- a/SRC/dla_porcond.f +++ b/SRC/dla_porcond.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePOcomputational * @@ -142,10 +142,10 @@ $ CMODE, C, INFO, WORK, $ IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dla_porfsx_extended.f b/SRC/dla_porfsx_extended.f index 0b2f7b5e..f410c36f 100644 --- a/SRC/dla_porfsx_extended.f +++ b/SRC/dla_porfsx_extended.f @@ -377,7 +377,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePOcomputational * @@ -390,10 +390,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/dla_porpvgrw.f b/SRC/dla_porpvgrw.f index 01cf8dd2..ac8c3730 100644 --- a/SRC/dla_porpvgrw.f +++ b/SRC/dla_porpvgrw.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePOcomputational * @@ -106,10 +106,10 @@ DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/dla_syamv.f b/SRC/dla_syamv.f index 21704ae5..5c538c29 100644 --- a/SRC/dla_syamv.f +++ b/SRC/dla_syamv.f @@ -153,7 +153,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * @@ -177,10 +177,10 @@ SUBROUTINE DLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/dla_syrcond.f b/SRC/dla_syrcond.f index 4edfb8b6..ded00905 100644 --- a/SRC/dla_syrcond.f +++ b/SRC/dla_syrcond.f @@ -139,7 +139,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * @@ -148,10 +148,10 @@ $ IPIV, CMODE, C, INFO, WORK, $ IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dla_syrfsx_extended.f b/SRC/dla_syrfsx_extended.f index 7f715b46..03adf2f2 100644 --- a/SRC/dla_syrfsx_extended.f +++ b/SRC/dla_syrfsx_extended.f @@ -386,7 +386,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * @@ -399,10 +399,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/dla_syrpvgrw.f b/SRC/dla_syrpvgrw.f index 0a112fc7..253e7cc4 100644 --- a/SRC/dla_syrpvgrw.f +++ b/SRC/dla_syrpvgrw.f @@ -114,7 +114,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * @@ -122,10 +122,10 @@ DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/dla_wwaddw.f b/SRC/dla_wwaddw.f index 659036b0..6ce34749 100644 --- a/SRC/dla_wwaddw.f +++ b/SRC/dla_wwaddw.f @@ -74,17 +74,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N diff --git a/SRC/dlabrd.f b/SRC/dlabrd.f index e030d4bb..077f665e 100644 --- a/SRC/dlabrd.f +++ b/SRC/dlabrd.f @@ -156,7 +156,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -210,10 +210,10 @@ SUBROUTINE DLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/dlacn2.f b/SRC/dlacn2.f index 00e6b3d2..31bb826d 100644 --- a/SRC/dlacn2.f +++ b/SRC/dlacn2.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -136,10 +136,10 @@ * ===================================================================== SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/dlacon.f b/SRC/dlacon.f index 47e835d5..9bb504fc 100644 --- a/SRC/dlacon.f +++ b/SRC/dlacon.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -115,10 +115,10 @@ * ===================================================================== SUBROUTINE DLACON( N, V, X, ISGN, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/dlacpy.f b/SRC/dlacpy.f index c241742c..4b360f14 100644 --- a/SRC/dlacpy.f +++ b/SRC/dlacpy.f @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dladiv.f b/SRC/dladiv.f index 48f91ad9..d74d0806 100644 --- a/SRC/dladiv.f +++ b/SRC/dladiv.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLADIV( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, D, P, Q diff --git a/SRC/dlae2.f b/SRC/dlae2.f index 8c5fa4eb..ad4bcc53 100644 --- a/SRC/dlae2.f +++ b/SRC/dlae2.f @@ -78,7 +78,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -102,10 +102,10 @@ * ===================================================================== SUBROUTINE DLAE2( A, B, C, RT1, RT2 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, RT1, RT2 diff --git a/SRC/dlaebz.f b/SRC/dlaebz.f index 65ca290a..4389a615 100644 --- a/SRC/dlaebz.f +++ b/SRC/dlaebz.f @@ -273,7 +273,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -319,10 +319,10 @@ $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/SRC/dlaed0.f b/SRC/dlaed0.f index e421ea5e..551a0bbb 100644 --- a/SRC/dlaed0.f +++ b/SRC/dlaed0.f @@ -158,7 +158,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -172,10 +172,10 @@ SUBROUTINE DLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ diff --git a/SRC/dlaed1.f b/SRC/dlaed1.f index 237f7514..ce4937a4 100644 --- a/SRC/dlaed1.f +++ b/SRC/dlaed1.f @@ -148,7 +148,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -163,10 +163,10 @@ SUBROUTINE DLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CUTPNT, INFO, LDQ, N diff --git a/SRC/dlaed2.f b/SRC/dlaed2.f index a53753e3..ce41a8d5 100644 --- a/SRC/dlaed2.f +++ b/SRC/dlaed2.f @@ -197,7 +197,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -212,10 +212,10 @@ SUBROUTINE DLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/SRC/dlaed3.f b/SRC/dlaed3.f index de995628..a26bf12d 100644 --- a/SRC/dlaed3.f +++ b/SRC/dlaed3.f @@ -170,7 +170,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -185,10 +185,10 @@ SUBROUTINE DLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, $ CTOT, W, S, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/SRC/dlaed4.f b/SRC/dlaed4.f index ceea6c36..4428d53a 100644 --- a/SRC/dlaed4.f +++ b/SRC/dlaed4.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE DLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/dlaed5.f b/SRC/dlaed5.f index 9fe4e81f..29e244bd 100644 --- a/SRC/dlaed5.f +++ b/SRC/dlaed5.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -108,10 +108,10 @@ * ===================================================================== SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I diff --git a/SRC/dlaed6.f b/SRC/dlaed6.f index 8d96082d..f50389a4 100644 --- a/SRC/dlaed6.f +++ b/SRC/dlaed6.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -140,10 +140,10 @@ * ===================================================================== SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. LOGICAL ORGATI diff --git a/SRC/dlaed7.f b/SRC/dlaed7.f index a51b9c75..8e766b0b 100644 --- a/SRC/dlaed7.f +++ b/SRC/dlaed7.f @@ -244,7 +244,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -260,10 +260,10 @@ $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/SRC/dlaed8.f b/SRC/dlaed8.f index 53de753a..b15d35ca 100644 --- a/SRC/dlaed8.f +++ b/SRC/dlaed8.f @@ -228,7 +228,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -243,10 +243,10 @@ $ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, diff --git a/SRC/dlaed9.f b/SRC/dlaed9.f index 0e5cc335..eddd0fa1 100644 --- a/SRC/dlaed9.f +++ b/SRC/dlaed9.f @@ -142,7 +142,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -156,10 +156,10 @@ SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, $ S, LDS, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N diff --git a/SRC/dlaeda.f b/SRC/dlaeda.f index 8b0552dc..57c4767c 100644 --- a/SRC/dlaeda.f +++ b/SRC/dlaeda.f @@ -152,7 +152,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -166,10 +166,10 @@ SUBROUTINE DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, INFO, N, TLVLS diff --git a/SRC/dlaein.f b/SRC/dlaein.f index 746cdbb8..862f4de8 100644 --- a/SRC/dlaein.f +++ b/SRC/dlaein.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -172,10 +172,10 @@ SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/dlaev2.f b/SRC/dlaev2.f index d3fae0e6..48ae7ea3 100644 --- a/SRC/dlaev2.f +++ b/SRC/dlaev2.f @@ -94,7 +94,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -120,10 +120,10 @@ * ===================================================================== SUBROUTINE DLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, CS1, RT1, RT2, SN1 diff --git a/SRC/dlaexc.f b/SRC/dlaexc.f index 1d814f78..d7373baf 100644 --- a/SRC/dlaexc.f +++ b/SRC/dlaexc.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -138,10 +138,10 @@ SUBROUTINE DLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTQ diff --git a/SRC/dlag2.f b/SRC/dlag2.f index f23dd049..92cf160b 100644 --- a/SRC/dlag2.f +++ b/SRC/dlag2.f @@ -148,7 +148,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -156,10 +156,10 @@ SUBROUTINE DLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/SRC/dlag2s.f b/SRC/dlag2s.f index 5fe860ee..98238582 100644 --- a/SRC/dlag2s.f +++ b/SRC/dlag2s.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/SRC/dlags2.f b/SRC/dlags2.f index 55f1b44b..47653ff4 100644 --- a/SRC/dlags2.f +++ b/SRC/dlags2.f @@ -144,7 +144,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -152,10 +152,10 @@ SUBROUTINE DLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/SRC/dlagtf.f b/SRC/dlagtf.f index 6f1a6a36..59ca5990 100644 --- a/SRC/dlagtf.f +++ b/SRC/dlagtf.f @@ -149,17 +149,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dlagtm.f b/SRC/dlagtm.f index 520970db..98ee928a 100644 --- a/SRC/dlagtm.f +++ b/SRC/dlagtm.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -145,10 +145,10 @@ SUBROUTINE DLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dlagts.f b/SRC/dlagts.f index b9152a5f..386b6467 100644 --- a/SRC/dlagts.f +++ b/SRC/dlagts.f @@ -154,17 +154,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/SRC/dlagv2.f b/SRC/dlagv2.f index a0b1a36c..6059d2f4 100644 --- a/SRC/dlagv2.f +++ b/SRC/dlagv2.f @@ -144,7 +144,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -157,10 +157,10 @@ SUBROUTINE DLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, $ CSR, SNR ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/SRC/dlahqr.f b/SRC/dlahqr.f index e7c63773..05cbb192 100644 --- a/SRC/dlahqr.f +++ b/SRC/dlahqr.f @@ -183,7 +183,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -207,10 +207,10 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N diff --git a/SRC/dlahr2.f b/SRC/dlahr2.f index f2df5dc6..473e60a4 100644 --- a/SRC/dlahr2.f +++ b/SRC/dlahr2.f @@ -123,7 +123,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -181,10 +181,10 @@ * ===================================================================== SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/dlahrd.f b/SRC/dlahrd.f index db99f5f1..abc6be25 100644 --- a/SRC/dlahrd.f +++ b/SRC/dlahrd.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -169,10 +169,10 @@ * ===================================================================== SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/dlaic1.f b/SRC/dlaic1.f index ac7e52f5..5bc385da 100644 --- a/SRC/dlaic1.f +++ b/SRC/dlaic1.f @@ -127,17 +127,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/dlaisnan.f b/SRC/dlaisnan.f index 17cd5f42..0fbb244d 100644 --- a/SRC/dlaisnan.f +++ b/SRC/dlaisnan.f @@ -67,17 +67,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION DIN1, DIN2 diff --git a/SRC/dlaln2.f b/SRC/dlaln2.f index abebd69c..da2e484e 100644 --- a/SRC/dlaln2.f +++ b/SRC/dlaln2.f @@ -210,7 +210,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -218,10 +218,10 @@ SUBROUTINE DLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL LTRANS diff --git a/SRC/dlals0.f b/SRC/dlals0.f index 66679667..037c1bf9 100644 --- a/SRC/dlals0.f +++ b/SRC/dlals0.f @@ -252,7 +252,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -268,10 +268,10 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/SRC/dlalsa.f b/SRC/dlalsa.f index 994d05c3..9fa44061 100644 --- a/SRC/dlalsa.f +++ b/SRC/dlalsa.f @@ -252,7 +252,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -269,10 +269,10 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/SRC/dlalsd.f b/SRC/dlalsd.f index 8d271b13..d839c380 100644 --- a/SRC/dlalsd.f +++ b/SRC/dlalsd.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -179,10 +179,10 @@ SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlamrg.f b/SRC/dlamrg.f index 155621c2..b9b1ec68 100644 --- a/SRC/dlamrg.f +++ b/SRC/dlamrg.f @@ -92,17 +92,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLAMRG( N1, N2, A, DTRD1, DTRD2, INDEX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER DTRD1, DTRD2, N1, N2 diff --git a/SRC/dlaneg.f b/SRC/dlaneg.f index 8115ccfe..65adfc1f 100644 --- a/SRC/dlaneg.f +++ b/SRC/dlaneg.f @@ -104,7 +104,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -118,10 +118,10 @@ * ===================================================================== INTEGER FUNCTION DLANEG( N, D, LLD, SIGMA, PIVMIN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, R diff --git a/SRC/dlangb.f b/SRC/dlangb.f index 9e4785d4..fa9c12cb 100644 --- a/SRC/dlangb.f +++ b/SRC/dlangb.f @@ -116,7 +116,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGBauxiliary * @@ -124,10 +124,10 @@ DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/dlange.f b/SRC/dlange.f index 9dd9af33..12e89efd 100644 --- a/SRC/dlange.f +++ b/SRC/dlange.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/dlangt.f b/SRC/dlangt.f index b5e9db2d..b87c6e56 100644 --- a/SRC/dlangt.f +++ b/SRC/dlangt.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/dlanhs.f b/SRC/dlanhs.f index db8e6d74..868d5188 100644 --- a/SRC/dlanhs.f +++ b/SRC/dlanhs.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/dlansb.f b/SRC/dlansb.f index fdaa1b7d..3a66e16a 100644 --- a/SRC/dlansb.f +++ b/SRC/dlansb.f @@ -121,7 +121,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -129,10 +129,10 @@ DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/dlansf.f b/SRC/dlansf.f index e03802ee..75c83b99 100644 --- a/SRC/dlansf.f +++ b/SRC/dlansf.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -209,10 +209,10 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/SRC/dlansp.f b/SRC/dlansp.f index 6f8d8ec9..40951468 100644 --- a/SRC/dlansp.f +++ b/SRC/dlansp.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/dlanst.f b/SRC/dlanst.f index 9bd608c8..f56e68b4 100644 --- a/SRC/dlanst.f +++ b/SRC/dlanst.f @@ -93,17 +93,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/dlansy.f b/SRC/dlansy.f index 89837150..6727e81c 100644 --- a/SRC/dlansy.f +++ b/SRC/dlansy.f @@ -115,17 +115,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/dlantb.f b/SRC/dlantb.f index 02609bd0..045c06b2 100644 --- a/SRC/dlantb.f +++ b/SRC/dlantb.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -140,10 +140,10 @@ DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/dlantp.f b/SRC/dlantp.f index bf9c8da9..c8f74a99 100644 --- a/SRC/dlantp.f +++ b/SRC/dlantp.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/dlantr.f b/SRC/dlantr.f index fe87bae0..315aa6bf 100644 --- a/SRC/dlantr.f +++ b/SRC/dlantr.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -141,10 +141,10 @@ DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/dlanv2.f b/SRC/dlanv2.f index 0b1b5169..dedd8c88 100644 --- a/SRC/dlanv2.f +++ b/SRC/dlanv2.f @@ -109,7 +109,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -127,10 +127,10 @@ * ===================================================================== SUBROUTINE DLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN diff --git a/SRC/dlapll.f b/SRC/dlapll.f index b18a869e..d6a49959 100644 --- a/SRC/dlapll.f +++ b/SRC/dlapll.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/dlapmr.f b/SRC/dlapmr.f index 29f7b875..dfa59e5e 100644 --- a/SRC/dlapmr.f +++ b/SRC/dlapmr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/dlapmt.f b/SRC/dlapmt.f index 03c87140..3dd19c66 100644 --- a/SRC/dlapmt.f +++ b/SRC/dlapmt.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/dlapy2.f b/SRC/dlapy2.f index aa22b74a..dc93bf4a 100644 --- a/SRC/dlapy2.f +++ b/SRC/dlapy2.f @@ -56,17 +56,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION X, Y diff --git a/SRC/dlapy3.f b/SRC/dlapy3.f index 9b2d0fe2..639b448e 100644 --- a/SRC/dlapy3.f +++ b/SRC/dlapy3.f @@ -61,17 +61,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION X, Y, Z diff --git a/SRC/dlaqgb.f b/SRC/dlaqgb.f index 812ac241..45c459a0 100644 --- a/SRC/dlaqgb.f +++ b/SRC/dlaqgb.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGBauxiliary * @@ -159,10 +159,10 @@ SUBROUTINE DLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/dlaqge.f b/SRC/dlaqge.f index 1d6b6233..e32214e6 100644 --- a/SRC/dlaqge.f +++ b/SRC/dlaqge.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEauxiliary * @@ -142,10 +142,10 @@ SUBROUTINE DLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index b7ae589c..cb583726 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -149,10 +149,10 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/SRC/dlaqps.f b/SRC/dlaqps.f index c672a7b3..9d84b3eb 100644 --- a/SRC/dlaqps.f +++ b/SRC/dlaqps.f @@ -150,7 +150,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -177,10 +177,10 @@ SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/SRC/dlaqr0.f b/SRC/dlaqr0.f index caec0ebf..1ffb192a 100644 --- a/SRC/dlaqr0.f +++ b/SRC/dlaqr0.f @@ -248,7 +248,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -256,10 +256,10 @@ SUBROUTINE DLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/dlaqr1.f b/SRC/dlaqr1.f index d2bdcf1f..865874b8 100644 --- a/SRC/dlaqr1.f +++ b/SRC/dlaqr1.f @@ -108,7 +108,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE DLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION SI1, SI2, SR1, SR2 diff --git a/SRC/dlaqr2.f b/SRC/dlaqr2.f index 65298a12..39584d64 100644 --- a/SRC/dlaqr2.f +++ b/SRC/dlaqr2.f @@ -263,7 +263,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -278,10 +278,10 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/dlaqr3.f b/SRC/dlaqr3.f index 7a7aa6d2..00937594 100644 --- a/SRC/dlaqr3.f +++ b/SRC/dlaqr3.f @@ -260,7 +260,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -275,10 +275,10 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/dlaqr4.f b/SRC/dlaqr4.f index 750504f4..a4bd4d43 100644 --- a/SRC/dlaqr4.f +++ b/SRC/dlaqr4.f @@ -237,7 +237,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -263,10 +263,10 @@ SUBROUTINE DLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index 021789cf..f4308352 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -236,7 +236,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -259,10 +259,10 @@ $ SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, $ LDU, NV, WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/dlaqsb.f b/SRC/dlaqsb.f index f8e76811..57c99488 100644 --- a/SRC/dlaqsb.f +++ b/SRC/dlaqsb.f @@ -133,17 +133,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/dlaqsp.f b/SRC/dlaqsp.f index 9b8b1466..97600eff 100644 --- a/SRC/dlaqsp.f +++ b/SRC/dlaqsp.f @@ -118,17 +118,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/dlaqsy.f b/SRC/dlaqsy.f index 3b8970f7..52793a98 100644 --- a/SRC/dlaqsy.f +++ b/SRC/dlaqsy.f @@ -126,17 +126,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/dlaqtr.f b/SRC/dlaqtr.f index 776b8714..a87457fc 100644 --- a/SRC/dlaqtr.f +++ b/SRC/dlaqtr.f @@ -157,7 +157,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -165,10 +165,10 @@ SUBROUTINE DLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/SRC/dlar1v.f b/SRC/dlar1v.f index 983d5d09..eee52082 100644 --- a/SRC/dlar1v.f +++ b/SRC/dlar1v.f @@ -212,7 +212,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -230,10 +230,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/dlar2v.f b/SRC/dlar2v.f index 82ee3f5b..72a59c02 100644 --- a/SRC/dlar2v.f +++ b/SRC/dlar2v.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/SRC/dlarf.f b/SRC/dlarf.f index 62ac4723..ea59e735 100644 --- a/SRC/dlarf.f +++ b/SRC/dlarf.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/dlarfb.f b/SRC/dlarfb.f index 8ed8fe2b..93255103 100644 --- a/SRC/dlarfb.f +++ b/SRC/dlarfb.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -195,10 +195,10 @@ SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/dlarfg.f b/SRC/dlarfg.f index 58f72455..1447ceb7 100644 --- a/SRC/dlarfg.f +++ b/SRC/dlarfg.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/dlarfgp.f b/SRC/dlarfgp.f index 8d28bb6e..581b77ae 100644 --- a/SRC/dlarfgp.f +++ b/SRC/dlarfgp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/dlarft.f b/SRC/dlarft.f index 38009b78..b55e376d 100644 --- a/SRC/dlarft.f +++ b/SRC/dlarft.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -163,10 +163,10 @@ * ===================================================================== SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/dlarfx.f b/SRC/dlarfx.f index 40963941..5f3031c4 100644 --- a/SRC/dlarfx.f +++ b/SRC/dlarfx.f @@ -113,17 +113,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/dlargv.f b/SRC/dlargv.f index 4caa81d4..8d8c03e7 100644 --- a/SRC/dlargv.f +++ b/SRC/dlargv.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/dlarnv.f b/SRC/dlarnv.f index 470f0283..2b0b56fc 100644 --- a/SRC/dlarnv.f +++ b/SRC/dlarnv.f @@ -79,7 +79,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -97,10 +97,10 @@ * ===================================================================== SUBROUTINE DLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IDIST, N diff --git a/SRC/dlarra.f b/SRC/dlarra.f index e05c660d..13b939b0 100644 --- a/SRC/dlarra.f +++ b/SRC/dlarra.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -136,10 +136,10 @@ SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N, NSPLIT diff --git a/SRC/dlarrb.f b/SRC/dlarrb.f index d1fad68d..36a8fbdb 100644 --- a/SRC/dlarrb.f +++ b/SRC/dlarrb.f @@ -178,7 +178,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -196,10 +196,10 @@ $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST diff --git a/SRC/dlarrc.f b/SRC/dlarrc.f index b16d1be2..5b7dc3da 100644 --- a/SRC/dlarrc.f +++ b/SRC/dlarrc.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -136,10 +136,10 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBT diff --git a/SRC/dlarrd.f b/SRC/dlarrd.f index d8881727..0e275716 100644 --- a/SRC/dlarrd.f +++ b/SRC/dlarrd.f @@ -311,7 +311,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -321,10 +321,10 @@ $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/SRC/dlarre.f b/SRC/dlarre.f index 89410c1d..e85df966 100644 --- a/SRC/dlarre.f +++ b/SRC/dlarre.f @@ -268,7 +268,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -297,10 +297,10 @@ $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER RANGE diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f index 4738ed7c..e453eee7 100644 --- a/SRC/dlarrf.f +++ b/SRC/dlarrf.f @@ -174,7 +174,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -193,10 +193,10 @@ $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CLSTRT, CLEND, INFO, N diff --git a/SRC/dlarrj.f b/SRC/dlarrj.f index 73089e48..387b026b 100644 --- a/SRC/dlarrj.f +++ b/SRC/dlarrj.f @@ -150,7 +150,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -168,10 +168,10 @@ $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET diff --git a/SRC/dlarrk.f b/SRC/dlarrk.f index 0fabc125..2d497756 100644 --- a/SRC/dlarrk.f +++ b/SRC/dlarrk.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -145,10 +145,10 @@ SUBROUTINE DLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, IW, N diff --git a/SRC/dlarrr.f b/SRC/dlarrr.f index eee7fdd4..ff104478 100644 --- a/SRC/dlarrr.f +++ b/SRC/dlarrr.f @@ -78,7 +78,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -94,10 +94,10 @@ * ===================================================================== SUBROUTINE DLARRR( N, D, E, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, INFO diff --git a/SRC/dlarrv.f b/SRC/dlarrv.f index b59085d7..25e5bf43 100644 --- a/SRC/dlarrv.f +++ b/SRC/dlarrv.f @@ -263,7 +263,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -283,10 +283,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/dlarscl2.f b/SRC/dlarscl2.f index 65c38526..67623e20 100644 --- a/SRC/dlarscl2.f +++ b/SRC/dlarscl2.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/dlartg.f b/SRC/dlartg.f index caa4090b..7cc71f33 100644 --- a/SRC/dlartg.f +++ b/SRC/dlartg.f @@ -90,17 +90,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLARTG( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION CS, F, G, R, SN diff --git a/SRC/dlartgp.f b/SRC/dlartgp.f index c0945ecc..3a1644d6 100644 --- a/SRC/dlartgp.f +++ b/SRC/dlartgp.f @@ -88,17 +88,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLARTGP( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION CS, F, G, R, SN diff --git a/SRC/dlartgs.f b/SRC/dlartgs.f index 94bff63a..e0e708c3 100644 --- a/SRC/dlartgs.f +++ b/SRC/dlartgs.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLARTGS( X, Y, SIGMA, CS, SN ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION CS, SIGMA, SN, X, Y diff --git a/SRC/dlartv.f b/SRC/dlartv.f index f067885f..e99944d9 100644 --- a/SRC/dlartv.f +++ b/SRC/dlartv.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/dlaruv.f b/SRC/dlaruv.f index db2591c6..7f034ea7 100644 --- a/SRC/dlaruv.f +++ b/SRC/dlaruv.f @@ -72,7 +72,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -95,10 +95,10 @@ * ===================================================================== SUBROUTINE DLARUV( ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N diff --git a/SRC/dlarz.f b/SRC/dlarz.f index d0e5dc4b..68215b3c 100644 --- a/SRC/dlarz.f +++ b/SRC/dlarz.f @@ -127,7 +127,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE DLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/dlarzb.f b/SRC/dlarzb.f index 76a46fbe..e94f063c 100644 --- a/SRC/dlarzb.f +++ b/SRC/dlarzb.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -183,10 +183,10 @@ SUBROUTINE DLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/dlarzt.f b/SRC/dlarzt.f index 3648a9ac..56d8880b 100644 --- a/SRC/dlarzt.f +++ b/SRC/dlarzt.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -185,10 +185,10 @@ * ===================================================================== SUBROUTINE DLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/dlas2.f b/SRC/dlas2.f index 1486da4b..8b03a758 100644 --- a/SRC/dlas2.f +++ b/SRC/dlas2.f @@ -78,7 +78,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -107,10 +107,10 @@ * ===================================================================== SUBROUTINE DLAS2( F, G, H, SSMIN, SSMAX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION F, G, H, SSMAX, SSMIN diff --git a/SRC/dlascl.f b/SRC/dlascl.f index 7b057ee1..ba064ab3 100644 --- a/SRC/dlascl.f +++ b/SRC/dlascl.f @@ -132,17 +132,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/dlascl2.f b/SRC/dlascl2.f index f509c70a..4ae65107 100644 --- a/SRC/dlascl2.f +++ b/SRC/dlascl2.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/dlasd0.f b/SRC/dlasd0.f index f0df712d..69cc7ca2 100644 --- a/SRC/dlasd0.f +++ b/SRC/dlasd0.f @@ -138,7 +138,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -152,10 +152,10 @@ SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, $ WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE diff --git a/SRC/dlasd1.f b/SRC/dlasd1.f index 027dffa9..b6692077 100644 --- a/SRC/dlasd1.f +++ b/SRC/dlasd1.f @@ -190,7 +190,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -204,10 +204,10 @@ SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/SRC/dlasd2.f b/SRC/dlasd2.f index bb1b3d84..31c5cae9 100644 --- a/SRC/dlasd2.f +++ b/SRC/dlasd2.f @@ -254,7 +254,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -269,10 +269,10 @@ $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE diff --git a/SRC/dlasd3.f b/SRC/dlasd3.f index 6d2bd584..93047c16 100644 --- a/SRC/dlasd3.f +++ b/SRC/dlasd3.f @@ -210,7 +210,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -225,10 +225,10 @@ $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, diff --git a/SRC/dlasd4.f b/SRC/dlasd4.f index 47b26f34..5cc7851a 100644 --- a/SRC/dlasd4.f +++ b/SRC/dlasd4.f @@ -140,7 +140,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -153,10 +153,10 @@ * ===================================================================== SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/dlasd5.f b/SRC/dlasd5.f index c8158d80..5e2e4ab7 100644 --- a/SRC/dlasd5.f +++ b/SRC/dlasd5.f @@ -103,7 +103,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -116,10 +116,10 @@ * ===================================================================== SUBROUTINE DLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f index e4072969..4e31838f 100644 --- a/SRC/dlasd6.f +++ b/SRC/dlasd6.f @@ -298,7 +298,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -314,10 +314,10 @@ $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/SRC/dlasd7.f b/SRC/dlasd7.f index 462c2c7d..5aaab469 100644 --- a/SRC/dlasd7.f +++ b/SRC/dlasd7.f @@ -264,7 +264,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -280,10 +280,10 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/SRC/dlasd8.f b/SRC/dlasd8.f index c1d37fb0..1be18a0b 100644 --- a/SRC/dlasd8.f +++ b/SRC/dlasd8.f @@ -152,7 +152,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -166,10 +166,10 @@ SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/SRC/dlasda.f b/SRC/dlasda.f index 5dd7bd23..1b8a2850 100644 --- a/SRC/dlasda.f +++ b/SRC/dlasda.f @@ -259,7 +259,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -274,10 +274,10 @@ $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE diff --git a/SRC/dlasdq.f b/SRC/dlasdq.f index a3b527a6..4d4b840d 100644 --- a/SRC/dlasdq.f +++ b/SRC/dlasdq.f @@ -197,7 +197,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -211,10 +211,10 @@ SUBROUTINE DLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, $ U, LDU, C, LDC, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlasdt.f b/SRC/dlasdt.f index a63ef0af..9b2c1d2f 100644 --- a/SRC/dlasdt.f +++ b/SRC/dlasdt.f @@ -92,7 +92,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -105,10 +105,10 @@ * ===================================================================== SUBROUTINE DLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LVL, MSUB, N, ND diff --git a/SRC/dlaset.f b/SRC/dlaset.f index 21eff81b..d1690df1 100644 --- a/SRC/dlaset.f +++ b/SRC/dlaset.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlasq1.f b/SRC/dlasq1.f index e67c0ba0..06d98eda 100644 --- a/SRC/dlasq1.f +++ b/SRC/dlasq1.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dlasq2.f b/SRC/dlasq2.f index 43b57344..a69c7a08 100644 --- a/SRC/dlasq2.f +++ b/SRC/dlasq2.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -112,10 +112,10 @@ * ===================================================================== SUBROUTINE DLASQ2( N, Z, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dlasq3.f b/SRC/dlasq3.f index a3af4ff4..c34eed04 100644 --- a/SRC/dlasq3.f +++ b/SRC/dlasq3.f @@ -173,7 +173,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -182,10 +182,10 @@ $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/SRC/dlasq4.f b/SRC/dlasq4.f index ae3624e1..6ff69337 100644 --- a/SRC/dlasq4.f +++ b/SRC/dlasq4.f @@ -135,7 +135,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -151,10 +151,10 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I0, N0, N0IN, PP, TTYPE diff --git a/SRC/dlasq5.f b/SRC/dlasq5.f index 7faaca99..c146acbf 100644 --- a/SRC/dlasq5.f +++ b/SRC/dlasq5.f @@ -136,7 +136,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -144,10 +144,10 @@ SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/SRC/dlasq6.f b/SRC/dlasq6.f index 6cdb945e..faeb9c6c 100644 --- a/SRC/dlasq6.f +++ b/SRC/dlasq6.f @@ -111,7 +111,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -119,10 +119,10 @@ SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I0, N0, PP diff --git a/SRC/dlasr.f b/SRC/dlasr.f index 0c8ad684..e6ff9446 100644 --- a/SRC/dlasr.f +++ b/SRC/dlasr.f @@ -192,17 +192,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/SRC/dlasrt.f b/SRC/dlasrt.f index a7221617..6228e401 100644 --- a/SRC/dlasrt.f +++ b/SRC/dlasrt.f @@ -81,17 +81,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASRT( ID, N, D, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER ID diff --git a/SRC/dlassq.f b/SRC/dlassq.f index ee039b93..45ba1805 100644 --- a/SRC/dlassq.f +++ b/SRC/dlassq.f @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/dlasv2.f b/SRC/dlasv2.f index 9dc3bcda..9ecaf550 100644 --- a/SRC/dlasv2.f +++ b/SRC/dlasv2.f @@ -107,7 +107,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -138,10 +138,10 @@ * ===================================================================== SUBROUTINE DLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN diff --git a/SRC/dlaswp.f b/SRC/dlaswp.f index 0f41f4c1..5d8b29c7 100644 --- a/SRC/dlaswp.f +++ b/SRC/dlaswp.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/SRC/dlasy2.f b/SRC/dlasy2.f index e9957da0..528150e2 100644 --- a/SRC/dlasy2.f +++ b/SRC/dlasy2.f @@ -166,7 +166,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYauxiliary * @@ -174,10 +174,10 @@ SUBROUTINE DLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL LTRANL, LTRANR diff --git a/SRC/dlasyf.f b/SRC/dlasyf.f index ce130444..1a7ec175 100644 --- a/SRC/dlasyf.f +++ b/SRC/dlasyf.f @@ -149,17 +149,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlat2s.f b/SRC/dlat2s.f index 038c47e0..7902a8cc 100644 --- a/SRC/dlat2s.f +++ b/SRC/dlat2s.f @@ -104,17 +104,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlatbs.f b/SRC/dlatbs.f index 09a3bf81..8262a4cd 100644 --- a/SRC/dlatbs.f +++ b/SRC/dlatbs.f @@ -162,7 +162,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -242,10 +242,10 @@ SUBROUTINE DLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/dlatdf.f b/SRC/dlatdf.f index 76534ce8..5c1a1fb0 100644 --- a/SRC/dlatdf.f +++ b/SRC/dlatdf.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -171,10 +171,10 @@ SUBROUTINE DLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/SRC/dlatps.f b/SRC/dlatps.f index e4ca57bb..36ababed 100644 --- a/SRC/dlatps.f +++ b/SRC/dlatps.f @@ -149,7 +149,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -229,10 +229,10 @@ SUBROUTINE DLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/dlatrd.f b/SRC/dlatrd.f index 331c9884..ae825d0b 100644 --- a/SRC/dlatrd.f +++ b/SRC/dlatrd.f @@ -139,7 +139,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -198,10 +198,10 @@ * ===================================================================== SUBROUTINE DLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlatrs.f b/SRC/dlatrs.f index bc693b94..952539a5 100644 --- a/SRC/dlatrs.f +++ b/SRC/dlatrs.f @@ -158,7 +158,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -238,10 +238,10 @@ SUBROUTINE DLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/dlatrz.f b/SRC/dlatrz.f index 4bd59f95..6a43452d 100644 --- a/SRC/dlatrz.f +++ b/SRC/dlatrz.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -140,10 +140,10 @@ * ===================================================================== SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/dlauu2.f b/SRC/dlauu2.f index ce8d2d7b..b6c0e403 100644 --- a/SRC/dlauu2.f +++ b/SRC/dlauu2.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dlauum.f b/SRC/dlauum.f index 2f49e537..59178dd2 100644 --- a/SRC/dlauum.f +++ b/SRC/dlauum.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dorg2l.f b/SRC/dorg2l.f index 35d90df1..23812347 100644 --- a/SRC/dorg2l.f +++ b/SRC/dorg2l.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/dorg2r.f b/SRC/dorg2r.f index 84d5d99f..767215d2 100644 --- a/SRC/dorg2r.f +++ b/SRC/dorg2r.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index cf4a0b8c..69e88ff8 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/dorm2l.f b/SRC/dorm2l.f index bd509007..3544a833 100644 --- a/SRC/dorm2l.f +++ b/SRC/dorm2l.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dorm2r.f b/SRC/dorm2r.f index 358c7062..40e6aa5d 100644 --- a/SRC/dorm2r.f +++ b/SRC/dorm2r.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dorml2.f b/SRC/dorml2.f index bcbd0903..f34b4111 100644 --- a/SRC/dorml2.f +++ b/SRC/dorml2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE DORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormr2.f b/SRC/dormr2.f index d35ee4b9..3794ed44 100644 --- a/SRC/dormr2.f +++ b/SRC/dormr2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dormr3.f b/SRC/dormr3.f index d447a8bf..a52158b0 100644 --- a/SRC/dormr3.f +++ b/SRC/dormr3.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -178,10 +178,10 @@ SUBROUTINE DORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/dpbtf2.f b/SRC/dpbtf2.f index a02695b9..24b3a608 100644 --- a/SRC/dpbtf2.f +++ b/SRC/dpbtf2.f @@ -110,7 +110,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -142,10 +142,10 @@ * ===================================================================== SUBROUTINE DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpotf2.f b/SRC/dpotf2.f index 2cd3b043..1fa068b5 100644 --- a/SRC/dpotf2.f +++ b/SRC/dpotf2.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dpstf2.f b/SRC/dpstf2.f index e20cca4d..68886662 100644 --- a/SRC/dpstf2.f +++ b/SRC/dpstf2.f @@ -133,17 +133,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/SRC/dptcon.f b/SRC/dptcon.f index 4b4b7227..39981980 100644 --- a/SRC/dptcon.f +++ b/SRC/dptcon.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePTcomputational * @@ -118,10 +118,10 @@ * ===================================================================== SUBROUTINE DPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dpteqr.f b/SRC/dpteqr.f index bad3fd9c..c1295e38 100644 --- a/SRC/dpteqr.f +++ b/SRC/dpteqr.f @@ -138,17 +138,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/SRC/dptrfs.f b/SRC/dptrfs.f index 47eb03b9..49635363 100644 --- a/SRC/dptrfs.f +++ b/SRC/dptrfs.f @@ -155,7 +155,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePTcomputational * @@ -163,10 +163,10 @@ SUBROUTINE DPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/SRC/dptsv.f b/SRC/dptsv.f index bd06c710..c05a38c6 100644 --- a/SRC/dptsv.f +++ b/SRC/dptsv.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePTsolve * * ===================================================================== SUBROUTINE DPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/dptsvx.f b/SRC/dptsvx.f index 25571c18..d598e35e 100644 --- a/SRC/dptsvx.f +++ b/SRC/dptsvx.f @@ -220,7 +220,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doublePTsolve * @@ -228,10 +228,10 @@ SUBROUTINE DPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/dpttrf.f b/SRC/dpttrf.f index 6707cd5d..c6f56a08 100644 --- a/SRC/dpttrf.f +++ b/SRC/dpttrf.f @@ -84,17 +84,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/dpttrs.f b/SRC/dpttrs.f index 3c82a125..ab363d75 100644 --- a/SRC/dpttrs.f +++ b/SRC/dpttrs.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/dptts2.f b/SRC/dptts2.f index 3973fa10..ff7e8387 100644 --- a/SRC/dptts2.f +++ b/SRC/dptts2.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/SRC/drscl.f b/SRC/drscl.f index 008605a0..3e704c3e 100644 --- a/SRC/drscl.f +++ b/SRC/drscl.f @@ -77,17 +77,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/dsfrk.f b/SRC/dsfrk.f index 3d6b3074..167f2ec6 100644 --- a/SRC/dsfrk.f +++ b/SRC/dsfrk.f @@ -158,7 +158,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -166,10 +166,10 @@ SUBROUTINE DSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/dstemr.f b/SRC/dstemr.f index 58d4299b..0492a838 100644 --- a/SRC/dstemr.f +++ b/SRC/dstemr.f @@ -294,7 +294,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -312,10 +312,10 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/SRC/dsyevd.f b/SRC/dsyevd.f index 7d39a331..517f7b0e 100644 --- a/SRC/dsyevd.f +++ b/SRC/dsyevd.f @@ -167,7 +167,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYeigen * @@ -185,10 +185,10 @@ SUBROUTINE DSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/SRC/dsyevr.f b/SRC/dsyevr.f index b29d963a..d64f7c2b 100644 --- a/SRC/dsyevr.f +++ b/SRC/dsyevr.f @@ -306,7 +306,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYeigen * @@ -325,10 +325,10 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/dsygs2.f b/SRC/dsygs2.f index c82dfbac..be4d1572 100644 --- a/SRC/dsygs2.f +++ b/SRC/dsygs2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsysvxx.f b/SRC/dsysvxx.f index a254eb9a..86596611 100644 --- a/SRC/dsysvxx.f +++ b/SRC/dsysvxx.f @@ -495,7 +495,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doubleSYdriver * @@ -505,10 +505,10 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/dsyswapr.f b/SRC/dsyswapr.f index 4763a50a..d9d96e97 100644 --- a/SRC/dsyswapr.f +++ b/SRC/dsyswapr.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytd2.f b/SRC/dsytd2.f index de9e3e92..a4842e36 100644 --- a/SRC/dsytd2.f +++ b/SRC/dsytd2.f @@ -120,7 +120,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * @@ -173,10 +173,10 @@ * ===================================================================== SUBROUTINE DSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytf2.f b/SRC/dsytf2.f index 2bc0300d..235c53f9 100644 --- a/SRC/dsytf2.f +++ b/SRC/dsytf2.f @@ -118,7 +118,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * @@ -185,10 +185,10 @@ * ===================================================================== SUBROUTINE DSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dsytri2.f b/SRC/dsytri2.f index c53328f5..42f8c400 100644 --- a/SRC/dsytri2.f +++ b/SRC/dsytri2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dtfsm.f b/SRC/dtfsm.f index 8148f480..9dae1fcf 100644 --- a/SRC/dtfsm.f +++ b/SRC/dtfsm.f @@ -182,7 +182,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -277,10 +277,10 @@ SUBROUTINE DTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/SRC/dtfttp.f b/SRC/dtfttp.f index 67432b62..a727bc73 100644 --- a/SRC/dtfttp.f +++ b/SRC/dtfttp.f @@ -93,7 +93,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -187,10 +187,10 @@ * ===================================================================== SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/dtfttr.f b/SRC/dtfttr.f index 2f7f8f61..4c9c7991 100644 --- a/SRC/dtfttr.f +++ b/SRC/dtfttr.f @@ -102,7 +102,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -196,10 +196,10 @@ * ===================================================================== SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/dtgex2.f b/SRC/dtgex2.f index 2f578c14..4c14ce87 100644 --- a/SRC/dtgex2.f +++ b/SRC/dtgex2.f @@ -181,7 +181,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleGEauxiliary * @@ -221,10 +221,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.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/dtgsy2.f b/SRC/dtgsy2.f index d5a4786f..4a5c17b5 100644 --- a/SRC/dtgsy2.f +++ b/SRC/dtgsy2.f @@ -259,7 +259,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleSYauxiliary * @@ -274,10 +274,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/dtpqrt2.f b/SRC/dtpqrt2.f index 812a867c..7ed0524d 100644 --- a/SRC/dtpqrt2.f +++ b/SRC/dtpqrt2.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -173,10 +173,10 @@ * ===================================================================== SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/SRC/dtprfb.f b/SRC/dtprfb.f index c9bf6121..6b892176 100644 --- a/SRC/dtprfb.f +++ b/SRC/dtprfb.f @@ -194,7 +194,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -251,10 +251,10 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/dtpttf.f b/SRC/dtpttf.f index 1a40a3bc..43dc1fb2 100644 --- a/SRC/dtpttf.f +++ b/SRC/dtpttf.f @@ -92,7 +92,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -186,10 +186,10 @@ * ===================================================================== SUBROUTINE DTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/dtpttr.f b/SRC/dtpttr.f index 43e8e88d..3b0185ef 100644 --- a/SRC/dtpttr.f +++ b/SRC/dtpttr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dtrti2.f b/SRC/dtrti2.f index e40c9131..383cd482 100644 --- a/SRC/dtrti2.f +++ b/SRC/dtrti2.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/SRC/dtrttf.f b/SRC/dtrttf.f index a3f2a886..184f35a7 100644 --- a/SRC/dtrttf.f +++ b/SRC/dtrttf.f @@ -100,7 +100,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * @@ -194,10 +194,10 @@ * ===================================================================== SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/dtrttp.f b/SRC/dtrttp.f index 5665b75b..0fa1469c 100644 --- a/SRC/dtrttp.f +++ b/SRC/dtrttp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/dzsum1.f b/SRC/dzsum1.f index 77de383d..71470ca2 100644 --- a/SRC/dzsum1.f +++ b/SRC/dzsum1.f @@ -69,7 +69,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -81,10 +81,10 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/icmax1.f b/SRC/icmax1.f index c9c0c270..cc8ef5a2 100644 --- a/SRC/icmax1.f +++ b/SRC/icmax1.f @@ -69,7 +69,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -81,10 +81,10 @@ * ===================================================================== INTEGER FUNCTION ICMAX1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/ilaclc.f b/SRC/ilaclc.f index 72e783e3..10132f46 100644 --- a/SRC/ilaclc.f +++ b/SRC/ilaclc.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILACLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/ilaclr.f b/SRC/ilaclr.f index eb4a29b9..a72921ab 100644 --- a/SRC/ilaclr.f +++ b/SRC/ilaclr.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILACLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/iladlc.f b/SRC/iladlc.f index 1d5f4954..8d282478 100644 --- a/SRC/iladlc.f +++ b/SRC/iladlc.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILADLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/iladlr.f b/SRC/iladlr.f index 630483f8..819757ff 100644 --- a/SRC/iladlr.f +++ b/SRC/iladlr.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILADLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/ilaslc.f b/SRC/ilaslc.f index f61fc043..82f944bd 100644 --- a/SRC/ilaslc.f +++ b/SRC/ilaslc.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILASLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/ilaslr.f b/SRC/ilaslr.f index 5efa7211..4c0c6801 100644 --- a/SRC/ilaslr.f +++ b/SRC/ilaslr.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILASLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/ilaver.f b/SRC/ilaver.f index b50c4170..b3006444 100644 --- a/SRC/ilaver.f +++ b/SRC/ilaver.f @@ -41,7 +41,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * diff --git a/SRC/ilazlc.f b/SRC/ilazlc.f index 457c5aa6..1b53aa80 100644 --- a/SRC/ilazlc.f +++ b/SRC/ilazlc.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILAZLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/ilazlr.f b/SRC/ilazlr.f index 69c96df2..466739ee 100644 --- a/SRC/ilazlr.f +++ b/SRC/ilazlr.f @@ -71,17 +71,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILAZLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/SRC/izmax1.f b/SRC/izmax1.f index 29efdd70..e41e0f2f 100644 --- a/SRC/izmax1.f +++ b/SRC/izmax1.f @@ -69,7 +69,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -81,10 +81,10 @@ * ===================================================================== INTEGER FUNCTION IZMAX1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/scsum1.f b/SRC/scsum1.f index 6599821f..564cb2c0 100644 --- a/SRC/scsum1.f +++ b/SRC/scsum1.f @@ -69,7 +69,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complexOTHERauxiliary * @@ -81,10 +81,10 @@ * ===================================================================== REAL FUNCTION SCSUM1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/sgbtf2.f b/SRC/sgbtf2.f index 7428b490..56a34cee 100644 --- a/SRC/sgbtf2.f +++ b/SRC/sgbtf2.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGBcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE SGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/SRC/sgebd2.f b/SRC/sgebd2.f index 0bb771e7..451b5e55 100644 --- a/SRC/sgebd2.f +++ b/SRC/sgebd2.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -189,10 +189,10 @@ * ===================================================================== SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeev.f b/SRC/sgeev.f index 964b0979..8a2a8652 100644 --- a/SRC/sgeev.f +++ b/SRC/sgeev.f @@ -181,7 +181,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEeigen * @@ -189,10 +189,10 @@ SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/SRC/sgeevx.f b/SRC/sgeevx.f index 88309d78..ef5ad9f6 100644 --- a/SRC/sgeevx.f +++ b/SRC/sgeevx.f @@ -294,7 +294,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEeigen * @@ -303,10 +303,10 @@ $ VL, LDVL, VR, LDVR, ILO, IHI, SCALE, ABNRM, $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/SRC/sgehd2.f b/SRC/sgehd2.f index 4976c78c..19a0b877 100644 --- a/SRC/sgehd2.f +++ b/SRC/sgehd2.f @@ -106,7 +106,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -149,10 +149,10 @@ * ===================================================================== SUBROUTINE SGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/sgejsv.f b/SRC/sgejsv.f index 83eca968..bf220c34 100644 --- a/SRC/sgejsv.f +++ b/SRC/sgejsv.f @@ -389,7 +389,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEsing * @@ -474,10 +474,10 @@ $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. IMPLICIT NONE diff --git a/SRC/sgelq2.f b/SRC/sgelq2.f index 010a2562..b08088a1 100644 --- a/SRC/sgelq2.f +++ b/SRC/sgelq2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE SGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeql2.f b/SRC/sgeql2.f index cb0a5ba5..76a20b6c 100644 --- a/SRC/sgeql2.f +++ b/SRC/sgeql2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE SGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeqp3.f b/SRC/sgeqp3.f index bd120b7a..b79cb4f4 100644 --- a/SRC/sgeqp3.f +++ b/SRC/sgeqp3.f @@ -120,7 +120,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -151,10 +151,10 @@ * ===================================================================== SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/sgeqr2.f b/SRC/sgeqr2.f index b4957c20..dcd1281f 100644 --- a/SRC/sgeqr2.f +++ b/SRC/sgeqr2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE SGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeqr2p.f b/SRC/sgeqr2p.f index 73ea4cc2..4e7b30f6 100644 --- a/SRC/sgeqr2p.f +++ b/SRC/sgeqr2p.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE SGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgeqrt2.f b/SRC/sgeqrt2.f index be39d0d2..a94bf905 100644 --- a/SRC/sgeqrt2.f +++ b/SRC/sgeqrt2.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -127,10 +127,10 @@ * ===================================================================== SUBROUTINE SGEQRT2( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N diff --git a/SRC/sgeqrt3.f b/SRC/sgeqrt3.f index 4ecdad7e..a110409c 100644 --- a/SRC/sgeqrt3.f +++ b/SRC/sgeqrt3.f @@ -100,7 +100,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -132,10 +132,10 @@ * ===================================================================== RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/SRC/sgerq2.f b/SRC/sgerq2.f index a1c954c6..8b1b8577 100644 --- a/SRC/sgerq2.f +++ b/SRC/sgerq2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE SGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgesc2.f b/SRC/sgesc2.f index fbaa7413..499f6d3e 100644 --- a/SRC/sgesc2.f +++ b/SRC/sgesc2.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE SGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/SRC/sgesdd.f b/SRC/sgesdd.f index e962a7b6..2a528d21 100644 --- a/SRC/sgesdd.f +++ b/SRC/sgesdd.f @@ -203,7 +203,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEsing * @@ -217,10 +217,10 @@ SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/SRC/sgesvj.f b/SRC/sgesvj.f index 8653b6bd..1247d63d 100644 --- a/SRC/sgesvj.f +++ b/SRC/sgesvj.f @@ -258,7 +258,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -321,10 +321,10 @@ SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N diff --git a/SRC/sgetc2.f b/SRC/sgetc2.f index c6347f41..e32a4ccb 100644 --- a/SRC/sgetc2.f +++ b/SRC/sgetc2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEauxiliary * @@ -111,10 +111,10 @@ * ===================================================================== SUBROUTINE SGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/SRC/sgetf2.f b/SRC/sgetf2.f index 74ba6cd6..da3fcd6f 100644 --- a/SRC/sgetf2.f +++ b/SRC/sgetf2.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/sgsvj0.f b/SRC/sgsvj0.f index 7032065c..6e177ee5 100644 --- a/SRC/sgsvj0.f +++ b/SRC/sgsvj0.f @@ -193,7 +193,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -218,10 +218,10 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP diff --git a/SRC/sgsvj1.f b/SRC/sgsvj1.f index 0b9102ef..8e5b45b2 100644 --- a/SRC/sgsvj1.f +++ b/SRC/sgsvj1.f @@ -223,7 +223,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -236,10 +236,10 @@ SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL EPS, SFMIN, TOL diff --git a/SRC/sgtcon.f b/SRC/sgtcon.f index ace930ba..6bb56431 100644 --- a/SRC/sgtcon.f +++ b/SRC/sgtcon.f @@ -138,7 +138,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGTcomputational * @@ -146,10 +146,10 @@ SUBROUTINE SGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/sgtrfs.f b/SRC/sgtrfs.f index 3ec030c7..ef25c6b7 100644 --- a/SRC/sgtrfs.f +++ b/SRC/sgtrfs.f @@ -200,7 +200,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGTcomputational * @@ -209,10 +209,10 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/sgtsv.f b/SRC/sgtsv.f index 6482500c..03dda4cb 100644 --- a/SRC/sgtsv.f +++ b/SRC/sgtsv.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGTsolve * * ===================================================================== SUBROUTINE SGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/sgtsvx.f b/SRC/sgtsvx.f index 839b4ee8..cb15b888 100644 --- a/SRC/sgtsvx.f +++ b/SRC/sgtsvx.f @@ -284,7 +284,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realGTsolve * @@ -293,10 +293,10 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/SRC/sgttrf.f b/SRC/sgttrf.f index 5a2d817d..9cd06c9a 100644 --- a/SRC/sgttrf.f +++ b/SRC/sgttrf.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/sgttrs.f b/SRC/sgttrs.f index c8e831c4..a7c003e9 100644 --- a/SRC/sgttrs.f +++ b/SRC/sgttrs.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGTcomputational * @@ -138,10 +138,10 @@ SUBROUTINE SGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/sgtts2.f b/SRC/sgtts2.f index e7fc7d9d..f265107d 100644 --- a/SRC/sgtts2.f +++ b/SRC/sgtts2.f @@ -121,17 +121,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/SRC/sisnan.f b/SRC/sisnan.f index 3f8b7ec9..7892793a 100644 --- a/SRC/sisnan.f +++ b/SRC/sisnan.f @@ -52,17 +52,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== LOGICAL FUNCTION SISNAN( SIN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL SIN diff --git a/SRC/sla_gbamv.f b/SRC/sla_gbamv.f index 950151f1..299d5748 100644 --- a/SRC/sla_gbamv.f +++ b/SRC/sla_gbamv.f @@ -177,7 +177,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGBcomputational * @@ -185,10 +185,10 @@ SUBROUTINE SLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/sla_gbrcond.f b/SRC/sla_gbrcond.f index 08521f2d..8b1b4776 100644 --- a/SRC/sla_gbrcond.f +++ b/SRC/sla_gbrcond.f @@ -160,7 +160,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGBcomputational * @@ -168,10 +168,10 @@ REAL FUNCTION SLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, AFB, LDAFB, $ IPIV, CMODE, C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/sla_gbrfsx_extended.f b/SRC/sla_gbrfsx_extended.f index f3b95b96..11f22203 100644 --- a/SRC/sla_gbrfsx_extended.f +++ b/SRC/sla_gbrfsx_extended.f @@ -399,7 +399,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGBcomputational * @@ -412,10 +412,10 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, diff --git a/SRC/sla_gbrpvgrw.f b/SRC/sla_gbrpvgrw.f index 11964dd0..bb334aad 100644 --- a/SRC/sla_gbrpvgrw.f +++ b/SRC/sla_gbrpvgrw.f @@ -109,7 +109,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGBcomputational * @@ -117,10 +117,10 @@ REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB diff --git a/SRC/sla_geamv.f b/SRC/sla_geamv.f index 3887ceb3..b411630d 100644 --- a/SRC/sla_geamv.f +++ b/SRC/sla_geamv.f @@ -166,7 +166,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -174,10 +174,10 @@ SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/sla_gercond.f b/SRC/sla_gercond.f index f6f1e580..8482e32f 100644 --- a/SRC/sla_gercond.f +++ b/SRC/sla_gercond.f @@ -142,7 +142,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -150,10 +150,10 @@ REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, $ CMODE, C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/sla_gerfsx_extended.f b/SRC/sla_gerfsx_extended.f index bd508bb3..e105f4b8 100644 --- a/SRC/sla_gerfsx_extended.f +++ b/SRC/sla_gerfsx_extended.f @@ -385,7 +385,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEcomputational * @@ -398,10 +398,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/sla_lin_berr.f b/SRC/sla_lin_berr.f index d4e2033e..318532ce 100644 --- a/SRC/sla_lin_berr.f +++ b/SRC/sla_lin_berr.f @@ -94,17 +94,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS diff --git a/SRC/sla_porcond.f b/SRC/sla_porcond.f index ec3ff156..2e3d50df 100644 --- a/SRC/sla_porcond.f +++ b/SRC/sla_porcond.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPOcomputational * @@ -140,10 +140,10 @@ REAL FUNCTION SLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sla_porfsx_extended.f b/SRC/sla_porfsx_extended.f index aad7f119..4b0b5b2a 100644 --- a/SRC/sla_porfsx_extended.f +++ b/SRC/sla_porfsx_extended.f @@ -374,7 +374,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPOcomputational * @@ -387,10 +387,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/sla_porpvgrw.f b/SRC/sla_porpvgrw.f index fde7f0ca..b6f37917 100644 --- a/SRC/sla_porpvgrw.f +++ b/SRC/sla_porpvgrw.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPOcomputational * * ===================================================================== REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/sla_syamv.f b/SRC/sla_syamv.f index 8aa0a53c..b89316e8 100644 --- a/SRC/sla_syamv.f +++ b/SRC/sla_syamv.f @@ -153,7 +153,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * @@ -177,10 +177,10 @@ SUBROUTINE SLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/sla_syrcond.f b/SRC/sla_syrcond.f index 33d10c72..97772228 100644 --- a/SRC/sla_syrcond.f +++ b/SRC/sla_syrcond.f @@ -138,7 +138,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * @@ -146,10 +146,10 @@ REAL FUNCTION SLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, IPIV, CMODE, $ C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sla_syrfsx_extended.f b/SRC/sla_syrfsx_extended.f index 1fe3592f..8628c63b 100644 --- a/SRC/sla_syrfsx_extended.f +++ b/SRC/sla_syrfsx_extended.f @@ -383,7 +383,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * @@ -396,10 +396,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/sla_syrpvgrw.f b/SRC/sla_syrpvgrw.f index e69784be..e9bbd524 100644 --- a/SRC/sla_syrpvgrw.f +++ b/SRC/sla_syrpvgrw.f @@ -114,7 +114,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * @@ -122,10 +122,10 @@ REAL FUNCTION SLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/sla_wwaddw.f b/SRC/sla_wwaddw.f index 97568c4b..d0e4671f 100644 --- a/SRC/sla_wwaddw.f +++ b/SRC/sla_wwaddw.f @@ -74,17 +74,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N diff --git a/SRC/slabrd.f b/SRC/slabrd.f index 1e76bb81..98f1262e 100644 --- a/SRC/slabrd.f +++ b/SRC/slabrd.f @@ -156,7 +156,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -210,10 +210,10 @@ SUBROUTINE SLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/slacn2.f b/SRC/slacn2.f index bef86ff7..222ac028 100644 --- a/SRC/slacn2.f +++ b/SRC/slacn2.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -136,10 +136,10 @@ * ===================================================================== SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/slacon.f b/SRC/slacon.f index b3c3ead8..904bba66 100644 --- a/SRC/slacon.f +++ b/SRC/slacon.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -115,10 +115,10 @@ * ===================================================================== SUBROUTINE SLACON( N, V, X, ISGN, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/slacpy.f b/SRC/slacpy.f index cfafc62b..c2a0a690 100644 --- a/SRC/slacpy.f +++ b/SRC/slacpy.f @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sladiv.f b/SRC/sladiv.f index c2d36605..289bc013 100644 --- a/SRC/sladiv.f +++ b/SRC/sladiv.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLADIV( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL A, B, C, D, P, Q diff --git a/SRC/slae2.f b/SRC/slae2.f index 1d2a9ffc..8fc889f9 100644 --- a/SRC/slae2.f +++ b/SRC/slae2.f @@ -78,7 +78,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -102,10 +102,10 @@ * ===================================================================== SUBROUTINE SLAE2( A, B, C, RT1, RT2 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL A, B, C, RT1, RT2 diff --git a/SRC/slaebz.f b/SRC/slaebz.f index 4df9c3a0..71d2ff3d 100644 --- a/SRC/slaebz.f +++ b/SRC/slaebz.f @@ -273,7 +273,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -319,10 +319,10 @@ $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/SRC/slaed0.f b/SRC/slaed0.f index 3179dfe4..e8b07933 100644 --- a/SRC/slaed0.f +++ b/SRC/slaed0.f @@ -158,7 +158,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -172,10 +172,10 @@ SUBROUTINE SLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ diff --git a/SRC/slaed1.f b/SRC/slaed1.f index 74c855d0..e3389586 100644 --- a/SRC/slaed1.f +++ b/SRC/slaed1.f @@ -148,7 +148,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -163,10 +163,10 @@ SUBROUTINE SLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CUTPNT, INFO, LDQ, N diff --git a/SRC/slaed2.f b/SRC/slaed2.f index 1460a01d..db8647f2 100644 --- a/SRC/slaed2.f +++ b/SRC/slaed2.f @@ -197,7 +197,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -212,10 +212,10 @@ SUBROUTINE SLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/SRC/slaed3.f b/SRC/slaed3.f index 11118162..250b9d58 100644 --- a/SRC/slaed3.f +++ b/SRC/slaed3.f @@ -170,7 +170,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -185,10 +185,10 @@ SUBROUTINE SLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, $ CTOT, W, S, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/SRC/slaed4.f b/SRC/slaed4.f index 8afb3b24..dc29322c 100644 --- a/SRC/slaed4.f +++ b/SRC/slaed4.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE SLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/slaed5.f b/SRC/slaed5.f index e6ccb987..50bcec5d 100644 --- a/SRC/slaed5.f +++ b/SRC/slaed5.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -108,10 +108,10 @@ * ===================================================================== SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I diff --git a/SRC/slaed6.f b/SRC/slaed6.f index 112b30cd..e59360dd 100644 --- a/SRC/slaed6.f +++ b/SRC/slaed6.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -140,10 +140,10 @@ * ===================================================================== SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. LOGICAL ORGATI diff --git a/SRC/slaed7.f b/SRC/slaed7.f index 7d5e4f6e..0a4b99c4 100644 --- a/SRC/slaed7.f +++ b/SRC/slaed7.f @@ -244,7 +244,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -260,10 +260,10 @@ $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/SRC/slaed8.f b/SRC/slaed8.f index d1f043a7..b6dbda1d 100644 --- a/SRC/slaed8.f +++ b/SRC/slaed8.f @@ -228,7 +228,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -243,10 +243,10 @@ $ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, diff --git a/SRC/slaed9.f b/SRC/slaed9.f index 01f6675b..4d13a3e6 100644 --- a/SRC/slaed9.f +++ b/SRC/slaed9.f @@ -142,7 +142,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -156,10 +156,10 @@ SUBROUTINE SLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, $ S, LDS, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N diff --git a/SRC/slaeda.f b/SRC/slaeda.f index 9b6c7811..a4813101 100644 --- a/SRC/slaeda.f +++ b/SRC/slaeda.f @@ -152,7 +152,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -166,10 +166,10 @@ SUBROUTINE SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, INFO, N, TLVLS diff --git a/SRC/slaein.f b/SRC/slaein.f index 7da45560..5bd7c16d 100644 --- a/SRC/slaein.f +++ b/SRC/slaein.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -172,10 +172,10 @@ SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/slaev2.f b/SRC/slaev2.f index a097dde1..28f1f4f7 100644 --- a/SRC/slaev2.f +++ b/SRC/slaev2.f @@ -94,7 +94,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -120,10 +120,10 @@ * ===================================================================== SUBROUTINE SLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL A, B, C, CS1, RT1, RT2, SN1 diff --git a/SRC/slaexc.f b/SRC/slaexc.f index 9f3a816f..0a1cd2ce 100644 --- a/SRC/slaexc.f +++ b/SRC/slaexc.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -138,10 +138,10 @@ SUBROUTINE SLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTQ diff --git a/SRC/slag2.f b/SRC/slag2.f index b7375747..a3b922c8 100644 --- a/SRC/slag2.f +++ b/SRC/slag2.f @@ -148,7 +148,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -156,10 +156,10 @@ SUBROUTINE SLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/SRC/slag2d.f b/SRC/slag2d.f index dc5908d7..f3221e2f 100644 --- a/SRC/slag2d.f +++ b/SRC/slag2d.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/SRC/slags2.f b/SRC/slags2.f index cfcc5f94..ed867969 100644 --- a/SRC/slags2.f +++ b/SRC/slags2.f @@ -144,7 +144,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -152,10 +152,10 @@ SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/SRC/slagtf.f b/SRC/slagtf.f index de6c9172..845f6de9 100644 --- a/SRC/slagtf.f +++ b/SRC/slagtf.f @@ -149,17 +149,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/slagtm.f b/SRC/slagtm.f index 9b526cb7..cf3b8ba2 100644 --- a/SRC/slagtm.f +++ b/SRC/slagtm.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -145,10 +145,10 @@ SUBROUTINE SLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/slagts.f b/SRC/slagts.f index e7c4428c..638cf83f 100644 --- a/SRC/slagts.f +++ b/SRC/slagts.f @@ -154,17 +154,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/SRC/slagv2.f b/SRC/slagv2.f index 2344d186..7b057fdd 100644 --- a/SRC/slagv2.f +++ b/SRC/slagv2.f @@ -144,7 +144,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -157,10 +157,10 @@ SUBROUTINE SLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, $ CSR, SNR ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/SRC/slahqr.f b/SRC/slahqr.f index 120ea9dd..4f741298 100644 --- a/SRC/slahqr.f +++ b/SRC/slahqr.f @@ -183,7 +183,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -207,10 +207,10 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N diff --git a/SRC/slahr2.f b/SRC/slahr2.f index a979705e..61bc4555 100644 --- a/SRC/slahr2.f +++ b/SRC/slahr2.f @@ -123,7 +123,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -181,10 +181,10 @@ * ===================================================================== SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/slahrd.f b/SRC/slahrd.f index 6e829263..dc1891cb 100644 --- a/SRC/slahrd.f +++ b/SRC/slahrd.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -169,10 +169,10 @@ * ===================================================================== SUBROUTINE SLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/slaic1.f b/SRC/slaic1.f index f926ab55..eb27cbb1 100644 --- a/SRC/slaic1.f +++ b/SRC/slaic1.f @@ -127,17 +127,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/slaisnan.f b/SRC/slaisnan.f index 744dc014..3ebd0721 100644 --- a/SRC/slaisnan.f +++ b/SRC/slaisnan.f @@ -67,17 +67,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL SIN1, SIN2 diff --git a/SRC/slaln2.f b/SRC/slaln2.f index b68e622e..737489be 100644 --- a/SRC/slaln2.f +++ b/SRC/slaln2.f @@ -210,7 +210,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -218,10 +218,10 @@ SUBROUTINE SLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL LTRANS diff --git a/SRC/slals0.f b/SRC/slals0.f index 9f337d5b..89c66f06 100644 --- a/SRC/slals0.f +++ b/SRC/slals0.f @@ -252,7 +252,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -268,10 +268,10 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/SRC/slalsa.f b/SRC/slalsa.f index 24aff2c6..d2636781 100644 --- a/SRC/slalsa.f +++ b/SRC/slalsa.f @@ -252,7 +252,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -269,10 +269,10 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/SRC/slalsd.f b/SRC/slalsd.f index 211d52b2..90e68fea 100644 --- a/SRC/slalsd.f +++ b/SRC/slalsd.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -179,10 +179,10 @@ SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slamrg.f b/SRC/slamrg.f index fe723f2e..e911b80e 100644 --- a/SRC/slamrg.f +++ b/SRC/slamrg.f @@ -92,17 +92,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N1, N2, STRD1, STRD2 diff --git a/SRC/slaneg.f b/SRC/slaneg.f index 341b403b..d4c7d4dc 100644 --- a/SRC/slaneg.f +++ b/SRC/slaneg.f @@ -104,7 +104,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -118,10 +118,10 @@ * ===================================================================== INTEGER FUNCTION SLANEG( N, D, LLD, SIGMA, PIVMIN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, R diff --git a/SRC/slangb.f b/SRC/slangb.f index 505bac75..f7b9d11f 100644 --- a/SRC/slangb.f +++ b/SRC/slangb.f @@ -116,7 +116,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGBauxiliary * @@ -124,10 +124,10 @@ REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/slange.f b/SRC/slange.f index 9fb680b9..601e973f 100644 --- a/SRC/slange.f +++ b/SRC/slange.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEauxiliary * * ===================================================================== REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/slangt.f b/SRC/slangt.f index 55d92cc2..5d19b833 100644 --- a/SRC/slangt.f +++ b/SRC/slangt.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/slanhs.f b/SRC/slanhs.f index f1c6c5f2..00729b6a 100644 --- a/SRC/slanhs.f +++ b/SRC/slanhs.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/slansb.f b/SRC/slansb.f index 36ef437c..70af31dd 100644 --- a/SRC/slansb.f +++ b/SRC/slansb.f @@ -121,7 +121,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -129,10 +129,10 @@ REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/slansf.f b/SRC/slansf.f index e0e36b5d..dfd7f470 100644 --- a/SRC/slansf.f +++ b/SRC/slansf.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -209,10 +209,10 @@ * ===================================================================== REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/SRC/slansp.f b/SRC/slansp.f index 9ed3f46e..d84450e1 100644 --- a/SRC/slansp.f +++ b/SRC/slansp.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/slanst.f b/SRC/slanst.f index 3a61850e..af3b933c 100644 --- a/SRC/slanst.f +++ b/SRC/slanst.f @@ -93,17 +93,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANST( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/slansy.f b/SRC/slansy.f index 44c6691b..70991a63 100644 --- a/SRC/slansy.f +++ b/SRC/slansy.f @@ -115,17 +115,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYauxiliary * * ===================================================================== REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/slantb.f b/SRC/slantb.f index f1f79206..fb4438d2 100644 --- a/SRC/slantb.f +++ b/SRC/slantb.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -140,10 +140,10 @@ REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/slantp.f b/SRC/slantp.f index 59be89d0..1b6e32b7 100644 --- a/SRC/slantp.f +++ b/SRC/slantp.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/slantr.f b/SRC/slantr.f index 083dfd49..bc2a7a18 100644 --- a/SRC/slantr.f +++ b/SRC/slantr.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -141,10 +141,10 @@ REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/slanv2.f b/SRC/slanv2.f index 9a5133cf..3d1d05f5 100644 --- a/SRC/slanv2.f +++ b/SRC/slanv2.f @@ -109,7 +109,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -127,10 +127,10 @@ * ===================================================================== SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN diff --git a/SRC/slapll.f b/SRC/slapll.f index 9ed85ede..5cfd99e9 100644 --- a/SRC/slapll.f +++ b/SRC/slapll.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/slapmr.f b/SRC/slapmr.f index e3b28cfc..624577f9 100644 --- a/SRC/slapmr.f +++ b/SRC/slapmr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/slapmt.f b/SRC/slapmt.f index dc7dfc38..24288077 100644 --- a/SRC/slapmt.f +++ b/SRC/slapmt.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/slapy2.f b/SRC/slapy2.f index 589f7c52..b502d4d6 100644 --- a/SRC/slapy2.f +++ b/SRC/slapy2.f @@ -56,17 +56,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== REAL FUNCTION SLAPY2( X, Y ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL X, Y diff --git a/SRC/slapy3.f b/SRC/slapy3.f index 8aee93e1..3f208461 100644 --- a/SRC/slapy3.f +++ b/SRC/slapy3.f @@ -61,17 +61,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== REAL FUNCTION SLAPY3( X, Y, Z ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL X, Y, Z diff --git a/SRC/slaqgb.f b/SRC/slaqgb.f index 5a2d27bf..3481a3bf 100644 --- a/SRC/slaqgb.f +++ b/SRC/slaqgb.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGBauxiliary * @@ -159,10 +159,10 @@ SUBROUTINE SLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/slaqge.f b/SRC/slaqge.f index 33c201da..773b0d61 100644 --- a/SRC/slaqge.f +++ b/SRC/slaqge.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEauxiliary * @@ -142,10 +142,10 @@ SUBROUTINE SLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/slaqp2.f b/SRC/slaqp2.f index 182254d5..0c0dcc50 100644 --- a/SRC/slaqp2.f +++ b/SRC/slaqp2.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -149,10 +149,10 @@ SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/SRC/slaqps.f b/SRC/slaqps.f index 30e93099..59e4755f 100644 --- a/SRC/slaqps.f +++ b/SRC/slaqps.f @@ -150,7 +150,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -178,10 +178,10 @@ SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/SRC/slaqr0.f b/SRC/slaqr0.f index 57e02eb6..30cc6b20 100644 --- a/SRC/slaqr0.f +++ b/SRC/slaqr0.f @@ -230,7 +230,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -256,10 +256,10 @@ SUBROUTINE SLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/slaqr1.f b/SRC/slaqr1.f index 1cab7bbc..1f9ce79b 100644 --- a/SRC/slaqr1.f +++ b/SRC/slaqr1.f @@ -108,7 +108,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE SLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL SI1, SI2, SR1, SR2 diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 45a0b7c1..b01314b4 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -263,7 +263,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -278,10 +278,10 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/slaqr3.f b/SRC/slaqr3.f index 3df4a956..6a5cd727 100644 --- a/SRC/slaqr3.f +++ b/SRC/slaqr3.f @@ -260,7 +260,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -275,10 +275,10 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/slaqr4.f b/SRC/slaqr4.f index 0e356941..805e0608 100644 --- a/SRC/slaqr4.f +++ b/SRC/slaqr4.f @@ -239,7 +239,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -265,10 +265,10 @@ SUBROUTINE SLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f index a18781e9..7849502b 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -236,7 +236,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -259,10 +259,10 @@ $ SR, SI, H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, $ LDU, NV, WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/slaqsb.f b/SRC/slaqsb.f index 37e8cc44..bdd841d4 100644 --- a/SRC/slaqsb.f +++ b/SRC/slaqsb.f @@ -133,17 +133,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/slaqsp.f b/SRC/slaqsp.f index 05412493..5f916a0d 100644 --- a/SRC/slaqsp.f +++ b/SRC/slaqsp.f @@ -118,17 +118,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/slaqsy.f b/SRC/slaqsy.f index 998eadbd..4d8d8fd8 100644 --- a/SRC/slaqsy.f +++ b/SRC/slaqsy.f @@ -126,17 +126,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/slaqtr.f b/SRC/slaqtr.f index 9b0192eb..20a5a9bd 100644 --- a/SRC/slaqtr.f +++ b/SRC/slaqtr.f @@ -157,7 +157,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -165,10 +165,10 @@ SUBROUTINE SLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/SRC/slar1v.f b/SRC/slar1v.f index 6447ca2f..53bceb1d 100644 --- a/SRC/slar1v.f +++ b/SRC/slar1v.f @@ -212,7 +212,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -230,10 +230,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/slar2v.f b/SRC/slar2v.f index c279fa08..7c091e5c 100644 --- a/SRC/slar2v.f +++ b/SRC/slar2v.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/SRC/slarf.f b/SRC/slarf.f index 1f603792..fbf60118 100644 --- a/SRC/slarf.f +++ b/SRC/slarf.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/slarfb.f b/SRC/slarfb.f index 20a22577..5028156c 100644 --- a/SRC/slarfb.f +++ b/SRC/slarfb.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -195,10 +195,10 @@ SUBROUTINE SLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/slarfg.f b/SRC/slarfg.f index 1186fcd1..d429bb1b 100644 --- a/SRC/slarfg.f +++ b/SRC/slarfg.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/slarfgp.f b/SRC/slarfgp.f index 8ce87870..a292c29c 100644 --- a/SRC/slarfgp.f +++ b/SRC/slarfgp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/slarft.f b/SRC/slarft.f index 850966cb..36b90c2e 100644 --- a/SRC/slarft.f +++ b/SRC/slarft.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -163,10 +163,10 @@ * ===================================================================== SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/slarfx.f b/SRC/slarfx.f index be8d74fd..4d97e3e9 100644 --- a/SRC/slarfx.f +++ b/SRC/slarfx.f @@ -113,17 +113,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/slargv.f b/SRC/slargv.f index 0565232b..dcd39854 100644 --- a/SRC/slargv.f +++ b/SRC/slargv.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/slarnv.f b/SRC/slarnv.f index edfbf0c6..faaaea47 100644 --- a/SRC/slarnv.f +++ b/SRC/slarnv.f @@ -79,7 +79,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -97,10 +97,10 @@ * ===================================================================== SUBROUTINE SLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IDIST, N diff --git a/SRC/slarra.f b/SRC/slarra.f index b7491b1f..e85961cf 100644 --- a/SRC/slarra.f +++ b/SRC/slarra.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -136,10 +136,10 @@ SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N, NSPLIT diff --git a/SRC/slarrb.f b/SRC/slarrb.f index 905f4c8a..c6f578c9 100644 --- a/SRC/slarrb.f +++ b/SRC/slarrb.f @@ -178,7 +178,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -196,10 +196,10 @@ $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST diff --git a/SRC/slarrc.f b/SRC/slarrc.f index 3053dcae..60dee7ea 100644 --- a/SRC/slarrc.f +++ b/SRC/slarrc.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -136,10 +136,10 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBT diff --git a/SRC/slarrd.f b/SRC/slarrd.f index f57159ae..76781ded 100644 --- a/SRC/slarrd.f +++ b/SRC/slarrd.f @@ -311,7 +311,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -321,10 +321,10 @@ $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/SRC/slarre.f b/SRC/slarre.f index 954068f2..9095ac38 100644 --- a/SRC/slarre.f +++ b/SRC/slarre.f @@ -268,7 +268,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -297,10 +297,10 @@ $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER RANGE diff --git a/SRC/slarrf.f b/SRC/slarrf.f index d0443e5b..08fa9ee4 100644 --- a/SRC/slarrf.f +++ b/SRC/slarrf.f @@ -174,7 +174,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -193,10 +193,10 @@ $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CLSTRT, CLEND, INFO, N diff --git a/SRC/slarrj.f b/SRC/slarrj.f index 29ff6683..fd95f23d 100644 --- a/SRC/slarrj.f +++ b/SRC/slarrj.f @@ -150,7 +150,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -168,10 +168,10 @@ $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET diff --git a/SRC/slarrk.f b/SRC/slarrk.f index b7ae277b..dcae134c 100644 --- a/SRC/slarrk.f +++ b/SRC/slarrk.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -145,10 +145,10 @@ SUBROUTINE SLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, IW, N diff --git a/SRC/slarrr.f b/SRC/slarrr.f index 27ba651e..7d03ec83 100644 --- a/SRC/slarrr.f +++ b/SRC/slarrr.f @@ -78,7 +78,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -94,10 +94,10 @@ * ===================================================================== SUBROUTINE SLARRR( N, D, E, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, INFO diff --git a/SRC/slarrv.f b/SRC/slarrv.f index 57842b3c..cc761a51 100644 --- a/SRC/slarrv.f +++ b/SRC/slarrv.f @@ -263,7 +263,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -283,10 +283,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/slarscl2.f b/SRC/slarscl2.f index 429d2b22..a2a1d8e3 100644 --- a/SRC/slarscl2.f +++ b/SRC/slarscl2.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/slartg.f b/SRC/slartg.f index 2e76d620..e08fb78f 100644 --- a/SRC/slartg.f +++ b/SRC/slartg.f @@ -90,17 +90,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLARTG( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL CS, F, G, R, SN diff --git a/SRC/slartgp.f b/SRC/slartgp.f index ca721025..a2211458 100644 --- a/SRC/slartgp.f +++ b/SRC/slartgp.f @@ -88,17 +88,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLARTGP( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL CS, F, G, R, SN diff --git a/SRC/slartgs.f b/SRC/slartgs.f index 32fbdecc..a6981434 100644 --- a/SRC/slartgs.f +++ b/SRC/slartgs.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLARTGS( X, Y, SIGMA, CS, SN ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL CS, SIGMA, SN, X, Y diff --git a/SRC/slartv.f b/SRC/slartv.f index 34daaf76..2c359a26 100644 --- a/SRC/slartv.f +++ b/SRC/slartv.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/slaruv.f b/SRC/slaruv.f index add4cf12..35b5c206 100644 --- a/SRC/slaruv.f +++ b/SRC/slaruv.f @@ -72,7 +72,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -95,10 +95,10 @@ * ===================================================================== SUBROUTINE SLARUV( ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N diff --git a/SRC/slarz.f b/SRC/slarz.f index 63263d94..86b518b1 100644 --- a/SRC/slarz.f +++ b/SRC/slarz.f @@ -127,7 +127,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/slarzb.f b/SRC/slarzb.f index c5263f5c..5a481963 100644 --- a/SRC/slarzb.f +++ b/SRC/slarzb.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -183,10 +183,10 @@ SUBROUTINE SLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/slarzt.f b/SRC/slarzt.f index 0955ba99..b7e44841 100644 --- a/SRC/slarzt.f +++ b/SRC/slarzt.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -185,10 +185,10 @@ * ===================================================================== SUBROUTINE SLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/slas2.f b/SRC/slas2.f index 326491ba..23ec3a3e 100644 --- a/SRC/slas2.f +++ b/SRC/slas2.f @@ -78,7 +78,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -107,10 +107,10 @@ * ===================================================================== SUBROUTINE SLAS2( F, G, H, SSMIN, SSMAX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL F, G, H, SSMAX, SSMIN diff --git a/SRC/slascl.f b/SRC/slascl.f index 055476fc..3f4b0364 100644 --- a/SRC/slascl.f +++ b/SRC/slascl.f @@ -132,17 +132,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/slascl2.f b/SRC/slascl2.f index 5ab46d96..45fa6cb4 100644 --- a/SRC/slascl2.f +++ b/SRC/slascl2.f @@ -83,17 +83,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/slasd0.f b/SRC/slasd0.f index 766059bc..d16ec486 100644 --- a/SRC/slasd0.f +++ b/SRC/slasd0.f @@ -136,7 +136,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -150,10 +150,10 @@ SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, $ WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE diff --git a/SRC/slasd1.f b/SRC/slasd1.f index a9e03b16..749c5d48 100644 --- a/SRC/slasd1.f +++ b/SRC/slasd1.f @@ -190,7 +190,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -204,10 +204,10 @@ SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/SRC/slasd2.f b/SRC/slasd2.f index 25288169..284a4331 100644 --- a/SRC/slasd2.f +++ b/SRC/slasd2.f @@ -254,7 +254,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -269,10 +269,10 @@ $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE diff --git a/SRC/slasd3.f b/SRC/slasd3.f index a930888a..487f75f3 100644 --- a/SRC/slasd3.f +++ b/SRC/slasd3.f @@ -210,7 +210,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -225,10 +225,10 @@ $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, diff --git a/SRC/slasd4.f b/SRC/slasd4.f index 86e6225a..e36832c9 100644 --- a/SRC/slasd4.f +++ b/SRC/slasd4.f @@ -140,7 +140,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -153,10 +153,10 @@ * ===================================================================== SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/SRC/slasd5.f b/SRC/slasd5.f index 4b426d56..9f7dd840 100644 --- a/SRC/slasd5.f +++ b/SRC/slasd5.f @@ -103,7 +103,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -116,10 +116,10 @@ * ===================================================================== SUBROUTINE SLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I diff --git a/SRC/slasd6.f b/SRC/slasd6.f index 82d20772..08d13e31 100644 --- a/SRC/slasd6.f +++ b/SRC/slasd6.f @@ -298,7 +298,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -314,10 +314,10 @@ $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/SRC/slasd7.f b/SRC/slasd7.f index 20d3e6d0..88c3108a 100644 --- a/SRC/slasd7.f +++ b/SRC/slasd7.f @@ -264,7 +264,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -280,10 +280,10 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/SRC/slasd8.f b/SRC/slasd8.f index c5dbc1e6..e3ac51ab 100644 --- a/SRC/slasd8.f +++ b/SRC/slasd8.f @@ -152,7 +152,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -166,10 +166,10 @@ SUBROUTINE SLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/SRC/slasda.f b/SRC/slasda.f index 8d7803fc..73dc1c47 100644 --- a/SRC/slasda.f +++ b/SRC/slasda.f @@ -258,7 +258,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -273,10 +273,10 @@ $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE diff --git a/SRC/slasdq.f b/SRC/slasdq.f index cf465824..9794d0b3 100644 --- a/SRC/slasdq.f +++ b/SRC/slasdq.f @@ -197,7 +197,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -211,10 +211,10 @@ SUBROUTINE SLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, $ U, LDU, C, LDC, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slasdt.f b/SRC/slasdt.f index e084b2aa..3d933072 100644 --- a/SRC/slasdt.f +++ b/SRC/slasdt.f @@ -92,7 +92,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -105,10 +105,10 @@ * ===================================================================== SUBROUTINE SLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LVL, MSUB, N, ND diff --git a/SRC/slaset.f b/SRC/slaset.f index cc696dbd..43db07a8 100644 --- a/SRC/slaset.f +++ b/SRC/slaset.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slasq1.f b/SRC/slasq1.f index 48fb8ddc..39c33864 100644 --- a/SRC/slasq1.f +++ b/SRC/slasq1.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/slasq2.f b/SRC/slasq2.f index dac5c37e..2807d74d 100644 --- a/SRC/slasq2.f +++ b/SRC/slasq2.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -112,10 +112,10 @@ * ===================================================================== SUBROUTINE SLASQ2( N, Z, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/slasq3.f b/SRC/slasq3.f index 68781249..6425a5fe 100644 --- a/SRC/slasq3.f +++ b/SRC/slasq3.f @@ -173,7 +173,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -182,10 +182,10 @@ $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/SRC/slasq4.f b/SRC/slasq4.f index 7f026f04..7df6a241 100644 --- a/SRC/slasq4.f +++ b/SRC/slasq4.f @@ -135,7 +135,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -151,10 +151,10 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I0, N0, N0IN, PP, TTYPE diff --git a/SRC/slasq5.f b/SRC/slasq5.f index 298f80d6..ed35cc1b 100644 --- a/SRC/slasq5.f +++ b/SRC/slasq5.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -132,10 +132,10 @@ SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/SRC/slasq6.f b/SRC/slasq6.f index 73c57155..b0f2eb02 100644 --- a/SRC/slasq6.f +++ b/SRC/slasq6.f @@ -111,7 +111,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * @@ -119,10 +119,10 @@ SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER I0, N0, PP diff --git a/SRC/slasr.f b/SRC/slasr.f index cb5bf907..35206c81 100644 --- a/SRC/slasr.f +++ b/SRC/slasr.f @@ -192,17 +192,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/SRC/slasrt.f b/SRC/slasrt.f index 72597c4a..09a3aaa7 100644 --- a/SRC/slasrt.f +++ b/SRC/slasrt.f @@ -81,17 +81,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASRT( ID, N, D, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER ID diff --git a/SRC/slassq.f b/SRC/slassq.f index f8af9049..605f0379 100644 --- a/SRC/slassq.f +++ b/SRC/slassq.f @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * * ===================================================================== SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/slasv2.f b/SRC/slasv2.f index b3e34486..4a308a98 100644 --- a/SRC/slasv2.f +++ b/SRC/slasv2.f @@ -107,7 +107,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup auxOTHERauxiliary * @@ -138,10 +138,10 @@ * ===================================================================== SUBROUTINE SLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN diff --git a/SRC/slaswp.f b/SRC/slaswp.f index 70d57ebb..33ae22d5 100644 --- a/SRC/slaswp.f +++ b/SRC/slaswp.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE SLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/SRC/slasy2.f b/SRC/slasy2.f index 49593e8b..435ea1b8 100644 --- a/SRC/slasy2.f +++ b/SRC/slasy2.f @@ -166,7 +166,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYauxiliary * @@ -174,10 +174,10 @@ SUBROUTINE SLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL LTRANL, LTRANR diff --git a/SRC/slasyf.f b/SRC/slasyf.f index 17d0ea2d..ab2e1bf1 100644 --- a/SRC/slasyf.f +++ b/SRC/slasyf.f @@ -149,17 +149,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slatbs.f b/SRC/slatbs.f index 8944851a..eb65b16d 100644 --- a/SRC/slatbs.f +++ b/SRC/slatbs.f @@ -162,7 +162,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -242,10 +242,10 @@ SUBROUTINE SLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/slatdf.f b/SRC/slatdf.f index 118c4294..f1a389bc 100644 --- a/SRC/slatdf.f +++ b/SRC/slatdf.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -171,10 +171,10 @@ SUBROUTINE SLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/SRC/slatps.f b/SRC/slatps.f index 80e42b48..84a291a8 100644 --- a/SRC/slatps.f +++ b/SRC/slatps.f @@ -149,7 +149,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -229,10 +229,10 @@ SUBROUTINE SLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/slatrd.f b/SRC/slatrd.f index f2d8d2b0..164294f7 100644 --- a/SRC/slatrd.f +++ b/SRC/slatrd.f @@ -139,7 +139,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup doubleOTHERauxiliary * @@ -198,10 +198,10 @@ * ===================================================================== SUBROUTINE SLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slatrs.f b/SRC/slatrs.f index b3d91bd8..c0792803 100644 --- a/SRC/slatrs.f +++ b/SRC/slatrs.f @@ -158,7 +158,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -238,10 +238,10 @@ SUBROUTINE SLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/slatrz.f b/SRC/slatrz.f index 0df37831..6b3ba975 100644 --- a/SRC/slatrz.f +++ b/SRC/slatrz.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -140,10 +140,10 @@ * ===================================================================== SUBROUTINE SLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/slauu2.f b/SRC/slauu2.f index f692a03b..8f1ec2d5 100644 --- a/SRC/slauu2.f +++ b/SRC/slauu2.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/slauum.f b/SRC/slauum.f index 55e552e6..89b25c7d 100644 --- a/SRC/slauum.f +++ b/SRC/slauum.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/sorg2l.f b/SRC/sorg2l.f index b8d3fc7f..c752c1c4 100644 --- a/SRC/sorg2l.f +++ b/SRC/sorg2l.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/sorg2r.f b/SRC/sorg2r.f index a80defa1..6bc5bc5a 100644 --- a/SRC/sorg2r.f +++ b/SRC/sorg2r.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/sorgr2.f b/SRC/sorgr2.f index 5012cb62..81ef9076 100644 --- a/SRC/sorgr2.f +++ b/SRC/sorgr2.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/sorm2l.f b/SRC/sorm2l.f index dbb90588..65c2adb6 100644 --- a/SRC/sorm2l.f +++ b/SRC/sorm2l.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE SORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sorm2r.f b/SRC/sorm2r.f index 425ddbbe..77b91c42 100644 --- a/SRC/sorm2r.f +++ b/SRC/sorm2r.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE SORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sorml2.f b/SRC/sorml2.f index cf0fecf1..d5b326c2 100644 --- a/SRC/sorml2.f +++ b/SRC/sorml2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE SORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormr2.f b/SRC/sormr2.f index e1b36c10..e50e4adf 100644 --- a/SRC/sormr2.f +++ b/SRC/sormr2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE SORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/sormr3.f b/SRC/sormr3.f index 171db1e5..a627155f 100644 --- a/SRC/sormr3.f +++ b/SRC/sormr3.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -178,10 +178,10 @@ SUBROUTINE SORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/spbtf2.f b/SRC/spbtf2.f index fbd30ed4..ba01ffc9 100644 --- a/SRC/spbtf2.f +++ b/SRC/spbtf2.f @@ -110,7 +110,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -142,10 +142,10 @@ * ===================================================================== SUBROUTINE SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spotf2.f b/SRC/spotf2.f index ff48696e..0318f2d0 100644 --- a/SRC/spotf2.f +++ b/SRC/spotf2.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/spstf2.f b/SRC/spstf2.f index 37871823..0e105fde 100644 --- a/SRC/spstf2.f +++ b/SRC/spstf2.f @@ -133,17 +133,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL TOL diff --git a/SRC/sptcon.f b/SRC/sptcon.f index f63f9644..14251084 100644 --- a/SRC/sptcon.f +++ b/SRC/sptcon.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPTcomputational * @@ -118,10 +118,10 @@ * ===================================================================== SUBROUTINE SPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/spteqr.f b/SRC/spteqr.f index 95179d27..0828be4c 100644 --- a/SRC/spteqr.f +++ b/SRC/spteqr.f @@ -138,17 +138,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/SRC/sptrfs.f b/SRC/sptrfs.f index 91ed7566..8b80af66 100644 --- a/SRC/sptrfs.f +++ b/SRC/sptrfs.f @@ -155,7 +155,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPTcomputational * @@ -163,10 +163,10 @@ SUBROUTINE SPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/SRC/sptsv.f b/SRC/sptsv.f index 85a940fb..678c619e 100644 --- a/SRC/sptsv.f +++ b/SRC/sptsv.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPTsolve * * ===================================================================== SUBROUTINE SPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/sptsvx.f b/SRC/sptsvx.f index 4e5d787d..db25621e 100644 --- a/SRC/sptsvx.f +++ b/SRC/sptsvx.f @@ -220,7 +220,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realPTsolve * @@ -228,10 +228,10 @@ SUBROUTINE SPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/spttrs.f b/SRC/spttrs.f index 3e987788..553ee887 100644 --- a/SRC/spttrs.f +++ b/SRC/spttrs.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/sptts2.f b/SRC/sptts2.f index d0f2363b..c32694ba 100644 --- a/SRC/sptts2.f +++ b/SRC/sptts2.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/SRC/srscl.f b/SRC/srscl.f index 415c9b48..5d7660cd 100644 --- a/SRC/srscl.f +++ b/SRC/srscl.f @@ -77,17 +77,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/ssfrk.f b/SRC/ssfrk.f index 082ce3b7..e68e5a21 100644 --- a/SRC/ssfrk.f +++ b/SRC/ssfrk.f @@ -158,7 +158,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -166,10 +166,10 @@ SUBROUTINE SSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/SRC/sstemr.f b/SRC/sstemr.f index a06f6b44..2badcf3f 100644 --- a/SRC/sstemr.f +++ b/SRC/sstemr.f @@ -294,7 +294,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -312,10 +312,10 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/SRC/ssyevr.f b/SRC/ssyevr.f index 3e63d06d..0f1e0b4b 100644 --- a/SRC/ssyevr.f +++ b/SRC/ssyevr.f @@ -308,7 +308,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYeigen * @@ -327,10 +327,10 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/ssygs2.f b/SRC/ssygs2.f index c4a2d6d7..cc0e2eb3 100644 --- a/SRC/ssygs2.f +++ b/SRC/ssygs2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssysvxx.f b/SRC/ssysvxx.f index 583992ea..97fcd94f 100644 --- a/SRC/ssysvxx.f +++ b/SRC/ssysvxx.f @@ -498,7 +498,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realSYdriver * @@ -508,10 +508,10 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/SRC/ssyswapr.f b/SRC/ssyswapr.f index 44cfb03f..9760aca2 100644 --- a/SRC/ssyswapr.f +++ b/SRC/ssyswapr.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytd2.f b/SRC/ssytd2.f index dd7fa072..4e59f8d3 100644 --- a/SRC/ssytd2.f +++ b/SRC/ssytd2.f @@ -120,7 +120,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * @@ -173,10 +173,10 @@ * ===================================================================== SUBROUTINE SSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytf2.f b/SRC/ssytf2.f index e7f7e3f1..5f782177 100644 --- a/SRC/ssytf2.f +++ b/SRC/ssytf2.f @@ -118,7 +118,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * @@ -186,10 +186,10 @@ * ===================================================================== SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ssytri2.f b/SRC/ssytri2.f index 419b1079..735bda2d 100644 --- a/SRC/ssytri2.f +++ b/SRC/ssytri2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/stfsm.f b/SRC/stfsm.f index 23dabd92..3519a8a1 100644 --- a/SRC/stfsm.f +++ b/SRC/stfsm.f @@ -182,7 +182,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -277,10 +277,10 @@ SUBROUTINE STFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/SRC/stfttp.f b/SRC/stfttp.f index d1b6476c..ebe6237a 100644 --- a/SRC/stfttp.f +++ b/SRC/stfttp.f @@ -93,7 +93,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -187,10 +187,10 @@ * ===================================================================== SUBROUTINE STFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/stfttr.f b/SRC/stfttr.f index 3795fe07..8dfaccf3 100644 --- a/SRC/stfttr.f +++ b/SRC/stfttr.f @@ -102,7 +102,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -196,10 +196,10 @@ * ===================================================================== SUBROUTINE STFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/stgex2.f b/SRC/stgex2.f index 2a351afe..d1a18c05 100644 --- a/SRC/stgex2.f +++ b/SRC/stgex2.f @@ -181,7 +181,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realGEauxiliary * @@ -221,10 +221,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.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/stgsy2.f b/SRC/stgsy2.f index 9ad53f25..80c50299 100644 --- a/SRC/stgsy2.f +++ b/SRC/stgsy2.f @@ -259,7 +259,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realSYauxiliary * @@ -274,10 +274,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/stpqrt2.f b/SRC/stpqrt2.f index 19565eaf..f3052d39 100644 --- a/SRC/stpqrt2.f +++ b/SRC/stpqrt2.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -173,10 +173,10 @@ * ===================================================================== SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/SRC/stprfb.f b/SRC/stprfb.f index c86a4492..de9253e7 100644 --- a/SRC/stprfb.f +++ b/SRC/stprfb.f @@ -194,7 +194,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERauxiliary * @@ -251,10 +251,10 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/stpttf.f b/SRC/stpttf.f index acec5b95..2d236fc8 100644 --- a/SRC/stpttf.f +++ b/SRC/stpttf.f @@ -92,7 +92,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -186,10 +186,10 @@ * ===================================================================== SUBROUTINE STPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/stpttr.f b/SRC/stpttr.f index b2e60170..95d9f8e8 100644 --- a/SRC/stpttr.f +++ b/SRC/stpttr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/strti2.f b/SRC/strti2.f index d9185ff1..493dd0dd 100644 --- a/SRC/strti2.f +++ b/SRC/strti2.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/SRC/strttf.f b/SRC/strttf.f index 61f1bbdf..f6b3689e 100644 --- a/SRC/strttf.f +++ b/SRC/strttf.f @@ -100,7 +100,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * @@ -194,10 +194,10 @@ * ===================================================================== SUBROUTINE STRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/strttp.f b/SRC/strttp.f index a2e9ea38..b28d70e7 100644 --- a/SRC/strttp.f +++ b/SRC/strttp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zdrscl.f b/SRC/zdrscl.f index 55f91a22..715ef730 100644 --- a/SRC/zdrscl.f +++ b/SRC/zdrscl.f @@ -77,17 +77,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZDRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/zgbtf2.f b/SRC/zgbtf2.f index 9fbf2e66..005605bb 100644 --- a/SRC/zgbtf2.f +++ b/SRC/zgbtf2.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBcomputational * @@ -145,10 +145,10 @@ * ===================================================================== SUBROUTINE ZGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/SRC/zgebd2.f b/SRC/zgebd2.f index dab36a94..88766573 100644 --- a/SRC/zgebd2.f +++ b/SRC/zgebd2.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -189,10 +189,10 @@ * ===================================================================== SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgehd2.f b/SRC/zgehd2.f index 7c778ae5..582235ec 100644 --- a/SRC/zgehd2.f +++ b/SRC/zgehd2.f @@ -106,7 +106,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -149,10 +149,10 @@ * ===================================================================== SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/SRC/zgelq2.f b/SRC/zgelq2.f index 7b410e86..dd9fcffb 100644 --- a/SRC/zgelq2.f +++ b/SRC/zgelq2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgeql2.f b/SRC/zgeql2.f index ffa58a29..c76ebae6 100644 --- a/SRC/zgeql2.f +++ b/SRC/zgeql2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE ZGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgeqp3.f b/SRC/zgeqp3.f index 47f836d2..74599558 100644 --- a/SRC/zgeqp3.f +++ b/SRC/zgeqp3.f @@ -127,7 +127,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -159,10 +159,10 @@ SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/SRC/zgeqr2.f b/SRC/zgeqr2.f index d87fa13e..e4543115 100644 --- a/SRC/zgeqr2.f +++ b/SRC/zgeqr2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgeqr2p.f b/SRC/zgeqr2p.f index caafe3db..514ae68a 100644 --- a/SRC/zgeqr2p.f +++ b/SRC/zgeqr2p.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE ZGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgeqrt2.f b/SRC/zgeqrt2.f index 95692e4e..fdabee98 100644 --- a/SRC/zgeqrt2.f +++ b/SRC/zgeqrt2.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -127,10 +127,10 @@ * ===================================================================== SUBROUTINE ZGEQRT2( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N diff --git a/SRC/zgeqrt3.f b/SRC/zgeqrt3.f index 713976b3..12e5de68 100644 --- a/SRC/zgeqrt3.f +++ b/SRC/zgeqrt3.f @@ -100,7 +100,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -132,10 +132,10 @@ * ===================================================================== RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/SRC/zgerq2.f b/SRC/zgerq2.f index bf09041e..af96a742 100644 --- a/SRC/zgerq2.f +++ b/SRC/zgerq2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -123,10 +123,10 @@ * ===================================================================== SUBROUTINE ZGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgesc2.f b/SRC/zgesc2.f index 9e90006c..593c05d6 100644 --- a/SRC/zgesc2.f +++ b/SRC/zgesc2.f @@ -102,7 +102,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEauxiliary * @@ -115,10 +115,10 @@ * ===================================================================== SUBROUTINE ZGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/SRC/zgetc2.f b/SRC/zgetc2.f index 1502e7a0..77a1927a 100644 --- a/SRC/zgetc2.f +++ b/SRC/zgetc2.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEauxiliary * @@ -111,10 +111,10 @@ * ===================================================================== SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/SRC/zgetf2.f b/SRC/zgetf2.f index 61560e56..5bea3086 100644 --- a/SRC/zgetf2.f +++ b/SRC/zgetf2.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/SRC/zgtcon.f b/SRC/zgtcon.f index a2099333..9d10e228 100644 --- a/SRC/zgtcon.f +++ b/SRC/zgtcon.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GTcomputational * @@ -141,10 +141,10 @@ SUBROUTINE ZGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/zgtrfs.f b/SRC/zgtrfs.f index cb6f4b1a..6530fe76 100644 --- a/SRC/zgtrfs.f +++ b/SRC/zgtrfs.f @@ -201,7 +201,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GTcomputational * @@ -210,10 +210,10 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zgtsv.f b/SRC/zgtsv.f index ff0bc3ce..9bc9be0e 100644 --- a/SRC/zgtsv.f +++ b/SRC/zgtsv.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GTsolve * * ===================================================================== SUBROUTINE ZGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/zgtsvx.f b/SRC/zgtsvx.f index e2aa05bf..b889ef60 100644 --- a/SRC/zgtsvx.f +++ b/SRC/zgtsvx.f @@ -285,7 +285,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16GTsolve * @@ -294,10 +294,10 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/SRC/zgttrf.f b/SRC/zgttrf.f index 7ac23ada..2e78cb5c 100644 --- a/SRC/zgttrf.f +++ b/SRC/zgttrf.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/zgttrs.f b/SRC/zgttrs.f index fad98268..076aaf9d 100644 --- a/SRC/zgttrs.f +++ b/SRC/zgttrs.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GTcomputational * @@ -138,10 +138,10 @@ SUBROUTINE ZGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zgtts2.f b/SRC/zgtts2.f index f7718c40..88a70365 100644 --- a/SRC/zgtts2.f +++ b/SRC/zgtts2.f @@ -121,17 +121,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/SRC/zheevr.f b/SRC/zheevr.f index 71714839..554cf110 100644 --- a/SRC/zheevr.f +++ b/SRC/zheevr.f @@ -329,7 +329,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEeigen * @@ -348,10 +348,10 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/SRC/zhegs2.f b/SRC/zhegs2.f index f131c3aa..66a82b63 100644 --- a/SRC/zhegs2.f +++ b/SRC/zhegs2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhegst.f b/SRC/zhegst.f index 314fbec9..05ec28dc 100644 --- a/SRC/zhegst.f +++ b/SRC/zhegst.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zheswapr.f b/SRC/zheswapr.f index b9ff454f..b6906117 100644 --- a/SRC/zheswapr.f +++ b/SRC/zheswapr.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEauxiliary * * ===================================================================== SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetd2.f b/SRC/zhetd2.f index bb5b4a0d..9e658577 100644 --- a/SRC/zhetd2.f +++ b/SRC/zhetd2.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * @@ -175,10 +175,10 @@ * ===================================================================== SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhetf2.f b/SRC/zhetf2.f index 351fce6c..c0d13e8b 100644 --- a/SRC/zhetf2.f +++ b/SRC/zhetf2.f @@ -118,7 +118,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * @@ -182,10 +182,10 @@ * ===================================================================== SUBROUTINE ZHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zhfrk.f b/SRC/zhfrk.f index 1e2448ff..97975c2a 100644 --- a/SRC/zhfrk.f +++ b/SRC/zhfrk.f @@ -160,7 +160,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -168,10 +168,10 @@ SUBROUTINE ZHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/zla_gbamv.f b/SRC/zla_gbamv.f index 76d99978..10863190 100644 --- a/SRC/zla_gbamv.f +++ b/SRC/zla_gbamv.f @@ -178,7 +178,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBcomputational * @@ -186,10 +186,10 @@ SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/zla_gbrcond_c.f b/SRC/zla_gbrcond_c.f index a7a3eef0..9fbaa690 100644 --- a/SRC/zla_gbrcond_c.f +++ b/SRC/zla_gbrcond_c.f @@ -153,7 +153,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBcomputational * @@ -163,10 +163,10 @@ $ C, CAPPLY, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zla_gbrcond_x.f b/SRC/zla_gbrcond_x.f index 5c702ad3..34916c9d 100644 --- a/SRC/zla_gbrcond_x.f +++ b/SRC/zla_gbrcond_x.f @@ -146,7 +146,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBcomputational * @@ -155,10 +155,10 @@ $ LDAB, AFB, LDAFB, IPIV, $ X, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zla_gbrfsx_extended.f b/SRC/zla_gbrfsx_extended.f index 75390e67..3188feac 100644 --- a/SRC/zla_gbrfsx_extended.f +++ b/SRC/zla_gbrfsx_extended.f @@ -399,7 +399,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBcomputational * @@ -412,10 +412,10 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, diff --git a/SRC/zla_gbrpvgrw.f b/SRC/zla_gbrpvgrw.f index 55d704de..027a1a38 100644 --- a/SRC/zla_gbrpvgrw.f +++ b/SRC/zla_gbrpvgrw.f @@ -109,7 +109,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBcomputational * @@ -117,10 +117,10 @@ DOUBLE PRECISION FUNCTION ZLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB diff --git a/SRC/zla_geamv.f b/SRC/zla_geamv.f index b7d36fcb..42075f32 100644 --- a/SRC/zla_geamv.f +++ b/SRC/zla_geamv.f @@ -167,7 +167,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -175,10 +175,10 @@ SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/zla_gercond_c.f b/SRC/zla_gercond_c.f index 97d6625b..5e8457a3 100644 --- a/SRC/zla_gercond_c.f +++ b/SRC/zla_gercond_c.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -143,10 +143,10 @@ $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Aguments .. CHARACTER TRANS diff --git a/SRC/zla_gercond_x.f b/SRC/zla_gercond_x.f index 61322a0f..70d15631 100644 --- a/SRC/zla_gercond_x.f +++ b/SRC/zla_gercond_x.f @@ -127,7 +127,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -136,10 +136,10 @@ $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zla_gerpvgrw.f b/SRC/zla_gerpvgrw.f index 278a6a29..5e9d31f3 100644 --- a/SRC/zla_gerpvgrw.f +++ b/SRC/zla_gerpvgrw.f @@ -92,7 +92,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEcomputational * @@ -100,10 +100,10 @@ DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, $ LDAF ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF diff --git a/SRC/zla_heamv.f b/SRC/zla_heamv.f index c2e27095..a792b103 100644 --- a/SRC/zla_heamv.f +++ b/SRC/zla_heamv.f @@ -154,7 +154,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * @@ -178,10 +178,10 @@ SUBROUTINE ZLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/zla_hercond_c.f b/SRC/zla_hercond_c.f index 21caae85..3ca9bb76 100644 --- a/SRC/zla_hercond_c.f +++ b/SRC/zla_hercond_c.f @@ -131,7 +131,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * @@ -140,10 +140,10 @@ $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zla_hercond_x.f b/SRC/zla_hercond_x.f index 2fe47d7f..6a8ad63c 100644 --- a/SRC/zla_hercond_x.f +++ b/SRC/zla_hercond_x.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * @@ -133,10 +133,10 @@ $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zla_herfsx_extended.f b/SRC/zla_herfsx_extended.f index 4611d61e..d2276b2d 100644 --- a/SRC/zla_herfsx_extended.f +++ b/SRC/zla_herfsx_extended.f @@ -385,7 +385,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * @@ -398,10 +398,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/zla_lin_berr.f b/SRC/zla_lin_berr.f index 2c5795a8..e4c10541 100644 --- a/SRC/zla_lin_berr.f +++ b/SRC/zla_lin_berr.f @@ -94,17 +94,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS diff --git a/SRC/zla_porcond_c.f b/SRC/zla_porcond_c.f index 84229c8a..fc254d28 100644 --- a/SRC/zla_porcond_c.f +++ b/SRC/zla_porcond_c.f @@ -123,7 +123,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16POcomputational * @@ -132,10 +132,10 @@ $ LDAF, C, CAPPLY, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zla_porcond_x.f b/SRC/zla_porcond_x.f index b6fef8f0..74e1b510 100644 --- a/SRC/zla_porcond_x.f +++ b/SRC/zla_porcond_x.f @@ -116,7 +116,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16POcomputational * @@ -125,10 +125,10 @@ $ LDAF, X, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zla_porfsx_extended.f b/SRC/zla_porfsx_extended.f index 9873bb73..442c2cc8 100644 --- a/SRC/zla_porfsx_extended.f +++ b/SRC/zla_porfsx_extended.f @@ -377,7 +377,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16POcomputational * @@ -390,10 +390,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/zla_porpvgrw.f b/SRC/zla_porpvgrw.f index 7310f331..6299b738 100644 --- a/SRC/zla_porpvgrw.f +++ b/SRC/zla_porpvgrw.f @@ -99,7 +99,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16POcomputational * @@ -107,10 +107,10 @@ DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/zla_syamv.f b/SRC/zla_syamv.f index 41690d9a..ee40a137 100644 --- a/SRC/zla_syamv.f +++ b/SRC/zla_syamv.f @@ -155,7 +155,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * @@ -179,10 +179,10 @@ SUBROUTINE ZLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/SRC/zla_syrcond_c.f b/SRC/zla_syrcond_c.f index aa6f063d..25e543f9 100644 --- a/SRC/zla_syrcond_c.f +++ b/SRC/zla_syrcond_c.f @@ -131,7 +131,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * @@ -140,10 +140,10 @@ $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zla_syrcond_x.f b/SRC/zla_syrcond_x.f index 9dd74b2a..ecff31fc 100644 --- a/SRC/zla_syrcond_x.f +++ b/SRC/zla_syrcond_x.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * @@ -133,10 +133,10 @@ $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zla_syrfsx_extended.f b/SRC/zla_syrfsx_extended.f index e19dfeae..3738dcc9 100644 --- a/SRC/zla_syrfsx_extended.f +++ b/SRC/zla_syrfsx_extended.f @@ -385,7 +385,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * @@ -398,10 +398,10 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, diff --git a/SRC/zla_syrpvgrw.f b/SRC/zla_syrpvgrw.f index 814a40b8..340ea978 100644 --- a/SRC/zla_syrpvgrw.f +++ b/SRC/zla_syrpvgrw.f @@ -115,7 +115,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * @@ -123,10 +123,10 @@ DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER*1 UPLO diff --git a/SRC/zla_wwaddw.f b/SRC/zla_wwaddw.f index d2ae898b..9fd3a4f8 100644 --- a/SRC/zla_wwaddw.f +++ b/SRC/zla_wwaddw.f @@ -74,17 +74,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER N diff --git a/SRC/zlabrd.f b/SRC/zlabrd.f index a3923ff8..55fbc7c6 100644 --- a/SRC/zlabrd.f +++ b/SRC/zlabrd.f @@ -157,7 +157,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -212,10 +212,10 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/SRC/zlacgv.f b/SRC/zlacgv.f index 57135790..36d49eb8 100644 --- a/SRC/zlacgv.f +++ b/SRC/zlacgv.f @@ -67,17 +67,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACGV( N, X, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/zlacn2.f b/SRC/zlacn2.f index 5f6cfbc6..70d8d17a 100644 --- a/SRC/zlacn2.f +++ b/SRC/zlacn2.f @@ -96,7 +96,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -133,10 +133,10 @@ * ===================================================================== SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/zlacon.f b/SRC/zlacon.f index 5ff34930..dda1027a 100644 --- a/SRC/zlacon.f +++ b/SRC/zlacon.f @@ -89,7 +89,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE ZLACON( N, V, X, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/SRC/zlacp2.f b/SRC/zlacp2.f index 138c1938..12f7115c 100644 --- a/SRC/zlacp2.f +++ b/SRC/zlacp2.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACP2( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlacpy.f b/SRC/zlacpy.f index 344b7640..149c0cc6 100644 --- a/SRC/zlacpy.f +++ b/SRC/zlacpy.f @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlacrm.f b/SRC/zlacrm.f index 1345ac22..0672a7a5 100644 --- a/SRC/zlacrm.f +++ b/SRC/zlacrm.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/SRC/zlacrt.f b/SRC/zlacrt.f index 162947ad..88401f07 100644 --- a/SRC/zlacrt.f +++ b/SRC/zlacrt.f @@ -98,17 +98,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACRT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/zladiv.f b/SRC/zladiv.f index 129d8413..ee59cde8 100644 --- a/SRC/zladiv.f +++ b/SRC/zladiv.f @@ -57,17 +57,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== COMPLEX*16 FUNCTION ZLADIV( X, Y ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. COMPLEX*16 X, Y diff --git a/SRC/zlaed0.f b/SRC/zlaed0.f index 16ee6dea..13c27193 100644 --- a/SRC/zlaed0.f +++ b/SRC/zlaed0.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -145,10 +145,10 @@ SUBROUTINE ZLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDQ, LDQS, N, QSIZ diff --git a/SRC/zlaed7.f b/SRC/zlaed7.f index 48e00fbb..d83bc093 100644 --- a/SRC/zlaed7.f +++ b/SRC/zlaed7.f @@ -239,7 +239,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -249,10 +249,10 @@ $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/SRC/zlaed8.f b/SRC/zlaed8.f index d94cbbf7..01a46f24 100644 --- a/SRC/zlaed8.f +++ b/SRC/zlaed8.f @@ -219,7 +219,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -228,10 +228,10 @@ $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ diff --git a/SRC/zlaein.f b/SRC/zlaein.f index 3708eb42..faafa318 100644 --- a/SRC/zlaein.f +++ b/SRC/zlaein.f @@ -141,7 +141,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -149,10 +149,10 @@ SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/SRC/zlaesy.f b/SRC/zlaesy.f index 008861e8..a989f3a8 100644 --- a/SRC/zlaesy.f +++ b/SRC/zlaesy.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. COMPLEX*16 A, B, C, CS1, EVSCAL, RT1, RT2, SN1 diff --git a/SRC/zlaev2.f b/SRC/zlaev2.f index 734331e6..d3142e83 100644 --- a/SRC/zlaev2.f +++ b/SRC/zlaev2.f @@ -95,7 +95,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -121,10 +121,10 @@ * ===================================================================== SUBROUTINE ZLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION CS1, RT1, RT2 diff --git a/SRC/zlag2c.f b/SRC/zlag2c.f index d9787976..18eaf7b8 100644 --- a/SRC/zlag2c.f +++ b/SRC/zlag2c.f @@ -100,17 +100,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/SRC/zlagtm.f b/SRC/zlagtm.f index bfb9936b..cbe85d16 100644 --- a/SRC/zlagtm.f +++ b/SRC/zlagtm.f @@ -137,7 +137,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -145,10 +145,10 @@ SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/zlahef.f b/SRC/zlahef.f index 0f0376ee..da42c337 100644 --- a/SRC/zlahef.f +++ b/SRC/zlahef.f @@ -150,17 +150,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlahqr.f b/SRC/zlahqr.f index a49ae680..add2a55b 100644 --- a/SRC/zlahqr.f +++ b/SRC/zlahqr.f @@ -171,7 +171,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -195,10 +195,10 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N diff --git a/SRC/zlahr2.f b/SRC/zlahr2.f index dc80767c..700f3400 100644 --- a/SRC/zlahr2.f +++ b/SRC/zlahr2.f @@ -123,7 +123,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -181,10 +181,10 @@ * ===================================================================== SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/zlahrd.f b/SRC/zlahrd.f index 16624280..3a9dee37 100644 --- a/SRC/zlahrd.f +++ b/SRC/zlahrd.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -169,10 +169,10 @@ * ===================================================================== SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/SRC/zlaic1.f b/SRC/zlaic1.f index 37efdf4d..bb3bc93e 100644 --- a/SRC/zlaic1.f +++ b/SRC/zlaic1.f @@ -128,17 +128,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/SRC/zlals0.f b/SRC/zlals0.f index 6076562a..aec094aa 100644 --- a/SRC/zlals0.f +++ b/SRC/zlals0.f @@ -254,7 +254,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -270,10 +270,10 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/SRC/zlalsa.f b/SRC/zlalsa.f index 9abd52ec..2e55818d 100644 --- a/SRC/zlalsa.f +++ b/SRC/zlalsa.f @@ -251,7 +251,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -268,10 +268,10 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/SRC/zlalsd.f b/SRC/zlalsd.f index 82f1ffb9..758e849a 100644 --- a/SRC/zlalsd.f +++ b/SRC/zlalsd.f @@ -173,7 +173,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -188,10 +188,10 @@ SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlangb.f b/SRC/zlangb.f index eceea871..3de3ecbf 100644 --- a/SRC/zlangb.f +++ b/SRC/zlangb.f @@ -117,7 +117,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBauxiliary * @@ -125,10 +125,10 @@ DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/zlange.f b/SRC/zlange.f index 56e0bc6d..9051fde5 100644 --- a/SRC/zlange.f +++ b/SRC/zlange.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/zlangt.f b/SRC/zlangt.f index 94446075..3b61e6ad 100644 --- a/SRC/zlangt.f +++ b/SRC/zlangt.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/zlanhb.f b/SRC/zlanhb.f index e708e15e..def8e6a4 100644 --- a/SRC/zlanhb.f +++ b/SRC/zlanhb.f @@ -124,7 +124,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -132,10 +132,10 @@ DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/zlanhe.f b/SRC/zlanhe.f index 04662ef3..df666ce9 100644 --- a/SRC/zlanhe.f +++ b/SRC/zlanhe.f @@ -117,17 +117,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/zlanhf.f b/SRC/zlanhf.f index 8f48e889..b64643a4 100644 --- a/SRC/zlanhf.f +++ b/SRC/zlanhf.f @@ -131,7 +131,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -246,10 +246,10 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/SRC/zlanhp.f b/SRC/zlanhp.f index 496e04c7..c5b4aae0 100644 --- a/SRC/zlanhp.f +++ b/SRC/zlanhp.f @@ -110,17 +110,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/zlanhs.f b/SRC/zlanhs.f index 7e255ca1..29ff6533 100644 --- a/SRC/zlanhs.f +++ b/SRC/zlanhs.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/zlanht.f b/SRC/zlanht.f index 545221d0..7e65a768 100644 --- a/SRC/zlanht.f +++ b/SRC/zlanht.f @@ -94,17 +94,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHT( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/SRC/zlansb.f b/SRC/zlansb.f index 5a48b535..315c91b5 100644 --- a/SRC/zlansb.f +++ b/SRC/zlansb.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -130,10 +130,10 @@ DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/zlansp.f b/SRC/zlansp.f index f02a8d10..81fbbd48 100644 --- a/SRC/zlansp.f +++ b/SRC/zlansp.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/zlansy.f b/SRC/zlansy.f index ed8ecccf..b9018563 100644 --- a/SRC/zlansy.f +++ b/SRC/zlansy.f @@ -116,17 +116,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER NORM, UPLO diff --git a/SRC/zlantb.f b/SRC/zlantb.f index 0dd04f5e..ba6bb554 100644 --- a/SRC/zlantb.f +++ b/SRC/zlantb.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -141,10 +141,10 @@ DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/zlantp.f b/SRC/zlantp.f index 36e3f9f1..b65c5bd7 100644 --- a/SRC/zlantp.f +++ b/SRC/zlantp.f @@ -118,17 +118,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/zlantr.f b/SRC/zlantr.f index 6c9fd7a0..8c8bad7c 100644 --- a/SRC/zlantr.f +++ b/SRC/zlantr.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -142,10 +142,10 @@ DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/SRC/zlapll.f b/SRC/zlapll.f index dbee1dd3..eb1fa617 100644 --- a/SRC/zlapll.f +++ b/SRC/zlapll.f @@ -93,17 +93,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/zlapmr.f b/SRC/zlapmr.f index 8dd7f925..b271e07c 100644 --- a/SRC/zlapmr.f +++ b/SRC/zlapmr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/zlapmt.f b/SRC/zlapmt.f index 7a1b5d9e..4d2cfb06 100644 --- a/SRC/zlapmt.f +++ b/SRC/zlapmt.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/SRC/zlaqgb.f b/SRC/zlaqgb.f index 724a26e3..db7aaf2a 100644 --- a/SRC/zlaqgb.f +++ b/SRC/zlaqgb.f @@ -152,7 +152,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GBauxiliary * @@ -160,10 +160,10 @@ SUBROUTINE ZLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/zlaqge.f b/SRC/zlaqge.f index 3f14d3df..6b63143f 100644 --- a/SRC/zlaqge.f +++ b/SRC/zlaqge.f @@ -135,7 +135,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEauxiliary * @@ -143,10 +143,10 @@ SUBROUTINE ZLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/SRC/zlaqhb.f b/SRC/zlaqhb.f index 6c38d30d..07c08d66 100644 --- a/SRC/zlaqhb.f +++ b/SRC/zlaqhb.f @@ -134,17 +134,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlaqhe.f b/SRC/zlaqhe.f index 1d4cf483..a45a1b61 100644 --- a/SRC/zlaqhe.f +++ b/SRC/zlaqhe.f @@ -127,17 +127,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16HEauxiliary * * ===================================================================== SUBROUTINE ZLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlaqhp.f b/SRC/zlaqhp.f index ac2cd429..08647b9b 100644 --- a/SRC/zlaqhp.f +++ b/SRC/zlaqhp.f @@ -119,17 +119,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlaqp2.f b/SRC/zlaqp2.f index 3f1d5adb..18e831cc 100644 --- a/SRC/zlaqp2.f +++ b/SRC/zlaqp2.f @@ -122,7 +122,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -149,10 +149,10 @@ SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/SRC/zlaqps.f b/SRC/zlaqps.f index f37c8a38..134aa11d 100644 --- a/SRC/zlaqps.f +++ b/SRC/zlaqps.f @@ -150,7 +150,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -177,10 +177,10 @@ SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/SRC/zlaqr0.f b/SRC/zlaqr0.f index b270571b..3741e215 100644 --- a/SRC/zlaqr0.f +++ b/SRC/zlaqr0.f @@ -215,7 +215,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -241,10 +241,10 @@ SUBROUTINE ZLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/zlaqr1.f b/SRC/zlaqr1.f index 8f3ee0b6..1d1ddff9 100644 --- a/SRC/zlaqr1.f +++ b/SRC/zlaqr1.f @@ -94,7 +94,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -107,10 +107,10 @@ * ===================================================================== SUBROUTINE ZLAQR1( N, H, LDH, S1, S2, V ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. COMPLEX*16 S1, S2 diff --git a/SRC/zlaqr2.f b/SRC/zlaqr2.f index df8f50e1..98a64b45 100644 --- a/SRC/zlaqr2.f +++ b/SRC/zlaqr2.f @@ -255,7 +255,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -270,10 +270,10 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/zlaqr3.f b/SRC/zlaqr3.f index f738d11c..9aa64c26 100644 --- a/SRC/zlaqr3.f +++ b/SRC/zlaqr3.f @@ -252,7 +252,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -267,10 +267,10 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/SRC/zlaqr4.f b/SRC/zlaqr4.f index 2f45fe69..267ebf78 100644 --- a/SRC/zlaqr4.f +++ b/SRC/zlaqr4.f @@ -221,7 +221,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -247,10 +247,10 @@ SUBROUTINE ZLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/SRC/zlaqr5.f b/SRC/zlaqr5.f index ba8e9821..bef99514 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -228,7 +228,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -251,10 +251,10 @@ $ H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV, $ WV, LDWV, NH, WH, LDWH ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/SRC/zlaqsb.f b/SRC/zlaqsb.f index c01b686e..85e19de6 100644 --- a/SRC/zlaqsb.f +++ b/SRC/zlaqsb.f @@ -134,17 +134,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlaqsp.f b/SRC/zlaqsp.f index a0a37ce6..2df0ce5d 100644 --- a/SRC/zlaqsp.f +++ b/SRC/zlaqsp.f @@ -119,17 +119,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlaqsy.f b/SRC/zlaqsy.f index 11c7e0ab..d242f072 100644 --- a/SRC/zlaqsy.f +++ b/SRC/zlaqsy.f @@ -127,17 +127,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/SRC/zlar1v.f b/SRC/zlar1v.f index 36636830..21aa4329 100644 --- a/SRC/zlar1v.f +++ b/SRC/zlar1v.f @@ -212,7 +212,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -230,10 +230,10 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/SRC/zlar2v.f b/SRC/zlar2v.f index c15b8d84..bc454e38 100644 --- a/SRC/zlar2v.f +++ b/SRC/zlar2v.f @@ -104,17 +104,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/SRC/zlarcm.f b/SRC/zlarcm.f index 993a6cc8..342a9b3f 100644 --- a/SRC/zlarcm.f +++ b/SRC/zlarcm.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/SRC/zlarf.f b/SRC/zlarf.f index f26cb8b3..4508cc3b 100644 --- a/SRC/zlarf.f +++ b/SRC/zlarf.f @@ -121,17 +121,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/zlarfb.f b/SRC/zlarfb.f index c4e2d59c..c101ae35 100644 --- a/SRC/zlarfb.f +++ b/SRC/zlarfb.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -195,10 +195,10 @@ SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/zlarfg.f b/SRC/zlarfg.f index 11f2003a..8c6dfb00 100644 --- a/SRC/zlarfg.f +++ b/SRC/zlarfg.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/zlarfgp.f b/SRC/zlarfgp.f index 9490560a..71ba550b 100644 --- a/SRC/zlarfgp.f +++ b/SRC/zlarfgp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/zlarft.f b/SRC/zlarft.f index a2aada57..63ace57e 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -130,7 +130,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -163,10 +163,10 @@ * ===================================================================== SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/zlarfx.f b/SRC/zlarfx.f index 72420fb7..edfe954c 100644 --- a/SRC/zlarfx.f +++ b/SRC/zlarfx.f @@ -112,17 +112,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/zlargv.f b/SRC/zlargv.f index 5f9eaaaf..4e49d17e 100644 --- a/SRC/zlargv.f +++ b/SRC/zlargv.f @@ -104,7 +104,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -122,10 +122,10 @@ * ===================================================================== SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/zlarnv.f b/SRC/zlarnv.f index 163085d3..b87adde7 100644 --- a/SRC/zlarnv.f +++ b/SRC/zlarnv.f @@ -81,7 +81,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -99,10 +99,10 @@ * ===================================================================== SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IDIST, N diff --git a/SRC/zlarrv.f b/SRC/zlarrv.f index a823a8aa..8ca26bbd 100644 --- a/SRC/zlarrv.f +++ b/SRC/zlarrv.f @@ -263,7 +263,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -283,10 +283,10 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/SRC/zlarscl2.f b/SRC/zlarscl2.f index a5412361..f5f3ae9e 100644 --- a/SRC/zlarscl2.f +++ b/SRC/zlarscl2.f @@ -84,17 +84,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/zlartg.f b/SRC/zlartg.f index f842be7c..66ad6379 100644 --- a/SRC/zlartg.f +++ b/SRC/zlartg.f @@ -85,7 +85,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -103,10 +103,10 @@ * ===================================================================== SUBROUTINE ZLARTG( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION CS diff --git a/SRC/zlartv.f b/SRC/zlartv.f index 5c4db956..2f8bf08f 100644 --- a/SRC/zlartv.f +++ b/SRC/zlartv.f @@ -100,17 +100,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/SRC/zlarz.f b/SRC/zlarz.f index bfe886dd..7d0c8de0 100644 --- a/SRC/zlarz.f +++ b/SRC/zlarz.f @@ -129,7 +129,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -147,10 +147,10 @@ * ===================================================================== SUBROUTINE ZLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/SRC/zlarzb.f b/SRC/zlarzb.f index d6908f33..89dc7b45 100644 --- a/SRC/zlarzb.f +++ b/SRC/zlarzb.f @@ -164,7 +164,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -183,10 +183,10 @@ SUBROUTINE ZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/zlarzt.f b/SRC/zlarzt.f index 66eef82d..04ae2b54 100644 --- a/SRC/zlarzt.f +++ b/SRC/zlarzt.f @@ -133,7 +133,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -185,10 +185,10 @@ * ===================================================================== SUBROUTINE ZLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/SRC/zlascl.f b/SRC/zlascl.f index 44d7bfc3..0b8a2f84 100644 --- a/SRC/zlascl.f +++ b/SRC/zlascl.f @@ -132,17 +132,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/SRC/zlascl2.f b/SRC/zlascl2.f index 6c2a2923..37141000 100644 --- a/SRC/zlascl2.f +++ b/SRC/zlascl2.f @@ -84,17 +84,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/SRC/zlaset.f b/SRC/zlaset.f index 66cfd656..bb65d5da 100644 --- a/SRC/zlaset.f +++ b/SRC/zlaset.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlasr.f b/SRC/zlasr.f index 953ff9cf..7b905d87 100644 --- a/SRC/zlasr.f +++ b/SRC/zlasr.f @@ -193,17 +193,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/SRC/zlassq.f b/SRC/zlassq.f index 59ad6966..172510fe 100644 --- a/SRC/zlassq.f +++ b/SRC/zlassq.f @@ -99,17 +99,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/SRC/zlaswp.f b/SRC/zlaswp.f index e27d9160..73410121 100644 --- a/SRC/zlaswp.f +++ b/SRC/zlaswp.f @@ -98,7 +98,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -114,10 +114,10 @@ * ===================================================================== SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/SRC/zlasyf.f b/SRC/zlasyf.f index ef0c2ff3..327ca9b1 100644 --- a/SRC/zlasyf.f +++ b/SRC/zlasyf.f @@ -150,17 +150,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlat2c.f b/SRC/zlat2c.f index 6e86ed81..c4edd0e9 100644 --- a/SRC/zlat2c.f +++ b/SRC/zlat2c.f @@ -104,17 +104,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlatbs.f b/SRC/zlatbs.f index d02308e7..82ae3a55 100644 --- a/SRC/zlatbs.f +++ b/SRC/zlatbs.f @@ -163,7 +163,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -243,10 +243,10 @@ SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/zlatdf.f b/SRC/zlatdf.f index e2d01bfc..8bc2951b 100644 --- a/SRC/zlatdf.f +++ b/SRC/zlatdf.f @@ -134,7 +134,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -169,10 +169,10 @@ SUBROUTINE ZLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/SRC/zlatps.f b/SRC/zlatps.f index 902d03f5..1da8db40 100644 --- a/SRC/zlatps.f +++ b/SRC/zlatps.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -231,10 +231,10 @@ SUBROUTINE ZLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/zlatrd.f b/SRC/zlatrd.f index 4fe693c8..5aabeee9 100644 --- a/SRC/zlatrd.f +++ b/SRC/zlatrd.f @@ -140,7 +140,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -199,10 +199,10 @@ * ===================================================================== SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlatrs.f b/SRC/zlatrs.f index 8455518e..7a2127c1 100644 --- a/SRC/zlatrs.f +++ b/SRC/zlatrs.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -239,10 +239,10 @@ SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.1) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/SRC/zlatrz.f b/SRC/zlatrz.f index c66dd6d5..fd8ec037 100644 --- a/SRC/zlatrz.f +++ b/SRC/zlatrz.f @@ -97,7 +97,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -140,10 +140,10 @@ * ===================================================================== SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/SRC/zlauu2.f b/SRC/zlauu2.f index 3c12a29f..a50bae60 100644 --- a/SRC/zlauu2.f +++ b/SRC/zlauu2.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zlauum.f b/SRC/zlauum.f index 7c7a8250..78b94a6e 100644 --- a/SRC/zlauum.f +++ b/SRC/zlauum.f @@ -95,17 +95,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpbtf2.f b/SRC/zpbtf2.f index 1df5b637..e56d158c 100644 --- a/SRC/zpbtf2.f +++ b/SRC/zpbtf2.f @@ -110,7 +110,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -142,10 +142,10 @@ * ===================================================================== SUBROUTINE ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpotf2.f b/SRC/zpotf2.f index abd60e67..ddc0e2c8 100644 --- a/SRC/zpotf2.f +++ b/SRC/zpotf2.f @@ -102,17 +102,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zpstf2.f b/SRC/zpstf2.f index bddde762..dfda9746 100644 --- a/SRC/zpstf2.f +++ b/SRC/zpstf2.f @@ -134,17 +134,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/SRC/zptcon.f b/SRC/zptcon.f index e79cf752..e10545be 100644 --- a/SRC/zptcon.f +++ b/SRC/zptcon.f @@ -102,7 +102,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16PTcomputational * @@ -119,10 +119,10 @@ * ===================================================================== SUBROUTINE ZPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/zpteqr.f b/SRC/zpteqr.f index 32f40956..0b057792 100644 --- a/SRC/zpteqr.f +++ b/SRC/zpteqr.f @@ -138,17 +138,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/SRC/zptrfs.f b/SRC/zptrfs.f index 1d10f137..c1ec2cd3 100644 --- a/SRC/zptrfs.f +++ b/SRC/zptrfs.f @@ -175,7 +175,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16PTcomputational * @@ -183,10 +183,10 @@ SUBROUTINE ZPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zptsv.f b/SRC/zptsv.f index 6ffe45b0..42727261 100644 --- a/SRC/zptsv.f +++ b/SRC/zptsv.f @@ -108,17 +108,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16PTsolve * * ===================================================================== SUBROUTINE ZPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.4.0) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/SRC/zptsvx.f b/SRC/zptsvx.f index 7c9ee91a..0d1052fc 100644 --- a/SRC/zptsvx.f +++ b/SRC/zptsvx.f @@ -226,7 +226,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16PTsolve * @@ -234,10 +234,10 @@ SUBROUTINE ZPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.4.1) -- +* -- LAPACK driver routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/SRC/zpttrf.f b/SRC/zpttrf.f index e912e898..1b69ae1e 100644 --- a/SRC/zpttrf.f +++ b/SRC/zpttrf.f @@ -85,17 +85,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/SRC/zpttrs.f b/SRC/zpttrs.f index 718ddd16..985bc8f0 100644 --- a/SRC/zpttrs.f +++ b/SRC/zpttrs.f @@ -114,17 +114,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zptts2.f b/SRC/zptts2.f index 6e1579d1..004c7db6 100644 --- a/SRC/zptts2.f +++ b/SRC/zptts2.f @@ -106,17 +106,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS @@ -96,17 +96,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/SRC/zspmv.f b/SRC/zspmv.f index 8dfceb6f..fe6fd73f 100644 --- a/SRC/zspmv.f +++ b/SRC/zspmv.f @@ -144,17 +144,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO @@ -125,17 +125,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZSPR( UPLO, N, ALPHA, X, INCX, AP ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zstemr.f b/SRC/zstemr.f index 8cee9316..b5e6590f 100644 --- a/SRC/zstemr.f +++ b/SRC/zstemr.f @@ -311,7 +311,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -329,10 +329,10 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/SRC/zsymv.f b/SRC/zsymv.f index b49c34dd..5ba431fd 100644 --- a/SRC/zsymv.f +++ b/SRC/zsymv.f @@ -150,17 +150,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO @@ -128,17 +128,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsytf2.f b/SRC/zsytf2.f index 5cebed83..32d6fce6 100644 --- a/SRC/zsytf2.f +++ b/SRC/zsytf2.f @@ -118,7 +118,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * @@ -182,10 +182,10 @@ * ===================================================================== SUBROUTINE ZSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zsytri2.f b/SRC/zsytri2.f index b6d7c617..9d8e6378 100644 --- a/SRC/zsytri2.f +++ b/SRC/zsytri2.f @@ -120,17 +120,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ztfsm.f b/SRC/ztfsm.f index a2124b92..407c7e00 100644 --- a/SRC/ztfsm.f +++ b/SRC/ztfsm.f @@ -182,7 +182,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -298,10 +298,10 @@ SUBROUTINE ZTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/SRC/ztfttp.f b/SRC/ztfttp.f index 502db83e..0d0c450b 100644 --- a/SRC/ztfttp.f +++ b/SRC/ztfttp.f @@ -93,7 +93,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -208,10 +208,10 @@ * ===================================================================== SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ztfttr.f b/SRC/ztfttr.f index 3629c9a0..c77b222f 100644 --- a/SRC/ztfttr.f +++ b/SRC/ztfttr.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -216,10 +216,10 @@ * ===================================================================== SUBROUTINE ZTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ztgex2.f b/SRC/ztgex2.f index 8f8ad31c..1461aea6 100644 --- a/SRC/ztgex2.f +++ b/SRC/ztgex2.f @@ -153,7 +153,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16GEauxiliary * @@ -190,10 +190,10 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/SRC/ztgsy2.f b/SRC/ztgsy2.f index c3ab1993..89549fc3 100644 --- a/SRC/ztgsy2.f +++ b/SRC/ztgsy2.f @@ -244,7 +244,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16SYauxiliary * @@ -259,10 +259,10 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/SRC/ztpqrt2.f b/SRC/ztpqrt2.f index 7304d3cc..dbab556c 100644 --- a/SRC/ztpqrt2.f +++ b/SRC/ztpqrt2.f @@ -119,7 +119,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -173,10 +173,10 @@ * ===================================================================== SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.4.1) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/SRC/ztprfb.f b/SRC/ztprfb.f index f0f37ffd..9110f494 100644 --- a/SRC/ztprfb.f +++ b/SRC/ztprfb.f @@ -194,7 +194,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERauxiliary * @@ -251,10 +251,10 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.4.0) -- +* -- LAPACK auxiliary routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/SRC/ztpttf.f b/SRC/ztpttf.f index afeafede..ad7e43d1 100644 --- a/SRC/ztpttf.f +++ b/SRC/ztpttf.f @@ -92,7 +92,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -207,10 +207,10 @@ * ===================================================================== SUBROUTINE ZTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ztpttr.f b/SRC/ztpttr.f index a064f751..28733b29 100644 --- a/SRC/ztpttr.f +++ b/SRC/ztpttr.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/ztrti2.f b/SRC/ztrti2.f index 7024c30a..99e9c64b 100644 --- a/SRC/ztrti2.f +++ b/SRC/ztrti2.f @@ -103,17 +103,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/SRC/ztrttf.f b/SRC/ztrttf.f index a64ce17c..82d02642 100644 --- a/SRC/ztrttf.f +++ b/SRC/ztrttf.f @@ -101,7 +101,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -216,10 +216,10 @@ * ===================================================================== SUBROUTINE ZTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/SRC/ztrttp.f b/SRC/ztrttp.f index e327a1b9..aafeff2c 100644 --- a/SRC/ztrttp.f +++ b/SRC/ztrttp.f @@ -97,17 +97,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/SRC/zung2l.f b/SRC/zung2l.f index 7d7899bc..70844e7f 100644 --- a/SRC/zung2l.f +++ b/SRC/zung2l.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/zungl2.f b/SRC/zungl2.f index ddff6191..411d6873 100644 --- a/SRC/zungl2.f +++ b/SRC/zungl2.f @@ -106,17 +106,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/zungr2.f b/SRC/zungr2.f index 57e6a2e3..9ccebd2a 100644 --- a/SRC/zungr2.f +++ b/SRC/zungr2.f @@ -107,17 +107,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/SRC/zunm2l.f b/SRC/zunm2l.f index d4e9775a..1df00a1e 100644 --- a/SRC/zunm2l.f +++ b/SRC/zunm2l.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE ZUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunm2r.f b/SRC/zunm2r.f index 7671639f..9ca995fc 100644 --- a/SRC/zunm2r.f +++ b/SRC/zunm2r.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunml2.f b/SRC/zunml2.f index 62486c94..13c0760b 100644 --- a/SRC/zunml2.f +++ b/SRC/zunml2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmr2.f b/SRC/zunmr2.f index b41e14ae..a91c16bb 100644 --- a/SRC/zunmr2.f +++ b/SRC/zunmr2.f @@ -151,7 +151,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -159,10 +159,10 @@ SUBROUTINE ZUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/SRC/zunmr3.f b/SRC/zunmr3.f index 921252d5..ab852f60 100644 --- a/SRC/zunmr3.f +++ b/SRC/zunmr3.f @@ -159,7 +159,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16OTHERcomputational * @@ -178,10 +178,10 @@ SUBROUTINE ZUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.4.0) -- +* -- LAPACK computational routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/TESTING/EIG/zchkec.f b/TESTING/EIG/zchkec.f index 86c9d1f5..913fb793 100644 --- a/TESTING/EIG/zchkec.f +++ b/TESTING/EIG/zchkec.f @@ -68,17 +68,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2011 +*> \date August 2012 * *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.4.0) -- +* -- LAPACK test routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2011 +* August 2012 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/TESTING/LIN/cchkaa.f b/TESTING/LIN/cchkaa.f index a2e4cfdd..f77d7837 100644 --- a/TESTING/LIN/cchkaa.f +++ b/TESTING/LIN/cchkaa.f @@ -101,17 +101,17 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date August 2012 * *> \ingroup complex_lin * * ===================================================================== PROGRAM CCHKAA * -* -- LAPACK test routine (version 3.4.1) -- +* -- LAPACK test routine (version 3.4.2) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 +* August 2012 * * ===================================================================== * |