diff options
author | julielangou <julie@cs.utk.edu> | 2016-07-10 08:59:56 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-07-10 08:59:56 -0700 |
commit | 28f0a3f1e1dffc1b3c5bc07ccff5b42dd81bb808 (patch) | |
tree | 2780c80119923ba687cccb702356f5fa7a5075ce /TESTING | |
parent | d177ffb1c16aaa08fb146a665add95d621fb2325 (diff) | |
parent | 9dafba6d415309f957edde1ce011e3ae646f9cbd (diff) |
Merge pull request #5 from hjmjohnson/RemoveEndOfLineSpaces
Remove end of line spaces
Diffstat (limited to 'TESTING')
1062 files changed, 10964 insertions, 10964 deletions
diff --git a/TESTING/CMakeLists.txt b/TESTING/CMakeLists.txt index 203ad517..b7e5db97 100644 --- a/TESTING/CMakeLists.txt +++ b/TESTING/CMakeLists.txt @@ -15,8 +15,8 @@ macro(add_lapack_test output input target) if(EXISTS "${TEST_INPUT}") add_test(NAME LAPACK-${testName} COMMAND "${CMAKE_COMMAND}" -DTEST=$<TARGET_FILE:${target}> - -DINPUT=${TEST_INPUT} - -DOUTPUT=${TEST_OUTPUT} + -DINPUT=${TEST_INPUT} + -DOUTPUT=${TEST_OUTPUT} -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") endif() diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt index 3e93990c..612bf1f3 100644 --- a/TESTING/EIG/CMakeLists.txt +++ b/TESTING/EIG/CMakeLists.txt @@ -33,23 +33,23 @@ # ######################################################################## -set(AEIGTST - alahdg.f - alasum.f - alasvm.f - alareq.f - ilaenv.f - xerbla.f - xlaenv.f +set(AEIGTST + alahdg.f + alasum.f + alasvm.f + alareq.f + ilaenv.f + xerbla.f + xlaenv.f chkxer.f) -set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f +set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f ssvdch.f ssvdct.f ssxt1.f) -set(SEIGTST schkee.f +set(SEIGTST schkee.f sbdt01.f sbdt02.f sbdt03.f sbdt04.f sbdt05.f - schkbb.f schkbd.f schkbk.f schkbl.f schkec.f - schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f + schkbb.f schkbd.f schkbk.f schkbl.f schkec.f + schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f sckcsd.f sckglm.f sckgqr.f sckgsv.f scklse.f scsdts.f sdrges.f sdrgev.f sdrges3.f sdrgev3.f sdrgsx.f sdrgvx.f sdrvbd.f sdrves.f sdrvev.f sdrvsg.f @@ -63,10 +63,10 @@ set(SEIGTST schkee.f sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f sstt22.f ssyt21.f ssyt22.f) -set(CEIGTST cchkee.f +set(CEIGTST cchkee.f cbdt01.f cbdt02.f cbdt03.f cbdt05.f - cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f - cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f + cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f + cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f cckcsd.f cckglm.f cckgqr.f cckgsv.f ccklse.f ccsdts.f cdrges.f cdrgev.f cdrges3.f cdrgev3.f cdrgsx.f cdrgvx.f cdrvbd.f cdrves.f cdrvev.f cdrvsg.f @@ -80,13 +80,13 @@ set(CEIGTST cchkee.f csgt01.f cslect.f cstt21.f cstt22.f cunt01.f cunt03.f) -set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f +set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f dsvdch.f dsvdct.f dsxt1.f) -set(DEIGTST dchkee.f - dbdt01.f dbdt02.f dbdt03.f dbdt04.f dbdt05.f - dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f - dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f +set(DEIGTST dchkee.f + dbdt01.f dbdt02.f dbdt03.f dbdt04.f dbdt05.f + dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f + dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f dckcsd.f dckglm.f dckgqr.f dckgsv.f dcklse.f dcsdts.f ddrges.f ddrgev.f ddrges3.f ddrgev3.f ddrgsx.f ddrgvx.f ddrvbd.f ddrves.f ddrvev.f ddrvsg.f @@ -100,10 +100,10 @@ set(DEIGTST dchkee.f dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f dstt22.f dsyt21.f dsyt22.f) -set(ZEIGTST zchkee.f - zbdt01.f zbdt02.f zbdt03.f zbdt05.f - zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f - zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f +set(ZEIGTST zchkee.f + zbdt01.f zbdt02.f zbdt03.f zbdt05.f + zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f + zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f zckcsd.f zckglm.f zckgqr.f zckgsv.f zcklse.f zcsdts.f zdrges.f zdrgev.f zdrges3.f zdrgev3.f zdrgsx.f zdrgvx.f zdrvbd.f zdrves.f zdrvev.f zdrvsg.f @@ -123,7 +123,7 @@ macro(add_eig_executable name ) endmacro(add_eig_executable) if (BUILD_SINGLE) -add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST} +add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST} ${SECOND_SRC} ) endif() @@ -133,7 +133,7 @@ add_eig_executable(xeigtstc ${CEIGTST} ${SCIGTST} ${AEIGTST} endif() if (BUILD_DOUBLE) -add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST} +add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST} ${DSECOND_SRC} ) endif() diff --git a/TESTING/EIG/alahdg.f b/TESTING/EIG/alahdg.f index 51959416..566ddb10 100644 --- a/TESTING/EIG/alahdg.f +++ b/TESTING/EIG/alahdg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAHDG( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alareq.f b/TESTING/EIG/alareq.f index 2da40772..566986f3 100644 --- a/TESTING/EIG/alareq.f +++ b/TESTING/EIG/alareq.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alarqg.f b/TESTING/EIG/alarqg.f index 3dbb7fd1..3eadd70a 100644 --- a/TESTING/EIG/alarqg.f +++ b/TESTING/EIG/alarqg.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alasmg.f b/TESTING/EIG/alasmg.f index 13c6aaeb..fafe0441 100644 --- a/TESTING/EIG/alasmg.f +++ b/TESTING/EIG/alasmg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alasum.f b/TESTING/EIG/alasum.f index e94604c9..2b91db7f 100644 --- a/TESTING/EIG/alasum.f +++ b/TESTING/EIG/alasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/alasvm.f b/TESTING/EIG/alasvm.f index 78b967c4..3b1550a4 100644 --- a/TESTING/EIG/alasvm.f +++ b/TESTING/EIG/alasvm.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt01.f b/TESTING/EIG/cbdt01.f index 39d7f694..423bef54 100644 --- a/TESTING/EIG/cbdt01.f +++ b/TESTING/EIG/cbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * REAL RESID @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), PT( LDPT, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt02.f b/TESTING/EIG/cbdt02.f index fcad0e93..5e743d52 100644 --- a/TESTING/EIG/cbdt02.f +++ b/TESTING/EIG/cbdt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * REAL RESID @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt03.f b/TESTING/EIG/cbdt03.f index 589ab8a8..b1cbcb92 100644 --- a/TESTING/EIG/cbdt03.f +++ b/TESTING/EIG/cbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * REAL D( * ), E( * ), S( * ) * COMPLEX U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index c01c9869..5358652a 100644 --- a/TESTING/EIG/cbdt05.f +++ b/TESTING/EIG/cbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * REAL RESID @@ -61,14 +61,14 @@ *> \param[in] S *> \verbatim *> S is REAL array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -110,17 +110,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/cchkbb.f b/TESTING/EIG/cchkbb.f index 158b470e..3aa18d93 100644 --- a/TESTING/EIG/cchkbb.f +++ b/TESTING/EIG/cchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -26,7 +26,7 @@ * $ CC( LDC, * ), P( LDP, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkbd.f b/TESTING/EIG/cchkbd.f index 1d85866d..27087fcb 100644 --- a/TESTING/EIG/cchkbd.f +++ b/TESTING/EIG/cchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * RWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ U( LDPT, * ), VT( LDPT, * ), WORK( * ), * $ X( LDX, * ), Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -400,10 +400,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -467,7 +467,7 @@ * .. * .. External Subroutines .. EXTERNAL ALASUM, CBDSQR, CBDT01, CBDT02, CBDT03, - $ CGEBRD, CGEMM, CLACPY, CLASET, CLATMR, + $ CGEBRD, CGEMM, CLACPY, CLASET, CLATMR, $ CLATMS, CUNGBR, CUNT01, SCOPY, SLABAD, $ SLAHD2, SSVDCH, XERBLA * .. diff --git a/TESTING/EIG/cchkbk.f b/TESTING/EIG/cchkbk.f index d1ad8967..b940b4ce 100644 --- a/TESTING/EIG/cchkbk.f +++ b/TESTING/EIG/cchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkbl.f b/TESTING/EIG/cchkbl.f index 9c6cb070..b0642360 100644 --- a/TESTING/EIG/cchkbl.f +++ b/TESTING/EIG/cchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkec.f b/TESTING/EIG/cchkec.f index b0b044b9..6d695b20 100644 --- a/TESTING/EIG/cchkec.f +++ b/TESTING/EIG/cchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkee.f b/TESTING/EIG/cchkee.f index edea33b6..d5f3f729 100644 --- a/TESTING/EIG/cchkee.f +++ b/TESTING/EIG/cchkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKEE -* +* * *> \par Purpose: * ============= @@ -1022,10 +1022,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -1071,7 +1071,7 @@ CHARACTER*80 LINE INTEGER I, I1, IC, INFO, ITMP, K, LENP, MAXTYP, NEWSD, $ NK, NN, NPARMS, NRHS, NTYPES, - $ VERS_MAJOR, VERS_MINOR, VERS_PATCH + $ VERS_MAJOR, VERS_MINOR, VERS_PATCH REAL EPS, S1, S2, THRESH, THRSHN * .. * .. Local Arrays .. @@ -1252,7 +1252,7 @@ WRITE( NOUT, FMT = 9992 )PATH GO TO 380 END IF - CALL ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) + CALL ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) WRITE( NOUT, FMT = 9972 ) VERS_MAJOR, VERS_MINOR, VERS_PATCH WRITE( NOUT, FMT = 9984 ) * @@ -1866,7 +1866,7 @@ $ DR( 1, 7 ), DR( 1, 8 ), DR( 1, 9 ), $ DR( 1, 10 ), DR( 1, 11 ), A( 1, 3 ), NMAX, $ A( 1, 4 ), A( 1, 5 ), DC( 1, 1 ), A( 1, 6 ), - $ WORK, LWORK, RWORK, LWORK, IWORK, LIWORK, + $ WORK, LWORK, RWORK, LWORK, IWORK, LIWORK, $ RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'CCHKST', INFO @@ -2155,9 +2155,9 @@ * IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'CDRGES', INFO -* +* * Blocked version -* +* CALL XLAENV(16,2) CALL CDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2222,9 +2222,9 @@ $ RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'CDRGEV', INFO -* +* * Blocked version -* +* CALL XLAENV(16,2) CALL CDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2463,7 +2463,7 @@ 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver CGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/TESTING/EIG/cchkgg.f b/TESTING/EIG/cchkgg.f index 400d5b2e..55e9d82b 100644 --- a/TESTING/EIG/cchkgg.f +++ b/TESTING/EIG/cchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, * ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, * RWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ T( LDA, * ), U( LDU, * ), V( LDU, * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -487,10 +487,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cchkgk.f b/TESTING/EIG/cchkgk.f index cb8ca7dc..004bb230 100644 --- a/TESTING/EIG/cchkgk.f +++ b/TESTING/EIG/cchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkgl.f b/TESTING/EIG/cchkgl.f index 95cb9433..9ab7bd7b 100644 --- a/TESTING/EIG/cchkgl.f +++ b/TESTING/EIG/cchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkhb.f b/TESTING/EIG/cchkhb.f index a05d4344..d7e14f98 100644 --- a/TESTING/EIG/cchkhb.f +++ b/TESTING/EIG/cchkhb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkhs.f b/TESTING/EIG/cchkhs.f index 2f9f634b..d3c73394 100644 --- a/TESTING/EIG/cchkhs.f +++ b/TESTING/EIG/cchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, * WORK, NWORK, RWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -29,7 +29,7 @@ * $ UU( LDU, * ), UZ( LDU, * ), W1( * ), W3( * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cchkst.f b/TESTING/EIG/cchkst.f index b34b1271..c41854a6 100644 --- a/TESTING/EIG/cchkst.f +++ b/TESTING/EIG/cchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -28,7 +28,7 @@ * COMPLEX A( LDA, * ), AP( * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), VP( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -519,7 +519,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -588,10 +588,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckcsd.f b/TESTING/EIG/cckcsd.f index a4146c74..eb252c5e 100644 --- a/TESTING/EIG/cckcsd.f +++ b/TESTING/EIG/cckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckglm.f b/TESTING/EIG/cckglm.f index 24db1f87..7c22a5ce 100644 --- a/TESTING/EIG/cckglm.f +++ b/TESTING/EIG/cckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckgqr.f b/TESTING/EIG/cckgqr.f index b2d2e3fe..6778caf7 100644 --- a/TESTING/EIG/cckgqr.f +++ b/TESTING/EIG/cckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * REAL THRESH @@ -23,7 +23,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), TAUA( * ), * $ TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cckgsv.f b/TESTING/EIG/cckgsv.f index 48e36ebd..9d6118e2 100644 --- a/TESTING/EIG/cckgsv.f +++ b/TESTING/EIG/cckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), Q( * ), * $ R( * ), U( * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/ccklse.f b/TESTING/EIG/ccklse.f index 7196b31d..3b37bb1d 100644 --- a/TESTING/EIG/ccklse.f +++ b/TESTING/EIG/ccklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * COMPLEX A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ccsdts.f b/TESTING/EIG/ccsdts.f index b47097bd..e68582b2 100644 --- a/TESTING/EIG/ccsdts.f +++ b/TESTING/EIG/ccsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -280,7 +280,7 @@ CALL CHERK( 'Upper', 'Conjugate transpose', M, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ CLANGE( '1', M, M, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -446,7 +446,7 @@ CALL CHERK( 'Upper', 'Conjugate transpose', Q, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ CLANGE( '1', Q, Q, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -553,7 +553,7 @@ END DO * RETURN -* +* * End of CCSDTS * END diff --git a/TESTING/EIG/cdrges.f b/TESTING/EIG/cdrges.f index 67f83fae..c854b901 100644 --- a/TESTING/EIG/cdrges.f +++ b/TESTING/EIG/cdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, * BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH @@ -24,7 +24,7 @@ * $ BETA( * ), Q( LDQ, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -367,10 +367,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrgev.f b/TESTING/EIG/cdrgev.f index fcee8011..1b6c136d 100644 --- a/TESTING/EIG/cdrgev.f +++ b/TESTING/EIG/cdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ Q( LDQ, * ), QE( LDQE, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrgsx.f b/TESTING/EIG/cdrgsx.f index 54a407f8..e0f27deb 100644 --- a/TESTING/EIG/cdrgsx.f +++ b/TESTING/EIG/cdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, * AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, * LWORK, RWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -26,7 +26,7 @@ * $ C( LDC, * ), Q( LDA, * ), WORK( * ), * $ Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrgvx.f b/TESTING/EIG/cdrgvx.f index 1e6d8bdc..3849d0fa 100644 --- a/TESTING/EIG/cdrgvx.f +++ b/TESTING/EIG/cdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, * S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -28,7 +28,7 @@ * $ B( LDA, * ), BETA( * ), BI( LDA, * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -205,32 +205,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] STRU +*> \param[out] STRU *> \verbatim *> STRU is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is REAL array, dimension (N) *> \endverbatim @@ -283,10 +283,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrvbd.f b/TESTING/EIG/cdrvbd.f index bd8a263a..6ee172e9 100644 --- a/TESTING/EIG/cdrvbd.f +++ b/TESTING/EIG/cdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ USAV( LDU, * ), VT( LDVT, * ), * $ VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,7 +132,7 @@ *> *> (7) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for CGESVDX( 'V', 'V', 'I' ) *> *> (8) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -140,7 +140,7 @@ *> (9) | I - U'U | / ( M ulp ) *> *> (10) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for CGESVDX( 'V', 'V', 'V' ) *> *> (11) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -428,7 +428,7 @@ $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, $ NTESTF, NTESTT, LRWORK - REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, + REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, $ UNFL, VL, VU * .. * .. Local Arrays .. @@ -858,7 +858,7 @@ CALL CLACPY( 'F', M, N, ASAV, LDA, USAV, LDA ) SRNAMT = 'CGESVJ' CALL CGESVJ( 'G', 'U', 'V', M, N, USAV, LDA, SSAV, - & 0, A, LDVT, WORK, LWORK, RWORK, + & 0, A, LDVT, WORK, LWORK, RWORK, & LRWORK, IINFO ) * * CGESVJ retuns V not VT, so we transpose to use the same @@ -920,7 +920,7 @@ SRNAMT = 'CGEJSV' CALL CGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', & M, N, VTSAV, LDA, SSAV, USAV, LDU, A, LDVT, - & WORK, LWORK, RWORK, + & WORK, LWORK, RWORK, & LRWORK, IWORK, IINFO ) * * CGEJSV retuns V not VT, so we transpose to use the same @@ -968,8 +968,8 @@ * CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + CALL CGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, $ VTSAV, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN @@ -1018,8 +1018,8 @@ RANGE = CJOBR( 1 ) CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, U, LDU, + CALL CGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) * @@ -1079,15 +1079,15 @@ IU = IL IL = ITEMP END IF - END IF + END IF CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, + CALL CGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1109,11 +1109,11 @@ * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1130,15 +1130,15 @@ ELSE VL = ZERO VU = ONE - END IF + END IF CALL CLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'CGESVDX' - CALL CGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, + CALL CGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1221,7 +1221,7 @@ $ ' decreasing order, else 1/ulp', $ / '12 = | U - Upartial | / ( M ulp )', $ / '13 = | VT - VTpartial | / ( N ulp )', - $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / ' CGESVJ: ', / $ / '15 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ) ', $ / '16 = | I - U**T U | / ( M ulp ) ', @@ -1231,7 +1231,7 @@ $ / ' CGESJV: ', / $ / '19 = | A - U diag(S) VT | / ( |A| max(M,N) ulp )', $ / '20 = | I - U**T U | / ( M ulp ) ', - $ / '21 = | I - VT VT**T | / ( N ulp ) ', + $ / '21 = | I - VT VT**T | / ( N ulp ) ', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ / ' CGESVDX(V,V,A): ', / @@ -1250,7 +1250,7 @@ $ / ' CGESVDX(V,V,V) ', $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp )', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/cdrves.f b/TESTING/EIG/cdrves.f index ccbf61ef..3dfc7cec 100644 --- a/TESTING/EIG/cdrves.f +++ b/TESTING/EIG/cdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, * WORK, NWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -23,7 +23,7 @@ * COMPLEX A( LDA, * ), H( LDA, * ), HT( LDA, * ), * $ VS( LDVS, * ), W( * ), WORK( * ), WT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -364,10 +364,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrvev.f b/TESTING/EIG/cdrvev.f index 92aaf35f..2746b1ac 100644 --- a/TESTING/EIG/cdrvev.f +++ b/TESTING/EIG/cdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, * LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -26,7 +26,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -376,10 +376,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cdrvsg.f b/TESTING/EIG/cdrvsg.f index 74ff1f82..f6cd769d 100644 --- a/TESTING/EIG/cdrvsg.f +++ b/TESTING/EIG/cdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -26,7 +26,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cdrvst.f b/TESTING/EIG/cdrvst.f index 6ee38e0b..9a688d30 100644 --- a/TESTING/EIG/cdrvst.f +++ b/TESTING/EIG/cdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, * LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cdrvsx.f b/TESTING/EIG/cdrvsx.f index f2979da8..0739b95d 100644 --- a/TESTING/EIG/cdrvsx.f +++ b/TESTING/EIG/cdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, * LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -420,10 +420,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cdrvvx.f b/TESTING/EIG/cdrvvx.f index 265df145..175a3ba2 100644 --- a/TESTING/EIG/cdrvvx.f +++ b/TESTING/EIG/cdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, NWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -480,10 +480,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cerrbd.f b/TESTING/EIG/cerrbd.f index 35b389f1..2370b888 100644 --- a/TESTING/EIG/cerrbd.f +++ b/TESTING/EIG/cerrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cerrec.f b/TESTING/EIG/cerrec.f index e50484a2..90ada2f7 100644 --- a/TESTING/EIG/cerrec.f +++ b/TESTING/EIG/cerrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cerred.f b/TESTING/EIG/cerred.f index 578d9f1f..1f339590 100644 --- a/TESTING/EIG/cerred.f +++ b/TESTING/EIG/cerred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -441,51 +441,51 @@ * SRNAMT = 'CGESVDX' INFOT = 1 - CALL CGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL CGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL CGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL CGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL CGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL CGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL CGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL CGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL CGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL CGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/cerrgg.f b/TESTING/EIG/cerrgg.f index 100bd82d..42a126b0 100644 --- a/TESTING/EIG/cerrgg.f +++ b/TESTING/EIG/cerrgg.f @@ -22,7 +22,7 @@ *> \verbatim *> *> CERRGG tests the error exits for CGGES, CGGESX, CGGEV, CGGEVX, -*> CGGES3, CGGEV3, CGGGLM, CGGHRD, CGGLSE, CGGQRF, CGGRQF, +*> CGGES3, CGGEV3, CGGGLM, CGGHRD, CGGLSE, CGGQRF, CGGRQF, *> CGGSVD3, CGGSVP3, CHGEQZ, CTGEVC, CTGEXC, CTGSEN, CTGSJA, *> CTGSNA, CTGSYL, and CUNCSD. *> \endverbatim diff --git a/TESTING/EIG/cerrhs.f b/TESTING/EIG/cerrhs.f index 5203ba01..491c39dc 100644 --- a/TESTING/EIG/cerrhs.f +++ b/TESTING/EIG/cerrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cerrst.f b/TESTING/EIG/cerrst.f index 99b7ef31..14e4bfbe 100644 --- a/TESTING/EIG/cerrst.f +++ b/TESTING/EIG/cerrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget02.f b/TESTING/EIG/cget02.f index 0e0541df..3e46ac66 100644 --- a/TESTING/EIG/cget02.f +++ b/TESTING/EIG/cget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget10.f b/TESTING/EIG/cget10.f index 0f86aefe..0d8d445a 100644 --- a/TESTING/EIG/cget10.f +++ b/TESTING/EIG/cget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * REAL RESULT @@ -18,7 +18,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget22.f b/TESTING/EIG/cget22.f index c34c2fe2..c419c00f 100644 --- a/TESTING/EIG/cget22.f +++ b/TESTING/EIG/cget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * REAL RESULT( 2 ), RWORK( * ) * COMPLEX A( LDA, * ), E( LDE, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget23.f b/TESTING/EIG/cget23.f index b295acba..c30655c1 100644 --- a/TESTING/EIG/cget23.f +++ b/TESTING/EIG/cget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -31,7 +31,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -352,10 +352,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget24.f b/TESTING/EIG/cget24.f index ddb3d921..8a7f0c83 100644 --- a/TESTING/EIG/cget24.f +++ b/TESTING/EIG/cget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, * RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, ISRT, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, @@ -27,7 +27,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -320,10 +320,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget35.f b/TESTING/EIG/cget35.f index fe24b8c1..64047a4d 100644 --- a/TESTING/EIG/cget35.f +++ b/TESTING/EIG/cget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget36.f b/TESTING/EIG/cget36.f index 8e8dcf55..621f91d3 100644 --- a/TESTING/EIG/cget36.f +++ b/TESTING/EIG/cget36.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget37.f b/TESTING/EIG/cget37.f index 71467bf4..f75b4e02 100644 --- a/TESTING/EIG/cget37.f +++ b/TESTING/EIG/cget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget38.f b/TESTING/EIG/cget38.f index be94c1d8..76c21cc2 100644 --- a/TESTING/EIG/cget38.f +++ b/TESTING/EIG/cget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget51.f b/TESTING/EIG/cget51.f index 21689473..eb5d59d1 100644 --- a/TESTING/EIG/cget51.f +++ b/TESTING/EIG/cget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget52.f b/TESTING/EIG/cget52.f index fd558cd6..15eff0f0 100644 --- a/TESTING/EIG/cget52.f +++ b/TESTING/EIG/cget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), E( LDE, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> if a(i)=b(i)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cget54.f b/TESTING/EIG/cget54.f index a16848fc..481c8bf1 100644 --- a/TESTING/EIG/cget54.f +++ b/TESTING/EIG/cget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cglmts.f b/TESTING/EIG/cglmts.f index dc575941..6902fe09 100644 --- a/TESTING/EIG/cglmts.f +++ b/TESTING/EIG/cglmts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, * X, U, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * REAL RESULT @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), D( * ), DF( * ), U( * ), * $ WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cgqrts.f b/TESTING/EIG/cgqrts.f index db23db75..f9068058 100644 --- a/TESTING/EIG/cgqrts.f +++ b/TESTING/EIG/cgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), Z( LDB, * ), BWK( LDB, * ), * $ TAUA( * ), TAUB( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cgrqts.f b/TESTING/EIG/cgrqts.f index 7c56c6e3..8a21ed3c 100644 --- a/TESTING/EIG/cgrqts.f +++ b/TESTING/EIG/cgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), Z( LDB, * ), BWK( LDB, * ), * $ TAUA( * ), TAUB( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cgsvts3.f b/TESTING/EIG/cgsvts3.f index db57a0bc..8f5b3a66 100644 --- a/TESTING/EIG/cgsvts3.f +++ b/TESTING/EIG/cgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -22,7 +22,7 @@ * $ BF( LDB, * ), Q( LDQ, * ), R( LDR, * ), * $ U( LDU, * ), V( LDV, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/chbt21.f b/TESTING/EIG/chbt21.f index badb6052..a76bd547 100644 --- a/TESTING/EIG/chbt21.f +++ b/TESTING/EIG/chbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * REAL D( * ), E( * ), RESULT( 2 ), RWORK( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chet21.f b/TESTING/EIG/chet21.f index 976f19ff..5fb2eb4f 100644 --- a/TESTING/EIG/chet21.f +++ b/TESTING/EIG/chet21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chet22.f b/TESTING/EIG/chet22.f index 7b671694..2a917335 100644 --- a/TESTING/EIG/chet22.f +++ b/TESTING/EIG/chet22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chkxer.f b/TESTING/EIG/chkxer.f index eb187def..6faeb3c8 100644 --- a/TESTING/EIG/chkxer.f +++ b/TESTING/EIG/chkxer.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) -* +* * .. Scalar Arguments .. * LOGICAL LERR, OK * CHARACTER*(*) SRNAMT @@ -29,10 +29,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chpt21.f b/TESTING/EIG/chpt21.f index 00456e02..dd8a75ba 100644 --- a/TESTING/EIG/chpt21.f +++ b/TESTING/EIG/chpt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -20,7 +20,7 @@ * COMPLEX AP( * ), TAU( * ), U( LDU, * ), VP( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/chst01.f b/TESTING/EIG/chst01.f index 0f5f8702..131c13da 100644 --- a/TESTING/EIG/chst01.f +++ b/TESTING/EIG/chst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clarfy.f b/TESTING/EIG/clarfy.f index da74f569..572a4723 100644 --- a/TESTING/EIG/clarfy.f +++ b/TESTING/EIG/clarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clarhs.f b/TESTING/EIG/clarhs.f index 3bcba272..cbc26864 100644 --- a/TESTING/EIG/clarhs.f +++ b/TESTING/EIG/clarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clatm4.f b/TESTING/EIG/clatm4.f index 56378ef4..2f8c1dc5 100644 --- a/TESTING/EIG/clatm4.f +++ b/TESTING/EIG/clatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * LOGICAL RSIGN * INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clctes.f b/TESTING/EIG/clctes.f index 5b66c539..f008b327 100644 --- a/TESTING/EIG/clctes.f +++ b/TESTING/EIG/clctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CLCTES( Z, D ) -* +* * .. Scalar Arguments .. * COMPLEX D, Z * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/clctsx.f b/TESTING/EIG/clctsx.f index 047b46de..928aa786 100644 --- a/TESTING/EIG/clctsx.f +++ b/TESTING/EIG/clctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) -* +* * .. Scalar Arguments .. * COMPLEX ALPHA, BETA * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/clsets.f b/TESTING/EIG/clsets.f index 91fc4850..868153e7 100644 --- a/TESTING/EIG/clsets.f +++ b/TESTING/EIG/clsets.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, * D, DF, X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), C( * ), D( * ), CF( * ), * $ DF( * ), WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/csbmv.f b/TESTING/EIG/csbmv.f index 7a9033e6..8ae32a57 100644 --- a/TESTING/EIG/csbmv.f +++ b/TESTING/EIG/csbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/csgt01.f b/TESTING/EIG/csgt01.f index 0dd0ad69..5bb65493 100644 --- a/TESTING/EIG/csgt01.f +++ b/TESTING/EIG/csgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cslect.f b/TESTING/EIG/cslect.f index 8c80e7af..f4bbdfd2 100644 --- a/TESTING/EIG/cslect.f +++ b/TESTING/EIG/cslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CSLECT( Z ) -* +* * .. Scalar Arguments .. * COMPLEX Z * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/cstt21.f b/TESTING/EIG/cstt21.f index c1320fed..802b09d5 100644 --- a/TESTING/EIG/cstt21.f +++ b/TESTING/EIG/cstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cstt22.f b/TESTING/EIG/cstt22.f index dca37f64..880f449d 100644 --- a/TESTING/EIG/cstt22.f +++ b/TESTING/EIG/cstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cunt01.f b/TESTING/EIG/cunt01.f index 7c6d56ab..e1683ff7 100644 --- a/TESTING/EIG/cunt01.f +++ b/TESTING/EIG/cunt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/cunt03.f b/TESTING/EIG/cunt03.f index a0dc7e4c..9dc21637 100644 --- a/TESTING/EIG/cunt03.f +++ b/TESTING/EIG/cunt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt01.f b/TESTING/EIG/dbdt01.f index c9d23a02..90b35b6e 100644 --- a/TESTING/EIG/dbdt01.f +++ b/TESTING/EIG/dbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt02.f b/TESTING/EIG/dbdt02.f index 3c3ad98c..429096bb 100644 --- a/TESTING/EIG/dbdt02.f +++ b/TESTING/EIG/dbdt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * DOUBLE PRECISION RESID @@ -18,7 +18,7 @@ * DOUBLE PRECISION B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt03.f b/TESTING/EIG/dbdt03.f index 7ad2ac43..19beac6e 100644 --- a/TESTING/EIG/dbdt03.f +++ b/TESTING/EIG/dbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt04.f b/TESTING/EIG/dbdt04.f index f90e121d..43db0ae8 100644 --- a/TESTING/EIG/dbdt04.f +++ b/TESTING/EIG/dbdt04.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, +* SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDU, LDVT, N, NS @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,14 +68,14 @@ *> \param[in] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dbdt05.f b/TESTING/EIG/dbdt05.f index ef5a2cbc..4ab86d0c 100644 --- a/TESTING/EIG/dbdt05.f +++ b/TESTING/EIG/dbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,14 +62,14 @@ *> \param[in] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -111,17 +111,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/dchkbb.f b/TESTING/EIG/dchkbb.f index 47cdc570..f81c7751 100644 --- a/TESTING/EIG/dchkbb.f +++ b/TESTING/EIG/dchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -25,7 +25,7 @@ * $ C( LDC, * ), CC( LDC, * ), P( LDP, * ), * $ Q( LDQ, * ), RESULT( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -340,10 +340,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index b093e871..4c1f5af2 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ VT( LDPT, * ), WORK( * ), X( LDX, * ), * $ Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,7 +64,7 @@ *> singular vectors are not computed. *> *> DBDSVDX computes the singular value decomposition of the bidiagonal -*> matrix B as B = U S V' using bisection and inverse iteration. It is +*> matrix B as B = U S V' using bisection and inverse iteration. It is *> called six times to compute *> 1) B = U S1 V', RANGE='A', where S1 is the diagonal matrix of singular *> values and the columns of the matrices U and V are the left @@ -147,43 +147,43 @@ *> (19) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. *> Test DBDSVDX on bidiagonal matrix B -*> +*> *> (20) | B - U S1 VT | / ( |B| min(M,N) ulp ), VT = V' -*> +*> *> (21) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (22) | I - VT VT' | / ( min(M,N) ulp ) -*> +*> *> (23) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (24) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (25) | S1 - U' B VT' | / ( |S| n ulp ) DBDSVDX('V', 'I') -*> +*> *> (26) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (27) | I - VT VT' | / ( min(M,N) ulp ) *> *> (28) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (29) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (30) | S1 - U' B VT' | / ( |S1| n ulp ) DBDSVDX('V', 'V') -*> +*> *> (31) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (32) | I - VT VT' | / ( min(M,N) ulp ) *> *> (33) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (34) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> The possible matrix types are *> *> (1) The zero matrix. @@ -478,10 +478,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -525,18 +525,18 @@ LOGICAL BADMM, BADNN, BIDIAG CHARACTER UPLO CHARACTER*3 PATH - INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, + INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, $ IWBE, IWBS, IWBZ, IWWORK, J, JCOL, JSIZE, - $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, - $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, + $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, + $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, $ NS1, NS2, NTEST - DOUBLE PRECISION ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, - $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, - $ UNFL, VL, VU + DOUBLE PRECISION ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, + $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, + $ UNFL, VL, VU * .. * .. Local Arrays .. - INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), - $ KMAGN( MAXTYP ), KMODE( MAXTYP ), + INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), + $ KMAGN( MAXTYP ), KMODE( MAXTYP ), $ KTYPE( MAXTYP ) DOUBLE PRECISION DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. @@ -545,9 +545,9 @@ EXTERNAL DLAMCH, DLARND, DSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, + EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, $ DBDT02, DBDT03, DBDT04, DCOPY, DGEBRD, - $ DGEMM, DLABAD, DLACPY, DLAHD2, DLASET, + $ DGEMM, DLABAD, DLACPY, DLAHD2, DLASET, $ DLATMR, DLATMS, DORGBR, DORT01, XERBLA * .. * .. Intrinsic Functions .. @@ -1151,10 +1151,10 @@ $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL DBDSVDX( UPLO, 'V', 'A', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) -* +* * Check error code from DBDSVDX. * IF( IINFO.NE.0 ) THEN @@ -1190,17 +1190,17 @@ * CALL DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) - $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) -* + $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) +* CALL DBDSVDX( UPLO, 'N', 'A', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'DBDSVDX(values,A)', IINFO, + WRITE( NOUT, FMT = 9998 )'DBDSVDX(values,A)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1224,11 +1224,11 @@ * CALL DBDT03( UPLO, MNMIN, 1, BD, BE, U, LDPT, S1, VT, $ LDPT, WORK( IWBS+MNMIN ), RESULT( 20 ) ) - CALL DORT01( 'Columns', MNMIN, MNMIN, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL DORT01( 'Columns', MNMIN, MNMIN, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 21 ) ) - CALL DORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL DORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 22) ) * RESULT( 23 ) = ZERO @@ -1272,14 +1272,14 @@ IL = ITEMP END IF END IF -* +* CALL DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL DBDSVDX( UPLO, 'V', 'I', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) * * Check error code from DBDSVDX. @@ -1313,7 +1313,7 @@ * CALL DBDSVDX( UPLO, 'N', 'I', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. @@ -1337,13 +1337,13 @@ * non-increasing order and are non-negative * 29: Compare DBDSVDX with and without singular vectors * - CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 25 ) ) - CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 26 ) ) - CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 27 ) ) * @@ -1368,8 +1368,8 @@ 230 CONTINUE RESULT( 29 ) = TEMP2 * -* Use DBDSVDX with RANGE='V': determine the values VL and VU -* of the IL-th and IU-th singular values and ask for all +* Use DBDSVDX with RANGE='V': determine the values VL and VU +* of the IL-th and IU-th singular values and ask for all * singular values in this range. * CALL DCOPY( MNMIN, WORK( IWBS ), 1, S1, 1 ) @@ -1395,21 +1395,21 @@ ELSE VL = ZERO VU = ONE - END IF -* + END IF +* CALL DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL DCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL DBDSVDX( UPLO, 'V', 'V', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'DBDSVDX(vects,V)', IINFO, + WRITE( NOUT, FMT = 9998 )'DBDSVDX(vects,V)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1437,7 +1437,7 @@ * CALL DBDSVDX( UPLO, 'N', 'V', MNMIN, WORK( IWBD ), $ WORK( IWBE ), VL, VU, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from DBDSVDX. @@ -1461,13 +1461,13 @@ * non-increasing order and are non-negative * 34: Compare DBDSVDX with and without singular vectors * - CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL DBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 30 ) ) - CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, + CALL DORT01( 'Columns', MNMIN, NS1, U, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 31 ) ) - CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL DORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 32 ) ) * diff --git a/TESTING/EIG/dchkbk.f b/TESTING/EIG/dchkbk.f index 1d61fde6..71b057b5 100644 --- a/TESTING/EIG/dchkbk.f +++ b/TESTING/EIG/dchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkbl.f b/TESTING/EIG/dchkbl.f index bb10fd54..b0f6e432 100644 --- a/TESTING/EIG/dchkbl.f +++ b/TESTING/EIG/dchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkec.f b/TESTING/EIG/dchkec.f index 1681215e..d6c32416 100644 --- a/TESTING/EIG/dchkec.f +++ b/TESTING/EIG/dchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkgg.f b/TESTING/EIG/dchkgg.f index 3848e7c9..120ba621 100644 --- a/TESTING/EIG/dchkgg.f +++ b/TESTING/EIG/dchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, * BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, * WORK, LWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ U( LDU, * ), V( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -495,10 +495,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/dchkgk.f b/TESTING/EIG/dchkgk.f index 1f827a53..9375b92c 100644 --- a/TESTING/EIG/dchkgk.f +++ b/TESTING/EIG/dchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkgl.f b/TESTING/EIG/dchkgl.f index aebc7183..efeae19c 100644 --- a/TESTING/EIG/dchkgl.f +++ b/TESTING/EIG/dchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkhs.f b/TESTING/EIG/dchkhs.f index 928856b8..d4ae8062 100644 --- a/TESTING/EIG/dchkhs.f +++ b/TESTING/EIG/dchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, EVECTY, * EVECTX, UU, TAU, WORK, NWORK, IWORK, SELECT, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -29,7 +29,7 @@ * $ WI1( * ), WI2( * ), WI3( * ), WORK( * ), * $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/dchksb.f b/TESTING/EIG/dchksb.f index b4ba2a89..d661400b 100644 --- a/TESTING/EIG/dchksb.f +++ b/TESTING/EIG/dchksb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( LDA, * ), RESULT( * ), SD( * ), SE( * ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dchkst.f b/TESTING/EIG/dchkst.f index ec90e136..601e21f5 100644 --- a/TESTING/EIG/dchkst.f +++ b/TESTING/EIG/dchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ V( LDU, * ), VP( * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), WR( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -518,7 +518,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -576,10 +576,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckcsd.f b/TESTING/EIG/dckcsd.f index 219ebafc..a0ffdda4 100644 --- a/TESTING/EIG/dckcsd.f +++ b/TESTING/EIG/dckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckglm.f b/TESTING/EIG/dckglm.f index 2b2a9295..e70045bb 100644 --- a/TESTING/EIG/dckglm.f +++ b/TESTING/EIG/dckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckgqr.f b/TESTING/EIG/dckgqr.f index 595aed97..626f6da9 100644 --- a/TESTING/EIG/dckgqr.f +++ b/TESTING/EIG/dckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), * $ RWORK( * ), TAUA( * ), TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dckgsv.f b/TESTING/EIG/dckgsv.f index 1ef805ad..da9e240f 100644 --- a/TESTING/EIG/dckgsv.f +++ b/TESTING/EIG/dckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ BF( * ), Q( * ), R( * ), RWORK( * ), U( * ), * $ V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/dcklse.f b/TESTING/EIG/dcklse.f index a9853c46..36cbe44d 100644 --- a/TESTING/EIG/dcklse.f +++ b/TESTING/EIG/dcklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dcsdts.f b/TESTING/EIG/dcsdts.f index 528092a1..7ca2b153 100644 --- a/TESTING/EIG/dcsdts.f +++ b/TESTING/EIG/dcsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ CALL DSYRK( 'Upper', 'Conjugate transpose', M, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ DLANGE( '1', M, M, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -445,7 +445,7 @@ CALL DSYRK( 'Upper', 'Conjugate transpose', Q, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF( M.GT.0 ) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ DLANGE( '1', Q, Q, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -551,7 +551,7 @@ END DO * RETURN -* +* * End of DCSDTS * END diff --git a/TESTING/EIG/ddrges.f b/TESTING/EIG/ddrges.f index c4b83e59..22982fde 100644 --- a/TESTING/EIG/ddrges.f +++ b/TESTING/EIG/ddrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, * ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH @@ -25,7 +25,7 @@ * $ RESULT( 13 ), S( LDA, * ), T( LDA, * ), * $ WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -388,10 +388,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrgev.f b/TESTING/EIG/ddrgev.f index e4d48362..7c3ae8cf 100644 --- a/TESTING/EIG/ddrgev.f +++ b/TESTING/EIG/ddrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, * WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ QE( LDQE, * ), RESULT( * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -393,10 +393,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrgsx.f b/TESTING/EIG/ddrgsx.f index aca715e9..c0ecdf49 100644 --- a/TESTING/EIG/ddrgsx.f +++ b/TESTING/EIG/ddrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, * BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, * WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -25,7 +25,7 @@ * $ BI( LDA, * ), C( LDC, * ), Q( LDA, * ), S( * ), * $ WORK( * ), Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrgvx.f b/TESTING/EIG/ddrgvx.f index 970a3ccd..046f1a38 100644 --- a/TESTING/EIG/ddrgvx.f +++ b/TESTING/EIG/ddrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, * RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -27,7 +27,7 @@ * $ LSCALE( * ), RESULT( 4 ), RSCALE( * ), S( * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,32 +212,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DTRU +*> \param[out] DTRU *> \verbatim *> DTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/EIG/ddrvbd.f b/TESTING/EIG/ddrvbd.f index fbe26a5d..16e60d05 100644 --- a/TESTING/EIG/ddrvbd.f +++ b/TESTING/EIG/ddrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, * $ NTYPES @@ -24,7 +24,7 @@ * $ SSAV( * ), U( LDU, * ), USAV( LDU, * ), * $ VT( LDVT, * ), VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,7 +131,7 @@ *> *> (29) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for DGESVDX( 'V', 'V', 'I' ) *> *> (30) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -139,7 +139,7 @@ *> (31) | I - U'U | / ( M ulp ) *> *> (32) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for DGESVDX( 'V', 'V', 'V' ) *> *> (33) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -386,16 +386,16 @@ LOGICAL BADMM, BADNN CHARACTER JOBQ, JOBU, JOBVT, RANGE CHARACTER*3 PATH - INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, - $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, - $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, + INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, + $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, + $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, $ NMAX, NS, NSI, NSV, NTEST - DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, + DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, $ ULPINV, UNFL, VL, VU * .. * .. Local Arrays .. CHARACTER CJOB( 4 ), CJOBR( 3 ), CJOBV( 2 ) - INTEGER IOLDSD( 4 ), ISEED2( 4 ) + INTEGER IOLDSD( 4 ), ISEED2( 4 ) DOUBLE PRECISION RESULT( 40 ) * .. * .. External Functions .. @@ -403,7 +403,7 @@ EXTERNAL DLAMCH, DLARND * .. * .. External Subroutines .. - EXTERNAL ALASVM, DBDT01, DGEJSV, DGESDD, DGESVD, + EXTERNAL ALASVM, DBDT01, DGEJSV, DGESDD, DGESVD, $ DGESVDX, DGESVJ, DLABAD, DLACPY, DLASET, $ DLATMS, DORT01, DORT03, XERBLA * .. @@ -904,12 +904,12 @@ * Test DGESVDX * CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, - $ VTSAV, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + $ VTSAV, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -953,11 +953,11 @@ JOBVT = CJOBV( IJVT+1 ) RANGE = CJOBR( 1 ) CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, - $ VL, VU, IL, IU, NS, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, + $ VL, VU, IL, IU, NS, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) -* +* * Compare U * DIF = ZERO @@ -976,7 +976,7 @@ IF( M.GT.0 .AND. N.GT.0 ) THEN IF( IJVT.EQ.1 ) THEN CALL DORT03( 'R', N, MNMIN, N, MNMIN, VTSAV, - $ LDVT, VT, LDVT, WORK, LWORK, + $ LDVT, VT, LDVT, WORK, LWORK, $ DIF, IINFO ) END IF END IF @@ -1013,14 +1013,14 @@ IU = IL IL = ITEMP END IF - END IF + END IF CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1040,11 +1040,11 @@ * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1061,14 +1061,14 @@ ELSE VL = ZERO VU = ONE - END IF + END IF CALL DLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL DGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL DGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1087,7 +1087,7 @@ * End of Loop -- Check for RESULT(j) > THRESH * DO 210 J = 1, 35 - IF( RESULT( J ).GE.THRESH ) THEN + IF( RESULT( J ).GE.THRESH ) THEN IF( NFAIL.EQ.0 ) THEN WRITE( NOUT, FMT = 9999 ) WRITE( NOUT, FMT = 9998 ) @@ -1138,7 +1138,7 @@ $ ' decreasing order, else 1/ulp', $ / '19 = | U - Upartial | / ( M ulp )', $ / '20 = | VT - VTpartial | / ( N ulp )', - $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ / '23 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ),', @@ -1157,7 +1157,7 @@ $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp ),', $ ' DGESVDX(V,V,V) ', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/ddrves.f b/TESTING/EIG/ddrves.f index 7275fe2a..2e6405a5 100644 --- a/TESTING/EIG/ddrves.f +++ b/TESTING/EIG/ddrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, * LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ RESULT( 13 ), VS( LDVS, * ), WI( * ), WIT( * ), * $ WORK( * ), WR( * ), WRT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrvev.f b/TESTING/EIG/ddrvev.f index 8b5fc3ef..3534fadb 100644 --- a/TESTING/EIG/ddrvev.f +++ b/TESTING/EIG/ddrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, * VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -25,7 +25,7 @@ * $ RESULT( 7 ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -391,10 +391,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ddrvsg.f b/TESTING/EIG/ddrvsg.f index 9f89d383..1a8b6a86 100644 --- a/TESTING/EIG/ddrvsg.f +++ b/TESTING/EIG/ddrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -24,7 +24,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), D( * ), * $ RESULT( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ddrvst.f b/TESTING/EIG/ddrvst.f index ebe04b1c..de57daa1 100644 --- a/TESTING/EIG/ddrvst.f +++ b/TESTING/EIG/ddrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, * WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ U( LDU, * ), V( LDU, * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -438,10 +438,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ddrvsx.f b/TESTING/EIG/ddrvsx.f index 66df9339..5d8a3d2a 100644 --- a/TESTING/EIG/ddrvsx.f +++ b/TESTING/EIG/ddrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, * WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, * LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -439,10 +439,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/ddrvvx.f b/TESTING/EIG/ddrvvx.f index 85ad6247..87d36c2a 100644 --- a/TESTING/EIG/ddrvvx.f +++ b/TESTING/EIG/ddrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, * RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, * RESULT, WORK, NWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -29,7 +29,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -505,10 +505,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/derrbd.f b/TESTING/EIG/derrbd.f index 6d47bd86..39c720b0 100644 --- a/TESTING/EIG/derrbd.f +++ b/TESTING/EIG/derrbd.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> DERRBD tests the error exits for DGEBD2, DGEBRD, DORGBR, DORMBR, +*> DERRBD tests the error exits for DGEBD2, DGEBRD, DORGBR, DORMBR, *> DBDSQR, DBDSDC and DBDSVDX. *> \endverbatim * @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -80,8 +80,8 @@ * .. Local Arrays .. INTEGER IQ( NMAX, NMAX ), IW( NMAX ) DOUBLE PRECISION A( NMAX, NMAX ), D( NMAX ), E( NMAX ), - $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), - $ TQ( NMAX ), U( NMAX, NMAX ), + $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), + $ TQ( NMAX ), U( NMAX, NMAX ), $ V( NMAX, NMAX ), W( LW ) * .. * .. External Functions .. @@ -309,51 +309,51 @@ * SRNAMT = 'DBDSVDX' INFOT = 1 - CALL DBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL DBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, + CALL DBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, + CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, + CALL DBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, + CALL DBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, + CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, + CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, + CALL DBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 0, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL DBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 2, W, IW, INFO) CALL CHKXER( 'DBDSVDX', INFOT, NOUT, LERR, OK ) NT = NT + 12 diff --git a/TESTING/EIG/derrec.f b/TESTING/EIG/derrec.f index 428fb49f..9fc539c8 100644 --- a/TESTING/EIG/derrec.f +++ b/TESTING/EIG/derrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index c5bf6ea4..77592e56 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -432,51 +432,51 @@ * SRNAMT = 'DGESVDX' INFOT = 1 - CALL DGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL DGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL DGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL DGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL DGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL DGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL DGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL DGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL DGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/derrgg.f b/TESTING/EIG/derrgg.f index 4edd472d..0ee7b79a 100644 --- a/TESTING/EIG/derrgg.f +++ b/TESTING/EIG/derrgg.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGG( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -547,56 +547,56 @@ $ -1, 0, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, -1, 0, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, -1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, -1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, -1, A, 1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, -1, A, 1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 24 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, -1, A, - $ 1, W, LW, IW, INFO ) + $ 1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) INFOT = 26 CALL DORCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', $ 1, 1, 1, A, 1, A, $ 1, A, 1, A, 1, A, $ A, 1, A, 1, A, 1, A, - $ -1, W, LW, IW, INFO ) + $ -1, W, LW, IW, INFO ) CALL CHKXER( 'DORCSD', INFOT, NOUT, LERR, OK ) NT = NT + 8 * @@ -869,7 +869,7 @@ $ 1, INFO ) CALL CHKXER( 'DGGEV ', INFOT, NOUT, LERR, OK ) NT = NT + 10 -* +* * DGGEV3 * SRNAMT = 'DGGEV3 ' diff --git a/TESTING/EIG/derrhs.f b/TESTING/EIG/derrhs.f index b67082bf..a8c65cc4 100644 --- a/TESTING/EIG/derrhs.f +++ b/TESTING/EIG/derrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/derrst.f b/TESTING/EIG/derrst.f index 76439de6..dfb3452e 100644 --- a/TESTING/EIG/derrst.f +++ b/TESTING/EIG/derrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget02.f b/TESTING/EIG/dget02.f index 199c5745..f8dfb8fd 100644 --- a/TESTING/EIG/dget02.f +++ b/TESTING/EIG/dget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget10.f b/TESTING/EIG/dget10.f index 510949a8..8bb015ee 100644 --- a/TESTING/EIG/dget10.f +++ b/TESTING/EIG/dget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * DOUBLE PRECISION RESULT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget22.f b/TESTING/EIG/dget22.f index 9175b417..3ed76d0c 100644 --- a/TESTING/EIG/dget22.f +++ b/TESTING/EIG/dget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, * WI, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), E( LDE, * ), RESULT( 2 ), WI( * ), * $ WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget23.f b/TESTING/EIG/dget23.f index 9a641afd..1a198344 100644 --- a/TESTING/EIG/dget23.f +++ b/TESTING/EIG/dget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -362,10 +362,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget24.f b/TESTING/EIG/dget24.f index ce1c5b20..a1855fab 100644 --- a/TESTING/EIG/dget24.f +++ b/TESTING/EIG/dget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, * LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, * RESULT, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, NSLCT @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -328,10 +328,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget31.f b/TESTING/EIG/dget31.f index fe2aefed..c1e293f3 100644 --- a/TESTING/EIG/dget31.f +++ b/TESTING/EIG/dget31.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET31( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget32.f b/TESTING/EIG/dget32.f index b6db206b..29182de2 100644 --- a/TESTING/EIG/dget32.f +++ b/TESTING/EIG/dget32.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET32( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget33.f b/TESTING/EIG/dget33.f index a7c8f46b..663cc849 100644 --- a/TESTING/EIG/dget33.f +++ b/TESTING/EIG/dget33.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET33( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget34.f b/TESTING/EIG/dget34.f index 8bf1b8b6..a4fff64a 100644 --- a/TESTING/EIG/dget34.f +++ b/TESTING/EIG/dget34.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET34( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget35.f b/TESTING/EIG/dget35.f index b0aa0911..e07ec970 100644 --- a/TESTING/EIG/dget35.f +++ b/TESTING/EIG/dget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET35( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget36.f b/TESTING/EIG/dget36.f index 4bba768d..3e92c9d2 100644 --- a/TESTING/EIG/dget36.f +++ b/TESTING/EIG/dget36.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN * DOUBLE PRECISION RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget37.f b/TESTING/EIG/dget37.f index 5bdc2db5..a2de870c 100644 --- a/TESTING/EIG/dget37.f +++ b/TESTING/EIG/dget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget38.f b/TESTING/EIG/dget38.f index f8cd8093..112b0b2a 100644 --- a/TESTING/EIG/dget38.f +++ b/TESTING/EIG/dget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget39.f b/TESTING/EIG/dget39.f index 2d726ddf..7d85ecd8 100644 --- a/TESTING/EIG/dget39.f +++ b/TESTING/EIG/dget39.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET39( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget51.f b/TESTING/EIG/dget51.f index 5776bd7d..656097a0 100644 --- a/TESTING/EIG/dget51.f +++ b/TESTING/EIG/dget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget52.f b/TESTING/EIG/dget52.f index 76307132..c164ac34 100644 --- a/TESTING/EIG/dget52.f +++ b/TESTING/EIG/dget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, * ALPHAI, BETA, WORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * $ B( LDB, * ), BETA( * ), E( LDE, * ), * $ RESULT( 2 ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget53.f b/TESTING/EIG/dget53.f index 0cc1c8cd..69e33ed2 100644 --- a/TESTING/EIG/dget53.f +++ b/TESTING/EIG/dget53.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB * DOUBLE PRECISION RESULT, SCALE, WI, WR @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dget54.f b/TESTING/EIG/dget54.f index 480635ae..ea8fddab 100644 --- a/TESTING/EIG/dget54.f +++ b/TESTING/EIG/dget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dglmts.f b/TESTING/EIG/dglmts.f index accdbf7e..a1c40c37 100644 --- a/TESTING/EIG/dglmts.f +++ b/TESTING/EIG/dglmts.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, * WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * DOUBLE PRECISION RESULT * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dgqrts.f b/TESTING/EIG/dgqrts.f index 836c8567..596422c1 100644 --- a/TESTING/EIG/dgqrts.f +++ b/TESTING/EIG/dgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dgrqts.f b/TESTING/EIG/dgrqts.f index 9f06241c..b86f9547 100644 --- a/TESTING/EIG/dgrqts.f +++ b/TESTING/EIG/dgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dgsvts3.f b/TESTING/EIG/dgsvts3.f index d7ceeb65..29d5ef6b 100644 --- a/TESTING/EIG/dgsvts3.f +++ b/TESTING/EIG/dgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -23,7 +23,7 @@ * $ RWORK( * ), U( LDU, * ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/dhst01.f b/TESTING/EIG/dhst01.f index af5b4ea1..5b868962 100644 --- a/TESTING/EIG/dhst01.f +++ b/TESTING/EIG/dhst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ RESULT( 2 ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlafts.f b/TESTING/EIG/dlafts.f index 6c35f988..dc78e33d 100644 --- a/TESTING/EIG/dlafts.f +++ b/TESTING/EIG/dlafts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, * THRESH, IOUNIT, IE ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IMAT, IOUNIT, M, N, NTESTS @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION RESULT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlahd2.f b/TESTING/EIG/dlahd2.f index b5523625..f85ed296 100644 --- a/TESTING/EIG/dlahd2.f +++ b/TESTING/EIG/dlahd2.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHD2( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/dlarfy.f b/TESTING/EIG/dlarfy.f index 717af4b1..089aa94e 100644 --- a/TESTING/EIG/dlarfy.f +++ b/TESTING/EIG/dlarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlarhs.f b/TESTING/EIG/dlarhs.f index 4b0441e5..5f5dbc3f 100644 --- a/TESTING/EIG/dlarhs.f +++ b/TESTING/EIG/dlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlasum.f b/TESTING/EIG/dlasum.f index 27187d02..8c90b59a 100644 --- a/TESTING/EIG/dlasum.f +++ b/TESTING/EIG/dlasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IOUNIT, NRUN * .. -* +* * *> \par Purpose: * ============= @@ -31,10 +31,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlatb9.f b/TESTING/EIG/dlatb9.f index 85c08be0..9a76812e 100644 --- a/TESTING/EIG/dlatb9.f +++ b/TESTING/EIG/dlatb9.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,14 +11,14 @@ * SUBROUTINE DLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, KLB, KUB, * ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB, * DISTA, DISTB ) -* +* * .. Scalar Arguments .. * CHARACTER DISTA, DISTB, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KLA, KLB, KUA, KUB, M, MODEA, MODEB, N, P * DOUBLE PRECISION ANORM, BNORM, CNDNMA, CNDNMB * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlatm4.f b/TESTING/EIG/dlatm4.f index bf661f96..1a3d03b1 100644 --- a/TESTING/EIG/dlatm4.f +++ b/TESTING/EIG/dlatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 * DOUBLE PRECISION AMAGN, RCOND, TRIANG @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlctes.f b/TESTING/EIG/dlctes.f index 908bd091..2391338d 100644 --- a/TESTING/EIG/dlctes.f +++ b/TESTING/EIG/dlctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DLCTES( ZR, ZI, D ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION D, ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/dlctsx.f b/TESTING/EIG/dlctsx.f index 1521ca14..f7210b3c 100644 --- a/TESTING/EIG/dlctsx.f +++ b/TESTING/EIG/dlctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DLCTSX( AR, AI, BETA ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION AI, AR, BETA * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dlsets.f b/TESTING/EIG/dlsets.f index 6ec0e69b..3d69c67f 100644 --- a/TESTING/EIG/dlsets.f +++ b/TESTING/EIG/dlsets.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, * X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dort01.f b/TESTING/EIG/dort01.f index cab1c995..b41c6ab7 100644 --- a/TESTING/EIG/dort01.f +++ b/TESTING/EIG/dort01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dort03.f b/TESTING/EIG/dort03.f index eb8cf3d5..54ca284f 100644 --- a/TESTING/EIG/dort03.f +++ b/TESTING/EIG/dort03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsbt21.f b/TESTING/EIG/dsbt21.f index 03f2dd35..5881d5be 100644 --- a/TESTING/EIG/dsbt21.f +++ b/TESTING/EIG/dsbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsgt01.f b/TESTING/EIG/dsgt01.f index c63c0eeb..0655818f 100644 --- a/TESTING/EIG/dsgt01.f +++ b/TESTING/EIG/dsgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), D( * ), RESULT( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dslect.f b/TESTING/EIG/dslect.f index a7a0e094..e317c34e 100644 --- a/TESTING/EIG/dslect.f +++ b/TESTING/EIG/dslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DSLECT( ZR, ZI ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/dspt21.f b/TESTING/EIG/dspt21.f index 8c6060ed..d7fd5ccc 100644 --- a/TESTING/EIG/dspt21.f +++ b/TESTING/EIG/dspt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), D( * ), E( * ), RESULT( 2 ), TAU( * ), * $ U( LDU, * ), VP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstech.f b/TESTING/EIG/dstech.f index 4de8e42a..02866716 100644 --- a/TESTING/EIG/dstech.f +++ b/TESTING/EIG/dstech.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTECH( N, A, B, EIG, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( * ), EIG( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstect.f b/TESTING/EIG/dstect.f index 016e280d..24bf1a0d 100644 --- a/TESTING/EIG/dstect.f +++ b/TESTING/EIG/dstect.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTECT( N, A, B, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * DOUBLE PRECISION SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstt21.f b/TESTING/EIG/dstt21.f index c0df3a16..368b7de5 100644 --- a/TESTING/EIG/dstt21.f +++ b/TESTING/EIG/dstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dstt22.f b/TESTING/EIG/dstt22.f index 07bfa161..9ce2e4e0 100644 --- a/TESTING/EIG/dstt22.f +++ b/TESTING/EIG/dstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsvdch.f b/TESTING/EIG/dsvdch.f index 758225b3..e4f0fc9d 100644 --- a/TESTING/EIG/dsvdch.f +++ b/TESTING/EIG/dsvdch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSVDCH( N, S, E, SVD, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * DOUBLE PRECISION TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION E( * ), S( * ), SVD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsvdct.f b/TESTING/EIG/dsvdct.f index 72d4b63d..2627c1f4 100644 --- a/TESTING/EIG/dsvdct.f +++ b/TESTING/EIG/dsvdct.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSVDCT( N, S, E, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * DOUBLE PRECISION SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION E( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsxt1.f b/TESTING/EIG/dsxt1.f index 09b2037d..a14002cd 100644 --- a/TESTING/EIG/dsxt1.f +++ b/TESTING/EIG/dsxt1.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DSXT1( IJOB, D1, N1, D2, N2, ABSTOL, * ULP, UNFL ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, N1, N2 * DOUBLE PRECISION ABSTOL, ULP, UNFL @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D1( * ), D2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsyt21.f b/TESTING/EIG/dsyt21.f index 74f084f9..4875b9eb 100644 --- a/TESTING/EIG/dsyt21.f +++ b/TESTING/EIG/dsyt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/dsyt22.f b/TESTING/EIG/dsyt22.f index 275b702e..cae6f4ec 100644 --- a/TESTING/EIG/dsyt22.f +++ b/TESTING/EIG/dsyt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ilaenv.f b/TESTING/EIG/ilaenv.f index 135ac099..cd810629 100644 --- a/TESTING/EIG/ilaenv.f +++ b/TESTING/EIG/ilaenv.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -223,7 +223,7 @@ C ILAENV = 0 * ELSE IF(( ISPEC.GE.12 ) .AND. (ISPEC.LE.16)) THEN * -* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. +* 12 <= ISPEC <= 16: xHSEQR or one of its subroutines. * ILAENV = IPARMS( ISPEC ) * WRITE(*,*) 'ISPEC = ',ISPEC,' ILAENV =',ILAENV diff --git a/TESTING/EIG/sbdt01.f b/TESTING/EIG/sbdt01.f index fa9ad51f..f38edcfb 100644 --- a/TESTING/EIG/sbdt01.f +++ b/TESTING/EIG/sbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * REAL RESID @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), PT( LDPT, * ), * $ Q( LDQ, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt02.f b/TESTING/EIG/sbdt02.f index 72900fe3..e83b2e5e 100644 --- a/TESTING/EIG/sbdt02.f +++ b/TESTING/EIG/sbdt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * REAL RESID @@ -18,7 +18,7 @@ * REAL B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt03.f b/TESTING/EIG/sbdt03.f index 4e7f3494..f197de5e 100644 --- a/TESTING/EIG/sbdt03.f +++ b/TESTING/EIG/sbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * REAL D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt04.f b/TESTING/EIG/sbdt04.f index 59d11341..31ce843a 100644 --- a/TESTING/EIG/sbdt04.f +++ b/TESTING/EIG/sbdt04.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, +* SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDU, LDVT, N, NS @@ -18,7 +18,7 @@ * REAL D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -68,14 +68,14 @@ *> \param[in] S *> \verbatim *> S is REAL array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sbdt05.f b/TESTING/EIG/sbdt05.f index 53cae36b..dc2ba5e9 100644 --- a/TESTING/EIG/sbdt05.f +++ b/TESTING/EIG/sbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * REAL RESID @@ -17,7 +17,7 @@ * REAL D( * ), E( * ), S( * ), U( LDU, * ), * $ VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,14 +62,14 @@ *> \param[in] S *> \verbatim *> S is REAL array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -111,17 +111,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/schkbb.f b/TESTING/EIG/schkbb.f index 749f60d2..1db7394f 100644 --- a/TESTING/EIG/schkbb.f +++ b/TESTING/EIG/schkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -25,7 +25,7 @@ * $ C( LDC, * ), CC( LDC, * ), P( LDP, * ), * $ Q( LDQ, * ), RESULT( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -340,10 +340,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index 5569e0e6..28cd3352 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ VT( LDPT, * ), WORK( * ), X( LDX, * ), * $ Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -64,7 +64,7 @@ *> singular vectors are not computed. *> *> SBDSVDX computes the singular value decomposition of the bidiagonal -*> matrix B as B = U S V' using bisection and inverse iteration. It is +*> matrix B as B = U S V' using bisection and inverse iteration. It is *> called six times to compute *> 1) B = U S1 V', RANGE='A', where S1 is the diagonal matrix of singular *> values and the columns of the matrices U and V are the left @@ -147,43 +147,43 @@ *> (19) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. *> Test SBDSVDX on bidiagonal matrix B -*> +*> *> (20) | B - U S1 VT | / ( |B| min(M,N) ulp ), VT = V' -*> +*> *> (21) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (22) | I - VT VT' | / ( min(M,N) ulp ) -*> +*> *> (23) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (24) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (25) | S1 - U' B VT' | / ( |S| n ulp ) SBDSVDX('V', 'I') -*> +*> *> (26) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (27) | I - VT VT' | / ( min(M,N) ulp ) *> *> (28) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (29) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> (30) | S1 - U' B VT' | / ( |S1| n ulp ) SBDSVDX('V', 'V') -*> +*> *> (31) | I - U' U | / ( min(M,N) ulp ) -*> +*> *> (32) | I - VT VT' | / ( min(M,N) ulp ) *> *> (33) S1 contains min(M,N) nonnegative values in decreasing order. *> (Return 0 if true, 1/ULP if false.) -*> +*> *> (34) | S1 - S2 | / ( |S1| ulp ), where S2 is computed without *> computing U and V. -*> +*> *> The possible matrix types are *> *> (1) The zero matrix. @@ -478,10 +478,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -525,18 +525,18 @@ LOGICAL BADMM, BADNN, BIDIAG CHARACTER UPLO CHARACTER*3 PATH - INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, + INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, $ IWBE, IWBS, IWBZ, IWWORK, J, JCOL, JSIZE, $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, - $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, + $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, $ NS1, NS2, NTEST - REAL ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, - $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, - $ UNFL, VL, VU + REAL ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, + $ RTUNFL, TEMP1, TEMP2, TEMP3, ULP, ULPINV, + $ UNFL, VL, VU * .. * .. Local Arrays .. - INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), - $ KMAGN( MAXTYP ), KMODE( MAXTYP ), + INTEGER IDUM( 1 ), IOLDSD( 4 ), ISEED2( 4 ), + $ KMAGN( MAXTYP ), KMODE( MAXTYP ), $ KTYPE( MAXTYP ) REAL DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. @@ -545,8 +545,8 @@ EXTERNAL SLAMCH, SLARND, SSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, - $ SBDT02, SBDT03, SBDT04, SCOPY, SGEBRD, + EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, + $ SBDT02, SBDT03, SBDT04, SCOPY, SGEBRD, $ SGEMM, SLABAD, SLACPY, SLAHD2, SLASET, $ SLATMR, SLATMS, SORGBR, SORT01, XERBLA * .. @@ -1151,10 +1151,10 @@ $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL SBDSVDX( UPLO, 'V', 'A', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) -* +* * Check error code from SBDSVDX. * IF( IINFO.NE.0 ) THEN @@ -1190,17 +1190,17 @@ * CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) - $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) -* + $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) +* CALL SBDSVDX( UPLO, 'N', 'A', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'SBDSVDX(values,A)', IINFO, + WRITE( NOUT, FMT = 9998 )'SBDSVDX(values,A)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1224,11 +1224,11 @@ * CALL SBDT03( UPLO, MNMIN, 1, BD, BE, U, LDPT, S1, VT, $ LDPT, WORK( IWBS+MNMIN ), RESULT( 20 ) ) - CALL SORT01( 'Columns', MNMIN, MNMIN, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL SORT01( 'Columns', MNMIN, MNMIN, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 21 ) ) - CALL SORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL SORT01( 'Rows', MNMIN, MNMIN, VT, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 22) ) * RESULT( 23 ) = ZERO @@ -1272,14 +1272,14 @@ IL = ITEMP END IF END IF -* +* CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL SBDSVDX( UPLO, 'V', 'I', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO) * * Check error code from SBDSVDX. @@ -1313,7 +1313,7 @@ * CALL SBDSVDX( UPLO, 'N', 'I', MNMIN, WORK( IWBD ), $ WORK( IWBE ), ZERO, ZERO, IL, IU, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. @@ -1337,13 +1337,13 @@ * non-increasing order and are non-negative * 29: Compare SBDSVDX with and without singular vectors * - CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 25 ) ) - CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, - $ WORK( IWBS+MNMIN ), LWORK-MNMIN, + CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, + $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 26 ) ) - CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 27 ) ) * @@ -1368,8 +1368,8 @@ 230 CONTINUE RESULT( 29 ) = TEMP2 * -* Use SBDSVDX with RANGE='V': determine the values VL and VU -* of the IL-th and IU-th singular values and ask for all +* Use SBDSVDX with RANGE='V': determine the values VL and VU +* of the IL-th and IU-th singular values and ask for all * singular values in this range. * CALL SCOPY( MNMIN, WORK( IWBS ), 1, S1, 1 ) @@ -1395,21 +1395,21 @@ ELSE VL = ZERO VU = ONE - END IF -* + END IF +* CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) IF( MNMIN.GT.0 ) $ CALL SCOPY( MNMIN-1, BE, 1, WORK( IWBE ), 1 ) * CALL SBDSVDX( UPLO, 'V', 'V', MNMIN, WORK( IWBD ), - $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBE ), VL, VU, 0, 0, NS1, S1, + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. * IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9998 )'SBDSVDX(vects,V)', IINFO, + WRITE( NOUT, FMT = 9998 )'SBDSVDX(vects,V)', IINFO, $ M, N, JTYPE, IOLDSD INFO = ABS( IINFO ) IF( IINFO.LT.0 ) THEN @@ -1437,7 +1437,7 @@ * CALL SBDSVDX( UPLO, 'N', 'V', MNMIN, WORK( IWBD ), $ WORK( IWBE ), VL, VU, 0, 0, NS2, S2, - $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), + $ WORK( IWBZ ), MNMIN2, WORK( IWWORK ), $ IWORK, IINFO ) * * Check error code from SBDSVDX. @@ -1461,13 +1461,13 @@ * non-increasing order and are non-negative * 34: Compare SBDSVDX with and without singular vectors * - CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, - $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), + CALL SBDT04( UPLO, MNMIN, BD, BE, S1, NS1, U, + $ LDPT, VT, LDPT, WORK( IWBS+MNMIN ), $ RESULT( 30 ) ) - CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, + CALL SORT01( 'Columns', MNMIN, NS1, U, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 31 ) ) - CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, + CALL SORT01( 'Rows', NS1, MNMIN, VT, LDPT, $ WORK( IWBS+MNMIN ), LWORK-MNMIN, $ RESULT( 32 ) ) * diff --git a/TESTING/EIG/schkbk.f b/TESTING/EIG/schkbk.f index 19521012..d45ad186 100644 --- a/TESTING/EIG/schkbk.f +++ b/TESTING/EIG/schkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkbl.f b/TESTING/EIG/schkbl.f index 6584cef6..ea056b81 100644 --- a/TESTING/EIG/schkbl.f +++ b/TESTING/EIG/schkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkec.f b/TESTING/EIG/schkec.f index 8d3e5d35..d1079df0 100644 --- a/TESTING/EIG/schkec.f +++ b/TESTING/EIG/schkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkee.f b/TESTING/EIG/schkee.f index ecbef3c1..99d717e0 100644 --- a/TESTING/EIG/schkee.f +++ b/TESTING/EIG/schkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKEE -* +* * *> \par Purpose: * ============= @@ -1028,10 +1028,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -1883,8 +1883,8 @@ CALL SDRVST( NN, NVAL, 18, DOTYPE, ISEED, THRESH, $ NOUT, A( 1, 1 ), NMAX, D( 1, 3 ), D( 1, 4 ), $ D( 1, 5 ), D( 1, 6 ), D( 1, 8 ), D( 1, 9 ), - $ D( 1, 10 ), D( 1, 11), A( 1, 2 ), NMAX, - $ A( 1, 3 ), D( 1, 12 ), A( 1, 4 ), WORK, + $ D( 1, 10 ), D( 1, 11), A( 1, 2 ), NMAX, + $ A( 1, 3 ), D( 1, 12 ), A( 1, 4 ), WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'SDRVST', INFO @@ -2163,9 +2163,9 @@ * IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'SDRGES', INFO -* +* * Blocked version -* +* CALL XLAENV(16,1) CALL SDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2229,7 +2229,7 @@ $ WORK, LWORK, RESULT, INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'SDRGEV', INFO -* +* * Blocked version * CALL SDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, @@ -2468,7 +2468,7 @@ 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver SGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/TESTING/EIG/schkgg.f b/TESTING/EIG/schkgg.f index 3772340e..a1a78602 100644 --- a/TESTING/EIG/schkgg.f +++ b/TESTING/EIG/schkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHR1, ALPHI1, * BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, * WORK, LWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ U( LDU, * ), V( LDU, * ), WORK( * ), * $ Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -495,10 +495,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/schkgk.f b/TESTING/EIG/schkgk.f index 944cf0e0..f5b72166 100644 --- a/TESTING/EIG/schkgk.f +++ b/TESTING/EIG/schkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkgl.f b/TESTING/EIG/schkgl.f index fc41e48f..6c3a9ee9 100644 --- a/TESTING/EIG/schkgl.f +++ b/TESTING/EIG/schkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkhs.f b/TESTING/EIG/schkhs.f index 7543093e..e7ded662 100644 --- a/TESTING/EIG/schkhs.f +++ b/TESTING/EIG/schkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WI1, WR2, WI2, WR3, WI3, EVECTL, EVECTR, EVECTY, * EVECTX, UU, TAU, WORK, NWORK, IWORK, SELECT, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -29,7 +29,7 @@ * $ WI1( * ), WI2( * ), WI3( * ), WORK( * ), * $ WR1( * ), WR2( * ), WR3( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/schksb.f b/TESTING/EIG/schksb.f index 8bcb9b9c..a79943f2 100644 --- a/TESTING/EIG/schksb.f +++ b/TESTING/EIG/schksb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * REAL A( LDA, * ), RESULT( * ), SD( * ), SE( * ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -279,10 +279,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/schkst.f b/TESTING/EIG/schkst.f index 39cb7d7a..4931a2f7 100644 --- a/TESTING/EIG/schkst.f +++ b/TESTING/EIG/schkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, AP, SD, SE, D1, D2, D3, D4, D5, * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ V( LDU, * ), VP( * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), WR( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -518,7 +518,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -576,10 +576,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckcsd.f b/TESTING/EIG/sckcsd.f index 20ba3d66..79d27e4f 100644 --- a/TESTING/EIG/sckcsd.f +++ b/TESTING/EIG/sckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckglm.f b/TESTING/EIG/sckglm.f index 7280abfb..eeaca4e9 100644 --- a/TESTING/EIG/sckglm.f +++ b/TESTING/EIG/sckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * REAL A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckgqr.f b/TESTING/EIG/sckgqr.f index 819cc6fd..54f88deb 100644 --- a/TESTING/EIG/sckgqr.f +++ b/TESTING/EIG/sckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * REAL THRESH @@ -22,7 +22,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), * $ RWORK( * ), TAUA( * ), TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sckgsv.f b/TESTING/EIG/sckgsv.f index 3b2676d2..cecf75cc 100644 --- a/TESTING/EIG/sckgsv.f +++ b/TESTING/EIG/sckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * $ BF( * ), Q( * ), R( * ), RWORK( * ), U( * ), * $ V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/scklse.f b/TESTING/EIG/scklse.f index b28d72d9..d206e420 100644 --- a/TESTING/EIG/scklse.f +++ b/TESTING/EIG/scklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * REAL A( * ), AF( * ), B( * ), BF( * ), RWORK( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/scsdts.f b/TESTING/EIG/scsdts.f index a326f356..ca00bd2d 100644 --- a/TESTING/EIG/scsdts.f +++ b/TESTING/EIG/scsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -280,7 +280,7 @@ CALL SSYRK( 'Upper', 'Conjugate transpose', M, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ SLANGE( '1', M, M, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -445,7 +445,7 @@ CALL SSYRK( 'Upper', 'Conjugate transpose', Q, M, -ONE, X, LDX, $ ONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ SLANGE( '1', Q, Q, WORK, LDX, RWORK ) / REAL( M ) ) ELSE EPS2 = ULP @@ -551,7 +551,7 @@ END DO * RETURN -* +* * End of SCSDTS * END diff --git a/TESTING/EIG/sdrges.f b/TESTING/EIG/sdrges.f index 73f0cb14..7ef348b4 100644 --- a/TESTING/EIG/sdrges.f +++ b/TESTING/EIG/sdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHAR, * ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * REAL THRESH @@ -25,7 +25,7 @@ * $ RESULT( 13 ), S( LDA, * ), T( LDA, * ), * $ WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -388,10 +388,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrgev.f b/TESTING/EIG/sdrgev.f index 05c3afe9..61135a57 100644 --- a/TESTING/EIG/sdrgev.f +++ b/TESTING/EIG/sdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, * WORK, LWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ QE( LDQE, * ), RESULT( * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -393,10 +393,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrgsx.f b/TESTING/EIG/sdrgsx.f index 58c61f08..4d4816a3 100644 --- a/TESTING/EIG/sdrgsx.f +++ b/TESTING/EIG/sdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, * AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, * WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -25,7 +25,7 @@ * $ BI( LDA, * ), C( LDC, * ), Q( LDA, * ), S( * ), * $ WORK( * ), Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -345,10 +345,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrgvx.f b/TESTING/EIG/sdrgvx.f index 06b94c9f..3359f75f 100644 --- a/TESTING/EIG/sdrgvx.f +++ b/TESTING/EIG/sdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHAR, ALPHAI, BETA, VL, VR, ILO, IHI, LSCALE, * RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -28,7 +28,7 @@ * $ STRU( * ), VL( LDA, * ), VR( LDA, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,32 +213,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] STRU +*> \param[out] STRU *> \verbatim *> STRU is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is REAL array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is REAL array, dimension (N) *> \endverbatim @@ -286,10 +286,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrvbd.f b/TESTING/EIG/sdrvbd.f index e8bf7ea5..ca3451d6 100644 --- a/TESTING/EIG/sdrvbd.f +++ b/TESTING/EIG/sdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, * $ NTYPES @@ -24,7 +24,7 @@ * $ SSAV( * ), U( LDU, * ), USAV( LDU, * ), * $ VT( LDVT, * ), VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,7 +131,7 @@ *> *> (29) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for SGESVDX( 'V', 'V', 'I' ) *> *> (30) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -139,7 +139,7 @@ *> (31) | I - U'U | / ( M ulp ) *> *> (32) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for SGESVDX( 'V', 'V', 'V' ) *> *> (33) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -386,16 +386,16 @@ LOGICAL BADMM, BADNN CHARACTER JOBQ, JOBU, JOBVT, RANGE CHARACTER*3 PATH - INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, - $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, - $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, + INTEGER I, IINFO, IJQ, IJU, IJVT, IL,IU, IWS, IWTMP, + $ ITEMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, + $ MMAX, MNMAX, MNMIN, MTYPES, N, NFAIL, $ NMAX, NS, NSI, NSV, NTEST - REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, + REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, $ ULPINV, UNFL, VL, VU * .. * .. Local Arrays .. CHARACTER CJOB( 4 ), CJOBR( 3 ), CJOBV( 2 ) - INTEGER IOLDSD( 4 ), ISEED2( 4 ) + INTEGER IOLDSD( 4 ), ISEED2( 4 ) REAL RESULT( 40 ) * .. * .. External Functions .. @@ -403,7 +403,7 @@ EXTERNAL SLAMCH, SLARND * .. * .. External Subroutines .. - EXTERNAL ALASVM, SBDT01, SGEJSV, SGESDD, SGESVD, + EXTERNAL ALASVM, SBDT01, SGEJSV, SGESDD, SGESVD, $ SGESVDX, SGESVJ, SLABAD, SLACPY, SLASET, $ SLATMS, SORT01, SORT03, XERBLA * .. @@ -904,12 +904,12 @@ * Test SGESVDX * CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, - $ VTSAV, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + $ VTSAV, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -953,11 +953,11 @@ JOBVT = CJOBV( IJVT+1 ) RANGE = CJOBR( 1 ) CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, - $ VL, VU, IL, IU, NS, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, + $ VL, VU, IL, IU, NS, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) -* +* * Compare U * DIF = ZERO @@ -976,7 +976,7 @@ IF( M.GT.0 .AND. N.GT.0 ) THEN IF( IJVT.EQ.1 ) THEN CALL SORT03( 'R', N, MNMIN, N, MNMIN, VTSAV, - $ LDVT, VT, LDVT, WORK, LWORK, + $ LDVT, VT, LDVT, WORK, LWORK, $ DIF, IINFO ) END IF END IF @@ -1013,14 +1013,14 @@ IU = IL IL = ITEMP END IF - END IF + END IF CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1040,11 +1040,11 @@ * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1061,14 +1061,14 @@ ELSE VL = ZERO VU = ONE - END IF + END IF CALL SLACPY( 'F', M, N, ASAV, LDA, A, LDA ) - CALL SGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, - $ VT, LDVT, WORK, LWORK, IWORK, + CALL SGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, + $ VT, LDVT, WORK, LWORK, IWORK, $ IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1087,7 +1087,7 @@ * End of Loop -- Check for RESULT(j) > THRESH * DO 210 J = 1, 35 - IF( RESULT( J ).GE.THRESH ) THEN + IF( RESULT( J ).GE.THRESH ) THEN IF( NFAIL.EQ.0 ) THEN WRITE( NOUT, FMT = 9999 ) WRITE( NOUT, FMT = 9998 ) @@ -1138,7 +1138,7 @@ $ ' decreasing order, else 1/ulp', $ / '19 = | U - Upartial | / ( M ulp )', $ / '20 = | VT - VTpartial | / ( N ulp )', - $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ ' SGESVDX(V,V,A) ', @@ -1157,7 +1157,7 @@ $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp ),', $ ' SGESVDX(V,V,V) ', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/sdrves.f b/TESTING/EIG/sdrves.f index f6493ea0..f443d135 100644 --- a/TESTING/EIG/sdrves.f +++ b/TESTING/EIG/sdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, * LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * REAL THRESH @@ -23,7 +23,7 @@ * $ RESULT( 13 ), VS( LDVS, * ), WI( * ), WIT( * ), * $ WORK( * ), WR( * ), WRT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrvev.f b/TESTING/EIG/sdrvev.f index f728cb4f..d08cc784 100644 --- a/TESTING/EIG/sdrvev.f +++ b/TESTING/EIG/sdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, WR, WI, WR1, WI1, VL, LDVL, * VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, * IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -25,7 +25,7 @@ * $ RESULT( 7 ), VL( LDVL, * ), VR( LDVR, * ), * $ WI( * ), WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -391,10 +391,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sdrvsg.f b/TESTING/EIG/sdrvsg.f index 5cbf775c..1d397cb8 100644 --- a/TESTING/EIG/sdrvsg.f +++ b/TESTING/EIG/sdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -24,7 +24,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), D( * ), * $ RESULT( * ), WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -341,10 +341,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sdrvst.f b/TESTING/EIG/sdrvst.f index 1dea83b0..2436e69c 100644 --- a/TESTING/EIG/sdrvst.f +++ b/TESTING/EIG/sdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, D4, EVEIGS, WA1, * WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ U( LDU, * ), V( LDU, * ), WA1( * ), WA2( * ), * $ WA3( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -438,10 +438,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sdrvsx.f b/TESTING/EIG/sdrvsx.f index 9599e54f..90cfebe2 100644 --- a/TESTING/EIG/sdrvsx.f +++ b/TESTING/EIG/sdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, WR, WI, WRT, * WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, * LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -439,10 +439,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sdrvvx.f b/TESTING/EIG/sdrvvx.f index 64951fe2..2526c306 100644 --- a/TESTING/EIG/sdrvvx.f +++ b/TESTING/EIG/sdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * VL, LDVL, VR, LDVR, LRE, LDLRE, RCONDV, RCNDV1, * RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, * RESULT, WORK, NWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -29,7 +29,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -504,10 +504,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/serrbd.f b/TESTING/EIG/serrbd.f index 757825a2..b9a84b92 100644 --- a/TESTING/EIG/serrbd.f +++ b/TESTING/EIG/serrbd.f @@ -2,26 +2,26 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= *> *> \verbatim *> -*> SERRBD tests the error exits for SGEBD2, SGEBRD, SORGBR, SORMBR, +*> SERRBD tests the error exits for SGEBD2, SGEBRD, SORGBR, SORMBR, *> SBDSQR, SBDSDC and SBDSVDX. *> \endverbatim * @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -80,8 +80,8 @@ * .. Local Arrays .. INTEGER IQ( NMAX, NMAX ), IW( NMAX ) REAL A( NMAX, NMAX ), D( NMAX ), E( NMAX ), - $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), - $ TQ( NMAX ), U( NMAX, NMAX ), + $ Q( NMAX, NMAX ), S( NMAX ), TP( NMAX ), + $ TQ( NMAX ), U( NMAX, NMAX ), $ V( NMAX, NMAX ), W( LW ) * .. * .. External Functions .. @@ -309,51 +309,51 @@ * SRNAMT = 'SBDSVDX' INFOT = 1 - CALL SBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'X', 'N', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL SBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'U', 'X', 'A', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL SBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'U', 'V', 'X', 1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL SBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, + CALL SBDSVDX( 'U', 'V', 'A', -1, D, E, ZERO, ONE, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, + CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, -ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, + CALL SBDSVDX( 'U', 'V', 'V', 2, D, E, ONE, ZERO, 0, 0, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL SBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, + CALL SBDSVDX( 'L', 'V', 'I', 2, D, E, ZERO, ZERO, 0, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, + CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 5, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, + CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 2, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, + CALL SBDSVDX( 'L', 'V', 'I', 4, D, E, ZERO, ZERO, 3, 5, $ NS, S, Q, 1, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 0, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, + CALL SBDSVDX( 'L', 'V', 'A', 4, D, E, ZERO, ZERO, 0, 0, $ NS, S, Q, 2, W, IW, INFO) CALL CHKXER( 'SBDSVDX', INFOT, NOUT, LERR, OK ) NT = NT + 12 diff --git a/TESTING/EIG/serrec.f b/TESTING/EIG/serrec.f index f99632fa..25980ad9 100644 --- a/TESTING/EIG/serrec.f +++ b/TESTING/EIG/serrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f index ecd81119..f4b63ea5 100644 --- a/TESTING/EIG/serred.f +++ b/TESTING/EIG/serred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -432,51 +432,51 @@ * SRNAMT = 'SGESVDX' INFOT = 1 - CALL SGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL SGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL SGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL SGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL SGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL SGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL SGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL SGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL SGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL SGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL SGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL SGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/serrhs.f b/TESTING/EIG/serrhs.f index c4e3fc38..dc7c722e 100644 --- a/TESTING/EIG/serrhs.f +++ b/TESTING/EIG/serrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/serrst.f b/TESTING/EIG/serrst.f index 7155ff6a..266e9ec1 100644 --- a/TESTING/EIG/serrst.f +++ b/TESTING/EIG/serrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget02.f b/TESTING/EIG/sget02.f index 8d2a9fba..3f47f6c4 100644 --- a/TESTING/EIG/sget02.f +++ b/TESTING/EIG/sget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget10.f b/TESTING/EIG/sget10.f index d8fc1fa0..04cd1a32 100644 --- a/TESTING/EIG/sget10.f +++ b/TESTING/EIG/sget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * REAL RESULT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget22.f b/TESTING/EIG/sget22.f index 58c60df4..257ebd51 100644 --- a/TESTING/EIG/sget22.f +++ b/TESTING/EIG/sget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, * WI, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), E( LDE, * ), RESULT( 2 ), WI( * ), * $ WORK( * ), WR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget23.f b/TESTING/EIG/sget23.f index 2178296f..3a9011af 100644 --- a/TESTING/EIG/sget23.f +++ b/TESTING/EIG/sget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, IWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), WI( * ), * $ WI1( * ), WORK( * ), WR( * ), WR1( * ) * .. -* +* * *> \par Purpose: * ============= @@ -362,10 +362,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget24.f b/TESTING/EIG/sget24.f index 33ead76e..0c7052ea 100644 --- a/TESTING/EIG/sget24.f +++ b/TESTING/EIG/sget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, WR, WI, WRT, WIT, WRTMP, WITMP, VS, * LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, * RESULT, WORK, LWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, NSLCT @@ -26,7 +26,7 @@ * $ WI( * ), WIT( * ), WITMP( * ), WORK( * ), * $ WR( * ), WRT( * ), WRTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -328,10 +328,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget31.f b/TESTING/EIG/sget31.f index 365bb8e2..2228666d 100644 --- a/TESTING/EIG/sget31.f +++ b/TESTING/EIG/sget31.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET31( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget32.f b/TESTING/EIG/sget32.f index a7f5f578..ef960881 100644 --- a/TESTING/EIG/sget32.f +++ b/TESTING/EIG/sget32.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET32( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget33.f b/TESTING/EIG/sget33.f index c7d256fd..60e4d1d9 100644 --- a/TESTING/EIG/sget33.f +++ b/TESTING/EIG/sget33.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET33( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -64,10 +64,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget34.f b/TESTING/EIG/sget34.f index b7f6fcbd..94284c4e 100644 --- a/TESTING/EIG/sget34.f +++ b/TESTING/EIG/sget34.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 2 ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget35.f b/TESTING/EIG/sget35.f index d9b2c575..1a19d15a 100644 --- a/TESTING/EIG/sget35.f +++ b/TESTING/EIG/sget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET35( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget36.f b/TESTING/EIG/sget36.f index 825c6305..f5de6ea7 100644 --- a/TESTING/EIG/sget36.f +++ b/TESTING/EIG/sget36.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN * REAL RMAX @@ -17,7 +17,7 @@ * .. Array Arguments .. * INTEGER NINFO( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -76,10 +76,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget37.f b/TESTING/EIG/sget37.f index 320df9fa..f1400687 100644 --- a/TESTING/EIG/sget37.f +++ b/TESTING/EIG/sget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget38.f b/TESTING/EIG/sget38.f index 44fea404..9089b28e 100644 --- a/TESTING/EIG/sget38.f +++ b/TESTING/EIG/sget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * REAL RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget39.f b/TESTING/EIG/sget39.f index c934499e..3531f280 100644 --- a/TESTING/EIG/sget39.f +++ b/TESTING/EIG/sget39.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET39( RMAX, LMAX, NINFO, KNT ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NINFO * REAL RMAX * .. -* +* * *> \par Purpose: * ============= @@ -91,10 +91,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget51.f b/TESTING/EIG/sget51.f index 22feacbe..cfe933b8 100644 --- a/TESTING/EIG/sget51.f +++ b/TESTING/EIG/sget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * REAL RESULT @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget52.f b/TESTING/EIG/sget52.f index f3debdbd..92c4f66e 100644 --- a/TESTING/EIG/sget52.f +++ b/TESTING/EIG/sget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, * ALPHAI, BETA, WORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * $ B( LDB, * ), BETA( * ), E( LDE, * ), * $ RESULT( 2 ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -62,7 +62,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> if a(j)=b(j)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -186,10 +186,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget53.f b/TESTING/EIG/sget53.f index 74f4056e..91ac1b97 100644 --- a/TESTING/EIG/sget53.f +++ b/TESTING/EIG/sget53.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB * REAL RESULT, SCALE, WI, WR @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sget54.f b/TESTING/EIG/sget54.f index 48324eaa..24815af9 100644 --- a/TESTING/EIG/sget54.f +++ b/TESTING/EIG/sget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * REAL RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sglmts.f b/TESTING/EIG/sglmts.f index 2e8988a4..3de44a41 100644 --- a/TESTING/EIG/sglmts.f +++ b/TESTING/EIG/sglmts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, * X, U, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * REAL RESULT @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AF( LDA, * ), B( LDB, * ), * $ BF( LDB, * ), RWORK( * ), D( * ), DF( * ), * $ U( * ), WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sgqrts.f b/TESTING/EIG/sgqrts.f index 725ab258..c1815174 100644 --- a/TESTING/EIG/sgqrts.f +++ b/TESTING/EIG/sgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -21,7 +21,7 @@ * $ TAUA( * ), TAUB( * ), RESULT( 4 ), * $ RWORK( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sgrqts.f b/TESTING/EIG/sgrqts.f index b2d692b5..8d269369 100644 --- a/TESTING/EIG/sgrqts.f +++ b/TESTING/EIG/sgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -22,7 +22,7 @@ * $ TAUA( * ), TAUB( * ), * $ RESULT( 4 ), RWORK( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -164,10 +164,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sgsvts3.f b/TESTING/EIG/sgsvts3.f index 23aa62c7..f6701e9d 100644 --- a/TESTING/EIG/sgsvts3.f +++ b/TESTING/EIG/sgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -23,7 +23,7 @@ * $ RWORK( * ), U( LDU, * ), V( LDV, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/shst01.f b/TESTING/EIG/shst01.f index b1c9dbd1..067b7c71 100644 --- a/TESTING/EIG/shst01.f +++ b/TESTING/EIG/shst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ RESULT( 2 ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slafts.f b/TESTING/EIG/slafts.f index 0b1c089f..f62336a6 100644 --- a/TESTING/EIG/slafts.f +++ b/TESTING/EIG/slafts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, * THRESH, IOUNIT, IE ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IMAT, IOUNIT, M, N, NTESTS @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL RESULT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slahd2.f b/TESTING/EIG/slahd2.f index bdfc510f..47c54346 100644 --- a/TESTING/EIG/slahd2.f +++ b/TESTING/EIG/slahd2.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHD2( IOUNIT, PATH ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER IOUNIT * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/slarfy.f b/TESTING/EIG/slarfy.f index 461393e9..19a7fa6d 100644 --- a/TESTING/EIG/slarfy.f +++ b/TESTING/EIG/slarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slarhs.f b/TESTING/EIG/slarhs.f index 6cabe409..44826c77 100644 --- a/TESTING/EIG/slarhs.f +++ b/TESTING/EIG/slarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slasum.f b/TESTING/EIG/slasum.f index d673954a..3ac751a6 100644 --- a/TESTING/EIG/slasum.f +++ b/TESTING/EIG/slasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER IE, IOUNIT, NRUN * .. -* +* * Purpose * ======= * @@ -28,10 +28,10 @@ * Authors: * ======== * -* \author Univ. of Tennessee -* \author Univ. of California Berkeley -* \author Univ. of Colorado Denver -* \author NAG Ltd. +* \author Univ. of Tennessee +* \author Univ. of California Berkeley +* \author Univ. of Colorado Denver +* \author NAG Ltd. * * \date November 2011 * diff --git a/TESTING/EIG/slatb9.f b/TESTING/EIG/slatb9.f index ad612073..1fda5c10 100644 --- a/TESTING/EIG/slatb9.f +++ b/TESTING/EIG/slatb9.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,14 +11,14 @@ * SUBROUTINE SLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, * KLB, KUB, ANORM, BNORM, MODEA, MODEB, * CNDNMA, CNDNMB, DISTA, DISTB ) -* +* * .. Scalar Arguments .. * CHARACTER DISTA, DISTB, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KLA, KUA, KLB, KUB, M, P, MODEA, MODEB, N * REAL ANORM, BNORM, CNDNMA, CNDNMB * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -276,7 +276,7 @@ ELSE * * A: general dense, B: general dense -* +* KLA = MAX( M-1, 0 ) KUA = MAX( N-1, 0 ) KLB = MAX( P-1, 0 ) diff --git a/TESTING/EIG/slatm4.f b/TESTING/EIG/slatm4.f index d2e52d4f..787b5bc4 100644 --- a/TESTING/EIG/slatm4.f +++ b/TESTING/EIG/slatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 * REAL AMAGN, RCOND, TRIANG @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slctes.f b/TESTING/EIG/slctes.f index 9be9e3df..325841c7 100644 --- a/TESTING/EIG/slctes.f +++ b/TESTING/EIG/slctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SLCTES( ZR, ZI, D ) -* +* * .. Scalar Arguments .. * REAL D, ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/slctsx.f b/TESTING/EIG/slctsx.f index d1706451..e8bd23c5 100644 --- a/TESTING/EIG/slctsx.f +++ b/TESTING/EIG/slctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SLCTSX( AR, AI, BETA ) -* +* * .. Scalar Arguments .. * REAL AI, AR, BETA * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/slsets.f b/TESTING/EIG/slsets.f index 50a8a6c7..b4eee111 100644 --- a/TESTING/EIG/slsets.f +++ b/TESTING/EIG/slsets.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, * D, DF, X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, P, N * .. @@ -19,7 +19,7 @@ * $ BF( LDB, * ), RESULT( 2 ), RWORK( * ), * $ C( * ), D( * ), CF( * ), DF( * ), * $ WORK( LWORK ), X( * ) -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sort01.f b/TESTING/EIG/sort01.f index 4e7b0b04..f59b1fb1 100644 --- a/TESTING/EIG/sort01.f +++ b/TESTING/EIG/sort01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sort03.f b/TESTING/EIG/sort03.f index ade9a4f3..12f0b51c 100644 --- a/TESTING/EIG/sort03.f +++ b/TESTING/EIG/sort03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssbt21.f b/TESTING/EIG/ssbt21.f index 88dd0a87..a47f5a72 100644 --- a/TESTING/EIG/ssbt21.f +++ b/TESTING/EIG/ssbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssgt01.f b/TESTING/EIG/ssgt01.f index f60a28ba..b0795c2d 100644 --- a/TESTING/EIG/ssgt01.f +++ b/TESTING/EIG/ssgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), D( * ), RESULT( * ), * $ WORK( * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sslect.f b/TESTING/EIG/sslect.f index 5127df3d..b8c3df53 100644 --- a/TESTING/EIG/sslect.f +++ b/TESTING/EIG/sslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SSLECT( ZR, ZI ) -* +* * .. Scalar Arguments .. * REAL ZI, ZR * .. -* +* * *> \par Purpose: * ============= @@ -50,10 +50,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/sspt21.f b/TESTING/EIG/sspt21.f index 69dc6835..7e45ab84 100644 --- a/TESTING/EIG/sspt21.f +++ b/TESTING/EIG/sspt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -19,7 +19,7 @@ * REAL AP( * ), D( * ), E( * ), RESULT( 2 ), TAU( * ), * $ U( LDU, * ), VP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -206,10 +206,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstech.f b/TESTING/EIG/sstech.f index 3ed8cb12..37fe2985 100644 --- a/TESTING/EIG/sstech.f +++ b/TESTING/EIG/sstech.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTECH( N, A, B, EIG, TOL, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( * ), B( * ), EIG( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstect.f b/TESTING/EIG/sstect.f index 9033a4ea..54e3a292 100644 --- a/TESTING/EIG/sstect.f +++ b/TESTING/EIG/sstect.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTECT( N, A, B, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * REAL SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL A( * ), B( * ) * .. -* +* * *> \par Purpose: * ============= @@ -70,10 +70,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstt21.f b/TESTING/EIG/sstt21.f index 08fcf9fa..e9d73862 100644 --- a/TESTING/EIG/sstt21.f +++ b/TESTING/EIG/sstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -18,7 +18,7 @@ * REAL AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/sstt22.f b/TESTING/EIG/sstt22.f index 607e8532..1ee63d98 100644 --- a/TESTING/EIG/sstt22.f +++ b/TESTING/EIG/sstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL AD( * ), AE( * ), RESULT( 2 ), SD( * ), * $ SE( * ), U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssvdch.f b/TESTING/EIG/ssvdch.f index 1bee8001..5261bdab 100644 --- a/TESTING/EIG/ssvdch.f +++ b/TESTING/EIG/ssvdch.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSVDCH( N, S, E, SVD, TOL, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, N * REAL TOL @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL E( * ), S( * ), SVD( * ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssvdct.f b/TESTING/EIG/ssvdct.f index 60af26fa..ed52fb60 100644 --- a/TESTING/EIG/ssvdct.f +++ b/TESTING/EIG/ssvdct.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSVDCT( N, S, E, SHIFT, NUM ) -* +* * .. Scalar Arguments .. * INTEGER N, NUM * REAL SHIFT @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL E( * ), S( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssxt1.f b/TESTING/EIG/ssxt1.f index 164633cc..0fb3aee4 100644 --- a/TESTING/EIG/ssxt1.f +++ b/TESTING/EIG/ssxt1.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SSXT1( IJOB, D1, N1, D2, N2, ABSTOL, * ULP, UNFL ) -* +* * .. Scalar Arguments .. * INTEGER IJOB, N1, N2 * REAL ABSTOL, ULP, UNFL @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL D1( * ), D2( * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssyt21.f b/TESTING/EIG/ssyt21.f index d2ce8bf6..0b260f41 100644 --- a/TESTING/EIG/ssyt21.f +++ b/TESTING/EIG/ssyt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -192,10 +192,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/ssyt22.f b/TESTING/EIG/ssyt22.f index dbc0438a..065af46f 100644 --- a/TESTING/EIG/ssyt22.f +++ b/TESTING/EIG/ssyt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -19,7 +19,7 @@ * REAL A( LDA, * ), D( * ), E( * ), RESULT( 2 ), * $ TAU( * ), U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/xerbla.f b/TESTING/EIG/xerbla.f index 8694ff1f..821d5a5b 100644 --- a/TESTING/EIG/xerbla.f +++ b/TESTING/EIG/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/xlaenv.f b/TESTING/EIG/xlaenv.f index 66705f85..d8a87077 100644 --- a/TESTING/EIG/xlaenv.f +++ b/TESTING/EIG/xlaenv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XLAENV( ISPEC, NVALUE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC, NVALUE * .. -* +* * *> \par Purpose: * ============= @@ -69,10 +69,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt01.f b/TESTING/EIG/zbdt01.f index 419f1642..cd4154a3 100644 --- a/TESTING/EIG/zbdt01.f +++ b/TESTING/EIG/zbdt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER KD, LDA, LDPT, LDQ, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), PT( LDPT, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt02.f b/TESTING/EIG/zbdt02.f index e517c871..2da9d905 100644 --- a/TESTING/EIG/zbdt02.f +++ b/TESTING/EIG/zbdt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDC, LDU, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), C( LDC, * ), U( LDU, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt03.f b/TESTING/EIG/zbdt03.f index 6f1d443f..00fc4009 100644 --- a/TESTING/EIG/zbdt03.f +++ b/TESTING/EIG/zbdt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDU, LDVT, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ), E( * ), S( * ) * COMPLEX*16 U( LDU, * ), VT( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zbdt05.f b/TESTING/EIG/zbdt05.f index e64c93b0..b525e37c 100644 --- a/TESTING/EIG/zbdt05.f +++ b/TESTING/EIG/zbdt05.f @@ -1,14 +1,14 @@ * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, -* VT, LDVT, WORK, RESID ) -* +* SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, +* VT, LDVT, WORK, RESID ) +* * .. Scalar Arguments .. * INTEGER LDA, LDU, LDVT, N, NS * DOUBLE PRECISION RESID @@ -61,14 +61,14 @@ *> \param[in] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (NS) -*> The singular values from the (partial) SVD of B, sorted in +*> The singular values from the (partial) SVD of B, sorted in *> decreasing order. *> \endverbatim *> *> \param[in] NS *> \verbatim *> NS is INTEGER -*> The number of singular values/vectors from the (partial) +*> The number of singular values/vectors from the (partial) *> SVD of B. *> \endverbatim *> @@ -110,17 +110,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_eig * * ===================================================================== - SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, + SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * * -- LAPACK test routine (version 3.4.0) -- diff --git a/TESTING/EIG/zchkbb.f b/TESTING/EIG/zchkbb.f index 3563f5fd..d641d47a 100644 --- a/TESTING/EIG/zchkbb.f +++ b/TESTING/EIG/zchkbb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NRHS, ISEED, THRESH, NOUNIT, A, LDA, AB, LDAB, * BD, BE, Q, LDQ, P, LDP, C, LDC, CC, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, * $ NRHS, NSIZES, NTYPES, NWDTHS @@ -26,7 +26,7 @@ * $ CC( LDC, * ), P( LDP, * ), Q( LDQ, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -346,10 +346,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkbd.f b/TESTING/EIG/zchkbd.f index 493b7804..fa68d60a 100644 --- a/TESTING/EIG/zchkbd.f +++ b/TESTING/EIG/zchkbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ISEED, THRESH, A, LDA, BD, BE, S1, S2, X, LDX, * Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, * RWORK, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * $ U( LDPT, * ), VT( LDPT, * ), WORK( * ), * $ X( LDX, * ), Y( LDX, * ), Z( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -400,10 +400,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zchkbk.f b/TESTING/EIG/zchkbk.f index 9ee77464..2d66ec19 100644 --- a/TESTING/EIG/zchkbk.f +++ b/TESTING/EIG/zchkbk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKBK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkbl.f b/TESTING/EIG/zchkbl.f index 66af6713..b17f931e 100644 --- a/TESTING/EIG/zchkbl.f +++ b/TESTING/EIG/zchkbl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKBL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkec.f b/TESTING/EIG/zchkec.f index ed222945..c3e1ffd0 100644 --- a/TESTING/EIG/zchkec.f +++ b/TESTING/EIG/zchkec.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NIN, NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/TESTING/EIG/zchkee.f b/TESTING/EIG/zchkee.f index 2588060b..9ca71cee 100644 --- a/TESTING/EIG/zchkee.f +++ b/TESTING/EIG/zchkee.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKEE -* +* * *> \par Purpose: * ============= @@ -1022,10 +1022,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -2157,7 +2157,7 @@ $ WRITE( NOUT, FMT = 9980 )'ZDRGES', INFO * * Blocked version -* +* CALL ZDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), @@ -2222,7 +2222,7 @@ $ WRITE( NOUT, FMT = 9980 )'ZDRGEV', INFO * * Blocked version -* +* CALL XLAENV(16,2) CALL ZDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), @@ -2461,7 +2461,7 @@ 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ', $ 'Problem Expert Driver ZGGEVX' ) 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4, - $ ', INMIN=', I4, + $ ', INMIN=', I4, $ ', INWIN =', I4, ', INIBL =', I4, ', ISHFTS =', I4, $ ', IACC22 =', I4) 9960 FORMAT( / ' Tests of the CS Decomposition routines' ) diff --git a/TESTING/EIG/zchkgg.f b/TESTING/EIG/zchkgg.f index 53bd07a1..5e16afbf 100644 --- a/TESTING/EIG/zchkgg.f +++ b/TESTING/EIG/zchkgg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * S2, P1, P2, U, LDU, V, Q, Z, ALPHA1, BETA1, * ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, * RWORK, LLWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL TSTDIF * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES @@ -31,7 +31,7 @@ * $ T( LDA, * ), U( LDU, * ), V( LDU, * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -487,10 +487,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zchkgk.f b/TESTING/EIG/zchkgk.f index 37a72f6a..4201048c 100644 --- a/TESTING/EIG/zchkgk.f +++ b/TESTING/EIG/zchkgk.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGK( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkgl.f b/TESTING/EIG/zchkgl.f index c0845868..97e134a0 100644 --- a/TESTING/EIG/zchkgl.f +++ b/TESTING/EIG/zchkgl.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGL( NIN, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NIN, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -41,10 +41,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkhb.f b/TESTING/EIG/zchkhb.f index f923496e..39bd8299 100644 --- a/TESTING/EIG/zchkhb.f +++ b/TESTING/EIG/zchkhb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, * THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, * LWORK, RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, * $ NWDTHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -284,10 +284,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkhs.f b/TESTING/EIG/zchkhs.f index a2433944..c0a47074 100644 --- a/TESTING/EIG/zchkhs.f +++ b/TESTING/EIG/zchkhs.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * W3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, * WORK, NWORK, RWORK, IWORK, SELECT, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -29,7 +29,7 @@ * $ UU( LDU, * ), UZ( LDU, * ), W1( * ), W3( * ), * $ WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -396,10 +396,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zchkst.f b/TESTING/EIG/zchkst.f index d62ce26a..562d8029 100644 --- a/TESTING/EIG/zchkst.f +++ b/TESTING/EIG/zchkst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, * LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -28,7 +28,7 @@ * COMPLEX*16 A( LDA, * ), AP( * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), VP( * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -519,7 +519,7 @@ *> \verbatim *> LIWORK is INTEGER *> The number of entries in IWORK. This must be at least -*> 6 + 6*Nmax + 5 * Nmax * lg Nmax +*> 6 + 6*Nmax + 5 * Nmax * lg Nmax *> where Nmax = max( NN(j), 2 ) and lg = log base 2. *> \endverbatim *> @@ -588,10 +588,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckcsd.f b/TESTING/EIG/zckcsd.f index 99ed5bd5..734922ed 100644 --- a/TESTING/EIG/zckcsd.f +++ b/TESTING/EIG/zckcsd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, * MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, * WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 U1( * ), U2( * ), V1T( * ), V2T( * ), * $ WORK( * ), X( * ), XF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -170,10 +170,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckglm.f b/TESTING/EIG/zckglm.f index ed05544f..00a5914e 100644 --- a/TESTING/EIG/zckglm.f +++ b/TESTING/EIG/zckglm.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckgqr.f b/TESTING/EIG/zckgqr.f index fccac221..c12edc9f 100644 --- a/TESTING/EIG/zckgqr.f +++ b/TESTING/EIG/zckgqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, * THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, * BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * $ BF( * ), BT( * ), BWK( * ), BZ( * ), TAUA( * ), * $ TAUB( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -197,10 +197,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zckgsv.f b/TESTING/EIG/zckgsv.f index ace98cee..d5bfe2b1 100644 --- a/TESTING/EIG/zckgsv.f +++ b/TESTING/EIG/zckgsv.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, * IWORK, WORK, RWORK, NIN, NOUT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), Q( * ), * $ R( * ), U( * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -184,10 +184,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/EIG/zcklse.f b/TESTING/EIG/zcklse.f index a3cfa033..79212b31 100644 --- a/TESTING/EIG/zcklse.f +++ b/TESTING/EIG/zcklse.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, * NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), BF( * ), WORK( * ), * $ X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zcsdts.f b/TESTING/EIG/zcsdts.f index bc6afb41..d411c85d 100644 --- a/TESTING/EIG/zcsdts.f +++ b/TESTING/EIG/zcsdts.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q * .. @@ -22,7 +22,7 @@ * $ V2T( LDV2T, * ), WORK( LWORK ), X( LDX, * ), * $ XF( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -280,7 +280,7 @@ CALL ZHERK( 'Upper', 'Conjugate transpose', M, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ ZLANGE( '1', M, M, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -446,7 +446,7 @@ CALL ZHERK( 'Upper', 'Conjugate transpose', Q, M, -REALONE, $ X, LDX, REALONE, WORK, LDX ) IF (M.GT.0) THEN - EPS2 = MAX( ULP, + EPS2 = MAX( ULP, $ ZLANGE( '1', Q, Q, WORK, LDX, RWORK ) / DBLE( M ) ) ELSE EPS2 = ULP @@ -553,7 +553,7 @@ END DO * RETURN -* +* * End of ZCSDTS * END diff --git a/TESTING/EIG/zdrges.f b/TESTING/EIG/zdrges.f index a0a76b95..b90764e4 100644 --- a/TESTING/EIG/zdrges.f +++ b/TESTING/EIG/zdrges.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, * BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * $ BETA( * ), Q( LDQ, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -367,10 +367,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrgev.f b/TESTING/EIG/zdrgev.f index 6f745d18..7a7d2a00 100644 --- a/TESTING/EIG/zdrgev.f +++ b/TESTING/EIG/zdrgev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, QE, LDQE, * ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -27,7 +27,7 @@ * $ Q( LDQ, * ), QE( LDQE, * ), S( LDA, * ), * $ T( LDA, * ), WORK( * ), Z( LDQ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -384,10 +384,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrgsx.f b/TESTING/EIG/zdrgsx.f index 3714b705..2c26b8d1 100644 --- a/TESTING/EIG/zdrgsx.f +++ b/TESTING/EIG/zdrgsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, * BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK, * RWORK, IWORK, LIWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, * $ NOUT, NSIZE @@ -26,7 +26,7 @@ * $ C( LDC, * ), Q( LDA, * ), WORK( * ), * $ Z( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -335,10 +335,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrgvx.f b/TESTING/EIG/zdrgvx.f index f36007b3..9c2ba3a1 100644 --- a/TESTING/EIG/zdrgvx.f +++ b/TESTING/EIG/zdrgvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * ALPHA, BETA, VL, VR, ILO, IHI, LSCALE, RSCALE, * S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK, * IWORK, LIWORK, RESULT, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, * $ NSIZE @@ -27,7 +27,7 @@ * $ B( LDA, * ), BETA( * ), BI( LDA, * ), * $ VL( LDA, * ), VR( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -204,32 +204,32 @@ *> IHI is INTEGER *> \endverbatim *> -*> \param[out] LSCALE +*> \param[out] LSCALE *> \verbatim *> LSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] RSCALE +*> \param[out] RSCALE *> \verbatim *> RSCALE is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] S +*> \param[out] S *> \verbatim *> S is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DTRU +*> \param[out] DTRU *> \verbatim *> DTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIF +*> \param[out] DIF *> \verbatim *> DIF is DOUBLE PRECISION array, dimension (N) *> \endverbatim *> -*> \param[out] DIFTRU +*> \param[out] DIFTRU *> \verbatim *> DIFTRU is DOUBLE PRECISION array, dimension (N) *> \endverbatim @@ -261,7 +261,7 @@ *> Leading dimension of IWORK. LIWORK >= N+2. *> \endverbatim *> -*> \param[out] RESULT +*> \param[out] RESULT *> \verbatim *> RESULT is DOUBLE PRECISION array, dimension (4) *> \endverbatim @@ -282,10 +282,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrvbd.f b/TESTING/EIG/zdrvbd.f index d8388eed..c4457e28 100644 --- a/TESTING/EIG/zdrvbd.f +++ b/TESTING/EIG/zdrvbd.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, * SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ USAV( LDU, * ), VT( LDVT, * ), * $ VTSAV( LDVT, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,7 +132,7 @@ *> *> (7) | S - Spartial | / ( MNMIN ulp |S| ) where Spartial is the *> vector of singular values from the partial SVD -*> +*> *> Test for ZGESVDX( 'V', 'V', 'I' ) *> *> (8) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -140,7 +140,7 @@ *> (9) | I - U'U | / ( M ulp ) *> *> (10) | I - VT VT' | / ( N ulp ) -*> +*> *> Test for ZGESVDX( 'V', 'V', 'V' ) *> *> (11) | U' A VT''' - diag(S) | / ( |A| max(M,N) ulp ) @@ -374,10 +374,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -423,12 +423,12 @@ * .. Local Scalars .. LOGICAL BADMM, BADNN CHARACTER JOBQ, JOBU, JOBVT, RANGE - INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, - $ IWSPC, IWTMP, J, JSIZE, JTYPE, LSWORK, M, - $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, - $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, + INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, + $ IWSPC, IWTMP, J, JSIZE, JTYPE, LSWORK, M, + $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, + $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, $ NTESTF, NTESTT, LRWORK - DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, + DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, $ UNFL, VL, VU * .. * .. Local Arrays .. @@ -442,7 +442,7 @@ * .. * .. External Subroutines .. EXTERNAL ALASVM, XERBLA, ZBDT01, ZBDT05, ZGESDD, - $ ZGESVD, ZGESVJ, ZGEJSV, ZGESVDX, ZLACPY, + $ ZGESVD, ZGESVJ, ZGEJSV, ZGESVDX, ZLACPY, $ ZLASET, ZLATMS, ZUNT01, ZUNT03 * .. * .. Intrinsic Functions .. @@ -858,7 +858,7 @@ CALL ZLACPY( 'F', M, N, ASAV, LDA, USAV, LDA ) SRNAMT = 'ZGESVJ' CALL ZGESVJ( 'G', 'U', 'V', M, N, USAV, LDA, SSAV, - & 0, A, LDVT, WORK, LWORK, RWORK, + & 0, A, LDVT, WORK, LWORK, RWORK, & LRWORK, IINFO ) * * ZGESVJ retuns V not VT, so we transpose to use the same @@ -920,7 +920,7 @@ SRNAMT = 'ZGEJSV' CALL ZGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', & M, N, VTSAV, LDA, SSAV, USAV, LDU, A, LDVT, - & WORK, LWORK, RWORK, + & WORK, LWORK, RWORK, & LRWORK, IWORK, IINFO ) * * ZGEJSV retuns V not VT, so we transpose to use the same @@ -968,8 +968,8 @@ * CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( 'V', 'V', 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, + CALL ZGESVDX( 'V', 'V', 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, USAV, LDU, $ VTSAV, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN @@ -1018,8 +1018,8 @@ RANGE = CJOBR( 1 ) CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, - $ VL, VU, IL, IU, NS, SSAV, U, LDU, + CALL ZGESVDX( JOBU, JOBVT, 'A', M, N, A, LDA, + $ VL, VU, IL, IU, NS, SSAV, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) * @@ -1079,15 +1079,15 @@ IU = IL IL = ITEMP END IF - END IF + END IF CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( 'V', 'V', 'I', M, N, A, LDA, - $ VL, VU, IL, IU, NSI, S, U, LDU, + CALL ZGESVDX( 'V', 'V', 'I', M, N, A, LDA, + $ VL, VU, IL, IU, NSI, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1109,11 +1109,11 @@ * IF( MNMIN.GT.0 .AND. NSI.GT.1 ) THEN IF( IL.NE.1 ) THEN - VU = SSAV( IL ) + + VU = SSAV( IL ) + $ MAX( HALF*ABS( SSAV( IL )-SSAV( IL-1 ) ), $ ULP*ANORM, TWO*RTUNFL ) ELSE - VU = SSAV( 1 ) + + VU = SSAV( 1 ) + $ MAX( HALF*ABS( SSAV( NS )-SSAV( 1 ) ), $ ULP*ANORM, TWO*RTUNFL ) END IF @@ -1130,15 +1130,15 @@ ELSE VL = ZERO VU = ONE - END IF + END IF CALL ZLACPY( 'F', M, N, ASAV, LDA, A, LDA ) SRNAMT = 'ZGESVDX' - CALL ZGESVDX( 'V', 'V', 'V', M, N, A, LDA, - $ VL, VU, IL, IU, NSV, S, U, LDU, + CALL ZGESVDX( 'V', 'V', 'V', M, N, A, LDA, + $ VL, VU, IL, IU, NSV, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, $ IWORK, IINFO ) IF( IINFO.NE.0 ) THEN - WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, + WRITE( NOUNIT, FMT = 9995 )'GESVDX', IINFO, M, N, $ JTYPE, LSWORK, IOLDSD INFO = ABS( IINFO ) RETURN @@ -1221,7 +1221,7 @@ $ ' decreasing order, else 1/ulp', $ / '12 = | U - Upartial | / ( M ulp )', $ / '13 = | VT - VTpartial | / ( N ulp )', - $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', + $ / '14 = | S - Spartial | / ( min(M,N) ulp |S| )', $ / ' ZGESVJ: ', / $ / '15 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ) ', $ / '16 = | I - U**T U | / ( M ulp ) ', @@ -1231,7 +1231,7 @@ $ / ' ZGESJV: ', / $ / '19 = | A - U diag(S) VT | / ( |A| max(M,N) ulp )', $ / '20 = | I - U**T U | / ( M ulp ) ', - $ / '21 = | I - VT VT**T | / ( N ulp ) ', + $ / '21 = | I - VT VT**T | / ( N ulp ) ', $ / '22 = 0 if S contains min(M,N) nonnegative values in', $ ' decreasing order, else 1/ulp', $ / ' ZGESVDX(V,V,A): ', / @@ -1250,7 +1250,7 @@ $ / ' ZGESVDX(V,V,V) ', $ / '33 = | U**T A VT**T - diag(S) | / ( |A| max(M,N) ulp )', $ / '34 = | I - U**T U | / ( M ulp ) ', - $ / '35 = | I - VT VT**T | / ( N ulp ) ', + $ / '35 = | I - VT VT**T | / ( N ulp ) ', $ / / ) 9997 FORMAT( ' M=', I5, ', N=', I5, ', type ', I1, ', IWS=', I1, $ ', seed=', 4( I4, ',' ), ' test(', I2, ')=', G11.4 ) diff --git a/TESTING/EIG/zdrves.f b/TESTING/EIG/zdrves.f index 15f5debc..4590f36d 100644 --- a/TESTING/EIG/zdrves.f +++ b/TESTING/EIG/zdrves.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, * WORK, NWORK, RWORK, IWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * COMPLEX*16 A( LDA, * ), H( LDA, * ), HT( LDA, * ), * $ VS( LDVS, * ), W( * ), WORK( * ), WT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -364,10 +364,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrvev.f b/TESTING/EIG/zdrvev.f index de5a03b2..f2a72d35 100644 --- a/TESTING/EIG/zdrvev.f +++ b/TESTING/EIG/zdrvev.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, H, W, W1, VL, LDVL, VR, LDVR, * LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, * $ NTYPES, NWORK @@ -26,7 +26,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -376,10 +376,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zdrvsg.f b/TESTING/EIG/zdrvsg.f index f2c791e8..79f34b08 100644 --- a/TESTING/EIG/zdrvsg.f +++ b/TESTING/EIG/zdrvsg.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, * BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, * RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -26,7 +26,7 @@ * $ B( LDB, * ), BB( LDB, * ), BP( * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -355,10 +355,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zdrvst.f b/TESTING/EIG/zdrvst.f index aee691fe..333f6622 100644 --- a/TESTING/EIG/zdrvst.f +++ b/TESTING/EIG/zdrvst.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NOUNIT, A, LDA, D1, D2, D3, WA1, WA2, WA3, U, * LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, * IWORK, LIWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, * $ NSIZES, NTYPES @@ -26,7 +26,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDU, * ), WORK( * ), Z( LDU, * ) * .. -* +* * *> \par Purpose: * ============= @@ -323,10 +323,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zdrvsx.f b/TESTING/EIG/zdrvsx.f index 96cb2365..7265b7b5 100644 --- a/TESTING/EIG/zdrvsx.f +++ b/TESTING/EIG/zdrvsx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NIUNIT, NOUNIT, A, LDA, H, HT, W, WT, WTMP, VS, * LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, * $ NTYPES @@ -26,7 +26,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -420,10 +420,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zdrvvx.f b/TESTING/EIG/zdrvvx.f index 00c91fec..8fd1c4d2 100644 --- a/TESTING/EIG/zdrvvx.f +++ b/TESTING/EIG/zdrvvx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, NWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, * $ NSIZES, NTYPES, NWORK @@ -30,7 +30,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -480,10 +480,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zerrbd.f b/TESTING/EIG/zerrbd.f index 17c20fb5..ee8b87d3 100644 --- a/TESTING/EIG/zerrbd.f +++ b/TESTING/EIG/zerrbd.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRBD( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 91a81f3e..7ea308b2 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERREC( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index 9179b1df..66ed5965 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRED( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * @@ -100,7 +100,7 @@ $ VT( NMAX, NMAX ), W( 10*NMAX ), X( NMAX ) * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, + EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, $ ZGESDD, ZGESVD * .. * .. External Functions .. @@ -441,51 +441,51 @@ * SRNAMT = 'ZGESVDX' INFOT = 1 - CALL ZGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'X', 'N', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'X', 'A', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL ZGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'X', 0, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL ZGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'A', -1, 0, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL ZGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'A', 0, -1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL ZGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'A', 2, 1, A, 1, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, + CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, -ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, + CALL ZGESVDX( 'N', 'N', 'V', 2, 1, A, 2, ONE, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 10 - CALL ZGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'N', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 0, 1, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL ZGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'V', 'N', 'I', 2, 2, A, 2, ZERO, ZERO, $ 1, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL ZGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) INFOT = 17 - CALL ZGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, + CALL ZGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) NT = 12 diff --git a/TESTING/EIG/zerrgg.f b/TESTING/EIG/zerrgg.f index a9136332..057a397c 100644 --- a/TESTING/EIG/zerrgg.f +++ b/TESTING/EIG/zerrgg.f @@ -214,7 +214,7 @@ $ INFO ) CALL CHKXER( 'ZGGHD3', INFOT, NOUT, LERR, OK ) NT = NT + 9 -* +* * ZHGEQZ * SRNAMT = 'ZHGEQZ' diff --git a/TESTING/EIG/zerrhs.f b/TESTING/EIG/zerrhs.f index ab36b649..2f1e728c 100644 --- a/TESTING/EIG/zerrhs.f +++ b/TESTING/EIG/zerrhs.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRHS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zerrst.f b/TESTING/EIG/zerrst.f index a3e992e2..92c9e52c 100644 --- a/TESTING/EIG/zerrst.f +++ b/TESTING/EIG/zerrst.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRST( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget02.f b/TESTING/EIG/zget02.f index 54791393..415b0bc2 100644 --- a/TESTING/EIG/zget02.f +++ b/TESTING/EIG/zget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget10.f b/TESTING/EIG/zget10.f index 53765d4e..6d5b268b 100644 --- a/TESTING/EIG/zget10.f +++ b/TESTING/EIG/zget10.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, M, N * DOUBLE PRECISION RESULT @@ -18,7 +18,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -87,10 +87,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget22.f b/TESTING/EIG/zget22.f index 570d25bb..05e33e5c 100644 --- a/TESTING/EIG/zget22.f +++ b/TESTING/EIG/zget22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER TRANSA, TRANSE, TRANSW * INTEGER LDA, LDE, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RESULT( 2 ), RWORK( * ) * COMPLEX*16 A( LDA, * ), E( LDE, * ), W( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget23.f b/TESTING/EIG/zget23.f index 773cb571..aa8f693c 100644 --- a/TESTING/EIG/zget23.f +++ b/TESTING/EIG/zget23.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -13,7 +13,7 @@ * LDVR, LRE, LDLRE, RCONDV, RCNDV1, RCDVIN, * RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, * WORK, LWORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * CHARACTER BALANC @@ -31,7 +31,7 @@ * $ VL( LDVL, * ), VR( LDVR, * ), W( * ), W1( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -352,10 +352,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget24.f b/TESTING/EIG/zget24.f index ea224130..9446fc4c 100644 --- a/TESTING/EIG/zget24.f +++ b/TESTING/EIG/zget24.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * H, HT, W, WT, WTMP, VS, LDVS, VS1, RCDEIN, * RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, * LWORK, RWORK, BWORK, INFO ) -* +* * .. Scalar Arguments .. * LOGICAL COMP * INTEGER INFO, ISRT, JTYPE, LDA, LDVS, LWORK, N, NOUNIT, @@ -27,7 +27,7 @@ * $ VS( LDVS, * ), VS1( LDVS, * ), W( * ), * $ WORK( * ), WT( * ), WTMP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -320,10 +320,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget35.f b/TESTING/EIG/zget35.f index c4ed5c1f..8e492673 100644 --- a/TESTING/EIG/zget35.f +++ b/TESTING/EIG/zget35.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget36.f b/TESTING/EIG/zget36.f index f5dff949..9dcf0b8d 100644 --- a/TESTING/EIG/zget36.f +++ b/TESTING/EIG/zget36.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET36( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, LMAX, NIN, NINFO * DOUBLE PRECISION RMAX * .. -* +* * *> \par Purpose: * ============= @@ -73,10 +73,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget37.f b/TESTING/EIG/zget37.f index 4bc8d3c9..a2946dec 100644 --- a/TESTING/EIG/zget37.f +++ b/TESTING/EIG/zget37.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET37( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget38.f b/TESTING/EIG/zget38.f index 347681fb..84d71e42 100644 --- a/TESTING/EIG/zget38.f +++ b/TESTING/EIG/zget38.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET38( RMAX, LMAX, NINFO, KNT, NIN ) -* +* * .. Scalar Arguments .. * INTEGER KNT, NIN * .. @@ -17,7 +17,7 @@ * INTEGER LMAX( 3 ), NINFO( 3 ) * DOUBLE PRECISION RMAX( 3 ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget51.f b/TESTING/EIG/zget51.f index 628914ca..7bd0c4c2 100644 --- a/TESTING/EIG/zget51.f +++ b/TESTING/EIG/zget51.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER ITYPE, LDA, LDB, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget52.f b/TESTING/EIG/zget52.f index 8dc4d91f..5a284bfb 100644 --- a/TESTING/EIG/zget52.f +++ b/TESTING/EIG/zget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), E( LDE, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> If a(i)=b(i)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zget54.f b/TESTING/EIG/zget54.f index 2ca0389d..b5427d2e 100644 --- a/TESTING/EIG/zget54.f +++ b/TESTING/EIG/zget54.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, * LDV, WORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N * DOUBLE PRECISION RESULT @@ -20,7 +20,7 @@ * $ T( LDT, * ), U( LDU, * ), V( LDV, * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zglmts.f b/TESTING/EIG/zglmts.f index 469f8d26..aa2e6572 100644 --- a/TESTING/EIG/zglmts.f +++ b/TESTING/EIG/zglmts.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, * WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * DOUBLE PRECISION RESULT * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zgqrts.f b/TESTING/EIG/zgqrts.f index 1e00659b..303bde7c 100644 --- a/TESTING/EIG/zgqrts.f +++ b/TESTING/EIG/zgqrts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ R( LDA, * ), T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zgrqts.f b/TESTING/EIG/zgrqts.f index 9575ba3f..f56dad7c 100644 --- a/TESTING/EIG/zgrqts.f +++ b/TESTING/EIG/zgrqts.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, * BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. @@ -21,7 +21,7 @@ * $ R( LDA, * ), T( LDB, * ), TAUA( * ), TAUB( * ), * $ WORK( LWORK ), Z( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zgsvts3.f b/TESTING/EIG/zgsvts3.f index 8a5c2d4c..b9f682b7 100644 --- a/TESTING/EIG/zgsvts3.f +++ b/TESTING/EIG/zgsvts3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, * LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P * .. @@ -22,7 +22,7 @@ * $ BF( LDB, * ), Q( LDQ, * ), R( LDR, * ), * $ U( LDU, * ), V( LDV, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date August 2015 * diff --git a/TESTING/EIG/zhbt21.f b/TESTING/EIG/zhbt21.f index 0933d726..3c61a4b0 100644 --- a/TESTING/EIG/zhbt21.f +++ b/TESTING/EIG/zhbt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KA, KS, LDA, LDU, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ), E( * ), RESULT( 2 ), RWORK( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhet21.f b/TESTING/EIG/zhet21.f index 680d4044..8987bd19 100644 --- a/TESTING/EIG/zhet21.f +++ b/TESTING/EIG/zhet21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, * LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhet22.f b/TESTING/EIG/zhet22.f index 82137bdd..7c3bc4b6 100644 --- a/TESTING/EIG/zhet22.f +++ b/TESTING/EIG/zhet22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, * V, LDV, TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDA, LDU, LDV, M, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), TAU( * ), U( LDU, * ), * $ V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhpt21.f b/TESTING/EIG/zhpt21.f index a840c164..ff55b105 100644 --- a/TESTING/EIG/zhpt21.f +++ b/TESTING/EIG/zhpt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, * TAU, WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, KBAND, LDU, N @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), TAU( * ), U( LDU, * ), VP( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -210,10 +210,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zhst01.f b/TESTING/EIG/zhst01.f index da55e2a4..fc2293ed 100644 --- a/TESTING/EIG/zhst01.f +++ b/TESTING/EIG/zhst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, * LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), H( LDH, * ), Q( LDQ, * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlarfy.f b/TESTING/EIG/zlarfy.f index 9b9b80b6..39b795f0 100644 --- a/TESTING/EIG/zlarfy.f +++ b/TESTING/EIG/zlarfy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCV, LDC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 C( LDC, * ), V( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlarhs.f b/TESTING/EIG/zlarhs.f index 6180d632..b144b764 100644 --- a/TESTING/EIG/zlarhs.f +++ b/TESTING/EIG/zlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlatm4.f b/TESTING/EIG/zlatm4.f index d0b39e2b..42ea5fda 100644 --- a/TESTING/EIG/zlatm4.f +++ b/TESTING/EIG/zlatm4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, * TRIANG, IDIST, ISEED, A, LDA ) -* +* * .. Scalar Arguments .. * LOGICAL RSIGN * INTEGER IDIST, ITYPE, LDA, N, NZ1, NZ2 @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlctes.f b/TESTING/EIG/zlctes.f index e0acd882..f4feec30 100644 --- a/TESTING/EIG/zlctes.f +++ b/TESTING/EIG/zlctes.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZLCTES( Z, D ) -* +* * .. Scalar Arguments .. * COMPLEX*16 D, Z * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zlctsx.f b/TESTING/EIG/zlctsx.f index 11be2dd1..2534cb86 100644 --- a/TESTING/EIG/zlctsx.f +++ b/TESTING/EIG/zlctsx.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZLCTSX( ALPHA, BETA ) -* +* * .. Scalar Arguments .. * COMPLEX*16 ALPHA, BETA * .. -* +* * *> \par Purpose: * ============= @@ -45,10 +45,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zlsets.f b/TESTING/EIG/zlsets.f index 06b11ffd..685e0068 100644 --- a/TESTING/EIG/zlsets.f +++ b/TESTING/EIG/zlsets.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, * X, WORK, LWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, P * .. * .. Array Arguments .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zsbmv.f b/TESTING/EIG/zsbmv.f index 6b8dbb45..8da30f03 100644 --- a/TESTING/EIG/zsbmv.f +++ b/TESTING/EIG/zsbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zsgt01.f b/TESTING/EIG/zsgt01.f index b89f8c86..193ff501 100644 --- a/TESTING/EIG/zsgt01.f +++ b/TESTING/EIG/zsgt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER ITYPE, LDA, LDB, LDZ, M, N @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zslect.f b/TESTING/EIG/zslect.f index 1d6ef4d5..14d4ad2b 100644 --- a/TESTING/EIG/zslect.f +++ b/TESTING/EIG/zslect.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZSLECT( Z ) -* +* * .. Scalar Arguments .. * COMPLEX*16 Z * .. -* +* * *> \par Purpose: * ============= @@ -44,10 +44,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/EIG/zstt21.f b/TESTING/EIG/zstt21.f index 562a5a2c..370c92f2 100644 --- a/TESTING/EIG/zstt21.f +++ b/TESTING/EIG/zstt21.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, * RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX*16 U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zstt22.f b/TESTING/EIG/zstt22.f index 546562f4..e0d2494d 100644 --- a/TESTING/EIG/zstt22.f +++ b/TESTING/EIG/zstt22.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, * LDWORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER KBAND, LDU, LDWORK, M, N * .. @@ -19,7 +19,7 @@ * $ SD( * ), SE( * ) * COMPLEX*16 U( LDU, * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -132,10 +132,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zunt01.f b/TESTING/EIG/zunt01.f index e440463b..4312f3a1 100644 --- a/TESTING/EIG/zunt01.f +++ b/TESTING/EIG/zunt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER ROWCOL * INTEGER LDU, LWORK, M, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 U( LDU, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/EIG/zunt03.f b/TESTING/EIG/zunt03.f index fa1dfb8d..b63adeaf 100644 --- a/TESTING/EIG/zunt03.f +++ b/TESTING/EIG/zunt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, * RWORK, RESULT, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) RC * INTEGER INFO, K, LDU, LDV, LWORK, MU, MV, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 U( LDU, * ), V( LDV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt index 7c36ab3a..50d16cab 100644 --- a/TESTING/LIN/CMakeLists.txt +++ b/TESTING/LIN/CMakeLists.txt @@ -1,39 +1,39 @@ -set(ALINTST - aladhd.f alaerh.f alaesm.f alahd.f alareq.f +set(ALINTST + aladhd.f alaerh.f alaesm.f alahd.f alareq.f alasum.f alasvm.f chkxer.f icopy.f ilaenv.f xlaenv.f xerbla.f) set(SCLNTST slaord.f) set(DZLNTST dlaord.f ) -set(SLINTST schkaa.f - schkeq.f schkgb.f schkge.f schkgt.f - schklq.f schkpb.f schkpo.f schkps.f schkpp.f - schkpt.f schkq3.f schkql.f schkqr.f schkrq.f - schksp.f schksy.f schksy_rook.f schktb.f schktp.f schktr.f - schktz.f - sdrvgt.f sdrvls.f sdrvpb.f +set(SLINTST schkaa.f + schkeq.f schkgb.f schkge.f schkgt.f + schklq.f schkpb.f schkpo.f schkps.f schkpp.f + schkpt.f schkq3.f schkql.f schkqr.f schkrq.f + schksp.f schksy.f schksy_rook.f schktb.f schktp.f schktr.f + schktz.f + sdrvgt.f sdrvls.f sdrvpb.f sdrvpp.f sdrvpt.f sdrvsp.f sdrvsy.f sdrvsy_rook.f - serrgt.f serrlq.f serrls.f - serrpo.f serrps.f serrql.f serrqp.f serrqr.f - serrrq.f serrsy.f serrtr.f serrtz.f serrvx.f - sgbt01.f sgbt02.f sgbt05.f sgelqs.f sgeqls.f sgeqrs.f - sgerqs.f sget01.f sget02.f - sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f - sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f - slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f - slqt03.f spbt01.f spbt02.f spbt05.f spot01.f - spot02.f spot03.f spot05.f spst01.f sppt01.f - sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f - sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f - sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f - sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f - srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f + serrgt.f serrlq.f serrls.f + serrpo.f serrps.f serrql.f serrqp.f serrqr.f + serrrq.f serrsy.f serrtr.f serrtz.f serrvx.f + sgbt01.f sgbt02.f sgbt05.f sgelqs.f sgeqls.f sgeqrs.f + sgerqs.f sget01.f sget02.f + sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f + sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f + slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f + slqt03.f spbt01.f spbt02.f spbt05.f spot01.f + spot02.f spot03.f spot05.f spst01.f sppt01.f + sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f + sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f + sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f + sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f + srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f sspt01.f ssyt01.f ssyt01_rook.f - stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f - stpt02.f stpt03.f stpt05.f stpt06.f strt01.f - strt02.f strt03.f strt05.f strt06.f - sgennd.f + stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f + stpt02.f stpt03.f stpt05.f stpt06.f strt01.f + strt02.f strt03.f strt05.f strt06.f + sgennd.f sqrt04.f sqrt05.f schkqrt.f serrqrt.f schkqrtp.f serrqrtp.f) if(USEXBLAS) @@ -42,116 +42,116 @@ else() list(APPEND SLINTST sdrvge.f serrge.f sdrvgb.f sdrvpo.f) endif() -set(CLINTST cchkaa.f - cchkeq.f cchkgb.f cchkge.f cchkgt.f - cchkhe.f cchkhe_rook.f cchkhp.f cchklq.f cchkpb.f - cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkql.f - cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchktb.f - cchktp.f cchktr.f cchktz.f - cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhp.f - cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f +set(CLINTST cchkaa.f + cchkeq.f cchkgb.f cchkge.f cchkgt.f + cchkhe.f cchkhe_rook.f cchkhp.f cchklq.f cchkpb.f + cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkql.f + cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchktb.f + cchktp.f cchktr.f cchktz.f + cdrvgt.f cdrvhe.f cdrvhe_rook.f cdrvhp.f + cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f cdrvsp.f cdrvsy.f cdrvsy_rook.f - cerrgt.f cerrhe.f cerrlq.f - cerrls.f cerrps.f cerrql.f cerrqp.f - cerrqr.f cerrrq.f cerrsy.f cerrtr.f cerrtz.f - cerrvx.f - cgbt01.f cgbt02.f cgbt05.f cgelqs.f cgeqls.f cgeqrs.f - cgerqs.f cget01.f cget02.f - cget03.f cget04.f cget07.f cgtt01.f cgtt02.f - cgtt05.f chet01.f chet01_rook.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f - clatsp.f clatsy.f clattb.f clattp.f clattr.f - clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f - clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f - cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f - cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f - cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f - cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f - cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f - cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f - csbmv.f cspt01.f - cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt02.f csyt03.f - ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f - ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f - ctrt02.f ctrt03.f ctrt05.f ctrt06.f + cerrgt.f cerrhe.f cerrlq.f + cerrls.f cerrps.f cerrql.f cerrqp.f + cerrqr.f cerrrq.f cerrsy.f cerrtr.f cerrtz.f + cerrvx.f + cgbt01.f cgbt02.f cgbt05.f cgelqs.f cgeqls.f cgeqrs.f + cgerqs.f cget01.f cget02.f + cget03.f cget04.f cget07.f cgtt01.f cgtt02.f + cgtt05.f chet01.f chet01_rook.f chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f + clatsp.f clatsy.f clattb.f clattp.f clattr.f + clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f + clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f + cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f + cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f + cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f + cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f + cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f + cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f + csbmv.f cspt01.f + cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt02.f csyt03.f + ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f + ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f + ctrt02.f ctrt03.f ctrt05.f ctrt06.f sget06.f cgennd.f cqrt04.f cqrt05.f cchkqrt.f cerrqrt.f cchkqrtp.f cerrqrtp.f ) if(USEXBLAS) - list(APPEND + list(APPEND CLINTST cdrvgex.f cdrvgbx.f cerrgex.f cdrvpox.f cerrpox.f cebchvxx.f) else() list(APPEND CLINTST cdrvge.f cdrvgb.f cerrge.f cdrvpo.f cerrpo.f) endif() -set(DLINTST dchkaa.f - dchkeq.f dchkgb.f dchkge.f dchkgt.f - dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f - dchkpt.f dchkq3.f dchkql.f dchkqr.f dchkrq.f - dchksp.f dchksy.f dchksy_rook.f dchktb.f dchktp.f dchktr.f - dchktz.f - ddrvgt.f ddrvls.f ddrvpb.f +set(DLINTST dchkaa.f + dchkeq.f dchkgb.f dchkge.f dchkgt.f + dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f + dchkpt.f dchkq3.f dchkql.f dchkqr.f dchkrq.f + dchksp.f dchksy.f dchksy_rook.f dchktb.f dchktp.f dchktr.f + dchktz.f + ddrvgt.f ddrvls.f ddrvpb.f ddrvpp.f ddrvpt.f ddrvsp.f ddrvsy.f ddrvsy_rook.f - derrgt.f derrlq.f derrls.f - derrps.f derrql.f derrqp.f derrqr.f - derrrq.f derrsy.f derrtr.f derrtz.f derrvx.f - dgbt01.f dgbt02.f dgbt05.f dgelqs.f dgeqls.f dgeqrs.f - dgerqs.f dget01.f dget02.f - dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f - dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f - dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f - dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f - dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f - dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f - dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f - dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f - dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f - drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f + derrgt.f derrlq.f derrls.f + derrps.f derrql.f derrqp.f derrqr.f + derrrq.f derrsy.f derrtr.f derrtz.f derrvx.f + dgbt01.f dgbt02.f dgbt05.f dgelqs.f dgeqls.f dgeqrs.f + dgerqs.f dget01.f dget02.f + dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f + dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f + dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f + dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f + dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f + dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f + dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f + dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f + dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f + drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f dspt01.f dsyt01.f dsyt01_rook.f - dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f - dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f - dtrt02.f dtrt03.f dtrt05.f dtrt06.f + dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f + dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f + dtrt02.f dtrt03.f dtrt05.f dtrt06.f dgennd.f dqrt04.f dqrt05.f dchkqrt.f derrqrt.f dchkqrtp.f derrqrtp.f ) if(USEXBLAS) - list(APPEND + list(APPEND DLINTST ddrvgex.f ddrvgbx.f derrgex.f ddrvpox.f derrpox.f debchvxx.f) else() list(APPEND DLINTST ddrvge.f ddrvgb.f derrge.f ddrvpo.f derrpo.f) endif() -set(ZLINTST zchkaa.f - zchkeq.f zchkgb.f zchkge.f zchkgt.f - zchkhe.f zchkhe_rook.f zchkhp.f zchklq.f zchkpb.f - zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkql.f - zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchktb.f - zchktp.f zchktr.f zchktz.f - zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhp.f - zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f - zdrvsp.f zdrvsy.f zdrvsy_rook.f - zerrgt.f zerrhe.f zerrlq.f - zerrls.f zerrps.f zerrql.f zerrqp.f - zerrqr.f zerrrq.f zerrsy.f zerrtr.f zerrtz.f - zerrvx.f - zgbt01.f zgbt02.f zgbt05.f zgelqs.f zgeqls.f zgeqrs.f - zgerqs.f zget01.f zget02.f - zget03.f zget04.f zget07.f zgtt01.f zgtt02.f - zgtt05.f zhet01.f zhet01.f zhet01_rook.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f - zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f - zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f - zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f - zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f - zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f - zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f - zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f - zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f - zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f - zsbmv.f zspt01.f - zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt02.f zsyt03.f - ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f - ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f - ztrt02.f ztrt03.f ztrt05.f ztrt06.f +set(ZLINTST zchkaa.f + zchkeq.f zchkgb.f zchkge.f zchkgt.f + zchkhe.f zchkhe_rook.f zchkhp.f zchklq.f zchkpb.f + zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkql.f + zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchktb.f + zchktp.f zchktr.f zchktz.f + zdrvgt.f zdrvhe.f zdrvhe_rook.f zdrvhp.f + zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f + zdrvsp.f zdrvsy.f zdrvsy_rook.f + zerrgt.f zerrhe.f zerrlq.f + zerrls.f zerrps.f zerrql.f zerrqp.f + zerrqr.f zerrrq.f zerrsy.f zerrtr.f zerrtz.f + zerrvx.f + zgbt01.f zgbt02.f zgbt05.f zgelqs.f zgeqls.f zgeqrs.f + zgerqs.f zget01.f zget02.f + zget03.f zget04.f zget07.f zgtt01.f zgtt02.f + zgtt05.f zhet01.f zhet01.f zhet01_rook.f zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f + zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f + zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f + zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f + zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f + zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f + zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f + zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f + zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f + zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f + zsbmv.f zspt01.f + zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt02.f zsyt03.f + ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f + ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f + ztrt02.f ztrt03.f ztrt05.f ztrt06.f dget06.f zgennd.f zqrt04.f zqrt05.f zchkqrt.f zerrqrt.f zchkqrtp.f zerrqrtp.f ) @@ -163,32 +163,32 @@ else() ZLINTST zdrvge.f zdrvgb.f zerrge.f zdrvpo.f zerrpo.f) endif() -set(DSLINTST dchkab.f - ddrvab.f ddrvac.f derrab.f derrac.f dget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f dlarhs.f dlatb4.f xerbla.f +set(DSLINTST dchkab.f + ddrvab.f ddrvac.f derrab.f derrac.f dget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f dlarhs.f dlatb4.f xerbla.f dget02.f dpot06.f) -set(ZCLINTST zchkab.f - zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f zget02.f zlarhs.f zlatb4.f +set(ZCLINTST zchkab.f + zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f zget02.f zlarhs.f zlatb4.f zsbmv.f xerbla.f zpot06.f zlaipd.f) -set(SLINTSTRFP schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f - slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f +set(SLINTSTRFP schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f + slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(DLINTSTRFP dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f - dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f +set(DLINTSTRFP dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f + dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(CLINTSTRFP cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f - claipd.f clatb4.f clarhs.f csbmv.f cget04.f cpot01.f cpot03.f cpot02.f +set(CLINTSTRFP cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f + claipd.f clatb4.f clarhs.f csbmv.f cget04.f cpot01.f cpot03.f cpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) -set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f - zlatb4.f zlaipd.f zlarhs.f zsbmv.f zget04.f zpot01.f zpot03.f zpot02.f +set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f + zlatb4.f zlaipd.f zlarhs.f zsbmv.f zget04.f zpot01.f zpot03.f zpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f ) macro(add_lin_executable name ) diff --git a/TESTING/LIN/Makefile b/TESTING/LIN/Makefile index 9db8b38a..57d4fe25 100644 --- a/TESTING/LIN/Makefile +++ b/TESTING/LIN/Makefile @@ -45,7 +45,7 @@ ALINTST = \ SCLNTST= slaord.o -DZLNTST= dlaord.o +DZLNTST= dlaord.o SLINTST = schkaa.o \ schkeq.o schkgb.o schkge.o schkgt.o \ @@ -218,26 +218,26 @@ ZCLINTST = zchkab.o \ SLINTSTRFP = schkrfp.o sdrvrfp.o sdrvrf1.o sdrvrf2.o sdrvrf3.o sdrvrf4.o serrrfp.o \ slatb4.o slarhs.o sget04.o spot01.o spot03.o spot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o DLINTSTRFP = dchkrfp.o ddrvrfp.o ddrvrf1.o ddrvrf2.o ddrvrf3.o ddrvrf4.o derrrfp.o \ dlatb4.o dlarhs.o dget04.o dpot01.o dpot03.o dpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o CLINTSTRFP = cchkrfp.o cdrvrfp.o cdrvrf1.o cdrvrf2.o cdrvrf3.o cdrvrf4.o cerrrfp.o \ claipd.o clatb4.o clarhs.o csbmv.o cget04.o cpot01.o cpot03.o cpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o ZLINTSTRFP = zchkrfp.o zdrvrfp.o zdrvrf1.o zdrvrf2.o zdrvrf3.o zdrvrf4.o zerrrfp.o \ zlatb4.o zlaipd.o zlarhs.o zsbmv.o zget04.o zpot01.o zpot03.o zpot02.o \ - chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o + chkxer.o xerbla.o alaerh.o aladhd.o alahd.o alasvm.o all: single double complex complex16 proto-single proto-double proto-complex proto-complex16 single: ../xlintsts -double: ../xlintstd +double: ../xlintstd complex: ../xlintstc -complex16: ../xlintstz +complex16: ../xlintstz proto-single: ../xlintstrfs proto-double: ../xlintstds ../xlintstrfd @@ -251,39 +251,39 @@ xlintsts : $(ALINTST) $(SLINTST) $(SCLNTST) ../../$(LAPACKLIB) xlintstc : $(ALINTST) $(CLINTST) $(SCLNTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ALINTST) $(SCLNTST) $(CLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) -o $@ - + xlintstd : $(ALINTST) $(DLINTST) $(DZLNTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $^ \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) -o $@ - + xlintstz : $(ALINTST) $(ZLINTST) $(DZLNTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ALINTST) $(DZLNTST) $(ZLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) -o $@ - + xlintstds : $(DSLINTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(DSLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstzc : $(ZCLINTST) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ZCLINTST) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfs : $(SLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(SLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfd : $(DLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(DLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfc : $(CLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(CLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + xlintstrfz : $(ZLINTSTRFP) ../../$(LAPACKLIB) $(LOADER) $(LOADOPTS) $(ZLINTSTRFP) \ ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB) -o $@ - + ../xlintsts: xlintsts mv xlintsts $@ @@ -324,7 +324,7 @@ $(ZLINTST): $(FRC) FRC: @FRC=$(FRC) - + clean: rm -f *.o @@ -336,8 +336,8 @@ cchkaa.o: cchkaa.f $(FORTRAN) $(DRVOPTS) -c $< -o $@ zchkaa.o: zchkaa.f $(FORTRAN) $(DRVOPTS) -c $< -o $@ - -.f.o: + +.f.o: $(FORTRAN) $(OPTS) -c $< -o $@ .NOTPARALLEL: diff --git a/TESTING/LIN/alaerh.f b/TESTING/LIN/alaerh.f index 2f58e85c..2f45b1d2 100644 --- a/TESTING/LIN/alaerh.f +++ b/TESTING/LIN/alaerh.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, * N5, IMAT, NFAIL, NERRS, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * CHARACTER*( * ) SUBNAM @@ -18,7 +18,7 @@ * INTEGER IMAT, INFO, INFOE, KL, KU, M, N, N5, NERRS, * $ NFAIL, NOUT * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/alaesm.f b/TESTING/LIN/alaesm.f index 3af32da8..536c222e 100644 --- a/TESTING/LIN/alaesm.f +++ b/TESTING/LIN/alaesm.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAESM( PATH, OK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL OK * CHARACTER*3 PATH * INTEGER NOUT * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/alareq.f b/TESTING/LIN/alareq.f index 4bbef51e..eccace25 100644 --- a/TESTING/LIN/alareq.f +++ b/TESTING/LIN/alareq.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NIN, NMATS, NOUT, NTYPES @@ -17,7 +17,7 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/alasum.f b/TESTING/LIN/alasum.f index 16c95642..fad44944 100644 --- a/TESTING/LIN/alasum.f +++ b/TESTING/LIN/alasum.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/alasvm.f b/TESTING/LIN/alasvm.f index 05942325..29b732f5 100644 --- a/TESTING/LIN/alasvm.f +++ b/TESTING/LIN/alasvm.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) -* +* * .. Scalar Arguments .. * CHARACTER*3 TYPE * INTEGER NFAIL, NOUT, NRUN, NERRS * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkaa.f b/TESTING/LIN/cchkaa.f index 2f4a961a..8a97fbb5 100644 --- a/TESTING/LIN/cchkaa.f +++ b/TESTING/LIN/cchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKAA -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -950,7 +950,7 @@ * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -961,7 +961,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/cchkeq.f b/TESTING/LIN/cchkeq.f index db86afa3..11edf81d 100644 --- a/TESTING/LIN/cchkeq.f +++ b/TESTING/LIN/cchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkgb.f b/TESTING/LIN/cchkgb.f index a8d2dc04..869ed9a3 100644 --- a/TESTING/LIN/cchkgb.f +++ b/TESTING/LIN/cchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX A( * ), AFAC( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkge.f b/TESTING/LIN/cchkge.f index c2c5a185..f206c577 100644 --- a/TESTING/LIN/cchkge.f +++ b/TESTING/LIN/cchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkgt.f b/TESTING/LIN/cchkgt.f index 13677b45..8d897c93 100644 --- a/TESTING/LIN/cchkgt.f +++ b/TESTING/LIN/cchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkhp.f b/TESTING/LIN/cchkhp.f index 5f41f661..7160eb90 100644 --- a/TESTING/LIN/cchkhp.f +++ b/TESTING/LIN/cchkhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchklq.f b/TESTING/LIN/cchklq.f index 38a915fe..0b40223d 100644 --- a/TESTING/LIN/cchklq.f +++ b/TESTING/LIN/cchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpb.f b/TESTING/LIN/cchkpb.f index f3af6f7c..04ccb94b 100644 --- a/TESTING/LIN/cchkpb.f +++ b/TESTING/LIN/cchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpo.f b/TESTING/LIN/cchkpo.f index 19aa43ff..1cd80ffc 100644 --- a/TESTING/LIN/cchkpo.f +++ b/TESTING/LIN/cchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpp.f b/TESTING/LIN/cchkpp.f index 0b73adf5..6a3da83b 100644 --- a/TESTING/LIN/cchkpp.f +++ b/TESTING/LIN/cchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkps.f b/TESTING/LIN/cchkps.f index f268afcd..a216c7d7 100644 --- a/TESTING/LIN/cchkps.f +++ b/TESTING/LIN/cchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * REAL THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkpt.f b/TESTING/LIN/cchkpt.f index c53bc9d2..da86bdf7 100644 --- a/TESTING/LIN/cchkpt.f +++ b/TESTING/LIN/cchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkq3.f b/TESTING/LIN/cchkq3.f index 02f178d2..0023c256 100644 --- a/TESTING/LIN/cchkq3.f +++ b/TESTING/LIN/cchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL S( * ), RWORK( * ) * COMPLEX A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkql.f b/TESTING/LIN/cchkql.f index f2313552..0f2e6319 100644 --- a/TESTING/LIN/cchkql.f +++ b/TESTING/LIN/cchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchkqr.f b/TESTING/LIN/cchkqr.f index 7be02950..f8e557c5 100644 --- a/TESTING/LIN/cchkqr.f +++ b/TESTING/LIN/cchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cchkqrt.f b/TESTING/LIN/cchkqrt.f index 407e452a..e132578f 100644 --- a/TESTING/LIN/cchkqrt.f +++ b/TESTING/LIN/cchkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -175,7 +175,7 @@ NB = NBVAL( K ) * * Test CGEQRT and CGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL CQRT04( M, N, NB, RESULT ) * diff --git a/TESTING/LIN/cchkqrtp.f b/TESTING/LIN/cchkqrtp.f index 9bc2c72b..74504651 100644 --- a/TESTING/LIN/cchkqrtp.f +++ b/TESTING/LIN/cchkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,7 +172,7 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * @@ -180,7 +180,7 @@ NB = NBVAL( K ) * * Test CTPQRT and CTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL CQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f index df871426..1e43b5c3 100644 --- a/TESTING/LIN/cchkrfp.f +++ b/TESTING/LIN/cchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM CCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cchkrq.f b/TESTING/LIN/cchkrq.f index 79c05cc0..8547f089 100644 --- a/TESTING/LIN/cchkrq.f +++ b/TESTING/LIN/cchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchksp.f b/TESTING/LIN/cchksp.f index cd8b9d90..8d238347 100644 --- a/TESTING/LIN/cchksp.f +++ b/TESTING/LIN/cchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktb.f b/TESTING/LIN/cchktb.f index b4af0708..a16a3aa1 100644 --- a/TESTING/LIN/cchktb.f +++ b/TESTING/LIN/cchktb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX AB( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktp.f b/TESTING/LIN/cchktp.f index b3b8ea09..8454ec01 100644 --- a/TESTING/LIN/cchktp.f +++ b/TESTING/LIN/cchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX AINVP( * ), AP( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktr.f b/TESTING/LIN/cchktr.f index d599a490..5d40064c 100644 --- a/TESTING/LIN/cchktr.f +++ b/TESTING/LIN/cchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX A( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cchktz.f b/TESTING/LIN/cchktz.f index b2871bf7..9a403d6a 100644 --- a/TESTING/LIN/cchktz.f +++ b/TESTING/LIN/cchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * REAL S( * ), RWORK( * ) * COMPLEX A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cdrvgb.f b/TESTING/LIN/cdrvgb.f index 8a762618..19935424 100644 --- a/TESTING/LIN/cdrvgb.f +++ b/TESTING/LIN/cdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cdrvgbx.f b/TESTING/LIN/cdrvgbx.f index a7d3009d..ac5b295f 100644 --- a/TESTING/LIN/cdrvgbx.f +++ b/TESTING/LIN/cdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvge.f b/TESTING/LIN/cdrvge.f index 9fa8e00d..0bd8c104 100644 --- a/TESTING/LIN/cdrvge.f +++ b/TESTING/LIN/cdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cdrvgex.f b/TESTING/LIN/cdrvgex.f index 53202053..cbf9577d 100644 --- a/TESTING/LIN/cdrvgex.f +++ b/TESTING/LIN/cdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cdrvgt.f b/TESTING/LIN/cdrvgt.f index 737983f4..7bb40dc0 100644 --- a/TESTING/LIN/cdrvgt.f +++ b/TESTING/LIN/cdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvhex.f b/TESTING/LIN/cdrvhex.f index 8a88c099..5b455f43 100644 --- a/TESTING/LIN/cdrvhex.f +++ b/TESTING/LIN/cdrvhex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cdrvhp.f b/TESTING/LIN/cdrvhp.f index 1e9d0b23..e46d8443 100644 --- a/TESTING/LIN/cdrvhp.f +++ b/TESTING/LIN/cdrvhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f index 94f51547..623d94e3 100644 --- a/TESTING/LIN/cdrvls.f +++ b/TESTING/LIN/cdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -26,7 +26,7 @@ * COMPLEX A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -263,7 +263,7 @@ * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASVM, CERRLS, CGELS, CGELSD, $ CGELSS, CGELSY, CGEMM, CLACPY, CLARNV, - $ CQRT13, CQRT15, CQRT16, CSSCAL, SAXPY, + $ CQRT13, CQRT15, CQRT16, CSSCAL, SAXPY, $ XLAENV * .. * .. Intrinsic Functions .. diff --git a/TESTING/LIN/cdrvpb.f b/TESTING/LIN/cdrvpb.f index 779d4cf2..354178ac 100644 --- a/TESTING/LIN/cdrvpb.f +++ b/TESTING/LIN/cdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvpo.f b/TESTING/LIN/cdrvpo.f index 862e3462..c931fccf 100644 --- a/TESTING/LIN/cdrvpo.f +++ b/TESTING/LIN/cdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvpox.f b/TESTING/LIN/cdrvpox.f index b763d6d9..5b201378 100644 --- a/TESTING/LIN/cdrvpox.f +++ b/TESTING/LIN/cdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/cdrvpp.f b/TESTING/LIN/cdrvpp.f index 3fdce2a7..fcb3aee2 100644 --- a/TESTING/LIN/cdrvpp.f +++ b/TESTING/LIN/cdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvpt.f b/TESTING/LIN/cdrvpt.f index c2ec0dfb..02b6baa1 100644 --- a/TESTING/LIN/cdrvpt.f +++ b/TESTING/LIN/cdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvrf1.f b/TESTING/LIN/cdrvrf1.f index b7005032..092d31d0 100644 --- a/TESTING/LIN/cdrvrf1.f +++ b/TESTING/LIN/cdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -19,7 +19,7 @@ * REAL WORK( * ) * COMPLEX A( LDA, * ), ARF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -164,14 +164,14 @@ EPS = SLAMCH( 'Precision' ) SMALL = SLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CLANHF', + WRITE( NOUT, FMT = 9997 ) 'CLANHF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/cdrvrf2.f b/TESTING/LIN/cdrvrf2.f index bdfb0a53..28ee5cd4 100644 --- a/TESTING/LIN/cdrvrf2.f +++ b/TESTING/LIN/cdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * COMPLEX A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/cdrvrf3.f b/TESTING/LIN/cdrvrf3.f index 538b462a..f58366c6 100644 --- a/TESTING/LIN/cdrvrf3.f +++ b/TESTING/LIN/cdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + S_WORK_CLANGE, C_WORK_CGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -22,7 +22,7 @@ * + B2( LDA, * ) * COMPLEX C_WORK_CGEQRF( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -257,12 +257,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -292,7 +292,7 @@ * * After the QR factorization, the diagonal * of A is made of real numbers, we multiply -* by a random complex number of absolute +* by a random complex number of absolute * value 1.0E+00. * DO J = 1, NA @@ -349,7 +349,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CTFSM', + WRITE( NOUT, FMT = 9997 ) 'CTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -372,7 +372,7 @@ WRITE( NOUT, FMT = 9995 ) 'CTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/cdrvrf4.f b/TESTING/LIN/cdrvrf4.f index dc97de4f..a043b15a 100644 --- a/TESTING/LIN/cdrvrf4.f +++ b/TESTING/LIN/cdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, S_WORK_CLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -244,7 +244,7 @@ * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = CLARND( 4, ISEED ) END DO @@ -256,7 +256,7 @@ END IF * * -* Generate C1 our N--by--N Hermitian matrix. +* Generate C1 our N--by--N Hermitian matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -311,7 +311,7 @@ * RESULT(1) = CLANGE( 'I', N, N, C1, LDC, + S_WORK_CLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA * NORMA + + ABS( BETA ) * NORMC, ONE ) + / MAX( N , 1 ) / EPS @@ -321,7 +321,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'CHFRK', + WRITE( NOUT, FMT = 9997 ) 'CHFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -341,7 +341,7 @@ WRITE( NOUT, FMT = 9995 ) 'CHFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CHFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing CHFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/cdrvrfp.f b/TESTING/LIN/cdrvrfp.f index 6357177a..ea7c1408 100644 --- a/TESTING/LIN/cdrvrfp.f +++ b/TESTING/LIN/cdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + C_WORK_CLATMS, C_WORK_CPOT02, * + C_WORK_CPOT03, S_WORK_CLATMS, S_WORK_CLANHE, * + S_WORK_CPOT01, S_WORK_CPOT02, S_WORK_CPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * REAL THRESH @@ -40,7 +40,7 @@ * REAL S_WORK_CPOT02( * ) * REAL S_WORK_CPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> full format to RFP format are performed using the routines CTRTTF and *> CTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -227,10 +227,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -521,7 +521,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL CLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE diff --git a/TESTING/LIN/cdrvsp.f b/TESTING/LIN/cdrvsp.f index b346092e..34434880 100644 --- a/TESTING/LIN/cdrvsp.f +++ b/TESTING/LIN/cdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cdrvsyx.f b/TESTING/LIN/cdrvsyx.f index 6d9b6a54..ce8d8833 100644 --- a/TESTING/LIN/cdrvsyx.f +++ b/TESTING/LIN/cdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/cebchvxx.f b/TESTING/LIN/cebchvxx.f index 283ffe3d..e34f0a86 100644 --- a/TESTING/LIN/cebchvxx.f +++ b/TESTING/LIN/cebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrge.f b/TESTING/LIN/cerrge.f index 732c3a4d..3d8fbd85 100644 --- a/TESTING/LIN/cerrge.f +++ b/TESTING/LIN/cerrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrgex.f b/TESTING/LIN/cerrgex.f index add54d6e..db2f2fb4 100644 --- a/TESTING/LIN/cerrgex.f +++ b/TESTING/LIN/cerrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrgt.f b/TESTING/LIN/cerrgt.f index 13a74567..d77c873b 100644 --- a/TESTING/LIN/cerrgt.f +++ b/TESTING/LIN/cerrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrhex.f b/TESTING/LIN/cerrhex.f index ad0c2147..a6ee9fa9 100644 --- a/TESTING/LIN/cerrhex.f +++ b/TESTING/LIN/cerrhex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRHE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrlq.f b/TESTING/LIN/cerrlq.f index 5415d3ef..e9800772 100644 --- a/TESTING/LIN/cerrlq.f +++ b/TESTING/LIN/cerrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrls.f b/TESTING/LIN/cerrls.f index 5376fa6b..6c1b86fd 100644 --- a/TESTING/LIN/cerrls.f +++ b/TESTING/LIN/cerrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrpo.f b/TESTING/LIN/cerrpo.f index a4fe376f..1ca40ca5 100644 --- a/TESTING/LIN/cerrpo.f +++ b/TESTING/LIN/cerrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrpox.f b/TESTING/LIN/cerrpox.f index 54af1527..b2240849 100644 --- a/TESTING/LIN/cerrpox.f +++ b/TESTING/LIN/cerrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrps.f b/TESTING/LIN/cerrps.f index 047b6a37..e67834cf 100644 --- a/TESTING/LIN/cerrps.f +++ b/TESTING/LIN/cerrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrql.f b/TESTING/LIN/cerrql.f index 4bdb4ddf..b31e0702 100644 --- a/TESTING/LIN/cerrql.f +++ b/TESTING/LIN/cerrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrqp.f b/TESTING/LIN/cerrqp.f index 00415c0c..b59f840c 100644 --- a/TESTING/LIN/cerrqp.f +++ b/TESTING/LIN/cerrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrqr.f b/TESTING/LIN/cerrqr.f index 70dc7052..a55a08ba 100644 --- a/TESTING/LIN/cerrqr.f +++ b/TESTING/LIN/cerrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrqrt.f b/TESTING/LIN/cerrqrt.f index d2ebf0c4..b7797f4d 100644 --- a/TESTING/LIN/cerrqrt.f +++ b/TESTING/LIN/cerrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, CGEQRT2, CGEQRT3, CGEQRT, - $ CGEMQRT + $ CGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cerrqrtp.f b/TESTING/LIN/cerrqrtp.f index 7d4c05db..601509d0 100644 --- a/TESTING/LIN/cerrqrtp.f +++ b/TESTING/LIN/cerrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, CTPQRT2, CTPQRT, - $ CTPMQRT + $ CTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'CTPMQRT' INFOT = 1 - CALL CTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL CTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL CTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL CTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL CTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL CTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL CTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL CTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL CTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL CTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'CTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/cerrrfp.f b/TESTING/LIN/cerrrfp.f index 254dc94b..a183f445 100644 --- a/TESTING/LIN/cerrrfp.f +++ b/TESTING/LIN/cerrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrrq.f b/TESTING/LIN/cerrrq.f index 87987c2d..c3ff4a08 100644 --- a/TESTING/LIN/cerrrq.f +++ b/TESTING/LIN/cerrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrsy.f b/TESTING/LIN/cerrsy.f index f3fb8171..b9e43855 100644 --- a/TESTING/LIN/cerrsy.f +++ b/TESTING/LIN/cerrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/cerrsyx.f b/TESTING/LIN/cerrsyx.f index 63c83ee5..b0cc0d34 100644 --- a/TESTING/LIN/cerrsyx.f +++ b/TESTING/LIN/cerrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -250,7 +250,7 @@ NPARAMS = 0 SRNAMT = 'CSYRFSX' INFOT = 1 - CALL CSYRFSX( '/', EQ, 0, 0, A, 1, AF, 1, IP, S, B, 1, X, 1, + CALL CSYRFSX( '/', EQ, 0, 0, A, 1, AF, 1, IP, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) @@ -266,27 +266,27 @@ $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CSYRFSX( 'U', EQ, 0, -1, A, 1, AF, 1, IP, S, B, 1, X, 1, + CALL CSYRFSX( 'U', EQ, 0, -1, A, 1, AF, 1, IP, S, B, 1, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 6 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 1, AF, 2, IP, S, B, 2, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 1, AF, 2, IP, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 8 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 1, IP, S, B, 2, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 1, IP, S, B, 2, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 12 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 1, X, 2, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) INFOT = 14 - CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1, + CALL CSYRFSX( 'U', EQ, 2, 1, A, 2, AF, 2, IP, S, B, 2, X, 1, $ RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS, $ PARAMS, W, R, INFO ) CALL CHKXER( 'CSYRFSX', INFOT, NOUT, LERR, OK ) diff --git a/TESTING/LIN/cerrtr.f b/TESTING/LIN/cerrtr.f index 2c07bfec..b55de7c1 100644 --- a/TESTING/LIN/cerrtr.f +++ b/TESTING/LIN/cerrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cerrtz.f b/TESTING/LIN/cerrtz.f index b7cc912a..f8e6cdc9 100644 --- a/TESTING/LIN/cerrtz.f +++ b/TESTING/LIN/cerrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cerrvxx.f b/TESTING/LIN/cerrvxx.f index 6134bf33..82a93a5e 100644 --- a/TESTING/LIN/cerrvxx.f +++ b/TESTING/LIN/cerrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cgbt01.f b/TESTING/LIN/cgbt01.f index 748ba153..f3c99bc9 100644 --- a/TESTING/LIN/cgbt01.f +++ b/TESTING/LIN/cgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgbt02.f b/TESTING/LIN/cgbt02.f index 1335f134..f6ea52fe 100644 --- a/TESTING/LIN/cgbt02.f +++ b/TESTING/LIN/cgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgbt05.f b/TESTING/LIN/cgbt05.f index d97d94eb..557d2613 100644 --- a/TESTING/LIN/cgbt05.f +++ b/TESTING/LIN/cgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgelqs.f b/TESTING/LIN/cgelqs.f index 91d00dd6..8cefc058 100644 --- a/TESTING/LIN/cgelqs.f +++ b/TESTING/LIN/cgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgennd.f b/TESTING/LIN/cgennd.f index 6a35dc59..5d618ad9 100644 --- a/TESTING/LIN/cgennd.f +++ b/TESTING/LIN/cgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION CGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgeqls.f b/TESTING/LIN/cgeqls.f index e8c1503c..b88c94e9 100644 --- a/TESTING/LIN/cgeqls.f +++ b/TESTING/LIN/cgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgeqrs.f b/TESTING/LIN/cgeqrs.f index 165a2cb9..59a39e2b 100644 --- a/TESTING/LIN/cgeqrs.f +++ b/TESTING/LIN/cgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgerqs.f b/TESTING/LIN/cgerqs.f index 00b3cc40..56800fce 100644 --- a/TESTING/LIN/cgerqs.f +++ b/TESTING/LIN/cgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cget01.f b/TESTING/LIN/cget01.f index 4196342b..eb34dcc2 100644 --- a/TESTING/LIN/cget01.f +++ b/TESTING/LIN/cget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * REAL RESID @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -177,7 +177,7 @@ IF( K+1.LE.M ) THEN CALL CSCAL( M-K, T, AFAC( K+1, K ), 1 ) CALL CGEMV( 'No transpose', M-K, K-1, CONE, - $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, + $ AFAC( K+1, 1 ), LDAFAC, AFAC( 1, K ), 1, $ CONE, AFAC( K+1, K ), 1 ) END IF * diff --git a/TESTING/LIN/cget02.f b/TESTING/LIN/cget02.f index 0a26a3d6..7746787e 100644 --- a/TESTING/LIN/cget02.f +++ b/TESTING/LIN/cget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cget03.f b/TESTING/LIN/cget03.f index 5457d1b2..bde3bff9 100644 --- a/TESTING/LIN/cget03.f +++ b/TESTING/LIN/cget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * REAL RCOND, RESID @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cget04.f b/TESTING/LIN/cget04.f index 4a9d0524..c8c56e2b 100644 --- a/TESTING/LIN/cget04.f +++ b/TESTING/LIN/cget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * REAL RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cget07.f b/TESTING/LIN/cget07.f index 2b2479cf..c89fc646 100644 --- a/TESTING/LIN/cget07.f +++ b/TESTING/LIN/cget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgtt01.f b/TESTING/LIN/cgtt01.f index 4bc800b8..17afc764 100644 --- a/TESTING/LIN/cgtt01.f +++ b/TESTING/LIN/cgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * REAL RESID @@ -21,7 +21,7 @@ * COMPLEX D( * ), DF( * ), DL( * ), DLF( * ), DU( * ), * $ DU2( * ), DUF( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgtt02.f b/TESTING/LIN/cgtt02.f index 3071e206..ee400229 100644 --- a/TESTING/LIN/cgtt02.f +++ b/TESTING/LIN/cgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cgtt05.f b/TESTING/LIN/cgtt05.f index 1996ccfa..8411f226 100644 --- a/TESTING/LIN/cgtt05.f +++ b/TESTING/LIN/cgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/chkxer.f b/TESTING/LIN/chkxer.f index 85f0cb15..019d9156 100644 --- a/TESTING/LIN/chkxer.f +++ b/TESTING/LIN/chkxer.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) -* +* * .. Scalar Arguments .. * LOGICAL LERR, OK * CHARACTER*(*) SRNAMT @@ -26,12 +26,12 @@ * END IF * LERR = .FALSE. * RETURN -* +* * 9999 FORMAT( ' *** Illegal value of parameter number ', I2, * $ ' not detected by ', A6, ' ***' ) -* +* * End of CHKXER. -* +* * END * *> \par Purpose: @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/chpt01.f b/TESTING/LIN/chpt01.f index 898a57c4..86a6e269 100644 --- a/TESTING/LIN/chpt01.f +++ b/TESTING/LIN/chpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clahilb.f b/TESTING/LIN/clahilb.f index 95b43721..b46c3d15 100644 --- a/TESTING/LIN/clahilb.f +++ b/TESTING/LIN/clahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, +* SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER T, N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,17 +121,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex_lin * * ===================================================================== - SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, + SUBROUTINE CLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * * -- LAPACK test routine (version 3.4.0) -- @@ -165,10 +165,10 @@ PARAMETER (NMAX_EXACT = 6, NMAX_APPROX = 11, SIZE_D = 8) * * d's are generated from random permuation of those eight elements. - COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) + COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -250,14 +250,14 @@ WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO -* +* * If we are testing SY routines, take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS DO I = 1, N - X(I, J) = + X(I, J) = $ INVD1(MOD(J,SIZE_D)+1) * - $ ((WORK(I)*WORK(J)) / (I + J - 1)) + $ ((WORK(I)*WORK(J)) / (I + J - 1)) $ * INVD1(MOD(I,SIZE_D)+1) END DO END DO @@ -272,4 +272,4 @@ END DO END IF END - + diff --git a/TESTING/LIN/claipd.f b/TESTING/LIN/claipd.f index 7d041f35..e952d192 100644 --- a/TESTING/LIN/claipd.f +++ b/TESTING/LIN/claipd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAIPD( N, A, INDA, VINDA ) -* +* * .. Scalar Arguments .. * INTEGER INDA, N, VINDA * .. * .. Array Arguments .. * COMPLEX A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -71,10 +71,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/claptm.f b/TESTING/LIN/claptm.f index 48f94dad..628f08b6 100644 --- a/TESTING/LIN/claptm.f +++ b/TESTING/LIN/claptm.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, * LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clarhs.f b/TESTING/LIN/clarhs.f index 4bf27d7b..ea13d2b0 100644 --- a/TESTING/LIN/clarhs.f +++ b/TESTING/LIN/clarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clatb4.f b/TESTING/LIN/clatb4.f index f98cf24f..274179b6 100644 --- a/TESTING/LIN/clatb4.f +++ b/TESTING/LIN/clatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * REAL ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/clatb5.f b/TESTING/LIN/clatb5.f index 883eb6ba..e024453b 100644 --- a/TESTING/LIN/clatb5.f +++ b/TESTING/LIN/clatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * REAL ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clatsp.f b/TESTING/LIN/clatsp.f index e4741975..ae55b708 100644 --- a/TESTING/LIN/clatsp.f +++ b/TESTING/LIN/clatsp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATSP( UPLO, N, X, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clatsy.f b/TESTING/LIN/clatsy.f index a4553a62..53cb1929 100644 --- a/TESTING/LIN/clatsy.f +++ b/TESTING/LIN/clatsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDX, N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clattb.f b/TESTING/LIN/clattb.f index ba186deb..f3573224 100644 --- a/TESTING/LIN/clattb.f +++ b/TESTING/LIN/clattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clattp.f b/TESTING/LIN/clattp.f index 14da642c..7cee41bc 100644 --- a/TESTING/LIN/clattp.f +++ b/TESTING/LIN/clattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clattr.f b/TESTING/LIN/clattr.f index 55503e50..5148edea 100644 --- a/TESTING/LIN/clattr.f +++ b/TESTING/LIN/clattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clavhp.f b/TESTING/LIN/clavhp.f index b57731dc..b52f880e 100644 --- a/TESTING/LIN/clavhp.f +++ b/TESTING/LIN/clavhp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clavsp.f b/TESTING/LIN/clavsp.f index 1fe2cedc..26c08b06 100644 --- a/TESTING/LIN/clavsp.f +++ b/TESTING/LIN/clavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clqt01.f b/TESTING/LIN/clqt01.f index 63a9ecec..0330a06b 100644 --- a/TESTING/LIN/clqt01.f +++ b/TESTING/LIN/clqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clqt02.f b/TESTING/LIN/clqt02.f index f5567236..1ca440f4 100644 --- a/TESTING/LIN/clqt02.f +++ b/TESTING/LIN/clqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/clqt03.f b/TESTING/LIN/clqt03.f index 0f8f2b3b..a4aa637a 100644 --- a/TESTING/LIN/clqt03.f +++ b/TESTING/LIN/clqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpbt01.f b/TESTING/LIN/cpbt01.f index cefbcdd2..9b106ebc 100644 --- a/TESTING/LIN/cpbt01.f +++ b/TESTING/LIN/cpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpbt02.f b/TESTING/LIN/cpbt02.f index 3413aa03..c68731a2 100644 --- a/TESTING/LIN/cpbt02.f +++ b/TESTING/LIN/cpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpbt05.f b/TESTING/LIN/cpbt05.f index 2c41fe21..d9c57626 100644 --- a/TESTING/LIN/cpbt05.f +++ b/TESTING/LIN/cpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot01.f b/TESTING/LIN/cpot01.f index 25764e8f..2a06f605 100644 --- a/TESTING/LIN/cpot01.f +++ b/TESTING/LIN/cpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot02.f b/TESTING/LIN/cpot02.f index 57fb556f..19d81548 100644 --- a/TESTING/LIN/cpot02.f +++ b/TESTING/LIN/cpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot03.f b/TESTING/LIN/cpot03.f index fe45e0d1..ff99b1c0 100644 --- a/TESTING/LIN/cpot03.f +++ b/TESTING/LIN/cpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpot05.f b/TESTING/LIN/cpot05.f index 3bec0258..4b5b26be 100644 --- a/TESTING/LIN/cpot05.f +++ b/TESTING/LIN/cpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt01.f b/TESTING/LIN/cppt01.f index 5ebefb68..e877773b 100644 --- a/TESTING/LIN/cppt01.f +++ b/TESTING/LIN/cppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt02.f b/TESTING/LIN/cppt02.f index 6e27e1b5..70b89bf5 100644 --- a/TESTING/LIN/cppt02.f +++ b/TESTING/LIN/cppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt03.f b/TESTING/LIN/cppt03.f index 8c18d523..c8def708 100644 --- a/TESTING/LIN/cppt03.f +++ b/TESTING/LIN/cppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AINV( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cppt05.f b/TESTING/LIN/cppt05.f index 4ac25de3..042f4459 100644 --- a/TESTING/LIN/cppt05.f +++ b/TESTING/LIN/cppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cpst01.f b/TESTING/LIN/cpst01.f index d5d54f6d..10ccba29 100644 --- a/TESTING/LIN/cpst01.f +++ b/TESTING/LIN/cpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * REAL RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -22,7 +22,7 @@ * REAL RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cptt01.f b/TESTING/LIN/cptt01.f index d37bc108..10733ac3 100644 --- a/TESTING/LIN/cptt01.f +++ b/TESTING/LIN/cptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * REAL RESID @@ -18,7 +18,7 @@ * REAL D( * ), DF( * ) * COMPLEX E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cptt02.f b/TESTING/LIN/cptt02.f index 2d947a98..681ec5d1 100644 --- a/TESTING/LIN/cptt02.f +++ b/TESTING/LIN/cptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * REAL D( * ) * COMPLEX B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cptt05.f b/TESTING/LIN/cptt05.f index 133ca51c..c1c3c103 100644 --- a/TESTING/LIN/cptt05.f +++ b/TESTING/LIN/cptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * COMPLEX B( LDB, * ), E( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqlt01.f b/TESTING/LIN/cqlt01.f index e2f497b7..8e84ef2b 100644 --- a/TESTING/LIN/cqlt01.f +++ b/TESTING/LIN/cqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqlt02.f b/TESTING/LIN/cqlt02.f index 5cfa042f..a726a7de 100644 --- a/TESTING/LIN/cqlt02.f +++ b/TESTING/LIN/cqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqlt03.f b/TESTING/LIN/cqlt03.f index cc067467..cd6a0ecb 100644 --- a/TESTING/LIN/cqlt03.f +++ b/TESTING/LIN/cqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqpt01.f b/TESTING/LIN/cqpt01.f index 3e602149..25a0acf0 100644 --- a/TESTING/LIN/cqpt01.f +++ b/TESTING/LIN/cqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt01.f b/TESTING/LIN/cqrt01.f index b5cdbac2..83e879f8 100644 --- a/TESTING/LIN/cqrt01.f +++ b/TESTING/LIN/cqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt01p.f b/TESTING/LIN/cqrt01p.f index d9a40695..be5047bb 100644 --- a/TESTING/LIN/cqrt01p.f +++ b/TESTING/LIN/cqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt02.f b/TESTING/LIN/cqrt02.f index 94b775a9..6c78e96d 100644 --- a/TESTING/LIN/cqrt02.f +++ b/TESTING/LIN/cqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt03.f b/TESTING/LIN/cqrt03.f index 9293f9f9..b07c7086 100644 --- a/TESTING/LIN/cqrt03.f +++ b/TESTING/LIN/cqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/cqrt04.f b/TESTING/LIN/cqrt04.f index 3176a0a0..cf86cf2a 100644 --- a/TESTING/LIN/cqrt04.f +++ b/TESTING/LIN/cqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) REAL, ALLOCATABLE :: RWORK(:) * @@ -106,17 +106,17 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = SLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -124,8 +124,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -143,7 +143,7 @@ * Generate the m-by-m matrix Q * CALL CLASET( 'Full', M, M, CZERO, ONE, Q, M ) - CALL CGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL CGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -179,7 +179,7 @@ * * Apply Q to C as Q*C * - CALL CGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL CGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -198,7 +198,7 @@ * * Apply Q to C as QT*C * - CALL CGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, + CALL CGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -209,7 +209,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -221,8 +221,8 @@ * * Apply Q to D as D*Q * - CALL CGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL CGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -240,8 +240,8 @@ * * Apply Q to D as D*QT * - CALL CGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL CGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/cqrt05.f b/TESTING/LIN/cqrt05.f index 31d9d3b9..eefef4b4 100644 --- a/TESTING/LIN/cqrt05.f +++ b/TESTING/LIN/cqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ REAL RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) REAL, ALLOCATABLE :: RWORK(:) * @@ -113,14 +113,14 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = SLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -134,7 +134,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -189,7 +189,7 @@ * Compute |I - Q'*Q| and store in RESULT(2) * CALL CLASET( 'Full', M2, M2, CZERO, ONE, R, M2 ) - CALL CHERK( 'U', 'C', M2, M2, REAL(-ONE), Q, M2, REAL(ONE), + CALL CHERK( 'U', 'C', M2, M2, REAL(-ONE), Q, M2, REAL(ONE), $ R, M2 ) RESID = CLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -224,7 +224,7 @@ * Apply Q to C as QT*C * CALL CTPMQRT( 'L','C',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -234,7 +234,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -266,8 +266,8 @@ * Apply Q to D as D*QT * CALL CTPMQRT('R','C',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/cqrt11.f b/TESTING/LIN/cqrt11.f index 07e007f4..b97729bb 100644 --- a/TESTING/LIN/cqrt11.f +++ b/TESTING/LIN/cqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * COMPLEX A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt12.f b/TESTING/LIN/cqrt12.f index 181c27f0..52e1196b 100644 --- a/TESTING/LIN/cqrt12.f +++ b/TESTING/LIN/cqrt12.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT12( M, N, A, LDA, S, WORK, LWORK, * RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL RWORK( * ), S( * ) * COMPLEX A( LDA, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt13.f b/TESTING/LIN/cqrt13.f index be9130fb..97eeb82f 100644 --- a/TESTING/LIN/cqrt13.f +++ b/TESTING/LIN/cqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * REAL NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt14.f b/TESTING/LIN/cqrt14.f index 5428d384..f53cef7f 100644 --- a/TESTING/LIN/cqrt14.f +++ b/TESTING/LIN/cqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt15.f b/TESTING/LIN/cqrt15.f index a86662a9..cb32b922 100644 --- a/TESTING/LIN/cqrt15.f +++ b/TESTING/LIN/cqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * REAL NORMA, NORMB @@ -20,7 +20,7 @@ * REAL S( * ) * COMPLEX A( LDA, * ), B( LDB, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt16.f b/TESTING/LIN/cqrt16.f index 701e1f46..30436d13 100644 --- a/TESTING/LIN/cqrt16.f +++ b/TESTING/LIN/cqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cqrt17.f b/TESTING/LIN/cqrt17.f index 1e16df9c..8436e348 100644 --- a/TESTING/LIN/cqrt17.f +++ b/TESTING/LIN/cqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/crqt01.f b/TESTING/LIN/crqt01.f index 03548898..ddaabffa 100644 --- a/TESTING/LIN/crqt01.f +++ b/TESTING/LIN/crqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crqt02.f b/TESTING/LIN/crqt02.f index a59e752d..d889eb5c 100644 --- a/TESTING/LIN/crqt02.f +++ b/TESTING/LIN/crqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crqt03.f b/TESTING/LIN/crqt03.f index d8e6c046..963003eb 100644 --- a/TESTING/LIN/crqt03.f +++ b/TESTING/LIN/crqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crzt01.f b/TESTING/LIN/crzt01.f index c93fe21c..2e2ed39d 100644 --- a/TESTING/LIN/crzt01.f +++ b/TESTING/LIN/crzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/crzt02.f b/TESTING/LIN/crzt02.f index 953f1791..74717b4f 100644 --- a/TESTING/LIN/crzt02.f +++ b/TESTING/LIN/crzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION CRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/csbmv.f b/TESTING/LIN/csbmv.f index ae5f3ea4..53e224b2 100644 --- a/TESTING/LIN/csbmv.f +++ b/TESTING/LIN/csbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cspt01.f b/TESTING/LIN/cspt01.f index c373f907..b40456b9 100644 --- a/TESTING/LIN/cspt01.f +++ b/TESTING/LIN/cspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cspt02.f b/TESTING/LIN/cspt02.f index 758d5e18..fd402b12 100644 --- a/TESTING/LIN/cspt02.f +++ b/TESTING/LIN/cspt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/cspt03.f b/TESTING/LIN/cspt03.f index 154584b7..b6af56c2 100644 --- a/TESTING/LIN/cspt03.f +++ b/TESTING/LIN/cspt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDW, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( * ), AINV( * ), WORK( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/csyt02.f b/TESTING/LIN/csyt02.f index 86d39eb2..49fea7a9 100644 --- a/TESTING/LIN/csyt02.f +++ b/TESTING/LIN/csyt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/csyt03.f b/TESTING/LIN/csyt03.f index dd9298c6..54f22290 100644 --- a/TESTING/LIN/csyt03.f +++ b/TESTING/LIN/csyt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt02.f b/TESTING/LIN/ctbt02.f index 576dbc3b..60e1abcd 100644 --- a/TESTING/LIN/ctbt02.f +++ b/TESTING/LIN/ctbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt03.f b/TESTING/LIN/ctbt03.f index afb63a70..191a1a1f 100644 --- a/TESTING/LIN/ctbt03.f +++ b/TESTING/LIN/ctbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -22,7 +22,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt05.f b/TESTING/LIN/ctbt05.f index fdd9745e..dd2401a5 100644 --- a/TESTING/LIN/ctbt05.f +++ b/TESTING/LIN/ctbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctbt06.f b/TESTING/LIN/ctbt06.f index 0692b8d3..d45cd459 100644 --- a/TESTING/LIN/ctbt06.f +++ b/TESTING/LIN/ctbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt01.f b/TESTING/LIN/ctpt01.f index 40a2c2ca..e3df566f 100644 --- a/TESTING/LIN/ctpt01.f +++ b/TESTING/LIN/ctpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX AINVP( * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt02.f b/TESTING/LIN/ctpt02.f index 9216ab62..e6e047a3 100644 --- a/TESTING/LIN/ctpt02.f +++ b/TESTING/LIN/ctpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt03.f b/TESTING/LIN/ctpt03.f index da1c916b..9516357d 100644 --- a/TESTING/LIN/ctpt03.f +++ b/TESTING/LIN/ctpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL CNORM( * ) * COMPLEX AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt05.f b/TESTING/LIN/ctpt05.f index 80d0dbf7..38403eab 100644 --- a/TESTING/LIN/ctpt05.f +++ b/TESTING/LIN/ctpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctpt06.f b/TESTING/LIN/ctpt06.f index a6a06c77..30d5d8f6 100644 --- a/TESTING/LIN/ctpt06.f +++ b/TESTING/LIN/ctpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * REAL RWORK( * ) * COMPLEX AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt01.f b/TESTING/LIN/ctrt01.f index a0fed9cf..e99f2738 100644 --- a/TESTING/LIN/ctrt01.f +++ b/TESTING/LIN/ctrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ), AINV( LDAINV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt02.f b/TESTING/LIN/ctrt02.f index 19dd230a..21cdd7ac 100644 --- a/TESTING/LIN/ctrt02.f +++ b/TESTING/LIN/ctrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt03.f b/TESTING/LIN/ctrt03.f index 69d66847..282db2bd 100644 --- a/TESTING/LIN/ctrt03.f +++ b/TESTING/LIN/ctrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt05.f b/TESTING/LIN/ctrt05.f index 515c7aab..682c7511 100644 --- a/TESTING/LIN/ctrt05.f +++ b/TESTING/LIN/ctrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ctrt06.f b/TESTING/LIN/ctrt06.f index e11db597..1f003177 100644 --- a/TESTING/LIN/ctrt06.f +++ b/TESTING/LIN/ctrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -20,7 +20,7 @@ * REAL RWORK( * ) * COMPLEX A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkaa.f b/TESTING/LIN/dchkaa.f index 9e5c5b15..49478c93 100644 --- a/TESTING/LIN/dchkaa.f +++ b/TESTING/LIN/dchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKAA -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -862,13 +862,13 @@ ELSE WRITE( NOUT, FMT = 9989 )PATH END IF -* +* ELSE IF( LSAMEN( 2, C2, 'QT' ) ) THEN * * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -879,7 +879,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/dchkab.f b/TESTING/LIN/dchkab.f index 9d01bcd9..dfe80639 100644 --- a/TESTING/LIN/dchkab.f +++ b/TESTING/LIN/dchkab.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKAB -* +* * *> \par Purpose: * ============= @@ -32,7 +32,7 @@ *> 2 Values of NRHS (number of right hand sides) *> 20.0 Threshold value of test ratio *> T Put T to test the LAPACK routines -*> T Put T to test the error exits +*> T Put T to test the error exits *> DGE 11 List types on next line if 0 < NTYPES < 11 *> DPO 9 List types on next line if 0 < NTYPES < 9 *> \endverbatim @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -101,7 +101,7 @@ CHARACTER*3 PATH CHARACTER*10 INTSTR CHARACTER*72 ALINE - INTEGER I, IC, K, LDA, NM, NMATS, + INTEGER I, IC, K, LDA, NM, NMATS, $ NNS, NRHS, NTYPES, $ VERS_MAJOR, VERS_MINOR, VERS_PATCH DOUBLE PRECISION EPS, S1, S2, THRESH @@ -307,7 +307,7 @@ ELSE WRITE( NOUT, FMT = 9989 )'DSGESV' END IF -* +* ELSE IF( LSAMEN( 2, C2, 'PO' ) ) THEN * * PO: positive definite matrices @@ -323,7 +323,7 @@ IF( TSTDRV ) THEN CALL DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, $ THRESH, LDA, A( 1, 1 ), A( 1, 2 ), - $ B( 1, 1 ), B( 1, 2 ), + $ B( 1, 1 ), B( 1, 2 ), $ WORK, RWORK, SWORK, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -351,7 +351,7 @@ $ I6 ) 9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=', $ I6 ) - 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV', + 9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV', $ ' routines ', $ / ' LAPACK VERSION ', I1, '.', I1, '.', I1, $ / / ' The following parameter values will be used:' ) diff --git a/TESTING/LIN/dchkeq.f b/TESTING/LIN/dchkeq.f index 94577fdb..616e311b 100644 --- a/TESTING/LIN/dchkeq.f +++ b/TESTING/LIN/dchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkgb.f b/TESTING/LIN/dchkgb.f index 61138889..0066a8ba 100644 --- a/TESTING/LIN/dchkgb.f +++ b/TESTING/LIN/dchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkge.f b/TESTING/LIN/dchkge.f index 35a93d3d..878dc1ec 100644 --- a/TESTING/LIN/dchkge.f +++ b/TESTING/LIN/dchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkgt.f b/TESTING/LIN/dchkgt.f index 24b62560..5606fc6c 100644 --- a/TESTING/LIN/dchkgt.f +++ b/TESTING/LIN/dchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchklq.f b/TESTING/LIN/dchklq.f index c8cfc8fc..50754c81 100644 --- a/TESTING/LIN/dchklq.f +++ b/TESTING/LIN/dchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpb.f b/TESTING/LIN/dchkpb.f index 8286f3ea..66426887 100644 --- a/TESTING/LIN/dchkpb.f +++ b/TESTING/LIN/dchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpo.f b/TESTING/LIN/dchkpo.f index f7bbcfb0..1a15d3b6 100644 --- a/TESTING/LIN/dchkpo.f +++ b/TESTING/LIN/dchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpp.f b/TESTING/LIN/dchkpp.f index 3362f1b8..316f6772 100644 --- a/TESTING/LIN/dchkpp.f +++ b/TESTING/LIN/dchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkps.f b/TESTING/LIN/dchkps.f index c07320f7..51618869 100644 --- a/TESTING/LIN/dchkps.f +++ b/TESTING/LIN/dchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkpt.f b/TESTING/LIN/dchkpt.f index df50a62a..2a29c3bc 100644 --- a/TESTING/LIN/dchkpt.f +++ b/TESTING/LIN/dchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkq3.f b/TESTING/LIN/dchkq3.f index 2170e2b2..ec6194e7 100644 --- a/TESTING/LIN/dchkq3.f +++ b/TESTING/LIN/dchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchkql.f b/TESTING/LIN/dchkql.f index c35ca5c5..099dcc8a 100644 --- a/TESTING/LIN/dchkql.f +++ b/TESTING/LIN/dchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dchkqr.f b/TESTING/LIN/dchkqr.f index b4a1642e..22c949e4 100644 --- a/TESTING/LIN/dchkqr.f +++ b/TESTING/LIN/dchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -248,7 +248,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, DERRQR, DGEQRS, DGET02, - $ DLACPY, DLARHS, DLATB4, DLATMS, DQRT01, + $ DLACPY, DLARHS, DLATB4, DLATMS, DQRT01, $ DQRT01P, DQRT02, DQRT03, XLAENV * .. * .. Intrinsic Functions .. diff --git a/TESTING/LIN/dchkqrt.f b/TESTING/LIN/dchkqrt.f index a4825a2f..7e12027f 100644 --- a/TESTING/LIN/dchkqrt.f +++ b/TESTING/LIN/dchkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_lin * * ===================================================================== - SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -175,7 +175,7 @@ NB = NBVAL( K ) * * Test DGEQRT and DGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL DQRT04( M, N, NB, RESULT ) * diff --git a/TESTING/LIN/dchkqrtp.f b/TESTING/LIN/dchkqrtp.f index fdb31f24..22bfd80b 100644 --- a/TESTING/LIN/dchkqrtp.f +++ b/TESTING/LIN/dchkqrtp.f @@ -2,13 +2,13 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) * * .. Scalar Arguments .. @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_lin * * ===================================================================== - SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,14 +172,14 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test DTPQRT and DTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL DQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f index 757df28c..86719c4a 100644 --- a/TESTING/LIN/dchkrfp.f +++ b/TESTING/LIN/dchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM DCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/dchkrq.f b/TESTING/LIN/dchkrq.f index da553d60..afd68269 100644 --- a/TESTING/LIN/dchkrq.f +++ b/TESTING/LIN/dchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchksp.f b/TESTING/LIN/dchksp.f index 96b5442f..171b785d 100644 --- a/TESTING/LIN/dchksp.f +++ b/TESTING/LIN/dchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktb.f b/TESTING/LIN/dchktb.f index a90d588c..44c468f6 100644 --- a/TESTING/LIN/dchktb.f +++ b/TESTING/LIN/dchktb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION AB( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktp.f b/TESTING/LIN/dchktp.f index e3a7db84..0413302b 100644 --- a/TESTING/LIN/dchktp.f +++ b/TESTING/LIN/dchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION AINVP( * ), AP( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktr.f b/TESTING/LIN/dchktr.f index cc2554c0..79998e78 100644 --- a/TESTING/LIN/dchktr.f +++ b/TESTING/LIN/dchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dchktz.f b/TESTING/LIN/dchktz.f index a6746362..584ba690 100644 --- a/TESTING/LIN/dchktz.f +++ b/TESTING/LIN/dchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f index 437255f9..1f65ca9f 100644 --- a/TESTING/LIN/ddrvab.f +++ b/TESTING/LIN/ddrvab.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, * NSVAL, THRESH, NMAX, A, AFAC, B, * X, WORK, RWORK, SWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NMAX, NNS, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -211,7 +211,7 @@ COMMON / SRNAMC / SRNAMT * .. * .. Data statements .. - DATA ISEEDY / 2006, 2007, 2008, 2009 / + DATA ISEEDY / 2006, 2007, 2008, 2009 / * .. * .. Executable Statements .. * @@ -319,7 +319,7 @@ CALL DLACPY( 'Full', M, N, AFAC, LDA, A, LDA ) ENDIF * -* Check error code from DSGESV. This should be the same as +* Check error code from DSGESV. This should be the same as * the one of DGETRF. * IF( INFO.NE.IZERO ) THEN @@ -353,7 +353,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1 * @@ -423,7 +423,7 @@ $ 14X, '11. Scaled near overflow', / 4X, $ '6. Last column zero' ) 8960 FORMAT( 3X, I2, ': norm_1( B - A * X ) / ', - $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', + $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DGETRF' ) RETURN diff --git a/TESTING/LIN/ddrvac.f b/TESTING/LIN/ddrvac.f index 2b056bd0..28578a96 100644 --- a/TESTING/LIN/ddrvac.f +++ b/TESTING/LIN/ddrvac.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * A, AFAC, B, X, WORK, * RWORK, SWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NMAX, NM, NNS, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -130,10 +130,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -176,7 +176,7 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH INTEGER I, IM, IMAT, INFO, IOFF, IRHS, IUPLO, - $ IZERO, KL, KU, LDA, MODE, N, + $ IZERO, KL, KU, LDA, MODE, N, $ NERRS, NFAIL, NIMAT, NRHS, NRUN DOUBLE PRECISION ANORM, CNDNUM * .. @@ -194,7 +194,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAERH, DLACPY, - $ DLARHS, DLASET, DLATB4, DLATMS, + $ DLARHS, DLASET, DLATB4, DLATMS, $ DPOT06, DSPOSV * .. * .. Intrinsic Functions .. @@ -331,7 +331,7 @@ SRNAMT = 'DSPOSV ' KASE = KASE + 1 * - CALL DLACPY( 'All', N, N, A, LDA, AFAC, LDA) + CALL DLACPY( 'All', N, N, A, LDA, AFAC, LDA) * CALL DSPOSV( UPLO, N, NRHS, AFAC, LDA, B, LDA, X, LDA, $ WORK, SWORK, ITER, INFO ) @@ -372,7 +372,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1 * @@ -450,7 +450,7 @@ $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DPOTRF' ) - + RETURN * * End of DDRVAC diff --git a/TESTING/LIN/ddrvgb.f b/TESTING/LIN/ddrvgb.f index d97857dd..ede52c3b 100644 --- a/TESTING/LIN/ddrvgb.f +++ b/TESTING/LIN/ddrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/ddrvgbx.f b/TESTING/LIN/ddrvgbx.f index ad0b1f6f..0da7f63d 100644 --- a/TESTING/LIN/ddrvgbx.f +++ b/TESTING/LIN/ddrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvge.f b/TESTING/LIN/ddrvge.f index efb592ac..9c48a22d 100644 --- a/TESTING/LIN/ddrvge.f +++ b/TESTING/LIN/ddrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/ddrvgex.f b/TESTING/LIN/ddrvgex.f index 98099ed8..996c1d83 100644 --- a/TESTING/LIN/ddrvgex.f +++ b/TESTING/LIN/ddrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/ddrvgt.f b/TESTING/LIN/ddrvgt.f index 81d7dcf7..15f75279 100644 --- a/TESTING/LIN/ddrvgt.f +++ b/TESTING/LIN/ddrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvls.f b/TESTING/LIN/ddrvls.f index 8f35caba..f92f3455 100644 --- a/TESTING/LIN/ddrvls.f +++ b/TESTING/LIN/ddrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * DOUBLE PRECISION A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ COPYS( * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,14 +46,14 @@ *> .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used. *> The matrix of type j is generated as follows: *> j=1: A = U*D*V where U and V are random orthogonal matrices -*> and D has random entries (> 0.1) taken from a uniform +*> and D has random entries (> 0.1) taken from a uniform *> distribution (0,1). A is full rank. *> j=2: The same of 1, but A is scaled up. *> j=3: The same of 1, but A is scaled down. *> j=4: A = U*D*V where U and V are random orthogonal matrices *> and D has 3*min(M,N)/4 random entries (> 0.1) taken *> from a uniform distribution (0,1) and the remaining -*> entries set to 0. A is rank-deficient. +*> entries set to 0. A is rank-deficient. *> j=5: The same of 4, but A is scaled up. *> j=6: The same of 5, but A is scaled down. *> \endverbatim @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -234,9 +234,9 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, - $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, - $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, + INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, + $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK DOUBLE PRECISION EPS, NORMA, NORMB, RCOND * .. @@ -637,7 +637,7 @@ NFAIL = NFAIL + 1 END IF 90 CONTINUE - NRUN = NRUN + 12 + NRUN = NRUN + 12 * 100 CONTINUE 110 CONTINUE diff --git a/TESTING/LIN/ddrvpb.f b/TESTING/LIN/ddrvpb.f index b44ae385..06d7f59d 100644 --- a/TESTING/LIN/ddrvpb.f +++ b/TESTING/LIN/ddrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvpo.f b/TESTING/LIN/ddrvpo.f index 92a71ede..de518190 100644 --- a/TESTING/LIN/ddrvpo.f +++ b/TESTING/LIN/ddrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvpox.f b/TESTING/LIN/ddrvpox.f index a3ab1048..5df8f041 100644 --- a/TESTING/LIN/ddrvpox.f +++ b/TESTING/LIN/ddrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/ddrvpp.f b/TESTING/LIN/ddrvpp.f index aa549c19..69174aba 100644 --- a/TESTING/LIN/ddrvpp.f +++ b/TESTING/LIN/ddrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvpt.f b/TESTING/LIN/ddrvpt.f index 5cf5aa6c..332f0e49 100644 --- a/TESTING/LIN/ddrvpt.f +++ b/TESTING/LIN/ddrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * DOUBLE PRECISION A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvrf1.f b/TESTING/LIN/ddrvrf1.f index d5a20e9a..16a6d266 100644 --- a/TESTING/LIN/ddrvrf1.f +++ b/TESTING/LIN/ddrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -18,7 +18,7 @@ * INTEGER NVAL( NN ) * DOUBLE PRECISION A( LDA, * ), ARF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -82,10 +82,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -161,7 +161,7 @@ EPS = DLAMCH( 'Precision' ) SMALL = DLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN @@ -241,7 +241,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DLANSF', + WRITE( NOUT, FMT = 9997 ) 'DLANSF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/ddrvrf2.f b/TESTING/LIN/ddrvrf2.f index 03487f50..8102f0d8 100644 --- a/TESTING/LIN/ddrvrf2.f +++ b/TESTING/LIN/ddrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * DOUBLE PRECISION A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/ddrvrf3.f b/TESTING/LIN/ddrvrf3.f index 26e59d1f..5b0a959f 100644 --- a/TESTING/LIN/ddrvrf3.f +++ b/TESTING/LIN/ddrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + D_WORK_DLANGE, D_WORK_DGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * + B2( LDA, * ), D_WORK_DGEQRF( * ), * + D_WORK_DLANGE( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,12 +253,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -336,7 +336,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DTFSM', + WRITE( NOUT, FMT = 9997 ) 'DTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -359,7 +359,7 @@ WRITE( NOUT, FMT = 9995 ) 'DTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/ddrvrf4.f b/TESTING/LIN/ddrvrf4.f index 62a20d48..429ae370 100644 --- a/TESTING/LIN/ddrvrf4.f +++ b/TESTING/LIN/ddrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, D_WORK_DLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * DOUBLE PRECISION THRESH @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ), D_WORK_DLANGE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -242,12 +242,12 @@ NORMA = DLANGE( 'I', N, K, A, LDA, + D_WORK_DLANGE ) * - + ELSE * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = DLARND( 2, ISEED ) END DO @@ -258,7 +258,7 @@ * END IF * -* Generate C1 our N--by--N symmetric matrix. +* Generate C1 our N--by--N symmetric matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -313,7 +313,7 @@ * RESULT(1) = DLANGE( 'I', N, N, C1, LDC, + D_WORK_DLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA + + ABS( BETA ) , ONE ) + / MAX( N , 1 ) / EPS @@ -323,7 +323,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'DSFRK', + WRITE( NOUT, FMT = 9997 ) 'DSFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -343,7 +343,7 @@ WRITE( NOUT, FMT = 9995 ) 'DSFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DSFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing DSFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/ddrvrfp.f b/TESTING/LIN/ddrvrfp.f index 9bb5d7c0..f37de1a8 100644 --- a/TESTING/LIN/ddrvrfp.f +++ b/TESTING/LIN/ddrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + D_WORK_DLATMS, D_WORK_DPOT01, D_TEMP_DPOT02, * + D_TEMP_DPOT03, D_WORK_DLANSY, * + D_WORK_DPOT02, D_WORK_DPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * DOUBLE PRECISION THRESH @@ -39,7 +39,7 @@ * DOUBLE PRECISION D_WORK_DPOT02( * ) * DOUBLE PRECISION D_WORK_DPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,7 +56,7 @@ *> full format to RFP format are performed using the routines DTRTTF and *> DTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -515,7 +515,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL DLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE @@ -550,7 +550,7 @@ + RESULT( 3 ) ) * * Check solution from generated exact solution. - + CALL DGET04( N, NRHS, X, LDA, XACT, LDA, RCONDC, + RESULT( 4 ) ) NT = 4 diff --git a/TESTING/LIN/ddrvsp.f b/TESTING/LIN/ddrvsp.f index a96c6ab8..27b06173 100644 --- a/TESTING/LIN/ddrvsp.f +++ b/TESTING/LIN/ddrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ddrvsyx.f b/TESTING/LIN/ddrvsyx.f index b09699bf..a852cfad 100644 --- a/TESTING/LIN/ddrvsyx.f +++ b/TESTING/LIN/ddrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * DOUBLE PRECISION A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/debchvxx.f b/TESTING/LIN/debchvxx.f index 6e954b8d..d2122253 100644 --- a/TESTING/LIN/debchvxx.f +++ b/TESTING/LIN/debchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrab.f b/TESTING/LIN/derrab.f index 605cd526..dce34bca 100644 --- a/TESTING/LIN/derrab.f +++ b/TESTING/LIN/derrab.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRAB( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrac.f b/TESTING/LIN/derrac.f index 75ef2049..b5d2b5b8 100644 --- a/TESTING/LIN/derrac.f +++ b/TESTING/LIN/derrac.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRAC( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrge.f b/TESTING/LIN/derrge.f index d9ddf13f..7920f16d 100644 --- a/TESTING/LIN/derrge.f +++ b/TESTING/LIN/derrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrgex.f b/TESTING/LIN/derrgex.f index 8a286ef9..f14fcab6 100644 --- a/TESTING/LIN/derrgex.f +++ b/TESTING/LIN/derrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrgt.f b/TESTING/LIN/derrgt.f index 5b12f9e8..e5adafcd 100644 --- a/TESTING/LIN/derrgt.f +++ b/TESTING/LIN/derrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrlq.f b/TESTING/LIN/derrlq.f index 9a5d41ab..1d4857a7 100644 --- a/TESTING/LIN/derrlq.f +++ b/TESTING/LIN/derrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrls.f b/TESTING/LIN/derrls.f index a21f7555..54f3fa9e 100644 --- a/TESTING/LIN/derrls.f +++ b/TESTING/LIN/derrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrpo.f b/TESTING/LIN/derrpo.f index e600d9ea..27a834ec 100644 --- a/TESTING/LIN/derrpo.f +++ b/TESTING/LIN/derrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrpox.f b/TESTING/LIN/derrpox.f index 7c7405a2..480cb2f4 100644 --- a/TESTING/LIN/derrpox.f +++ b/TESTING/LIN/derrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrps.f b/TESTING/LIN/derrps.f index 91e1e4b1..60a83196 100644 --- a/TESTING/LIN/derrps.f +++ b/TESTING/LIN/derrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrql.f b/TESTING/LIN/derrql.f index b4177c5e..868ea8a9 100644 --- a/TESTING/LIN/derrql.f +++ b/TESTING/LIN/derrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrqp.f b/TESTING/LIN/derrqp.f index f3d79cfa..d534044b 100644 --- a/TESTING/LIN/derrqp.f +++ b/TESTING/LIN/derrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrqr.f b/TESTING/LIN/derrqr.f index ee3472ff..afe59313 100644 --- a/TESTING/LIN/derrqr.f +++ b/TESTING/LIN/derrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrqrt.f b/TESTING/LIN/derrqrt.f index d7f30694..00b0e283 100644 --- a/TESTING/LIN/derrqrt.f +++ b/TESTING/LIN/derrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, DGEQRT2, DGEQRT3, DGEQRT, - $ DGEMQRT + $ DGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/derrqrtp.f b/TESTING/LIN/derrqrtp.f index 3e74e666..ae51541c 100644 --- a/TESTING/LIN/derrqrtp.f +++ b/TESTING/LIN/derrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, DTPQRT2, DTPQRT, - $ DTPMQRT + $ DTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'DTPMQRT' INFOT = 1 - CALL DTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL DTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL DTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL DTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL DTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL DTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL DTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL DTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL DTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL DTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL DTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL DTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'DTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/derrrfp.f b/TESTING/LIN/derrrfp.f index a97b53d7..830419a6 100644 --- a/TESTING/LIN/derrrfp.f +++ b/TESTING/LIN/derrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrrq.f b/TESTING/LIN/derrrq.f index 0eed1471..71a14b74 100644 --- a/TESTING/LIN/derrrq.f +++ b/TESTING/LIN/derrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrsy.f b/TESTING/LIN/derrsy.f index d537a62c..8523fc8c 100644 --- a/TESTING/LIN/derrsy.f +++ b/TESTING/LIN/derrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrsyx.f b/TESTING/LIN/derrsyx.f index 8bd2886e..635868df 100644 --- a/TESTING/LIN/derrsyx.f +++ b/TESTING/LIN/derrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrtr.f b/TESTING/LIN/derrtr.f index bf2071c8..f75de4b3 100644 --- a/TESTING/LIN/derrtr.f +++ b/TESTING/LIN/derrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/derrtz.f b/TESTING/LIN/derrtz.f index 072c006e..def750db 100644 --- a/TESTING/LIN/derrtz.f +++ b/TESTING/LIN/derrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/derrvx.f b/TESTING/LIN/derrvx.f index ea9a7d0d..36eb8d6a 100644 --- a/TESTING/LIN/derrvx.f +++ b/TESTING/LIN/derrvx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/derrvxx.f b/TESTING/LIN/derrvxx.f index ef4029e7..b28e01cb 100644 --- a/TESTING/LIN/derrvxx.f +++ b/TESTING/LIN/derrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dgbt01.f b/TESTING/LIN/dgbt01.f index 90211b6d..bf5db6a0 100644 --- a/TESTING/LIN/dgbt01.f +++ b/TESTING/LIN/dgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgbt02.f b/TESTING/LIN/dgbt02.f index 3d1f8690..abd5cb32 100644 --- a/TESTING/LIN/dgbt02.f +++ b/TESTING/LIN/dgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgbt05.f b/TESTING/LIN/dgbt05.f index 831526f2..0a37889d 100644 --- a/TESTING/LIN/dgbt05.f +++ b/TESTING/LIN/dgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgelqs.f b/TESTING/LIN/dgelqs.f index aa1d4544..cd59e0a3 100644 --- a/TESTING/LIN/dgelqs.f +++ b/TESTING/LIN/dgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgennd.f b/TESTING/LIN/dgennd.f index c475f31d..056df84f 100644 --- a/TESTING/LIN/dgennd.f +++ b/TESTING/LIN/dgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION DGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgeqls.f b/TESTING/LIN/dgeqls.f index cc5a4dbf..5896fba8 100644 --- a/TESTING/LIN/dgeqls.f +++ b/TESTING/LIN/dgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgeqrs.f b/TESTING/LIN/dgeqrs.f index d1ccb9de..70ac6107 100644 --- a/TESTING/LIN/dgeqrs.f +++ b/TESTING/LIN/dgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgerqs.f b/TESTING/LIN/dgerqs.f index 7daaeb72..f33e4abd 100644 --- a/TESTING/LIN/dgerqs.f +++ b/TESTING/LIN/dgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget01.f b/TESTING/LIN/dget01.f index 4f2544d2..76431e9f 100644 --- a/TESTING/LIN/dget01.f +++ b/TESTING/LIN/dget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget02.f b/TESTING/LIN/dget02.f index 6e3f1810..65869ba0 100644 --- a/TESTING/LIN/dget02.f +++ b/TESTING/LIN/dget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dget03.f b/TESTING/LIN/dget03.f index afc1d724..5aca18e3 100644 --- a/TESTING/LIN/dget03.f +++ b/TESTING/LIN/dget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * DOUBLE PRECISION RCOND, RESID @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget04.f b/TESTING/LIN/dget04.f index 7f059c93..3852a9dc 100644 --- a/TESTING/LIN/dget04.f +++ b/TESTING/LIN/dget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * DOUBLE PRECISION RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget06.f b/TESTING/LIN/dget06.f index 7ad082e1..77755bd5 100644 --- a/TESTING/LIN/dget06.f +++ b/TESTING/LIN/dget06.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DGET06( RCOND, RCONDC ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RCOND, RCONDC * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget07.f b/TESTING/LIN/dget07.f index bf0e02f1..a4d5631a 100644 --- a/TESTING/LIN/dget07.f +++ b/TESTING/LIN/dget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dget08.f b/TESTING/LIN/dget08.f index bd5e5c07..ae232e6d 100644 --- a/TESTING/LIN/dget08.f +++ b/TESTING/LIN/dget08.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgtt01.f b/TESTING/LIN/dgtt01.f index b869d5ec..81b8f189 100644 --- a/TESTING/LIN/dgtt01.f +++ b/TESTING/LIN/dgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * DOUBLE PRECISION RESID @@ -21,7 +21,7 @@ * $ DU2( * ), DUF( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgtt02.f b/TESTING/LIN/dgtt02.f index 0b54502a..10e7852d 100644 --- a/TESTING/LIN/dgtt02.f +++ b/TESTING/LIN/dgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dgtt05.f b/TESTING/LIN/dgtt05.f index 02b46c34..6ee3d678 100644 --- a/TESTING/LIN/dgtt05.f +++ b/TESTING/LIN/dgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ DU( * ), FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlahilb.f b/TESTING/LIN/dlahilb.f index 2f909dd4..23d10d48 100644 --- a/TESTING/LIN/dlahilb.f +++ b/TESTING/LIN/dlahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * DOUBLE PRECISION A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is NRHS @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlaord.f b/TESTING/LIN/dlaord.f index 13e3a030..b5e3cd7b 100644 --- a/TESTING/LIN/dlaord.f +++ b/TESTING/LIN/dlaord.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAORD( JOB, N, X, INCX ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INCX, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlaptm.f b/TESTING/LIN/dlaptm.f index 89322614..3f4a7538 100644 --- a/TESTING/LIN/dlaptm.f +++ b/TESTING/LIN/dlaptm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * DOUBLE PRECISION ALPHA, BETA @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlarhs.f b/TESTING/LIN/dlarhs.f index 75f8d4b8..32888794 100644 --- a/TESTING/LIN/dlarhs.f +++ b/TESTING/LIN/dlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlatb4.f b/TESTING/LIN/dlatb4.f index 7983bd56..e1638b08 100644 --- a/TESTING/LIN/dlatb4.f +++ b/TESTING/LIN/dlatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * DOUBLE PRECISION ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlatb5.f b/TESTING/LIN/dlatb5.f index 96209413..7758725e 100644 --- a/TESTING/LIN/dlatb5.f +++ b/TESTING/LIN/dlatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlattb.f b/TESTING/LIN/dlattb.f index 7bf0d8a2..43014ac8 100644 --- a/TESTING/LIN/dlattb.f +++ b/TESTING/LIN/dlattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlattp.f b/TESTING/LIN/dlattp.f index 031d1781..a275d72c 100644 --- a/TESTING/LIN/dlattp.f +++ b/TESTING/LIN/dlattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlattr.f b/TESTING/LIN/dlattr.f index 4daea8fd..1b854b2e 100644 --- a/TESTING/LIN/dlattr.f +++ b/TESTING/LIN/dlattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlavsp.f b/TESTING/LIN/dlavsp.f index 31235322..9affa980 100644 --- a/TESTING/LIN/dlavsp.f +++ b/TESTING/LIN/dlavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlqt01.f b/TESTING/LIN/dlqt01.f index 517fbe8e..36ae5f50 100644 --- a/TESTING/LIN/dlqt01.f +++ b/TESTING/LIN/dlqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlqt02.f b/TESTING/LIN/dlqt02.f index 1783b930..9eb3ee60 100644 --- a/TESTING/LIN/dlqt02.f +++ b/TESTING/LIN/dlqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dlqt03.f b/TESTING/LIN/dlqt03.f index 2e6cb005..ea0b69ea 100644 --- a/TESTING/LIN/dlqt03.f +++ b/TESTING/LIN/dlqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpbt01.f b/TESTING/LIN/dpbt01.f index b0eeaf2a..59b46119 100644 --- a/TESTING/LIN/dpbt01.f +++ b/TESTING/LIN/dpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpbt02.f b/TESTING/LIN/dpbt02.f index fdd6401a..00fa83eb 100644 --- a/TESTING/LIN/dpbt02.f +++ b/TESTING/LIN/dpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpbt05.f b/TESTING/LIN/dpbt05.f index dfc70f5f..07eb77b3 100644 --- a/TESTING/LIN/dpbt05.f +++ b/TESTING/LIN/dpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot01.f b/TESTING/LIN/dpot01.f index f11174f4..023a2bb1 100644 --- a/TESTING/LIN/dpot01.f +++ b/TESTING/LIN/dpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot02.f b/TESTING/LIN/dpot02.f index 672eb067..bf8a2bbd 100644 --- a/TESTING/LIN/dpot02.f +++ b/TESTING/LIN/dpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot03.f b/TESTING/LIN/dpot03.f index 7fbd05e0..779aea24 100644 --- a/TESTING/LIN/dpot03.f +++ b/TESTING/LIN/dpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot05.f b/TESTING/LIN/dpot05.f index 4ebbd030..d6b84bd7 100644 --- a/TESTING/LIN/dpot05.f +++ b/TESTING/LIN/dpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpot06.f b/TESTING/LIN/dpot06.f index d2dc1fe2..7aa0133c 100644 --- a/TESTING/LIN/dpot06.f +++ b/TESTING/LIN/dpot06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt01.f b/TESTING/LIN/dppt01.f index 6dcae726..027860dc 100644 --- a/TESTING/LIN/dppt01.f +++ b/TESTING/LIN/dppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), AFAC( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt02.f b/TESTING/LIN/dppt02.f index f7c94074..fb83756d 100644 --- a/TESTING/LIN/dppt02.f +++ b/TESTING/LIN/dppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ), B( LDB, * ), RWORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt03.f b/TESTING/LIN/dppt03.f index f11ee16f..480d460b 100644 --- a/TESTING/LIN/dppt03.f +++ b/TESTING/LIN/dppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dppt05.f b/TESTING/LIN/dppt05.f index cd1a8c94..4128d49a 100644 --- a/TESTING/LIN/dppt05.f +++ b/TESTING/LIN/dppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dpst01.f b/TESTING/LIN/dpst01.f index b5eb7d10..3b8a045b 100644 --- a/TESTING/LIN/dpst01.f +++ b/TESTING/LIN/dpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -21,7 +21,7 @@ * $ PERM( LDPERM, * ), RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dptt01.f b/TESTING/LIN/dptt01.f index 304079b1..523e0ed8 100644 --- a/TESTING/LIN/dptt01.f +++ b/TESTING/LIN/dptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION D( * ), DF( * ), E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dptt02.f b/TESTING/LIN/dptt02.f index 7641c332..733c2ebc 100644 --- a/TESTING/LIN/dptt02.f +++ b/TESTING/LIN/dptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * DOUBLE PRECISION RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * DOUBLE PRECISION B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dptt05.f b/TESTING/LIN/dptt05.f index 5b816620..592045b1 100644 --- a/TESTING/LIN/dptt05.f +++ b/TESTING/LIN/dptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqlt01.f b/TESTING/LIN/dqlt01.f index 7f38c1a1..25cb01bc 100644 --- a/TESTING/LIN/dqlt01.f +++ b/TESTING/LIN/dqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqlt02.f b/TESTING/LIN/dqlt02.f index c810d160..53594000 100644 --- a/TESTING/LIN/dqlt02.f +++ b/TESTING/LIN/dqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqlt03.f b/TESTING/LIN/dqlt03.f index e425f80b..bba8a565 100644 --- a/TESTING/LIN/dqlt03.f +++ b/TESTING/LIN/dqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqpt01.f b/TESTING/LIN/dqpt01.f index fba9d0d4..c4759347 100644 --- a/TESTING/LIN/dqpt01.f +++ b/TESTING/LIN/dqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt01.f b/TESTING/LIN/dqrt01.f index bc27e6eb..622bef46 100644 --- a/TESTING/LIN/dqrt01.f +++ b/TESTING/LIN/dqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt01p.f b/TESTING/LIN/dqrt01p.f index 1cc8479c..a48bd11e 100644 --- a/TESTING/LIN/dqrt01p.f +++ b/TESTING/LIN/dqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt02.f b/TESTING/LIN/dqrt02.f index ac584a33..4f1efec7 100644 --- a/TESTING/LIN/dqrt02.f +++ b/TESTING/LIN/dqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt03.f b/TESTING/LIN/dqrt03.f index b4ca482b..71383217 100644 --- a/TESTING/LIN/dqrt03.f +++ b/TESTING/LIN/dqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/dqrt04.f b/TESTING/LIN/dqrt04.f index 04a400f0..cc060ae5 100644 --- a/TESTING/LIN/dqrt04.f +++ b/TESTING/LIN/dqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays DOUBLE PRECISION, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -109,11 +109,11 @@ EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = DLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -121,8 +121,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -140,7 +140,7 @@ * Generate the m-by-m matrix Q * CALL DLASET( 'Full', M, M, ZERO, ONE, Q, M ) - CALL DGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL DGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -176,7 +176,7 @@ * * Apply Q to C as Q*C * - CALL DGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL DGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -195,7 +195,7 @@ * * Apply Q to C as QT*C * - CALL DGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, + CALL DGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -206,7 +206,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -218,8 +218,8 @@ * * Apply Q to D as D*Q * - CALL DGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL DGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -237,8 +237,8 @@ * * Apply Q to D as D*QT * - CALL DGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL DGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/dqrt05.f b/TESTING/LIN/dqrt05.f index 1aba3485..73397919 100644 --- a/TESTING/LIN/dqrt05.f +++ b/TESTING/LIN/dqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ DOUBLE PRECISION RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays DOUBLE PRECISION, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -117,7 +117,7 @@ * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = DLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -131,7 +131,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -220,7 +220,7 @@ * Apply Q to C as QT*C * CALL DTPMQRT( 'L','T',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -230,7 +230,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -262,8 +262,8 @@ * Apply Q to D as D*QT * CALL DTPMQRT('R','T',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/dqrt11.f b/TESTING/LIN/dqrt11.f index 0dcfac00..8311ec2b 100644 --- a/TESTING/LIN/dqrt11.f +++ b/TESTING/LIN/dqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt12.f b/TESTING/LIN/dqrt12.f index 948bd2d8..fa41c74e 100644 --- a/TESTING/LIN/dqrt12.f +++ b/TESTING/LIN/dqrt12.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT12( M, N, A, LDA, S, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt13.f b/TESTING/LIN/dqrt13.f index fa781f4c..798996bb 100644 --- a/TESTING/LIN/dqrt13.f +++ b/TESTING/LIN/dqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * DOUBLE PRECISION NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt14.f b/TESTING/LIN/dqrt14.f index 9892b9d7..1890a2ef 100644 --- a/TESTING/LIN/dqrt14.f +++ b/TESTING/LIN/dqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt15.f b/TESTING/LIN/dqrt15.f index c7f711aa..f6a6c9d8 100644 --- a/TESTING/LIN/dqrt15.f +++ b/TESTING/LIN/dqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * DOUBLE PRECISION NORMA, NORMB @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt16.f b/TESTING/LIN/dqrt16.f index afc7b4f7..a5202c1f 100644 --- a/TESTING/LIN/dqrt16.f +++ b/TESTING/LIN/dqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dqrt17.f b/TESTING/LIN/dqrt17.f index f71f3022..2da2d376 100644 --- a/TESTING/LIN/dqrt17.f +++ b/TESTING/LIN/dqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/drqt01.f b/TESTING/LIN/drqt01.f index a74cb748..c45934ec 100644 --- a/TESTING/LIN/drqt01.f +++ b/TESTING/LIN/drqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drqt02.f b/TESTING/LIN/drqt02.f index 153c5bf7..91541136 100644 --- a/TESTING/LIN/drqt02.f +++ b/TESTING/LIN/drqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drqt03.f b/TESTING/LIN/drqt03.f index 655b4435..3e76dad2 100644 --- a/TESTING/LIN/drqt03.f +++ b/TESTING/LIN/drqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drzt01.f b/TESTING/LIN/drzt01.f index 49ebff9c..a469a44b 100644 --- a/TESTING/LIN/drzt01.f +++ b/TESTING/LIN/drzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/drzt02.f b/TESTING/LIN/drzt02.f index f9677696..3967a1db 100644 --- a/TESTING/LIN/drzt02.f +++ b/TESTING/LIN/drzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * DOUBLE PRECISION AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dspt01.f b/TESTING/LIN/dspt01.f index 50e32c3f..19597fd7 100644 --- a/TESTING/LIN/dspt01.f +++ b/TESTING/LIN/dspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( * ), AFAC( * ), C( LDC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt02.f b/TESTING/LIN/dtbt02.f index a06e773c..53912c74 100644 --- a/TESTING/LIN/dtbt02.f +++ b/TESTING/LIN/dtbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt03.f b/TESTING/LIN/dtbt03.f index 4b732b78..1c95013d 100644 --- a/TESTING/LIN/dtbt03.f +++ b/TESTING/LIN/dtbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * DOUBLE PRECISION AB( LDAB, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt05.f b/TESTING/LIN/dtbt05.f index 951e0731..507d8c92 100644 --- a/TESTING/LIN/dtbt05.f +++ b/TESTING/LIN/dtbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtbt06.f b/TESTING/LIN/dtbt06.f index ded24c97..0fa00c78 100644 --- a/TESTING/LIN/dtbt06.f +++ b/TESTING/LIN/dtbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt01.f b/TESTING/LIN/dtpt01.f index 82754bd0..f201cfa9 100644 --- a/TESTING/LIN/dtpt01.f +++ b/TESTING/LIN/dtpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AINVP( * ), AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt02.f b/TESTING/LIN/dtpt02.f index cec60142..933cadff 100644 --- a/TESTING/LIN/dtpt02.f +++ b/TESTING/LIN/dtpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt03.f b/TESTING/LIN/dtpt03.f index 4832f8f5..72a6f347 100644 --- a/TESTING/LIN/dtpt03.f +++ b/TESTING/LIN/dtpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), CNORM( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt05.f b/TESTING/LIN/dtpt05.f index a416751c..ba811777 100644 --- a/TESTING/LIN/dtpt05.f +++ b/TESTING/LIN/dtpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtpt06.f b/TESTING/LIN/dtpt06.f index 4013d38d..7318f027 100644 --- a/TESTING/LIN/dtpt06.f +++ b/TESTING/LIN/dtpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * DOUBLE PRECISION AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt01.f b/TESTING/LIN/dtrt01.f index 65157633..23547abf 100644 --- a/TESTING/LIN/dtrt01.f +++ b/TESTING/LIN/dtrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), AINV( LDAINV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt02.f b/TESTING/LIN/dtrt02.f index b94af805..70bf454f 100644 --- a/TESTING/LIN/dtrt02.f +++ b/TESTING/LIN/dtrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt03.f b/TESTING/LIN/dtrt03.f index 46926bdb..d5782a8c 100644 --- a/TESTING/LIN/dtrt03.f +++ b/TESTING/LIN/dtrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt05.f b/TESTING/LIN/dtrt05.f index 949868ca..1377c1fe 100644 --- a/TESTING/LIN/dtrt05.f +++ b/TESTING/LIN/dtrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/dtrt06.f b/TESTING/LIN/dtrt06.f index d91ac2b4..297fc937 100644 --- a/TESTING/LIN/dtrt06.f +++ b/TESTING/LIN/dtrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/icopy.f b/TESTING/LIN/icopy.f index 1a94b361..1db0217c 100644 --- a/TESTING/LIN/icopy.f +++ b/TESTING/LIN/icopy.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) -* +* * .. Scalar Arguments .. * INTEGER INCX, INCY, N * .. * .. Array Arguments .. * INTEGER SX( * ), SY( * ) * .. -* +* * *> \par Purpose: * ============= @@ -63,10 +63,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ilaenv.f b/TESTING/LIN/ilaenv.f index 34335764..80479382 100644 --- a/TESTING/LIN/ilaenv.f +++ b/TESTING/LIN/ilaenv.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, * N4 ) -* +* * .. Scalar Arguments .. * CHARACTER*( * ) NAME, OPTS * INTEGER ISPEC, N1, N2, N3, N4 * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkaa.f b/TESTING/LIN/schkaa.f index ded95976..821710ce 100644 --- a/TESTING/LIN/schkaa.f +++ b/TESTING/LIN/schkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKAA -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -868,7 +868,7 @@ * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -879,7 +879,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/schkeq.f b/TESTING/LIN/schkeq.f index 60a3bd86..01eceaa1 100644 --- a/TESTING/LIN/schkeq.f +++ b/TESTING/LIN/schkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * REAL THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkgb.f b/TESTING/LIN/schkgb.f index 3caf0491..818893be 100644 --- a/TESTING/LIN/schkgb.f +++ b/TESTING/LIN/schkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), AFAC( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkge.f b/TESTING/LIN/schkge.f index 560f259d..6ccb8a7e 100644 --- a/TESTING/LIN/schkge.f +++ b/TESTING/LIN/schkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -171,10 +171,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/schkgt.f b/TESTING/LIN/schkgt.f index 783d85f3..4ef9c995 100644 --- a/TESTING/LIN/schkgt.f +++ b/TESTING/LIN/schkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schklq.f b/TESTING/LIN/schklq.f index 016fa2a5..763afb45 100644 --- a/TESTING/LIN/schklq.f +++ b/TESTING/LIN/schklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/schkpb.f b/TESTING/LIN/schkpb.f index 09fa0611..29a16bf5 100644 --- a/TESTING/LIN/schkpb.f +++ b/TESTING/LIN/schkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkpo.f b/TESTING/LIN/schkpo.f index afeb176e..58a8989d 100644 --- a/TESTING/LIN/schkpo.f +++ b/TESTING/LIN/schkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkpp.f b/TESTING/LIN/schkpp.f index 9bee8ef1..8d0ca0da 100644 --- a/TESTING/LIN/schkpp.f +++ b/TESTING/LIN/schkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkps.f b/TESTING/LIN/schkps.f index b62f881a..64cc6371 100644 --- a/TESTING/LIN/schkps.f +++ b/TESTING/LIN/schkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * REAL THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -282,7 +282,7 @@ * IF( INFO.NE.0 ) THEN CALL ALAERH( PATH, 'SLATMT', INFO, 0, UPLO, N, - $ N, -1, -1, -1, IMAT, NFAIL, NERRS, + $ N, -1, -1, -1, IMAT, NFAIL, NERRS, $ NOUT ) GO TO 120 END IF diff --git a/TESTING/LIN/schkpt.f b/TESTING/LIN/schkpt.f index 6f6c0fab..0e68cbb0 100644 --- a/TESTING/LIN/schkpt.f +++ b/TESTING/LIN/schkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -133,10 +133,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkq3.f b/TESTING/LIN/schkq3.f index 6a184e8d..7d217509 100644 --- a/TESTING/LIN/schkq3.f +++ b/TESTING/LIN/schkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * REAL THRESH @@ -23,7 +23,7 @@ * REAL A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkql.f b/TESTING/LIN/schkql.f index 4379673e..31fb84e3 100644 --- a/TESTING/LIN/schkql.f +++ b/TESTING/LIN/schkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schkqr.f b/TESTING/LIN/schkqr.f index 70027a5c..c00de16f 100644 --- a/TESTING/LIN/schkqr.f +++ b/TESTING/LIN/schkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/schkqrt.f b/TESTING/LIN/schkqrt.f index 0d6368af..c3a0c90f 100644 --- a/TESTING/LIN/schkqrt.f +++ b/TESTING/LIN/schkqrt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -87,17 +87,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup single_lin * * ===================================================================== - SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -122,7 +122,7 @@ * .. * .. Local Scalars .. CHARACTER*3 PATH - INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN, + INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN, $ MINMN * .. * .. Local Arrays .. @@ -173,7 +173,7 @@ IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN * * Test SGEQRT and SGEMQRT -* +* CALL SQRT04( M, N, NB, RESULT ) * * Print information about the tests that did not diff --git a/TESTING/LIN/schkqrtp.f b/TESTING/LIN/schkqrtp.f index 68ba96fe..7f107a0f 100644 --- a/TESTING/LIN/schkqrtp.f +++ b/TESTING/LIN/schkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup single_lin * * ===================================================================== - SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -172,14 +172,14 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test STPQRT and STPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL SQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f index f092f685..4bdef738 100644 --- a/TESTING/LIN/schkrfp.f +++ b/TESTING/LIN/schkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM SCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/schkrq.f b/TESTING/LIN/schkrq.f index 85087745..c83a7792 100644 --- a/TESTING/LIN/schkrq.f +++ b/TESTING/LIN/schkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * $ B( * ), RWORK( * ), TAU( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/schksp.f b/TESTING/LIN/schksp.f index 782facc0..fe6b52f2 100644 --- a/TESTING/LIN/schksp.f +++ b/TESTING/LIN/schksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktb.f b/TESTING/LIN/schktb.f index 0f417f95..45277849 100644 --- a/TESTING/LIN/schktb.f +++ b/TESTING/LIN/schktb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL AB( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktp.f b/TESTING/LIN/schktp.f index 8bfdedd0..a7281267 100644 --- a/TESTING/LIN/schktp.f +++ b/TESTING/LIN/schktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * REAL AINVP( * ), AP( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktr.f b/TESTING/LIN/schktr.f index 0b12baa7..b2797011 100644 --- a/TESTING/LIN/schktr.f +++ b/TESTING/LIN/schktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -23,7 +23,7 @@ * REAL A( * ), AINV( * ), B( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/schktz.f b/TESTING/LIN/schktz.f index 74406453..367e347f 100644 --- a/TESTING/LIN/schktz.f +++ b/TESTING/LIN/schktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * REAL A( * ), COPYA( * ), S( * ), * $ TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -119,10 +119,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sdrvgb.f b/TESTING/LIN/sdrvgb.f index 1d9bbadd..e2f6be3e 100644 --- a/TESTING/LIN/sdrvgb.f +++ b/TESTING/LIN/sdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sdrvgbx.f b/TESTING/LIN/sdrvgbx.f index d291f5b5..587a1721 100644 --- a/TESTING/LIN/sdrvgbx.f +++ b/TESTING/LIN/sdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ RWORK( * ), S( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvge.f b/TESTING/LIN/sdrvge.f index 8627e236..7865faa4 100644 --- a/TESTING/LIN/sdrvge.f +++ b/TESTING/LIN/sdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sdrvgex.f b/TESTING/LIN/sdrvgex.f index cf8d0703..b51619ad 100644 --- a/TESTING/LIN/sdrvgex.f +++ b/TESTING/LIN/sdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/sdrvgt.f b/TESTING/LIN/sdrvgt.f index 3eee0484..3198137b 100644 --- a/TESTING/LIN/sdrvgt.f +++ b/TESTING/LIN/sdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * REAL A( * ), AF( * ), B( * ), RWORK( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvls.f b/TESTING/LIN/sdrvls.f index 2d4afa52..4db6f887 100644 --- a/TESTING/LIN/sdrvls.f +++ b/TESTING/LIN/sdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * REAL A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ COPYS( * ), S( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -46,14 +46,14 @@ *> .TRUE.; if DOTYPE(j) = .FALSE., then type j is not used. *> The matrix of type j is generated as follows: *> j=1: A = U*D*V where U and V are random orthogonal matrices -*> and D has random entries (> 0.1) taken from a uniform +*> and D has random entries (> 0.1) taken from a uniform *> distribution (0,1). A is full rank. *> j=2: The same of 1, but A is scaled up. *> j=3: The same of 1, but A is scaled down. *> j=4: A = U*D*V where U and V are random orthogonal matrices *> and D has 3*min(M,N)/4 random entries (> 0.1) taken *> from a uniform distribution (0,1) and the remaining -*> entries set to 0. A is rank-deficient. +*> entries set to 0. A is rank-deficient. *> j=5: The same of 4, but A is scaled up. *> j=6: The same of 5, but A is scaled down. *> \endverbatim @@ -189,10 +189,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -234,9 +234,9 @@ * .. Local Scalars .. CHARACTER TRANS CHARACTER*3 PATH - INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, - $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, - $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, + INTEGER CRANK, I, IM, IN, INB, INFO, INS, IRANK, + $ ISCALE, ITRAN, ITYPE, J, K, LDA, LDB, LDWORK, + $ LWLSY, LWORK, M, MNMIN, N, NB, NCOLS, NERRS, $ NFAIL, NLVL, NRHS, NROWS, NRUN, RANK REAL EPS, NORMA, NORMB, RCOND * .. @@ -635,7 +635,7 @@ NFAIL = NFAIL + 1 END IF 90 CONTINUE - NRUN = NRUN + 12 + NRUN = NRUN + 12 * 100 CONTINUE 110 CONTINUE diff --git a/TESTING/LIN/sdrvpb.f b/TESTING/LIN/sdrvpb.f index 69c48a47..12be9ba5 100644 --- a/TESTING/LIN/sdrvpb.f +++ b/TESTING/LIN/sdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvpo.f b/TESTING/LIN/sdrvpo.f index 12ae86e6..c8b04d42 100644 --- a/TESTING/LIN/sdrvpo.f +++ b/TESTING/LIN/sdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvpox.f b/TESTING/LIN/sdrvpox.f index 565b6c38..4a0520a3 100644 --- a/TESTING/LIN/sdrvpox.f +++ b/TESTING/LIN/sdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/sdrvpp.f b/TESTING/LIN/sdrvpp.f index 43b663c0..b3ba76c2 100644 --- a/TESTING/LIN/sdrvpp.f +++ b/TESTING/LIN/sdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * $ BSAV( * ), RWORK( * ), S( * ), WORK( * ), * $ X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvpt.f b/TESTING/LIN/sdrvpt.f index a906ddc2..44f43f3d 100644 --- a/TESTING/LIN/sdrvpt.f +++ b/TESTING/LIN/sdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -22,7 +22,7 @@ * REAL A( * ), B( * ), D( * ), E( * ), RWORK( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvrf1.f b/TESTING/LIN/sdrvrf1.f index 60c1649b..404bbf32 100644 --- a/TESTING/LIN/sdrvrf1.f +++ b/TESTING/LIN/sdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -18,7 +18,7 @@ * INTEGER NVAL( NN ) * REAL A( LDA, * ), ARF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -82,10 +82,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -161,17 +161,17 @@ EPS = SLAMCH( 'Precision' ) SMALL = SLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT - + * Quick Return if possible IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'SLANSF', + WRITE( NOUT, FMT = 9997 ) 'SLANSF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/sdrvrf2.f b/TESTING/LIN/sdrvrf2.f index 921065ac..515da5c6 100644 --- a/TESTING/LIN/sdrvrf2.f +++ b/TESTING/LIN/sdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * REAL A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed ( ', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines: ',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/sdrvrf3.f b/TESTING/LIN/sdrvrf3.f index 3aa62860..faecc1c2 100644 --- a/TESTING/LIN/sdrvrf3.f +++ b/TESTING/LIN/sdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + S_WORK_SLANGE, S_WORK_SGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * REAL THRESH @@ -21,7 +21,7 @@ * + B2( LDA, * ), S_WORK_SGEQRF( * ), * + S_WORK_SLANGE( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -253,12 +253,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -336,7 +336,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'STFSM', + WRITE( NOUT, FMT = 9997 ) 'STFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -359,7 +359,7 @@ WRITE( NOUT, FMT = 9995 ) 'STFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing STFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing STFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/sdrvrf4.f b/TESTING/LIN/sdrvrf4.f index 23e28d3c..be35f05b 100644 --- a/TESTING/LIN/sdrvrf4.f +++ b/TESTING/LIN/sdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, S_WORK_SLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * REAL THRESH @@ -20,7 +20,7 @@ * REAL A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ), S_WORK_SLANGE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -105,10 +105,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -242,12 +242,12 @@ NORMA = SLANGE( 'I', N, K, A, LDA, + S_WORK_SLANGE ) * - + ELSE * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = SLARND( 2, ISEED ) END DO @@ -258,7 +258,7 @@ * END IF * -* Generate C1 our N--by--N symmetric matrix. +* Generate C1 our N--by--N symmetric matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -313,7 +313,7 @@ * RESULT(1) = SLANGE( 'I', N, N, C1, LDC, + S_WORK_SLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( ABS( ALPHA ) * NORMA + + ABS( BETA ) , ONE ) + / MAX( N , 1 ) / EPS @@ -323,7 +323,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'SSFRK', + WRITE( NOUT, FMT = 9997 ) 'SSFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -343,7 +343,7 @@ WRITE( NOUT, FMT = 9995 ) 'SSFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing SSFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing SSFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/sdrvrfp.f b/TESTING/LIN/sdrvrfp.f index 04737e77..9b0eed73 100644 --- a/TESTING/LIN/sdrvrfp.f +++ b/TESTING/LIN/sdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + S_WORK_SLATMS, S_WORK_SPOT01, S_TEMP_SPOT02, * + S_TEMP_SPOT03, S_WORK_SLANSY, * + S_WORK_SPOT02, S_WORK_SPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * REAL THRESH @@ -39,7 +39,7 @@ * REAL S_WORK_SPOT02( * ) * REAL S_WORK_SPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,7 +56,7 @@ *> full format to RFP format are performed using the routines STRTTF and *> STFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -226,10 +226,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -514,7 +514,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL SLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE @@ -549,7 +549,7 @@ + RESULT( 3 ) ) * * Check solution from generated exact solution. - + CALL SGET04( N, NRHS, X, LDA, XACT, LDA, RCONDC, + RESULT( 4 ) ) NT = 4 diff --git a/TESTING/LIN/sdrvsp.f b/TESTING/LIN/sdrvsp.f index 6792dd9e..2f6b5ec9 100644 --- a/TESTING/LIN/sdrvsp.f +++ b/TESTING/LIN/sdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sdrvsyx.f b/TESTING/LIN/sdrvsyx.f index b3fc76f5..0fef48cd 100644 --- a/TESTING/LIN/sdrvsyx.f +++ b/TESTING/LIN/sdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -23,7 +23,7 @@ * REAL A( * ), AFAC( * ), AINV( * ), B( * ), * $ RWORK( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -142,10 +142,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sebchvxx.f b/TESTING/LIN/sebchvxx.f index 9fa72df2..7455c558 100644 --- a/TESTING/LIN/sebchvxx.f +++ b/TESTING/LIN/sebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrge.f b/TESTING/LIN/serrge.f index ff200a4b..56a5ecce 100644 --- a/TESTING/LIN/serrge.f +++ b/TESTING/LIN/serrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrgex.f b/TESTING/LIN/serrgex.f index e6afd3fc..b394c67f 100644 --- a/TESTING/LIN/serrgex.f +++ b/TESTING/LIN/serrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrgt.f b/TESTING/LIN/serrgt.f index 65e0404c..294de48c 100644 --- a/TESTING/LIN/serrgt.f +++ b/TESTING/LIN/serrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrlq.f b/TESTING/LIN/serrlq.f index 931dd7c6..3c2d19d3 100644 --- a/TESTING/LIN/serrlq.f +++ b/TESTING/LIN/serrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrls.f b/TESTING/LIN/serrls.f index fe3ab0c3..0312e554 100644 --- a/TESTING/LIN/serrls.f +++ b/TESTING/LIN/serrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrpo.f b/TESTING/LIN/serrpo.f index 91f7b683..8394bf15 100644 --- a/TESTING/LIN/serrpo.f +++ b/TESTING/LIN/serrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrpox.f b/TESTING/LIN/serrpox.f index 88f34c0f..686b545c 100644 --- a/TESTING/LIN/serrpox.f +++ b/TESTING/LIN/serrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrps.f b/TESTING/LIN/serrps.f index ea05b824..57a2bfe8 100644 --- a/TESTING/LIN/serrps.f +++ b/TESTING/LIN/serrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrql.f b/TESTING/LIN/serrql.f index 1ffdb93f..4fe8061c 100644 --- a/TESTING/LIN/serrql.f +++ b/TESTING/LIN/serrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrqp.f b/TESTING/LIN/serrqp.f index 30499202..23601f65 100644 --- a/TESTING/LIN/serrqp.f +++ b/TESTING/LIN/serrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrqr.f b/TESTING/LIN/serrqr.f index 93709123..8afe2256 100644 --- a/TESTING/LIN/serrqr.f +++ b/TESTING/LIN/serrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrqrt.f b/TESTING/LIN/serrqrt.f index c8650d35..3e0d60cc 100644 --- a/TESTING/LIN/serrqrt.f +++ b/TESTING/LIN/serrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, SGEQRT2, SGEQRT3, SGEQRT, - $ SGEMQRT + $ SGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/serrqrtp.f b/TESTING/LIN/serrqrtp.f index 2550cae7..888b2037 100644 --- a/TESTING/LIN/serrqrtp.f +++ b/TESTING/LIN/serrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, STPQRT2, STPQRT, - $ STPMQRT + $ STPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'STPMQRT' INFOT = 1 - CALL STPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL STPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL STPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL STPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL STPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL STPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL STPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL STPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL STPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL STPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL STPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL STPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL STPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'STPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/serrrfp.f b/TESTING/LIN/serrrfp.f index 98159bbd..cde542e7 100644 --- a/TESTING/LIN/serrrfp.f +++ b/TESTING/LIN/serrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrrq.f b/TESTING/LIN/serrrq.f index 46b01b2c..63bf588a 100644 --- a/TESTING/LIN/serrrq.f +++ b/TESTING/LIN/serrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrsy.f b/TESTING/LIN/serrsy.f index 7e0829eb..5326612a 100644 --- a/TESTING/LIN/serrsy.f +++ b/TESTING/LIN/serrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrsyx.f b/TESTING/LIN/serrsyx.f index e2d41d14..9d5baaed 100644 --- a/TESTING/LIN/serrsyx.f +++ b/TESTING/LIN/serrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrtr.f b/TESTING/LIN/serrtr.f index 961bd984..669e5651 100644 --- a/TESTING/LIN/serrtr.f +++ b/TESTING/LIN/serrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/serrtz.f b/TESTING/LIN/serrtz.f index 2e328f13..23fa9d70 100644 --- a/TESTING/LIN/serrtz.f +++ b/TESTING/LIN/serrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/serrvx.f b/TESTING/LIN/serrvx.f index c09ca399..7d999c4a 100644 --- a/TESTING/LIN/serrvx.f +++ b/TESTING/LIN/serrvx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/serrvxx.f b/TESTING/LIN/serrvxx.f index a05a8ab6..146e8b37 100644 --- a/TESTING/LIN/serrvxx.f +++ b/TESTING/LIN/serrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sgbt01.f b/TESTING/LIN/sgbt01.f index e2db4516..c32a1f59 100644 --- a/TESTING/LIN/sgbt01.f +++ b/TESTING/LIN/sgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgbt02.f b/TESTING/LIN/sgbt02.f index b274caff..981676da 100644 --- a/TESTING/LIN/sgbt02.f +++ b/TESTING/LIN/sgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgbt05.f b/TESTING/LIN/sgbt05.f index 150cf117..d301f831 100644 --- a/TESTING/LIN/sgbt05.f +++ b/TESTING/LIN/sgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgelqs.f b/TESTING/LIN/sgelqs.f index 8e7ea3b9..49219504 100644 --- a/TESTING/LIN/sgelqs.f +++ b/TESTING/LIN/sgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgennd.f b/TESTING/LIN/sgennd.f index 78c8f1ee..1dfa0f4e 100644 --- a/TESTING/LIN/sgennd.f +++ b/TESTING/LIN/sgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION SGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgeqls.f b/TESTING/LIN/sgeqls.f index 1fe0ab65..88d81fdf 100644 --- a/TESTING/LIN/sgeqls.f +++ b/TESTING/LIN/sgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgeqrs.f b/TESTING/LIN/sgeqrs.f index cbab20e5..de62a186 100644 --- a/TESTING/LIN/sgeqrs.f +++ b/TESTING/LIN/sgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgerqs.f b/TESTING/LIN/sgerqs.f index 0e3fa9c1..454d82ed 100644 --- a/TESTING/LIN/sgerqs.f +++ b/TESTING/LIN/sgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget01.f b/TESTING/LIN/sget01.f index 93e2831d..8e9ecfc4 100644 --- a/TESTING/LIN/sget01.f +++ b/TESTING/LIN/sget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * REAL RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget02.f b/TESTING/LIN/sget02.f index 4e61bc75..dd3c92fd 100644 --- a/TESTING/LIN/sget02.f +++ b/TESTING/LIN/sget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sget03.f b/TESTING/LIN/sget03.f index 0ac0d938..9af421e7 100644 --- a/TESTING/LIN/sget03.f +++ b/TESTING/LIN/sget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * REAL RCOND, RESID @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget04.f b/TESTING/LIN/sget04.f index 4ff383e3..e7484932 100644 --- a/TESTING/LIN/sget04.f +++ b/TESTING/LIN/sget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * REAL RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget06.f b/TESTING/LIN/sget06.f index 1500f2cc..80852fdb 100644 --- a/TESTING/LIN/sget06.f +++ b/TESTING/LIN/sget06.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SGET06( RCOND, RCONDC ) -* +* * .. Scalar Arguments .. * REAL RCOND, RCONDC * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sget07.f b/TESTING/LIN/sget07.f index ca12ec5e..64994080 100644 --- a/TESTING/LIN/sget07.f +++ b/TESTING/LIN/sget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgtt01.f b/TESTING/LIN/sgtt01.f index 6cd1e3e0..30f9e668 100644 --- a/TESTING/LIN/sgtt01.f +++ b/TESTING/LIN/sgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * REAL RESID @@ -21,7 +21,7 @@ * $ DU2( * ), DUF( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgtt02.f b/TESTING/LIN/sgtt02.f index 708a82e2..6a3fe794 100644 --- a/TESTING/LIN/sgtt02.f +++ b/TESTING/LIN/sgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sgtt05.f b/TESTING/LIN/sgtt05.f index 74a28c7f..fd759341 100644 --- a/TESTING/LIN/sgtt05.f +++ b/TESTING/LIN/sgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ DU( * ), FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slahilb.f b/TESTING/LIN/slahilb.f index 66cb3009..7aef88a0 100644 --- a/TESTING/LIN/slahilb.f +++ b/TESTING/LIN/slahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * REAL A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is NRHS @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slaord.f b/TESTING/LIN/slaord.f index a6cfeec4..29a29e09 100644 --- a/TESTING/LIN/slaord.f +++ b/TESTING/LIN/slaord.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAORD( JOB, N, X, INCX ) -* +* * .. Scalar Arguments .. * CHARACTER JOB * INTEGER INCX, N @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slaptm.f b/TESTING/LIN/slaptm.f index 00189ced..fe347788 100644 --- a/TESTING/LIN/slaptm.f +++ b/TESTING/LIN/slaptm.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * REAL ALPHA, BETA @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -104,10 +104,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slarhs.f b/TESTING/LIN/slarhs.f index 5d05b127..e5a7fc21 100644 --- a/TESTING/LIN/slarhs.f +++ b/TESTING/LIN/slarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -191,10 +191,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slatb4.f b/TESTING/LIN/slatb4.f index c2e20219..4ead31d1 100644 --- a/TESTING/LIN/slatb4.f +++ b/TESTING/LIN/slatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * REAL ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slatb5.f b/TESTING/LIN/slatb5.f index 1bd65daa..737e32ea 100644 --- a/TESTING/LIN/slatb5.f +++ b/TESTING/LIN/slatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * REAL ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slattb.f b/TESTING/LIN/slattb.f index b62232b5..7ddb91f5 100644 --- a/TESTING/LIN/slattb.f +++ b/TESTING/LIN/slattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slattp.f b/TESTING/LIN/slattp.f index 22d0a9e6..20a06ca9 100644 --- a/TESTING/LIN/slattp.f +++ b/TESTING/LIN/slattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slattr.f b/TESTING/LIN/slattr.f index 1b9059df..e9430019 100644 --- a/TESTING/LIN/slattr.f +++ b/TESTING/LIN/slattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slavsp.f b/TESTING/LIN/slavsp.f index c7eae92b..f73ffdfb 100644 --- a/TESTING/LIN/slavsp.f +++ b/TESTING/LIN/slavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -117,10 +117,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slqt01.f b/TESTING/LIN/slqt01.f index 919fc982..99b22efc 100644 --- a/TESTING/LIN/slqt01.f +++ b/TESTING/LIN/slqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slqt02.f b/TESTING/LIN/slqt02.f index 7de2f1da..5d211387 100644 --- a/TESTING/LIN/slqt02.f +++ b/TESTING/LIN/slqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/slqt03.f b/TESTING/LIN/slqt03.f index 1dd1c92a..bc8e24f1 100644 --- a/TESTING/LIN/slqt03.f +++ b/TESTING/LIN/slqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spbt01.f b/TESTING/LIN/spbt01.f index 63b26f55..dcc39f6e 100644 --- a/TESTING/LIN/spbt01.f +++ b/TESTING/LIN/spbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spbt02.f b/TESTING/LIN/spbt02.f index bc279136..c514c7d5 100644 --- a/TESTING/LIN/spbt02.f +++ b/TESTING/LIN/spbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spbt05.f b/TESTING/LIN/spbt05.f index 05eed7c4..e34723ff 100644 --- a/TESTING/LIN/spbt05.f +++ b/TESTING/LIN/spbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot01.f b/TESTING/LIN/spot01.f index 980db184..646d41b4 100644 --- a/TESTING/LIN/spot01.f +++ b/TESTING/LIN/spot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AFAC( LDAFAC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot02.f b/TESTING/LIN/spot02.f index fe7c5c3a..d9c3b92d 100644 --- a/TESTING/LIN/spot02.f +++ b/TESTING/LIN/spot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot03.f b/TESTING/LIN/spot03.f index 565c19be..9b65dd62 100644 --- a/TESTING/LIN/spot03.f +++ b/TESTING/LIN/spot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -20,7 +20,7 @@ * REAL A( LDA, * ), AINV( LDAINV, * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spot05.f b/TESTING/LIN/spot05.f index ea2c810a..3fe8736d 100644 --- a/TESTING/LIN/spot05.f +++ b/TESTING/LIN/spot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -151,10 +151,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt01.f b/TESTING/LIN/sppt01.f index 072e39bc..0a37c47d 100644 --- a/TESTING/LIN/sppt01.f +++ b/TESTING/LIN/sppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( * ), AFAC( * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -81,10 +81,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt02.f b/TESTING/LIN/sppt02.f index fa298de7..44aa2048 100644 --- a/TESTING/LIN/sppt02.f +++ b/TESTING/LIN/sppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( * ), B( LDB, * ), RWORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt03.f b/TESTING/LIN/sppt03.f index bf756d08..fa3073f9 100644 --- a/TESTING/LIN/sppt03.f +++ b/TESTING/LIN/sppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * REAL A( * ), AINV( * ), RWORK( * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sppt05.f b/TESTING/LIN/sppt05.f index cd2a23fc..ce491f04 100644 --- a/TESTING/LIN/sppt05.f +++ b/TESTING/LIN/sppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/spst01.f b/TESTING/LIN/spst01.f index 10b7745c..2507456e 100644 --- a/TESTING/LIN/spst01.f +++ b/TESTING/LIN/spst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * REAL RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -21,7 +21,7 @@ * $ PERM( LDPERM, * ), RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sptt01.f b/TESTING/LIN/sptt01.f index 8d10a494..7b92c1b9 100644 --- a/TESTING/LIN/sptt01.f +++ b/TESTING/LIN/sptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * REAL RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL D( * ), DF( * ), E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sptt02.f b/TESTING/LIN/sptt02.f index d622016d..ebf83184 100644 --- a/TESTING/LIN/sptt02.f +++ b/TESTING/LIN/sptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, N, NRHS * REAL RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * REAL B( LDB, * ), D( * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -92,10 +92,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sptt05.f b/TESTING/LIN/sptt05.f index a74e239e..8939fc02 100644 --- a/TESTING/LIN/sptt05.f +++ b/TESTING/LIN/sptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqlt01.f b/TESTING/LIN/sqlt01.f index 51bb584e..69a89709 100644 --- a/TESTING/LIN/sqlt01.f +++ b/TESTING/LIN/sqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqlt02.f b/TESTING/LIN/sqlt02.f index 4ea284ca..9cdabde2 100644 --- a/TESTING/LIN/sqlt02.f +++ b/TESTING/LIN/sqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqlt03.f b/TESTING/LIN/sqlt03.f index e8ef762f..638317e7 100644 --- a/TESTING/LIN/sqlt03.f +++ b/TESTING/LIN/sqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqpt01.f b/TESTING/LIN/sqpt01.f index f7f471f4..c0217967 100644 --- a/TESTING/LIN/sqpt01.f +++ b/TESTING/LIN/sqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * REAL A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt01.f b/TESTING/LIN/sqrt01.f index d45497ab..16a97fc2 100644 --- a/TESTING/LIN/sqrt01.f +++ b/TESTING/LIN/sqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt01p.f b/TESTING/LIN/sqrt01p.f index 054f3528..99f637fc 100644 --- a/TESTING/LIN/sqrt01p.f +++ b/TESTING/LIN/sqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt02.f b/TESTING/LIN/sqrt02.f index 0442407b..d386daed 100644 --- a/TESTING/LIN/sqrt02.f +++ b/TESTING/LIN/sqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt03.f b/TESTING/LIN/sqrt03.f index 6af6ff1d..81639fde 100644 --- a/TESTING/LIN/sqrt03.f +++ b/TESTING/LIN/sqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/sqrt04.f b/TESTING/LIN/sqrt04.f index 9a1dc356..e186cc07 100644 --- a/TESTING/LIN/sqrt04.f +++ b/TESTING/LIN/sqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays REAL, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -104,17 +104,17 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL SLANGE, SLANSY LOGICAL LSAME EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = SLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -122,8 +122,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -141,7 +141,7 @@ * Generate the m-by-m matrix Q * CALL SLASET( 'Full', M, M, ZERO, ONE, Q, M ) - CALL SGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, + CALL SGEMQRT( 'R', 'N', M, M, K, NB, AF, M, T, LDT, Q, M, $ WORK, INFO ) * * Copy R @@ -177,7 +177,7 @@ * * Apply Q to C as Q*C * - CALL SGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL SGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -196,7 +196,7 @@ * * Apply Q to C as QT*C * - CALL SGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, + CALL SGEMQRT( 'L', 'T', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -207,7 +207,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -219,8 +219,8 @@ * * Apply Q to D as D*Q * - CALL SGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL SGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -238,8 +238,8 @@ * * Apply Q to D as D*QT * - CALL SGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL SGEMQRT( 'R', 'T', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/sqrt05.f b/TESTING/LIN/sqrt05.f index 420f4889..28184cdf 100644 --- a/TESTING/LIN/sqrt05.f +++ b/TESTING/LIN/sqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * REAL RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ REAL RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays REAL, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:,:), + $ R(:,:), RWORK(:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) * * .. Parameters .. @@ -111,14 +111,14 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - REAL SLAMCH + REAL SLAMCH REAL SLANGE, SLANSY LOGICAL LSAME EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = SLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -132,7 +132,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -187,7 +187,7 @@ * Compute |I - Q'*Q| and store in RESULT(2) * CALL SLASET( 'Full', M2, M2, ZERO, ONE, R, M2 ) - CALL SSYRK( 'U', 'C', M2, M2, -ONE, Q, M2, ONE, + CALL SSYRK( 'U', 'C', M2, M2, -ONE, Q, M2, ONE, $ R, M2 ) RESID = SLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -222,7 +222,7 @@ * Apply Q to C as QT*C * CALL STPMQRT('L','T',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -232,7 +232,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -264,8 +264,8 @@ * Apply Q to D as D*QT * CALL STPMQRT('R','T',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/sqrt11.f b/TESTING/LIN/sqrt11.f index 6bf68897..c8bd135b 100644 --- a/TESTING/LIN/sqrt11.f +++ b/TESTING/LIN/sqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * REAL A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt12.f b/TESTING/LIN/sqrt12.f index 7bd601dc..69646226 100644 --- a/TESTING/LIN/sqrt12.f +++ b/TESTING/LIN/sqrt12.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT12( M, N, A, LDA, S, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL A( LDA, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt13.f b/TESTING/LIN/sqrt13.f index 59471506..593d5e96 100644 --- a/TESTING/LIN/sqrt13.f +++ b/TESTING/LIN/sqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * REAL NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt14.f b/TESTING/LIN/sqrt14.f index 7d168040..ecbcc856 100644 --- a/TESTING/LIN/sqrt14.f +++ b/TESTING/LIN/sqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt15.f b/TESTING/LIN/sqrt15.f index cd7e3007..eed6cb86 100644 --- a/TESTING/LIN/sqrt15.f +++ b/TESTING/LIN/sqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * REAL NORMA, NORMB @@ -19,7 +19,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), B( LDB, * ), S( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -135,10 +135,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt16.f b/TESTING/LIN/sqrt16.f index 405f7ff3..0995c4b9 100644 --- a/TESTING/LIN/sqrt16.f +++ b/TESTING/LIN/sqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), RWORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sqrt17.f b/TESTING/LIN/sqrt17.f index dc7c01d2..75611c0e 100644 --- a/TESTING/LIN/sqrt17.f +++ b/TESTING/LIN/sqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/srqt01.f b/TESTING/LIN/srqt01.f index 5747b6ea..8592f2de 100644 --- a/TESTING/LIN/srqt01.f +++ b/TESTING/LIN/srqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srqt02.f b/TESTING/LIN/srqt02.f index 63b88842..ee750f50 100644 --- a/TESTING/LIN/srqt02.f +++ b/TESTING/LIN/srqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ R( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srqt03.f b/TESTING/LIN/srqt03.f index cf4a637a..b81f5f9b 100644 --- a/TESTING/LIN/srqt03.f +++ b/TESTING/LIN/srqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * $ Q( LDA, * ), RESULT( * ), RWORK( * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srzt01.f b/TESTING/LIN/srzt01.f index fce9af12..7fd50ef8 100644 --- a/TESTING/LIN/srzt01.f +++ b/TESTING/LIN/srzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * REAL A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/srzt02.f b/TESTING/LIN/srzt02.f index 831a54f6..577296a4 100644 --- a/TESTING/LIN/srzt02.f +++ b/TESTING/LIN/srzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * REAL AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/sspt01.f b/TESTING/LIN/sspt01.f index 07ef88ff..03981b65 100644 --- a/TESTING/LIN/sspt01.f +++ b/TESTING/LIN/sspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * REAL A( * ), AFAC( * ), C( LDC, * ), RWORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -98,10 +98,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt02.f b/TESTING/LIN/stbt02.f index da57abe1..046dedc6 100644 --- a/TESTING/LIN/stbt02.f +++ b/TESTING/LIN/stbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -141,10 +141,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt03.f b/TESTING/LIN/stbt03.f index 7104541d..ce93e1b5 100644 --- a/TESTING/LIN/stbt03.f +++ b/TESTING/LIN/stbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE STBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * REAL AB( LDAB, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt05.f b/TESTING/LIN/stbt05.f index 60b6c7d8..d6c80266 100644 --- a/TESTING/LIN/stbt05.f +++ b/TESTING/LIN/stbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * $ FERR( * ), RESLTS( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stbt06.f b/TESTING/LIN/stbt06.f index 452c40a1..c8b7f733 100644 --- a/TESTING/LIN/stbt06.f +++ b/TESTING/LIN/stbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL AB( LDAB, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt01.f b/TESTING/LIN/stpt01.f index d8da0ce3..9291a20a 100644 --- a/TESTING/LIN/stpt01.f +++ b/TESTING/LIN/stpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AINVP( * ), AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -96,10 +96,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt02.f b/TESTING/LIN/stpt02.f index 88943fb9..d3a1c358 100644 --- a/TESTING/LIN/stpt02.f +++ b/TESTING/LIN/stpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt03.f b/TESTING/LIN/stpt03.f index ce2a5784..5705e8c0 100644 --- a/TESTING/LIN/stpt03.f +++ b/TESTING/LIN/stpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL AP( * ), B( LDB, * ), CNORM( * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt05.f b/TESTING/LIN/stpt05.f index 94934154..78a7a9e1 100644 --- a/TESTING/LIN/stpt05.f +++ b/TESTING/LIN/stpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL AP( * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/stpt06.f b/TESTING/LIN/stpt06.f index 28bffcfc..1106595a 100644 --- a/TESTING/LIN/stpt06.f +++ b/TESTING/LIN/stpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -18,7 +18,7 @@ * .. Array Arguments .. * REAL AP( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -99,10 +99,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt01.f b/TESTING/LIN/strt01.f index 5eb4f55d..8deafd5a 100644 --- a/TESTING/LIN/strt01.f +++ b/TESTING/LIN/strt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), AINV( LDAINV, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt02.f b/TESTING/LIN/strt02.f index e2d9d083..d6ca1d7a 100644 --- a/TESTING/LIN/strt02.f +++ b/TESTING/LIN/strt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt03.f b/TESTING/LIN/strt03.f index 118d1b4a..188939ce 100644 --- a/TESTING/LIN/strt03.f +++ b/TESTING/LIN/strt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * REAL A( LDA, * ), B( LDB, * ), CNORM( * ), * $ WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -156,10 +156,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt05.f b/TESTING/LIN/strt05.f index 4e879181..84d60c15 100644 --- a/TESTING/LIN/strt05.f +++ b/TESTING/LIN/strt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDB, * ), BERR( * ), FERR( * ), * $ RESLTS( * ), X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -168,10 +168,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/strt06.f b/TESTING/LIN/strt06.f index 49101975..bc691141 100644 --- a/TESTING/LIN/strt06.f +++ b/TESTING/LIN/strt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE STRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/xerbla.f b/TESTING/LIN/xerbla.f index 8694ff1f..821d5a5b 100644 --- a/TESTING/LIN/xerbla.f +++ b/TESTING/LIN/xerbla.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XERBLA( SRNAME, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER*(*) SRNAME * INTEGER INFO * .. -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/xlaenv.f b/TESTING/LIN/xlaenv.f index 19a54eb0..ea4ea43a 100644 --- a/TESTING/LIN/xlaenv.f +++ b/TESTING/LIN/xlaenv.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE XLAENV( ISPEC, NVALUE ) -* +* * .. Scalar Arguments .. * INTEGER ISPEC, NVALUE * .. -* +* * *> \par Purpose: * ============= @@ -66,10 +66,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkaa.f b/TESTING/LIN/zchkaa.f index 38415342..9212afc9 100644 --- a/TESTING/LIN/zchkaa.f +++ b/TESTING/LIN/zchkaa.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKAA -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -947,7 +947,7 @@ * QT: QRT routines for general matrices * IF( TSTCHK ) THEN - CALL ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH @@ -958,7 +958,7 @@ * QX: QRT routines for triangular-pentagonal matrices * IF( TSTCHK ) THEN - CALL ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + CALL ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) ELSE WRITE( NOUT, FMT = 9989 )PATH diff --git a/TESTING/LIN/zchkab.f b/TESTING/LIN/zchkab.f index 82dbfa49..8d20d6ac 100644 --- a/TESTING/LIN/zchkab.f +++ b/TESTING/LIN/zchkab.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKAB -* +* * *> \par Purpose: * ============= @@ -61,10 +61,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zchkeq.f b/TESTING/LIN/zchkeq.f index ac3ccf5b..ee850374 100644 --- a/TESTING/LIN/zchkeq.f +++ b/TESTING/LIN/zchkeq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKEQ( THRESH, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NOUT * DOUBLE PRECISION THRESH * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkgb.f b/TESTING/LIN/zchkgb.f index af3a599e..1fcd5c82 100644 --- a/TESTING/LIN/zchkgb.f +++ b/TESTING/LIN/zchkgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFAC, NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -177,10 +177,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkge.f b/TESTING/LIN/zchkge.f index e7a31cfe..fce8077f 100644 --- a/TESTING/LIN/zchkge.f +++ b/TESTING/LIN/zchkge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, * NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, * X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -172,10 +172,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkgt.f b/TESTING/LIN/zchkgt.f index e8958e24..713147bd 100644 --- a/TESTING/LIN/zchkgt.f +++ b/TESTING/LIN/zchkgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkhp.f b/TESTING/LIN/zchkhp.f index 7251592d..bf0e475a 100644 --- a/TESTING/LIN/zchkhp.f +++ b/TESTING/LIN/zchkhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchklq.f b/TESTING/LIN/zchklq.f index 21adc677..6ac27409 100644 --- a/TESTING/LIN/zchklq.f +++ b/TESTING/LIN/zchklq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpb.f b/TESTING/LIN/zchkpb.f index 3f555b3b..c2f0ee8c 100644 --- a/TESTING/LIN/zchkpb.f +++ b/TESTING/LIN/zchkpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpo.f b/TESTING/LIN/zchkpo.f index 1d1da6aa..ec82db70 100644 --- a/TESTING/LIN/zchkpo.f +++ b/TESTING/LIN/zchkpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, * XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -154,10 +154,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpp.f b/TESTING/LIN/zchkpp.f index 4eac9ea5..81d97f9a 100644 --- a/TESTING/LIN/zchkpp.f +++ b/TESTING/LIN/zchkpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkps.f b/TESTING/LIN/zchkps.f index 5e406d60..4a1683cb 100644 --- a/TESTING/LIN/zchkps.f +++ b/TESTING/LIN/zchkps.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, * THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION THRESH * INTEGER NMAX, NN, NNB, NOUT, NRANK @@ -23,7 +23,7 @@ * INTEGER NBVAL( * ), NVAL( * ), PIV( * ), RANKVAL( * ) * LOGICAL DOTYPE( * ) * .. -* +* * *> \par Purpose: * ============= @@ -140,10 +140,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkpt.f b/TESTING/LIN/zchkpt.f index 04be25ba..3f97374d 100644 --- a/TESTING/LIN/zchkpt.f +++ b/TESTING/LIN/zchkpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * A, D, E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkq3.f b/TESTING/LIN/zchkq3.f index 7619188a..db234fde 100644 --- a/TESTING/LIN/zchkq3.f +++ b/TESTING/LIN/zchkq3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * THRESH, A, COPYA, S, TAU, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NN, NNB, NOUT * DOUBLE PRECISION THRESH @@ -23,7 +23,7 @@ * DOUBLE PRECISION S( * ), RWORK( * ) * COMPLEX*16 A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkql.f b/TESTING/LIN/zchkql.f index 56554c83..3b1ee01f 100644 --- a/TESTING/LIN/zchkql.f +++ b/TESTING/LIN/zchkql.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, * B, X, XACT, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AL( * ), AQ( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -182,10 +182,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchkqr.f b/TESTING/LIN/zchkqr.f index 9953bb33..353dc8e1 100644 --- a/TESTING/LIN/zchkqr.f +++ b/TESTING/LIN/zchkqr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zchkqrt.f b/TESTING/LIN/zchkqrt.f index 274c94f1..e45f5955 100644 --- a/TESTING/LIN/zchkqrt.f +++ b/TESTING/LIN/zchkqrt.f @@ -2,13 +2,13 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) * .. Scalar Arguments .. * LOGICAL TSTERR @@ -88,20 +88,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16_lin * * ===================================================================== - SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE -* +* * -- LAPACK test routine (version 3.4.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- @@ -174,7 +174,7 @@ NB = NBVAL( K ) * * Test ZGEQRT and ZGEMQRT -* +* IF( (NB.LE.MINMN).AND.(NB.GT.0) ) THEN CALL ZQRT04( M, N, NB, RESULT ) * diff --git a/TESTING/LIN/zchkqrtp.f b/TESTING/LIN/zchkqrtp.f index fc297b7c..9ba2a3f1 100644 --- a/TESTING/LIN/zchkqrtp.f +++ b/TESTING/LIN/zchkqrtp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, +* SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, * NBVAL, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NOUT @@ -89,17 +89,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup complex16_lin * * ===================================================================== - SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, + SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * @@ -126,7 +126,7 @@ * .. Local Scalars .. CHARACTER*3 PATH INTEGER I, J, K, T, L, M, N, NB, NFAIL, NERRS, NRUN, - $ MINMN + $ MINMN * .. * .. Local Arrays .. DOUBLE PRECISION RESULT( NTESTS ) @@ -172,14 +172,14 @@ * MINMN = MIN( M, N ) DO L = 0, MINMN, MAX( MINMN, 1 ) -* +* * Do for each possible value of NB * DO K = 1, NNB NB = NBVAL( K ) * * Test ZTPQRT and ZTPMQRT -* +* IF( (NB.LE.N).AND.(NB.GT.0) ) THEN CALL ZQRT05( M, N, L, NB, RESULT ) * diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f index f010ca4a..1a714514 100644 --- a/TESTING/LIN/zchkrfp.f +++ b/TESTING/LIN/zchkrfp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * PROGRAM ZCHKRFP -* +* * *> \par Purpose: * ============= @@ -47,10 +47,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -264,7 +264,7 @@ CALL ZDRVRF3( NOUT, NN, NVAL, THRESH, WORKA, NMAX, WORKARF, + WORKAINV, WORKAFAC, D_WORK_ZLANHE, + Z_WORK_ZPOT03, Z_WORK_ZPOT02 ) - + * * Test the routine: zhfrk * diff --git a/TESTING/LIN/zchkrq.f b/TESTING/LIN/zchkrq.f index 5ff1133d..05eb695e 100644 --- a/TESTING/LIN/zchkrq.f +++ b/TESTING/LIN/zchkrq.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, * B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NMAX, NN, NNB, NOUT, NRHS @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), AC( * ), AF( * ), AQ( * ), AR( * ), * $ B( * ), TAU( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchksp.f b/TESTING/LIN/zchksp.f index 6eab6d27..5d30110e 100644 --- a/TESTING/LIN/zchksp.f +++ b/TESTING/LIN/zchksp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktb.f b/TESTING/LIN/zchktb.f index aebe9c03..82b0f90b 100644 --- a/TESTING/LIN/zchktb.f +++ b/TESTING/LIN/zchktb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -23,7 +23,7 @@ * COMPLEX*16 AB( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktp.f b/TESTING/LIN/zchktp.f index 5888efc9..9cac6ba1 100644 --- a/TESTING/LIN/zchktp.f +++ b/TESTING/LIN/zchktp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, * NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 AINVP( * ), AP( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktr.f b/TESTING/LIN/zchktr.f index a182cd6a..b93215e2 100644 --- a/TESTING/LIN/zchktr.f +++ b/TESTING/LIN/zchktr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, * WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NNB, NNS, NOUT @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AINV( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zchktz.f b/TESTING/LIN/zchktz.f index e9045273..016f96b2 100644 --- a/TESTING/LIN/zchktz.f +++ b/TESTING/LIN/zchktz.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, * COPYA, S, TAU, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NOUT @@ -22,7 +22,7 @@ * DOUBLE PRECISION S( * ), RWORK( * ) * COMPLEX*16 A( * ), COPYA( * ), TAU( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -124,10 +124,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f index 6af545ad..7a7b2f7d 100644 --- a/TESTING/LIN/zdrvab.f +++ b/TESTING/LIN/zdrvab.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, * NSVAL, THRESH, NMAX, A, AFAC, B, * X, WORK, RWORK, SWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NM, NMAX, NNS, NOUT * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -138,10 +138,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -213,7 +213,7 @@ COMMON / SRNAMC / SRNAMT * .. * .. Data statements .. - DATA ISEEDY / 2006, 2007, 2008, 2009 / + DATA ISEEDY / 2006, 2007, 2008, 2009 / * .. * .. Executable Statements .. * @@ -321,7 +321,7 @@ CALL ZLACPY( 'Full', M, N, AFAC, LDA, A, LDA ) ENDIF * -* Check error code from ZCGESV. This should be the same as +* Check error code from ZCGESV. This should be the same as * the one of DGETRF. * IF( INFO.NE.IZERO ) THEN @@ -355,7 +355,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORMI(B - A*X)/(NORMI(A)*NORMI(X)*EPS*SRQT(N)) < 1 * @@ -425,7 +425,7 @@ $ 14X, '11. Scaled near overflow', / 4X, $ '6. Last column zero' ) 8960 FORMAT( 3X, I2, ': norm_1( B - A * X ) / ', - $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', + $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if DGETRF' ) RETURN diff --git a/TESTING/LIN/zdrvac.f b/TESTING/LIN/zdrvac.f index a32866ee..a4707d12 100644 --- a/TESTING/LIN/zdrvac.f +++ b/TESTING/LIN/zdrvac.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * A, AFAC, B, X, WORK, * RWORK, SWORK, NOUT ) -* +* * .. Scalar Arguments .. * INTEGER NMAX, NM, NNS, NOUT * DOUBLE PRECISION THRESH @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), B( * ), * $ WORK( * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -131,10 +131,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -178,7 +178,7 @@ CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH INTEGER I, IM, IMAT, INFO, IOFF, IRHS, IUPLO, - $ IZERO, KL, KU, LDA, MODE, N, + $ IZERO, KL, KU, LDA, MODE, N, $ NERRS, NFAIL, NIMAT, NRHS, NRUN DOUBLE PRECISION ANORM, CNDNUM * .. @@ -192,7 +192,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAERH, ZLACPY, ZLAIPD, - $ ZLARHS, ZLATB4, ZLATMS, + $ ZLARHS, ZLATB4, ZLATMS, $ ZPOT06, ZCPOSV * .. * .. Intrinsic Functions .. @@ -333,7 +333,7 @@ SRNAMT = 'ZCPOSV ' KASE = KASE + 1 * - CALL ZLACPY( 'All', N, N, A, LDA, AFAC, LDA) + CALL ZLACPY( 'All', N, N, A, LDA, AFAC, LDA) * CALL ZCPOSV( UPLO, N, NRHS, AFAC, LDA, B, LDA, X, LDA, $ WORK, SWORK, RWORK, ITER, INFO ) @@ -374,7 +374,7 @@ * Print information about the tests that did not * pass the testing. * -* If iterative refinement has been used and claimed to +* If iterative refinement has been used and claimed to * be successful (ITER>0), we want * NORM1(B - A*X)/(NORM1(A)*NORM1(X)*EPS*SRQT(N)) < 1 * @@ -452,7 +452,7 @@ $ '( norm_1(A) * norm_1(X) * EPS * SQRT(N) ) > 1 if ITERREF', $ / 4x, 'or norm_1( B - A * X ) / ', $ '( norm_1(A) * norm_1(X) * EPS ) > THRES if ZPOTRF' ) - + RETURN * * End of ZDRVAC diff --git a/TESTING/LIN/zdrvgb.f b/TESTING/LIN/zdrvgb.f index 19e4ad8d..498af51d 100644 --- a/TESTING/LIN/zdrvgb.f +++ b/TESTING/LIN/zdrvgb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvgbx.f b/TESTING/LIN/zdrvgbx.f index a8c4310f..73c403a8 100644 --- a/TESTING/LIN/zdrvgbx.f +++ b/TESTING/LIN/zdrvgbx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER LA, LAFB, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFB( * ), ASAV( * ), B( * ), BSAV( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvge.f b/TESTING/LIN/zdrvge.f index 4b724c20..c4829ae3 100644 --- a/TESTING/LIN/zdrvge.f +++ b/TESTING/LIN/zdrvge.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -150,10 +150,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvgex.f b/TESTING/LIN/zdrvgex.f index 9b7c3003..8a6b109f 100644 --- a/TESTING/LIN/zdrvgex.f +++ b/TESTING/LIN/zdrvgex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zdrvgt.f b/TESTING/LIN/zdrvgt.f index 0f137644..4dea68f6 100644 --- a/TESTING/LIN/zdrvgt.f +++ b/TESTING/LIN/zdrvgt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, * B, X, XACT, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), AF( * ), B( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvhex.f b/TESTING/LIN/zdrvhex.f index ed5c8556..1e693bfc 100644 --- a/TESTING/LIN/zdrvhex.f +++ b/TESTING/LIN/zdrvhex.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zdrvhp.f b/TESTING/LIN/zdrvhp.f index 5fc46b0c..2706a577 100644 --- a/TESTING/LIN/zdrvhp.f +++ b/TESTING/LIN/zdrvhp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f index d729811d..95a7ff35 100644 --- a/TESTING/LIN/zdrvls.f +++ b/TESTING/LIN/zdrvls.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, * NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, * COPYB, C, S, COPYS, WORK, RWORK, IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NM, NN, NNB, NNS, NOUT @@ -25,7 +25,7 @@ * COMPLEX*16 A( * ), B( * ), C( * ), COPYA( * ), COPYB( * ), * $ WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zdrvpb.f b/TESTING/LIN/zdrvpb.f index ea98aa48..69afa0eb 100644 --- a/TESTING/LIN/zdrvpb.f +++ b/TESTING/LIN/zdrvpb.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvpo.f b/TESTING/LIN/zdrvpo.f index 24431e6c..34d7aa93 100644 --- a/TESTING/LIN/zdrvpo.f +++ b/TESTING/LIN/zdrvpo.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvpox.f b/TESTING/LIN/zdrvpox.f index 3242f08e..a2de868b 100644 --- a/TESTING/LIN/zdrvpox.f +++ b/TESTING/LIN/zdrvpox.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zdrvpp.f b/TESTING/LIN/zdrvpp.f index 94550ddb..84e9698c 100644 --- a/TESTING/LIN/zdrvpp.f +++ b/TESTING/LIN/zdrvpp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, * RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), ASAV( * ), B( * ), * $ BSAV( * ), WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -145,10 +145,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvpt.f b/TESTING/LIN/zdrvpt.f index 8d71be9d..ec64e56c 100644 --- a/TESTING/LIN/zdrvpt.f +++ b/TESTING/LIN/zdrvpt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, * E, B, X, XACT, WORK, RWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NN, NOUT, NRHS @@ -23,7 +23,7 @@ * COMPLEX*16 A( * ), B( * ), E( * ), WORK( * ), X( * ), * $ XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -127,10 +127,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvrf1.f b/TESTING/LIN/zdrvrf1.f index bfc7e66d..d8f364c4 100644 --- a/TESTING/LIN/zdrvrf1.f +++ b/TESTING/LIN/zdrvrf1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -19,7 +19,7 @@ * DOUBLE PRECISION WORK( * ) * COMPLEX*16 A( LDA, * ), ARF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -164,14 +164,14 @@ EPS = DLAMCH( 'Precision' ) SMALL = DLAMCH( 'Safe minimum' ) LARGE = ONE / SMALL - SMALL = SMALL * LDA * LDA + SMALL = SMALL * LDA * LDA LARGE = LARGE / LDA / LDA * DO 130 IIN = 1, NN * N = NVAL( IIN ) * - DO 120 IIT = 1, 3 + DO 120 IIT = 1, 3 * Nothing to do for N=0 IF ( N .EQ. 0 ) EXIT * @@ -244,7 +244,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZLANHF', + WRITE( NOUT, FMT = 9997 ) 'ZLANHF', + N, IIT, UPLO, CFORM, NORM, RESULT(1) NFAIL = NFAIL + 1 END IF diff --git a/TESTING/LIN/zdrvrf2.f b/TESTING/LIN/zdrvrf2.f index 7279c203..11e92481 100644 --- a/TESTING/LIN/zdrvrf2.f +++ b/TESTING/LIN/zdrvrf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * .. @@ -17,7 +17,7 @@ * INTEGER NVAL( NN ) * COMPLEX*16 A( LDA, * ), ARF( * ), AP(*), ASAV( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -255,7 +255,7 @@ 9997 FORMAT( 1X, 'All tests for the RFP conversion routines passed (', + I5,' tests run)') 9996 FORMAT( 1X, 'RFP conversion routines:',I5,' out of ',I5, - + ' error message recorded') + + ' error message recorded') * RETURN * diff --git a/TESTING/LIN/zdrvrf3.f b/TESTING/LIN/zdrvrf3.f index fa6fb610..d5772262 100644 --- a/TESTING/LIN/zdrvrf3.f +++ b/TESTING/LIN/zdrvrf3.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * + D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU ) -* +* * .. Scalar Arguments .. * INTEGER LDA, NN, NOUT * DOUBLE PRECISION THRESH @@ -22,7 +22,7 @@ * + B2( LDA, * ) * COMPLEX*16 Z_WORK_ZGEQRF( * ), TAU( * ) * .. -* +* * *> \par Purpose: * ============= @@ -106,10 +106,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -257,12 +257,12 @@ END IF * * Generate A our NA--by--NA triangular -* matrix. +* matrix. * Our test is based on forward error so we * do want A to be well conditionned! To get * a well-conditionned triangular matrix, we * take the R factor of the QR/LQ factorization -* of a random matrix. +* of a random matrix. * DO J = 1, NA DO I = 1, NA @@ -292,7 +292,7 @@ * * After the QR factorization, the diagonal * of A is made of real numbers, we multiply -* by a random complex number of absolute +* by a random complex number of absolute * value 1.0E+00. * DO J = 1, NA @@ -349,7 +349,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZTFSM', + WRITE( NOUT, FMT = 9997 ) 'ZTFSM', + CFORM, SIDE, UPLO, TRANS, DIAG, M, + N, RESULT(1) NFAIL = NFAIL + 1 @@ -372,7 +372,7 @@ WRITE( NOUT, FMT = 9995 ) 'ZTFSM', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZTFSM + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZTFSM + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' SIDE=''',A1,''',',' UPLO=''',A1,''',',' TRANS=''',A1,''',', diff --git a/TESTING/LIN/zdrvrf4.f b/TESTING/LIN/zdrvrf4.f index 6b6055e8..8974f07b 100644 --- a/TESTING/LIN/zdrvrf4.f +++ b/TESTING/LIN/zdrvrf4.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, * + LDA, D_WORK_ZLANGE ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDC, NN, NOUT * DOUBLE PRECISION THRESH @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), C1( LDC, * ), C2( LDC, *), * + CRF( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -244,7 +244,7 @@ * * In this case we are TRANS, so A is K-by-N * - DO J = 1,N + DO J = 1,N DO I = 1, K A( I, J) = ZLARND( 4, ISEED ) END DO @@ -256,7 +256,7 @@ END IF * * -* Generate C1 our N--by--N Hermitian matrix. +* Generate C1 our N--by--N Hermitian matrix. * Make sure C2 has the same upper/lower part, * (the one that we do not touch), so * copy the initial C1 in C2 in it. @@ -311,7 +311,7 @@ * RESULT(1) = ZLANGE( 'I', N, N, C1, LDC, + D_WORK_ZLANGE ) - RESULT(1) = RESULT(1) + RESULT(1) = RESULT(1) + / MAX( DABS( ALPHA ) * NORMA * NORMA + + DABS( BETA ) * NORMC, ONE ) + / MAX( N , 1 ) / EPS @@ -321,7 +321,7 @@ WRITE( NOUT, * ) WRITE( NOUT, FMT = 9999 ) END IF - WRITE( NOUT, FMT = 9997 ) 'ZHFRK', + WRITE( NOUT, FMT = 9997 ) 'ZHFRK', + CFORM, UPLO, TRANS, N, K, RESULT(1) NFAIL = NFAIL + 1 END IF @@ -341,7 +341,7 @@ WRITE( NOUT, FMT = 9995 ) 'ZHFRK', NFAIL, NRUN END IF * - 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZHFRK + 9999 FORMAT( 1X, ' *** Error(s) or Failure(s) while testing ZHFRK + ***') 9997 FORMAT( 1X, ' Failure in ',A5,', CFORM=''',A1,''',', + ' UPLO=''',A1,''',',' TRANS=''',A1,''',', ' N=',I3,', K =', I3, diff --git a/TESTING/LIN/zdrvrfp.f b/TESTING/LIN/zdrvrfp.f index 220f0cdd..fcdb3fcf 100644 --- a/TESTING/LIN/zdrvrfp.f +++ b/TESTING/LIN/zdrvrfp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -14,7 +14,7 @@ * + Z_WORK_ZLATMS, Z_WORK_ZPOT02, * + Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE, * + D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03 ) -* +* * .. Scalar Arguments .. * INTEGER NN, NNS, NNT, NOUT * DOUBLE PRECISION THRESH @@ -40,7 +40,7 @@ * DOUBLE PRECISION D_WORK_ZPOT02( * ) * DOUBLE PRECISION D_WORK_ZPOT03( * ) * .. -* +* * *> \par Purpose: * ============= @@ -57,7 +57,7 @@ *> full format to RFP format are performed using the routines ZTRTTF and *> ZTFTTR. *> -*> First, a specific matrix A of size N is created. There is nine types of +*> First, a specific matrix A of size N is created. There is nine types of *> different matrixes possible. *> 1. Diagonal 6. Random, CNDNUM = sqrt(0.1/EPS) *> 2. Random, CNDNUM = 2 7. Random, CNDNUM = 0.1/EPS @@ -227,10 +227,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * @@ -521,7 +521,7 @@ * * Form the inverse and compute the residual. * - IF(MOD(N,2).EQ.0)THEN + IF(MOD(N,2).EQ.0)THEN CALL ZLACPY( 'A', N+1, N/2, ARF, N+1, ARFINV, + N+1 ) ELSE diff --git a/TESTING/LIN/zdrvsp.f b/TESTING/LIN/zdrvsp.f index 039b36e2..dd2091f2 100644 --- a/TESTING/LIN/zdrvsp.f +++ b/TESTING/LIN/zdrvsp.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zdrvsy_rook.f b/TESTING/LIN/zdrvsy_rook.f index 0718a983..795c42b4 100644 --- a/TESTING/LIN/zdrvsy_rook.f +++ b/TESTING/LIN/zdrvsy_rook.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, * IWORK, NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zdrvsyx.f b/TESTING/LIN/zdrvsyx.f index d0dfba88..d8993b15 100644 --- a/TESTING/LIN/zdrvsyx.f +++ b/TESTING/LIN/zdrvsyx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, * A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, * NOUT ) -* +* * .. Scalar Arguments .. * LOGICAL TSTERR * INTEGER NMAX, NN, NOUT, NRHS @@ -24,7 +24,7 @@ * COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), * $ WORK( * ), X( * ), XACT( * ) * .. -* +* * *> \par Purpose: * ============= @@ -143,10 +143,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * diff --git a/TESTING/LIN/zebchvxx.f b/TESTING/LIN/zebchvxx.f index 9b955633..4f292d9a 100644 --- a/TESTING/LIN/zebchvxx.f +++ b/TESTING/LIN/zebchvxx.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrab.f b/TESTING/LIN/zerrab.f index 8862aabc..04833b84 100644 --- a/TESTING/LIN/zerrab.f +++ b/TESTING/LIN/zerrab.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRAB( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrac.f b/TESTING/LIN/zerrac.f index 112b3fe5..e9f78b38 100644 --- a/TESTING/LIN/zerrac.f +++ b/TESTING/LIN/zerrac.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRAC( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -35,10 +35,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrge.f b/TESTING/LIN/zerrge.f index 9b6cd4d9..3d1df5df 100644 --- a/TESTING/LIN/zerrge.f +++ b/TESTING/LIN/zerrge.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrgex.f b/TESTING/LIN/zerrgex.f index baaa0e5c..00d3b48f 100644 --- a/TESTING/LIN/zerrgex.f +++ b/TESTING/LIN/zerrgex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrgt.f b/TESTING/LIN/zerrgt.f index 965b6e55..efb5ca5c 100644 --- a/TESTING/LIN/zerrgt.f +++ b/TESTING/LIN/zerrgt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRGT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrhex.f b/TESTING/LIN/zerrhex.f index bcaf1ed4..81d61a3c 100644 --- a/TESTING/LIN/zerrhex.f +++ b/TESTING/LIN/zerrhex.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRHE( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrlq.f b/TESTING/LIN/zerrlq.f index 5531f32a..a8706a45 100644 --- a/TESTING/LIN/zerrlq.f +++ b/TESTING/LIN/zerrlq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRLQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrls.f b/TESTING/LIN/zerrls.f index bfb1bd77..4a76af6a 100644 --- a/TESTING/LIN/zerrls.f +++ b/TESTING/LIN/zerrls.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRLS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrpo.f b/TESTING/LIN/zerrpo.f index 143a21e2..8bb28d3c 100644 --- a/TESTING/LIN/zerrpo.f +++ b/TESTING/LIN/zerrpo.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrpox.f b/TESTING/LIN/zerrpox.f index 761029dd..145d90d4 100644 --- a/TESTING/LIN/zerrpox.f +++ b/TESTING/LIN/zerrpox.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPO( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrps.f b/TESTING/LIN/zerrps.f index 805a5124..7c84ef69 100644 --- a/TESTING/LIN/zerrps.f +++ b/TESTING/LIN/zerrps.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRPS( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrql.f b/TESTING/LIN/zerrql.f index c59ac880..7687383d 100644 --- a/TESTING/LIN/zerrql.f +++ b/TESTING/LIN/zerrql.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQL( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrqp.f b/TESTING/LIN/zerrqp.f index efd1d905..96d1a46e 100644 --- a/TESTING/LIN/zerrqp.f +++ b/TESTING/LIN/zerrqp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrqr.f b/TESTING/LIN/zerrqr.f index 8d086a6a..49431c93 100644 --- a/TESTING/LIN/zerrqr.f +++ b/TESTING/LIN/zerrqr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrqrt.f b/TESTING/LIN/zerrqrt.f index ea5b6c54..420d47a8 100644 --- a/TESTING/LIN/zerrqrt.f +++ b/TESTING/LIN/zerrqrt.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQRT( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, ZGEQRT2, ZGEQRT3, ZGEQRT, - $ ZGEMQRT + $ ZGEMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zerrqrtp.f b/TESTING/LIN/zerrqrtp.f index 7a903f9e..4e05ec70 100644 --- a/TESTING/LIN/zerrqrtp.f +++ b/TESTING/LIN/zerrqrtp.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRQRTP( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -81,7 +81,7 @@ * .. * .. External Subroutines .. EXTERNAL ALAESM, CHKXER, ZTPQRT2, ZTPQRT, - $ ZTPMQRT + $ ZTPMQRT * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -171,50 +171,50 @@ * SRNAMT = 'ZTPMQRT' INFOT = 1 - CALL ZTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( '/', 'N', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', '/', 0, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL ZTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', -1, 0, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL ZTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, -1, 0, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL ZTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, -1, 0, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) INFOT = 6 - CALL ZTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, 0, -1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL ZTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 0, 0, 0, 0, 0, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'R', 'N', 1, 2, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 9 - CALL ZTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, + CALL ZTPMQRT( 'L', 'N', 2, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL ZTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, + CALL ZTPMQRT( 'R', 'N', 1, 1, 1, 1, 1, A, 1, T, 0, B, 1, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 13 - CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, + CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 0, C, 1, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) INFOT = 15 - CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, + CALL ZTPMQRT( 'L', 'N', 1, 1, 1, 1, 1, A, 1, T, 1, B, 1, C, 0, $ W, INFO ) CALL CHKXER( 'ZTPMQRT', INFOT, NOUT, LERR, OK ) * diff --git a/TESTING/LIN/zerrrfp.f b/TESTING/LIN/zerrrfp.f index 1fba4406..1ee9232c 100644 --- a/TESTING/LIN/zerrrfp.f +++ b/TESTING/LIN/zerrrfp.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRRFP( NUNIT ) -* +* * .. Scalar Arguments .. * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -40,10 +40,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrrq.f b/TESTING/LIN/zerrrq.f index c775b27a..8c938f30 100644 --- a/TESTING/LIN/zerrrq.f +++ b/TESTING/LIN/zerrrq.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRRQ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f index a9126a12..35361e60 100644 --- a/TESTING/LIN/zerrsy.f +++ b/TESTING/LIN/zerrsy.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zerrsyx.f b/TESTING/LIN/zerrsyx.f index 1512eb04..f78ce009 100644 --- a/TESTING/LIN/zerrsyx.f +++ b/TESTING/LIN/zerrsyx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRSY( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -46,10 +46,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrtr.f b/TESTING/LIN/zerrtr.f index f0708fbb..50c74124 100644 --- a/TESTING/LIN/zerrtr.f +++ b/TESTING/LIN/zerrtr.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRTR( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zerrtz.f b/TESTING/LIN/zerrtz.f index 579c3bf0..0078937c 100644 --- a/TESTING/LIN/zerrtz.f +++ b/TESTING/LIN/zerrtz.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRTZ( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -42,10 +42,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zerrvx.f b/TESTING/LIN/zerrvx.f index 057bf872..11a35aa4 100644 --- a/TESTING/LIN/zerrvx.f +++ b/TESTING/LIN/zerrvx.f @@ -9,12 +9,12 @@ * =========== * * SUBROUTINE ZERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index 52fd98b4..747d84ad 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZERRVX( PATH, NUNIT ) -* +* * .. Scalar Arguments .. * CHARACTER*3 PATH * INTEGER NUNIT * .. -* +* * *> \par Purpose: * ============= @@ -43,10 +43,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zgbt01.f b/TESTING/LIN/zgbt01.f index 1c95fb60..f81e4a99 100644 --- a/TESTING/LIN/zgbt01.f +++ b/TESTING/LIN/zgbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER KL, KU, LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgbt02.f b/TESTING/LIN/zgbt02.f index 2fbbaade..b0b50420 100644 --- a/TESTING/LIN/zgbt02.f +++ b/TESTING/LIN/zgbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDA, LDB, LDX, M, N, NRHS @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -126,10 +126,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgbt05.f b/TESTING/LIN/zgbt05.f index 3556b9b6..7ff06643 100644 --- a/TESTING/LIN/zgbt05.f +++ b/TESTING/LIN/zgbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER KL, KU, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgelqs.f b/TESTING/LIN/zgelqs.f index 1514a1aa..a5e3ccff 100644 --- a/TESTING/LIN/zgelqs.f +++ b/TESTING/LIN/zgelqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgennd.f b/TESTING/LIN/zgennd.f index d6bd7ebe..18dac84e 100644 --- a/TESTING/LIN/zgennd.f +++ b/TESTING/LIN/zgennd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * LOGICAL FUNCTION ZGENND (M, N, A, LDA) -* +* * .. Scalar Arguments .. * INTEGER M, N, LDA * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -56,10 +56,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgeqls.f b/TESTING/LIN/zgeqls.f index 5aae27c9..77b9221c 100644 --- a/TESTING/LIN/zgeqls.f +++ b/TESTING/LIN/zgeqls.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgeqrs.f b/TESTING/LIN/zgeqrs.f index d0d2f95d..615ede5e 100644 --- a/TESTING/LIN/zgeqrs.f +++ b/TESTING/LIN/zgeqrs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgerqs.f b/TESTING/LIN/zgerqs.f index ebb58d90..29f0e5e7 100644 --- a/TESTING/LIN/zgerqs.f +++ b/TESTING/LIN/zgerqs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, * INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget01.f b/TESTING/LIN/zget01.f index e22c8181..40e57899 100644 --- a/TESTING/LIN/zget01.f +++ b/TESTING/LIN/zget01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAFAC, M, N * DOUBLE PRECISION RESID @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -95,10 +95,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget02.f b/TESTING/LIN/zget02.f index cf25ec02..69ffebe5 100644 --- a/TESTING/LIN/zget02.f +++ b/TESTING/LIN/zget02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zget03.f b/TESTING/LIN/zget03.f index 28b2cbac..fb9ff858 100644 --- a/TESTING/LIN/zget03.f +++ b/TESTING/LIN/zget03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, * RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDAINV, LDWORK, N * DOUBLE PRECISION RCOND, RESID @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget04.f b/TESTING/LIN/zget04.f index 55e91c01..f49d59cb 100644 --- a/TESTING/LIN/zget04.f +++ b/TESTING/LIN/zget04.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDX, LDXACT, N, NRHS * DOUBLE PRECISION RCOND, RESID @@ -17,7 +17,7 @@ * .. Array Arguments .. * COMPLEX*16 X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget07.f b/TESTING/LIN/zget07.f index e154266c..f3de3aef 100644 --- a/TESTING/LIN/zget07.f +++ b/TESTING/LIN/zget07.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, CHKFERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * LOGICAL CHKFERR @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -153,10 +153,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zget08.f b/TESTING/LIN/zget08.f index 9b494422..87a0111a 100644 --- a/TESTING/LIN/zget08.f +++ b/TESTING/LIN/zget08.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgtt01.f b/TESTING/LIN/zgtt01.f index a6c11063..8b6913fa 100644 --- a/TESTING/LIN/zgtt01.f +++ b/TESTING/LIN/zgtt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, * LDWORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER LDWORK, N * DOUBLE PRECISION RESID @@ -21,7 +21,7 @@ * COMPLEX*16 D( * ), DF( * ), DL( * ), DLF( * ), DU( * ), * $ DU2( * ), DUF( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgtt02.f b/TESTING/LIN/zgtt02.f index 37170fa7..c1983e21 100644 --- a/TESTING/LIN/zgtt02.f +++ b/TESTING/LIN/zgtt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -111,10 +111,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zgtt05.f b/TESTING/LIN/zgtt05.f index ee9df4ac..d220b9f0 100644 --- a/TESTING/LIN/zgtt05.f +++ b/TESTING/LIN/zgtt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 B( LDB, * ), D( * ), DL( * ), DU( * ), * $ X( LDX, * ), XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zhpt01.f b/TESTING/LIN/zhpt01.f index a6f9a4a8..ec0ee6a4 100644 --- a/TESTING/LIN/zhpt01.f +++ b/TESTING/LIN/zhpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlahilb.f b/TESTING/LIN/zlahilb.f index e9e51992..5706e812 100644 --- a/TESTING/LIN/zlahilb.f +++ b/TESTING/LIN/zlahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAHILB(N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX*16 A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -168,7 +168,7 @@ COMPLEX*16 d1(8), d2(8), invd1(8), invd2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -236,7 +236,7 @@ END DO END DO END IF -* +* * Generate matrix B as simply the first NRHS columns of M * the * identity. TMP = DBLE(M) diff --git a/TESTING/LIN/zlaipd.f b/TESTING/LIN/zlaipd.f index 918e2bdf..85c4d276 100644 --- a/TESTING/LIN/zlaipd.f +++ b/TESTING/LIN/zlaipd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAIPD( N, A, INDA, VINDA ) -* +* * .. Scalar Arguments .. * INTEGER INDA, N, VINDA * .. * .. Array Arguments .. * COMPLEX*16 A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -71,10 +71,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlaptm.f b/TESTING/LIN/zlaptm.f index cc9ff89b..d5f6821d 100644 --- a/TESTING/LIN/zlaptm.f +++ b/TESTING/LIN/zlaptm.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, * LDB ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -116,10 +116,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlarhs.f b/TESTING/LIN/zlarhs.f index 19ac07c8..e1abfbbc 100644 --- a/TESTING/LIN/zlarhs.f +++ b/TESTING/LIN/zlarhs.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, * A, LDA, X, LDX, B, LDB, ISEED, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS, UPLO, XTYPE * CHARACTER*3 PATH @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -196,10 +196,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlatb4.f b/TESTING/LIN/zlatb4.f index 44db6e8f..bcfa2344 100644 --- a/TESTING/LIN/zlatb4.f +++ b/TESTING/LIN/zlatb4.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, TYPE * CHARACTER*3 PATH * INTEGER IMAT, KL, KU, M, MODE, N * DOUBLE PRECISION ANORM, CNDNUM * .. -* +* * *> \par Purpose: * ============= @@ -108,10 +108,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2013 * diff --git a/TESTING/LIN/zlatb5.f b/TESTING/LIN/zlatb5.f index e2589ca4..c7fb8145 100644 --- a/TESTING/LIN/zlatb5.f +++ b/TESTING/LIN/zlatb5.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * CNDNUM, DIST ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION ANORM, CNDNUM * INTEGER IMAT, KL, KU, MODE, N * CHARACTER DIST, TYPE * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlatsp.f b/TESTING/LIN/zlatsp.f index 337cb96b..f9a4ee9a 100644 --- a/TESTING/LIN/zlatsp.f +++ b/TESTING/LIN/zlatsp.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATSP( UPLO, N, X, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX*16 X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -72,10 +72,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlatsy.f b/TESTING/LIN/zlatsy.f index 95de42b1..b5e2dcc7 100644 --- a/TESTING/LIN/zlatsy.f +++ b/TESTING/LIN/zlatsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDX, N @@ -18,7 +18,7 @@ * INTEGER ISEED( * ) * COMPLEX*16 X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -77,10 +77,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlattb.f b/TESTING/LIN/zlattb.f index 038adef5..02f6a6da 100644 --- a/TESTING/LIN/zlattb.f +++ b/TESTING/LIN/zlattb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, * LDAB, B, WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, KD, LDAB, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -128,10 +128,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlattp.f b/TESTING/LIN/zlattp.f index b93b1694..1ee59fdd 100644 --- a/TESTING/LIN/zlattp.f +++ b/TESTING/LIN/zlattp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, * RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlattr.f b/TESTING/LIN/zlattr.f index 1ea6a153..c8c3c79c 100644 --- a/TESTING/LIN/zlattr.f +++ b/TESTING/LIN/zlattr.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, * WORK, RWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER IMAT, INFO, LDA, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlavhp.f b/TESTING/LIN/zlavhp.f index b217c263..5d175ade 100644 --- a/TESTING/LIN/zlavhp.f +++ b/TESTING/LIN/zlavhp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlavsp.f b/TESTING/LIN/zlavsp.f index b491645c..081dd9c3 100644 --- a/TESTING/LIN/zlavsp.f +++ b/TESTING/LIN/zlavsp.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, * INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER INFO, LDB, N, NRHS @@ -19,7 +19,7 @@ * INTEGER IPIV( * ) * COMPLEX*16 A( * ), B( LDB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -118,10 +118,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlqt01.f b/TESTING/LIN/zlqt01.f index cf721e9e..b55ef66f 100644 --- a/TESTING/LIN/zlqt01.f +++ b/TESTING/LIN/zlqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlqt02.f b/TESTING/LIN/zlqt02.f index dcf85001..0b02b3b1 100644 --- a/TESTING/LIN/zlqt02.f +++ b/TESTING/LIN/zlqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zlqt03.f b/TESTING/LIN/zlqt03.f index 4f38f7c8..243accb5 100644 --- a/TESTING/LIN/zlqt03.f +++ b/TESTING/LIN/zlqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpbt01.f b/TESTING/LIN/zpbt01.f index 695dd525..841cc7fe 100644 --- a/TESTING/LIN/zpbt01.f +++ b/TESTING/LIN/zpbt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDAFAC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpbt02.f b/TESTING/LIN/zpbt02.f index 20f03758..a4fe392a 100644 --- a/TESTING/LIN/zpbt02.f +++ b/TESTING/LIN/zpbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpbt05.f b/TESTING/LIN/zpbt05.f index 6f9521f4..354bb98f 100644 --- a/TESTING/LIN/zpbt05.f +++ b/TESTING/LIN/zpbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot01.f b/TESTING/LIN/zpot01.f index a9d5f72f..a31d5118 100644 --- a/TESTING/LIN/zpot01.f +++ b/TESTING/LIN/zpot01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAFAC, N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AFAC( LDAFAC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -94,10 +94,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot02.f b/TESTING/LIN/zpot02.f index 6e521831..6a96ad94 100644 --- a/TESTING/LIN/zpot02.f +++ b/TESTING/LIN/zpot02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot03.f b/TESTING/LIN/zpot03.f index b55d23d1..0887189c 100644 --- a/TESTING/LIN/zpot03.f +++ b/TESTING/LIN/zpot03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot05.f b/TESTING/LIN/zpot05.f index b5b549de..c221c9b4 100644 --- a/TESTING/LIN/zpot05.f +++ b/TESTING/LIN/zpot05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -152,10 +152,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpot06.f b/TESTING/LIN/zpot06.f index 167e4a64..f8563779 100644 --- a/TESTING/LIN/zpot06.f +++ b/TESTING/LIN/zpot06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt01.f b/TESTING/LIN/zppt01.f index 142bd74d..fded9b3a 100644 --- a/TESTING/LIN/zppt01.f +++ b/TESTING/LIN/zppt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT01( UPLO, N, A, AFAC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ) * .. -* +* * *> \par Purpose: * ============= @@ -83,10 +83,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt02.f b/TESTING/LIN/zppt02.f index 796b24ea..ef4c46c6 100644 --- a/TESTING/LIN/zppt02.f +++ b/TESTING/LIN/zppt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt03.f b/TESTING/LIN/zppt03.f index d412add1..c5e36082 100644 --- a/TESTING/LIN/zppt03.f +++ b/TESTING/LIN/zppt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDWORK, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AINV( * ), WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zppt05.f b/TESTING/LIN/zppt05.f index f795d1fc..082a3d9b 100644 --- a/TESTING/LIN/zppt05.f +++ b/TESTING/LIN/zppt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, * LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zpst01.f b/TESTING/LIN/zpst01.f index ea7a2980..adad7e96 100644 --- a/TESTING/LIN/zpst01.f +++ b/TESTING/LIN/zpst01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, * PIV, RWORK, RESID, RANK ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION RESID * INTEGER LDA, LDAFAC, LDPERM, N, RANK @@ -22,7 +22,7 @@ * DOUBLE PRECISION RWORK( * ) * INTEGER PIV( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zptt01.f b/TESTING/LIN/zptt01.f index cd90a767..e5b1f5f8 100644 --- a/TESTING/LIN/zptt01.f +++ b/TESTING/LIN/zptt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT01( N, D, E, DF, EF, WORK, RESID ) -* +* * .. Scalar Arguments .. * INTEGER N * DOUBLE PRECISION RESID @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ), DF( * ) * COMPLEX*16 E( * ), EF( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -80,10 +80,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zptt02.f b/TESTING/LIN/zptt02.f index df66f0fa..0e2bfc39 100644 --- a/TESTING/LIN/zptt02.f +++ b/TESTING/LIN/zptt02.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zptt05.f b/TESTING/LIN/zptt05.f index d478670b..29b0023f 100644 --- a/TESTING/LIN/zptt05.f +++ b/TESTING/LIN/zptt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, * FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * INTEGER LDB, LDX, LDXACT, N, NRHS * .. @@ -19,7 +19,7 @@ * COMPLEX*16 B( LDB, * ), E( * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqlt01.f b/TESTING/LIN/zqlt01.f index 4bf0ec37..4259ada0 100644 --- a/TESTING/LIN/zqlt01.f +++ b/TESTING/LIN/zqlt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqlt02.f b/TESTING/LIN/zqlt02.f index ad2cffdb..79932cf1 100644 --- a/TESTING/LIN/zqlt02.f +++ b/TESTING/LIN/zqlt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), L( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqlt03.f b/TESTING/LIN/zqlt03.f index 0edde76f..e2356845 100644 --- a/TESTING/LIN/zqlt03.f +++ b/TESTING/LIN/zqlt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqpt01.f b/TESTING/LIN/zqpt01.f index 54cabe10..9ccc99e4 100644 --- a/TESTING/LIN/zqpt01.f +++ b/TESTING/LIN/zqpt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQPT01( M, N, K, A, AF, LDA, TAU, JPVT, * WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -107,10 +107,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt01.f b/TESTING/LIN/zqrt01.f index c7b8617b..40629ecc 100644 --- a/TESTING/LIN/zqrt01.f +++ b/TESTING/LIN/zqrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt01p.f b/TESTING/LIN/zqrt01p.f index 8fe6d814..42e570d0 100644 --- a/TESTING/LIN/zqrt01p.f +++ b/TESTING/LIN/zqrt01p.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt02.f b/TESTING/LIN/zqrt02.f index 619e4a0f..a0bd6d4b 100644 --- a/TESTING/LIN/zqrt02.f +++ b/TESTING/LIN/zqrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -122,10 +122,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt03.f b/TESTING/LIN/zqrt03.f index ce5fe51c..8e81c2fc 100644 --- a/TESTING/LIN/zqrt03.f +++ b/TESTING/LIN/zqrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zqrt04.f b/TESTING/LIN/zqrt04.f index 714f3fbb..903e60d9 100644 --- a/TESTING/LIN/zqrt04.f +++ b/TESTING/LIN/zqrt04.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT04(M,N,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER M, N, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -54,17 +54,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -87,9 +87,9 @@ * ===================================================================== * * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) * @@ -106,17 +106,17 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC MAX, MIN * .. * .. Data statements .. - DATA ISEED / 1988, 1989, 1990, 1991 / -* + DATA ISEED / 1988, 1989, 1990, 1991 / +* EPS = DLAMCH( 'Epsilon' ) K = MIN(M,N) L = MAX(M,N) @@ -124,8 +124,8 @@ * * Dynamically allocate local arrays * - ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), - $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), + ALLOCATE ( A(M,N), AF(M,N), Q(M,M), R(M,L), RWORK(L), + $ WORK(LWORK), T(NB,N), C(M,N), CF(M,N), $ D(N,M), DF(N,M) ) * * Put random numbers into A and copy to AF @@ -179,7 +179,7 @@ * * Apply Q to C as Q*C * - CALL ZGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, + CALL ZGEMQRT( 'L', 'N', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |Q*C - Q*C| / |C| @@ -198,7 +198,7 @@ * * Apply Q to C as QT*C * - CALL ZGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, + CALL ZGEMQRT( 'L', 'C', M, N, K, NB, AF, M, T, NB, CF, M, $ WORK, INFO) * * Compute |QT*C - QT*C| / |C| @@ -209,7 +209,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -221,8 +221,8 @@ * * Apply Q to D as D*Q * - CALL ZGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL ZGEMQRT( 'R', 'N', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*Q - D*Q| / |D| * @@ -240,8 +240,8 @@ * * Apply Q to D as D*QT * - CALL ZGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, - $ WORK, INFO) + CALL ZGEMQRT( 'R', 'C', N, M, K, NB, AF, M, T, NB, DF, N, + $ WORK, INFO) * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/zqrt05.f b/TESTING/LIN/zqrt05.f index c51c02fd..47a0d333 100644 --- a/TESTING/LIN/zqrt05.f +++ b/TESTING/LIN/zqrt05.f @@ -2,19 +2,19 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT05(M,N,L,NB,RESULT) -* +* * .. Scalar Arguments .. * INTEGER LWORK, M, N, L, NB, LDT * .. Return values .. * DOUBLE PRECISION RESULT(6) -* +* * *> \par Purpose: * ============= @@ -45,7 +45,7 @@ *> The number of rows of the upper trapezoidal part the *> lower test matrix. 0 <= L <= M. *> \endverbatim -*> +*> *> \param[in] NB *> \verbatim *> NB is INTEGER @@ -61,17 +61,17 @@ *> RESULT(2) = | I - Q^H Q | *> RESULT(3) = | Q C - Q C | *> RESULT(4) = | Q^H C - Q^H C | -*> RESULT(5) = | C Q - C Q | +*> RESULT(5) = | C Q - C Q | *> RESULT(6) = | C Q^H - C Q^H | *> \endverbatim * * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date April 2012 * @@ -92,11 +92,11 @@ DOUBLE PRECISION RESULT(6) * * ===================================================================== -* +* * .. -* .. Local allocatable arrays +* .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), WORK( : ), T(:,:), + $ R(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) * @@ -113,14 +113,14 @@ INTEGER ISEED( 4 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH + DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / -* +* EPS = DLAMCH( 'Epsilon' ) K = N M2 = M+N @@ -134,7 +134,7 @@ * Dynamically allocate all arrays * ALLOCATE(A(M2,N),AF(M2,N),Q(M2,M2),R(M2,M2),RWORK(M2), - $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), + $ WORK(LWORK),T(NB,N),C(M2,N),CF(M2,N), $ D(N,M2),DF(N,M2) ) * * Put random stuff into A @@ -189,7 +189,7 @@ * Compute |I - Q'*Q| and store in RESULT(2) * CALL ZLASET( 'Full', M2, M2, CZERO, ONE, R, M2 ) - CALL ZHERK( 'U', 'C', M2, M2, DREAL(-ONE), Q, M2, DREAL(ONE), + CALL ZHERK( 'U', 'C', M2, M2, DREAL(-ONE), Q, M2, DREAL(ONE), $ R, M2 ) RESID = ZLANSY( '1', 'Upper', M2, R, M2, RWORK ) RESULT( 2 ) = RESID / (EPS*MAX(1,M2)) @@ -224,7 +224,7 @@ * Apply Q to C as QT*C * CALL ZTPMQRT( 'L','C',M,N,K,L,NB,AF(NP1,1),M2,T,LDT,CF,M2, - $ CF(NP1,1),M2,WORK,INFO) + $ CF(NP1,1),M2,WORK,INFO) * * Compute |QT*C - QT*C| / |C| * @@ -234,7 +234,7 @@ RESULT( 4 ) = RESID / (EPS*MAX(1,M2)*CNORM) ELSE RESULT( 4 ) = ZERO - END IF + END IF * * Generate random n-by-m matrix D and a copy DF * @@ -266,8 +266,8 @@ * Apply Q to D as D*QT * CALL ZTPMQRT('R','C',N,M,N,L,NB,AF(NP1,1),M2,T,LDT,DF,N, - $ DF(1,NP1),N,WORK,INFO) - + $ DF(1,NP1),N,WORK,INFO) + * * Compute |D*QT - D*QT| / |D| * diff --git a/TESTING/LIN/zqrt11.f b/TESTING/LIN/zqrt11.f index efb9a6ed..f2423800 100644 --- a/TESTING/LIN/zqrt11.f +++ b/TESTING/LIN/zqrt11.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT11( M, K, A, LDA, TAU, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M * .. * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -86,10 +86,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt12.f b/TESTING/LIN/zqrt12.f index 08f53823..df59b921 100644 --- a/TESTING/LIN/zqrt12.f +++ b/TESTING/LIN/zqrt12.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK, * RWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION RWORK( * ), S( * ) * COMPLEX*16 A( LDA, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -84,10 +84,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -195,7 +195,7 @@ $ WORK( M*N+1 ), WORK( M*N+MN+1 ), $ WORK( M*N+2*MN+1 ), INFO ) CALL DBDSQR( 'Upper', MN, 0, 0, 0, RWORK( 1 ), RWORK( MN+1 ), - $ DUMMY, MN, DUMMY, 1, DUMMY, MN, RWORK( 2*MN+1 ), + $ DUMMY, MN, DUMMY, 1, DUMMY, MN, RWORK( 2*MN+1 ), $ INFO ) * IF( ISCL.EQ.1 ) THEN diff --git a/TESTING/LIN/zqrt13.f b/TESTING/LIN/zqrt13.f index edcbbdac..c71927e0 100644 --- a/TESTING/LIN/zqrt13.f +++ b/TESTING/LIN/zqrt13.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER LDA, M, N, SCALE * DOUBLE PRECISION NORMA @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -79,10 +79,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt14.f b/TESTING/LIN/zqrt14.f index 8eea029b..fb4d064b 100644 --- a/TESTING/LIN/zqrt14.f +++ b/TESTING/LIN/zqrt14.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X, * LDX, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDX, LWORK, M, N, NRHS @@ -18,7 +18,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -103,10 +103,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt15.f b/TESTING/LIN/zqrt15.f index 04ab8aca..fa0a4177 100644 --- a/TESTING/LIN/zqrt15.f +++ b/TESTING/LIN/zqrt15.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, * RANK, NORMA, NORMB, ISEED, WORK, LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE * DOUBLE PRECISION NORMA, NORMB @@ -20,7 +20,7 @@ * DOUBLE PRECISION S( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt16.f b/TESTING/LIN/zqrt16.f index 1b16c4cb..0ffbe436 100644 --- a/TESTING/LIN/zqrt16.f +++ b/TESTING/LIN/zqrt16.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER LDA, LDB, LDX, M, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -120,10 +120,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zqrt17.f b/TESTING/LIN/zqrt17.f index 37030904..c0fbf8bc 100644 --- a/TESTING/LIN/zqrt17.f +++ b/TESTING/LIN/zqrt17.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, * LDA, X, LDX, B, LDB, C, WORK, LWORK ) -* +* * .. Scalar Arguments .. * CHARACTER TRANS * INTEGER IRESID, LDA, LDB, LDX, LWORK, M, N, NRHS @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), C( LDB, * ), * $ WORK( LWORK ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -137,10 +137,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/LIN/zrqt01.f b/TESTING/LIN/zrqt01.f index 58db74db..39b67389 100644 --- a/TESTING/LIN/zrqt01.f +++ b/TESTING/LIN/zrqt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrqt02.f b/TESTING/LIN/zrqt02.f index 1dbe3d55..dab247cb 100644 --- a/TESTING/LIN/zrqt02.f +++ b/TESTING/LIN/zrqt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), Q( LDA, * ), * $ R( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrqt03.f b/TESTING/LIN/zrqt03.f index 9b74a6bb..03ed1cf7 100644 --- a/TESTING/LIN/zrqt03.f +++ b/TESTING/LIN/zrqt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, * RWORK, RESULT ) -* +* * .. Scalar Arguments .. * INTEGER K, LDA, LWORK, M, N * .. @@ -19,7 +19,7 @@ * COMPLEX*16 AF( LDA, * ), C( LDA, * ), CC( LDA, * ), * $ Q( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrzt01.f b/TESTING/LIN/zrzt01.f index b67cb84f..9f5b1d48 100644 --- a/TESTING/LIN/zrzt01.f +++ b/TESTING/LIN/zrzt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZRZT01( M, N, A, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. @@ -18,7 +18,7 @@ * COMPLEX*16 A( LDA, * ), AF( LDA, * ), TAU( * ), * $ WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -85,10 +85,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zrzt02.f b/TESTING/LIN/zrzt02.f index 93c34cba..fe9d1bf1 100644 --- a/TESTING/LIN/zrzt02.f +++ b/TESTING/LIN/zrzt02.f @@ -2,22 +2,22 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION ZRZT02( M, N, AF, LDA, TAU, WORK, * LWORK ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LWORK, M, N * .. * .. Array Arguments .. * COMPLEX*16 AF( LDA, * ), TAU( * ), WORK( LWORK ) * .. -* +* * *> \par Purpose: * ============= @@ -78,10 +78,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zsbmv.f b/TESTING/LIN/zsbmv.f index f36bfe5e..c8985cc0 100644 --- a/TESTING/LIN/zsbmv.f +++ b/TESTING/LIN/zsbmv.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, * INCY ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER INCX, INCY, K, LDA, N @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( LDA, * ), X( * ), Y( * ) * .. -* +* * *> \par Purpose: * ============= @@ -139,10 +139,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zspt01.f b/TESTING/LIN/zspt01.f index 31505d6b..729a46c8 100644 --- a/TESTING/LIN/zspt01.f +++ b/TESTING/LIN/zspt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDC, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AFAC( * ), C( LDC, * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zspt02.f b/TESTING/LIN/zspt02.f index 059236f8..80b62cb4 100644 --- a/TESTING/LIN/zspt02.f +++ b/TESTING/LIN/zspt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -110,10 +110,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zspt03.f b/TESTING/LIN/zspt03.f index 28f55632..8937797e 100644 --- a/TESTING/LIN/zspt03.f +++ b/TESTING/LIN/zspt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDW, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( * ), AINV( * ), WORK( LDW, * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zsyt02.f b/TESTING/LIN/zsyt02.f index d8246b55..a3852f97 100644 --- a/TESTING/LIN/zsyt02.f +++ b/TESTING/LIN/zsyt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -114,10 +114,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/zsyt03.f b/TESTING/LIN/zsyt03.f index fe164abc..7040eb97 100644 --- a/TESTING/LIN/zsyt03.f +++ b/TESTING/LIN/zsyt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, * RWORK, RCOND, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO * INTEGER LDA, LDAINV, LDWORK, N @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ), * $ WORK( LDWORK, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt02.f b/TESTING/LIN/ztbt02.f index d3784e00..de020a5b 100644 --- a/TESTING/LIN/ztbt02.f +++ b/TESTING/LIN/ztbt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, * LDX, B, LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt03.f b/TESTING/LIN/ztbt03.f index e62eb179..b989c3a2 100644 --- a/TESTING/LIN/ztbt03.f +++ b/TESTING/LIN/ztbt03.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, * SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, * RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, N, NRHS @@ -22,7 +22,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt05.f b/TESTING/LIN/ztbt05.f index 8765edb3..72fe332b 100644 --- a/TESTING/LIN/ztbt05.f +++ b/TESTING/LIN/ztbt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, * LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER KD, LDAB, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AB( LDAB, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -176,10 +176,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztbt06.f b/TESTING/LIN/ztbt06.f index f4156fa9..10f8238e 100644 --- a/TESTING/LIN/ztbt06.f +++ b/TESTING/LIN/ztbt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, * RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER KD, LDAB, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AB( LDAB, * ) * .. -* +* * *> \par Purpose: * ============= @@ -113,10 +113,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt01.f b/TESTING/LIN/ztpt01.f index b34cfe4f..141063c0 100644 --- a/TESTING/LIN/ztpt01.f +++ b/TESTING/LIN/ztpt01.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AINVP( * ), AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -97,10 +97,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt02.f b/TESTING/LIN/ztpt02.f index a7041bd9..b32adde7 100644 --- a/TESTING/LIN/ztpt02.f +++ b/TESTING/LIN/ztpt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, * WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -136,10 +136,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt03.f b/TESTING/LIN/ztpt03.f index bc617f1a..41ad8fe2 100644 --- a/TESTING/LIN/ztpt03.f +++ b/TESTING/LIN/ztpt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, * TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, N, NRHS @@ -20,7 +20,7 @@ * DOUBLE PRECISION CNORM( * ) * COMPLEX*16 AP( * ), B( LDB, * ), WORK( * ), X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -149,10 +149,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt05.f b/TESTING/LIN/ztpt05.f index da65cec9..636a779b 100644 --- a/TESTING/LIN/ztpt05.f +++ b/TESTING/LIN/ztpt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, * XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 AP( * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -162,10 +162,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztpt06.f b/TESTING/LIN/ztpt06.f index 7458fa79..a30e9243 100644 --- a/TESTING/LIN/ztpt06.f +++ b/TESTING/LIN/ztpt06.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER N @@ -19,7 +19,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 AP( * ) * .. -* +* * *> \par Purpose: * ============= @@ -100,10 +100,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt01.f b/TESTING/LIN/ztrt01.f index bbf3edb9..59a57543 100644 --- a/TESTING/LIN/ztrt01.f +++ b/TESTING/LIN/ztrt01.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, * RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, LDAINV, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), AINV( LDAINV, * ) * .. -* +* * *> \par Purpose: * ============= @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt02.f b/TESTING/LIN/ztrt02.f index 948a5d25..408f400c 100644 --- a/TESTING/LIN/ztrt02.f +++ b/TESTING/LIN/ztrt02.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, * LDB, WORK, RWORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -144,10 +144,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt03.f b/TESTING/LIN/ztrt03.f index 2f368c58..99554636 100644 --- a/TESTING/LIN/ztrt03.f +++ b/TESTING/LIN/ztrt03.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, * CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, N, NRHS @@ -21,7 +21,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * ), * $ X( LDX, * ) * .. -* +* * *> \par Purpose: * ============= @@ -158,10 +158,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt05.f b/TESTING/LIN/ztrt05.f index 9082503f..d341c382 100644 --- a/TESTING/LIN/ztrt05.f +++ b/TESTING/LIN/ztrt05.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, * LDX, XACT, LDXACT, FERR, BERR, RESLTS ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, TRANS, UPLO * INTEGER LDA, LDB, LDX, LDXACT, N, NRHS @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ), * $ XACT( LDXACT, * ) * .. -* +* * *> \par Purpose: * ============= @@ -169,10 +169,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/LIN/ztrt06.f b/TESTING/LIN/ztrt06.f index 7eecfec5..8e7bfcec 100644 --- a/TESTING/LIN/ztrt06.f +++ b/TESTING/LIN/ztrt06.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, * RAT ) -* +* * .. Scalar Arguments .. * CHARACTER DIAG, UPLO * INTEGER LDA, N @@ -20,7 +20,7 @@ * DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt index 55258ddd..011aea15 100644 --- a/TESTING/MATGEN/CMakeLists.txt +++ b/TESTING/MATGEN/CMakeLists.txt @@ -30,25 +30,25 @@ # make single FRC=FRC # ####################################################################### - + set(SCATGEN slatm1.f slaran.f slarnd.f) -set(SMATGEN slatms.f slatme.f slatmr.f slatmt.f - slagge.f slagsy.f slakf2.f slarge.f slaror.f slarot.f slatm2.f +set(SMATGEN slatms.f slatme.f slatmr.f slatmt.f + slagge.f slagsy.f slakf2.f slarge.f slaror.f slarot.f slatm2.f slatm3.f slatm5.f slatm6.f slatm7.f slahilb.f) -set(CMATGEN clatms.f clatme.f clatmr.f clatmt.f - clagge.f claghe.f clagsy.f clakf2.f clarge.f claror.f clarot.f +set(CMATGEN clatms.f clatme.f clatmr.f clatmt.f + clagge.f claghe.f clagsy.f clakf2.f clarge.f claror.f clarot.f clatm1.f clarnd.f clatm2.f clatm3.f clatm5.f clatm6.f clahilb.f slatm7.f) set(DZATGEN dlatm1.f dlaran.f dlarnd.f) -set(DMATGEN dlatms.f dlatme.f dlatmr.f dlatmt.f - dlagge.f dlagsy.f dlakf2.f dlarge.f dlaror.f dlarot.f dlatm2.f +set(DMATGEN dlatms.f dlatme.f dlatmr.f dlatmt.f + dlagge.f dlagsy.f dlakf2.f dlarge.f dlaror.f dlarot.f dlatm2.f dlatm3.f dlatm5.f dlatm6.f dlatm7.f dlahilb.f) -set(ZMATGEN zlatms.f zlatme.f zlatmr.f zlatmt.f - zlagge.f zlaghe.f zlagsy.f zlakf2.f zlarge.f zlaror.f zlarot.f +set(ZMATGEN zlatms.f zlatme.f zlatmr.f zlatmt.f + zlagge.f zlaghe.f zlagsy.f zlakf2.f zlarge.f zlaror.f zlarot.f zlatm1.f zlarnd.f zlatm2.f zlatm3.f zlatm5.f zlatm6.f zlahilb.f dlatm7.f) if(BUILD_SINGLE) diff --git a/TESTING/MATGEN/Makefile b/TESTING/MATGEN/Makefile index ecd9aa5c..49bc645f 100644 --- a/TESTING/MATGEN/Makefile +++ b/TESTING/MATGEN/Makefile @@ -32,7 +32,7 @@ include ../../make.inc # make single FRC=FRC # ####################################################################### - + SCATGEN = slatm1.o slaran.o slarnd.o SMATGEN = slatms.o slatme.o slatmr.o slatmt.o \ @@ -84,7 +84,7 @@ $(CMATGEN): $(FRC) $(DZATGEN): $(FRC) $(DMATGEN): $(FRC) $(ZMATGEN): $(FRC) - + FRC: @FRC=$(FRC) diff --git a/TESTING/MATGEN/clagge.f b/TESTING/MATGEN/clagge.f index a11b6362..7db26c4d 100644 --- a/TESTING/MATGEN/clagge.f +++ b/TESTING/MATGEN/clagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/claghe.f b/TESTING/MATGEN/claghe.f index 0e07ab54..ec7d9e51 100644 --- a/TESTING/MATGEN/claghe.f +++ b/TESTING/MATGEN/claghe.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clagsy.f b/TESTING/MATGEN/clagsy.f index aa0d8fd4..f4872f54 100644 --- a/TESTING/MATGEN/clagsy.f +++ b/TESTING/MATGEN/clagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clahilb.f b/TESTING/MATGEN/clahilb.f index f318ee53..bb4d92b8 100644 --- a/TESTING/MATGEN/clahilb.f +++ b/TESTING/MATGEN/clahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, +* SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,17 +121,17 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * *> \ingroup complex_matgen * * ===================================================================== - SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, + SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * * -- LAPACK test routine (version 3.6.0) -- @@ -165,15 +165,15 @@ PARAMETER (NMAX_EXACT = 6, NMAX_APPROX = 11, SIZE_D = 8) * d's are generated from random permuation of those eight elements. - COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) + COMPLEX D1(8), D2(8), INVD1(8), INVD2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), $ (-.5,.5),(.5,.5),(.5,-.5)/ - + * .. * .. External Functions EXTERNAL CLASET, LSAMEN @@ -221,7 +221,7 @@ END DO * Generate the scaled Hilbert matrix in A -* If we are testing SY routines, take +* If we are testing SY routines, take * D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, N @@ -252,15 +252,15 @@ WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - -* If we are testing SY routines, + +* If we are testing SY routines, * take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS DO I = 1, N - X(I, J) = + X(I, J) = $ INVD1(MOD(J,SIZE_D)+1) * - $ ((WORK(I)*WORK(J)) / (I + J - 1)) + $ ((WORK(I)*WORK(J)) / (I + J - 1)) $ * INVD1(MOD(I,SIZE_D)+1) END DO END DO @@ -275,4 +275,4 @@ END DO END IF END - + diff --git a/TESTING/MATGEN/clakf2.f b/TESTING/MATGEN/clakf2.f index 524d2c53..93fbe941 100644 --- a/TESTING/MATGEN/clakf2.f +++ b/TESTING/MATGEN/clakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * COMPLEX A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clarge.f b/TESTING/MATGEN/clarge.f index 9a186353..5c7e6d77 100644 --- a/TESTING/MATGEN/clarge.f +++ b/TESTING/MATGEN/clarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clarnd.f b/TESTING/MATGEN/clarnd.f index 0490597c..30ecf865 100644 --- a/TESTING/MATGEN/clarnd.f +++ b/TESTING/MATGEN/clarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/claror.f b/TESTING/MATGEN/claror.f index 9cabe136..8bb30a8a 100644 --- a/TESTING/MATGEN/claror.f +++ b/TESTING/MATGEN/claror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clarot.f b/TESTING/MATGEN/clarot.f index db93b3d4..57525132 100644 --- a/TESTING/MATGEN/clarot.f +++ b/TESTING/MATGEN/clarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatm1.f b/TESTING/MATGEN/clatm1.f index 2cc0c4d9..b9b5fedb 100644 --- a/TESTING/MATGEN/clatm1.f +++ b/TESTING/MATGEN/clatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * REAL COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/clatm2.f b/TESTING/MATGEN/clatm2.f index f5d7395e..64937277 100644 --- a/TESTING/MATGEN/clatm2.f +++ b/TESTING/MATGEN/clatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D, * IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -199,10 +199,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/clatm3.f b/TESTING/MATGEN/clatm3.f index 1526e412..2f4e48f2 100644 --- a/TESTING/MATGEN/clatm3.f +++ b/TESTING/MATGEN/clatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * COMPLEX FUNCTION CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/clatm5.f b/TESTING/MATGEN/clatm5.f index 8a3c96be..bfac02b3 100644 --- a/TESTING/MATGEN/clatm5.f +++ b/TESTING/MATGEN/clatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/clatm6.f b/TESTING/MATGEN/clatm6.f index d34d53c1..62ce57b1 100644 --- a/TESTING/MATGEN/clatm6.f +++ b/TESTING/MATGEN/clatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * COMPLEX ALPHA, BETA, WX, WY @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), B( LDA, * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatme.f b/TESTING/MATGEN/clatme.f index eaceaa93..7e4d228d 100644 --- a/TESTING/MATGEN/clatme.f +++ b/TESTING/MATGEN/clatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -25,7 +25,7 @@ * REAL DS( * ) * COMPLEX A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,9 +296,9 @@ * * ===================================================================== SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/clatmr.f b/TESTING/MATGEN/clatmr.f index 5af91182..dab94f4a 100644 --- a/TESTING/MATGEN/clatmr.f +++ b/TESTING/MATGEN/clatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -23,7 +23,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * COMPLEX A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -475,10 +475,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatms.f b/TESTING/MATGEN/clatms.f index 0b818650..12872ffe 100644 --- a/TESTING/MATGEN/clatms.f +++ b/TESTING/MATGEN/clatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -21,7 +21,7 @@ * REAL D( * ) * COMPLEX A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -319,10 +319,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/clatmt.f b/TESTING/MATGEN/clatmt.f index 30054396..b0a1cfda 100644 --- a/TESTING/MATGEN/clatmt.f +++ b/TESTING/MATGEN/clatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -21,7 +21,7 @@ * REAL D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -327,10 +327,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlagge.f b/TESTING/MATGEN/dlagge.f index fac06d98..5a3cfced 100644 --- a/TESTING/MATGEN/dlagge.f +++ b/TESTING/MATGEN/dlagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/dlagsy.f b/TESTING/MATGEN/dlagsy.f index b5c4881a..a9b79243 100644 --- a/TESTING/MATGEN/dlagsy.f +++ b/TESTING/MATGEN/dlagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlahilb.f b/TESTING/MATGEN/dlahilb.f index 53ce063f..788b69f1 100644 --- a/TESTING/MATGEN/dlahilb.f +++ b/TESTING/MATGEN/dlahilb.f @@ -2,20 +2,20 @@ C> \brief \b DLAHILB * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * DOUBLE PRECISION A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ C> \brief \b DLAHILB *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ C> \brief \b DLAHILB *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ C> \brief \b DLAHILB *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is INTEGER @@ -112,10 +112,10 @@ C> \brief \b DLAHILB * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -212,7 +212,7 @@ C> \brief \b DLAHILB WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - + DO J = 1, NRHS DO I = 1, N X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1) diff --git a/TESTING/MATGEN/dlakf2.f b/TESTING/MATGEN/dlakf2.f index 01da0bf5..421f7747 100644 --- a/TESTING/MATGEN/dlakf2.f +++ b/TESTING/MATGEN/dlakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlaran.f b/TESTING/MATGEN/dlaran.f index 6dbb0518..48b10d9c 100644 --- a/TESTING/MATGEN/dlaran.f +++ b/TESTING/MATGEN/dlaran.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLARAN( ISEED ) -* +* * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -128,7 +128,7 @@ * If a real number has n bits of precision, and the first * n bits of the 48-bit integer above happen to be all 1 (which * will occur about once every 2**n calls), then DLARAN will -* be rounded to exactly 1.0. +* be rounded to exactly 1.0. * Since DLARAN is not supposed to return exactly 0.0 or 1.0 * (and some callers of DLARAN, such as CLARND, depend on that), * the statistically correct thing to do in this situation is diff --git a/TESTING/MATGEN/dlarge.f b/TESTING/MATGEN/dlarge.f index 075cdac5..03204389 100644 --- a/TESTING/MATGEN/dlarge.f +++ b/TESTING/MATGEN/dlarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlarnd.f b/TESTING/MATGEN/dlarnd.f index ee0f8302..0201e8db 100644 --- a/TESTING/MATGEN/dlarnd.f +++ b/TESTING/MATGEN/dlarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlaror.f b/TESTING/MATGEN/dlaror.f index 5be36bd1..2537f8b8 100644 --- a/TESTING/MATGEN/dlaror.f +++ b/TESTING/MATGEN/dlaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlarot.f b/TESTING/MATGEN/dlarot.f index 3e5917cf..f2f4edb7 100644 --- a/TESTING/MATGEN/dlarot.f +++ b/TESTING/MATGEN/dlarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * DOUBLE PRECISION A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatm1.f b/TESTING/MATGEN/dlatm1.f index e95ac83a..b18bafcf 100644 --- a/TESTING/MATGEN/dlatm1.f +++ b/TESTING/MATGEN/dlatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * DOUBLE PRECISION COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/dlatm2.f b/TESTING/MATGEN/dlatm2.f index f12a737e..485c45b1 100644 --- a/TESTING/MATGEN/dlatm2.f +++ b/TESTING/MATGEN/dlatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/dlatm3.f b/TESTING/MATGEN/dlatm3.f index 4ad34251..e7b62190 100644 --- a/TESTING/MATGEN/dlatm3.f +++ b/TESTING/MATGEN/dlatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * DOUBLE PRECISION FUNCTION DLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,10 +212,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/dlatm5.f b/TESTING/MATGEN/dlatm5.f index 40d8360d..7faf044b 100644 --- a/TESTING/MATGEN/dlatm5.f +++ b/TESTING/MATGEN/dlatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE DLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/dlatm6.f b/TESTING/MATGEN/dlatm6.f index 2a6823d7..0a37dbdf 100644 --- a/TESTING/MATGEN/dlatm6.f +++ b/TESTING/MATGEN/dlatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * DOUBLE PRECISION ALPHA, BETA, WX, WY @@ -19,7 +19,7 @@ * DOUBLE PRECISION A( LDA, * ), B( LDA, * ), DIF( * ), S( * ), * $ X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatm7.f b/TESTING/MATGEN/dlatm7.f index a8c1a0cc..9cdf016b 100644 --- a/TESTING/MATGEN/dlatm7.f +++ b/TESTING/MATGEN/dlatm7.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, * RANK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND * INTEGER IDIST, INFO, IRSIGN, MODE, N, RANK @@ -19,7 +19,7 @@ * DOUBLE PRECISION D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatme.f b/TESTING/MATGEN/dlatme.f index e1dce5fa..81efab84 100644 --- a/TESTING/MATGEN/dlatme.f +++ b/TESTING/MATGEN/dlatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -24,7 +24,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), DS( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,20 +316,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup double_matgen * * ===================================================================== - SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/dlatmr.f b/TESTING/MATGEN/dlatmr.f index d38fddff..92de9330 100644 --- a/TESTING/MATGEN/dlatmr.f +++ b/TESTING/MATGEN/dlatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -22,7 +22,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * DOUBLE PRECISION A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -456,10 +456,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatms.f b/TESTING/MATGEN/dlatms.f index 38d2b965..68ce79c6 100644 --- a/TESTING/MATGEN/dlatms.f +++ b/TESTING/MATGEN/dlatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -308,10 +308,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/dlatmt.f b/TESTING/MATGEN/dlatmt.f index a2080a8c..cab6f3fa 100644 --- a/TESTING/MATGEN/dlatmt.f +++ b/TESTING/MATGEN/dlatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -20,7 +20,7 @@ * DOUBLE PRECISION A( LDA, * ), D( * ), WORK( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -318,10 +318,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slagge.f b/TESTING/MATGEN/slagge.f index f93bb2c2..f9683ba8 100644 --- a/TESTING/MATGEN/slagge.f +++ b/TESTING/MATGEN/slagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -101,10 +101,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/slagsy.f b/TESTING/MATGEN/slagsy.f index 6d80a9af..4434df5e 100644 --- a/TESTING/MATGEN/slagsy.f +++ b/TESTING/MATGEN/slagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -89,10 +89,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slahilb.f b/TESTING/MATGEN/slahilb.f index fb9c837c..ebcdeff4 100644 --- a/TESTING/MATGEN/slahilb.f +++ b/TESTING/MATGEN/slahilb.f @@ -2,20 +2,20 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. * REAL A(LDA, N), X(LDX, NRHS), B(LDB, NRHS), WORK(N) * .. -* +* * *> \par Purpose: * ============= @@ -26,8 +26,8 @@ *> NRHS right-hand sides in B and solutions in X such that A*X=B. *> *> The Hilbert matrix is scaled by M = LCM(1, 2, ..., 2*N-1) so that all -*> entries are integers. The right-hand sides are the first NRHS -*> columns of M * the identity matrix, and the solutions are the +*> entries are integers. The right-hand sides are the first NRHS +*> columns of M * the identity matrix, and the solutions are the *> first NRHS columns of the inverse Hilbert matrix. *> *> The condition number of the Hilbert matrix grows exponentially with @@ -36,7 +36,7 @@ *> generated exactly without extra precision. Precision is exhausted *> when the largest entry in the inverse Hilbert matrix is greater than *> 2 to the power of the number of bits in the fraction of the data type -*> used plus one, which is 24 for single precision. +*> used plus one, which is 24 for single precision. *> *> In single, the generated solution is exact for N <= 6 and has *> small componentwise error for 7 <= N <= 11. @@ -50,7 +50,7 @@ *> N is INTEGER *> The dimension of the matrix A. *> \endverbatim -*> +*> *> \param[in] NRHS *> \verbatim *> NRHS is INTEGER @@ -112,10 +112,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -212,7 +212,7 @@ WORK(J) = ( ( (WORK(J-1)/(J-1)) * (J-1 - N) ) /(J-1) ) $ * (N +J -1) END DO - + DO J = 1, NRHS DO I = 1, N X(I, J) = (WORK(I)*WORK(J)) / (I + J - 1) diff --git a/TESTING/MATGEN/slakf2.f b/TESTING/MATGEN/slakf2.f index 6de71032..335fbc09 100644 --- a/TESTING/MATGEN/slakf2.f +++ b/TESTING/MATGEN/slakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * REAL A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slaran.f b/TESTING/MATGEN/slaran.f index 9738d28e..d032742c 100644 --- a/TESTING/MATGEN/slaran.f +++ b/TESTING/MATGEN/slaran.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLARAN( ISEED ) -* +* * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -39,10 +39,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slarge.f b/TESTING/MATGEN/slarge.f index 5184bb52..42a6f525 100644 --- a/TESTING/MATGEN/slarge.f +++ b/TESTING/MATGEN/slarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slarnd.f b/TESTING/MATGEN/slarnd.f index 126aa4ff..9e1a5622 100644 --- a/TESTING/MATGEN/slarnd.f +++ b/TESTING/MATGEN/slarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -51,10 +51,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slaror.f b/TESTING/MATGEN/slaror.f index 2c9657e9..b369e789 100644 --- a/TESTING/MATGEN/slaror.f +++ b/TESTING/MATGEN/slaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -134,10 +134,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slarot.f b/TESTING/MATGEN/slarot.f index f243baf9..36b118fd 100644 --- a/TESTING/MATGEN/slarot.f +++ b/TESTING/MATGEN/slarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * REAL A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -213,10 +213,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatm1.f b/TESTING/MATGEN/slatm1.f index 461e34b0..ca411c4d 100644 --- a/TESTING/MATGEN/slatm1.f +++ b/TESTING/MATGEN/slatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * REAL COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * REAL D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -123,10 +123,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/slatm2.f b/TESTING/MATGEN/slatm2.f index 9707096b..ad0d53ed 100644 --- a/TESTING/MATGEN/slatm2.f +++ b/TESTING/MATGEN/slatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * REAL D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -195,10 +195,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/slatm3.f b/TESTING/MATGEN/slatm3.f index 32301ca2..0279afa3 100644 --- a/TESTING/MATGEN/slatm3.f +++ b/TESTING/MATGEN/slatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * REAL FUNCTION SLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * REAL SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * REAL D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -212,10 +212,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/slatm5.f b/TESTING/MATGEN/slatm5.f index 7a1f2601..dd2d7349 100644 --- a/TESTING/MATGEN/slatm5.f +++ b/TESTING/MATGEN/slatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE SLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/slatm6.f b/TESTING/MATGEN/slatm6.f index 0138b012..009b1008 100644 --- a/TESTING/MATGEN/slatm6.f +++ b/TESTING/MATGEN/slatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * REAL ALPHA, BETA, WX, WY @@ -19,7 +19,7 @@ * REAL A( LDA, * ), B( LDA, * ), DIF( * ), S( * ), * $ X( LDX, * ), Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -163,10 +163,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatm7.f b/TESTING/MATGEN/slatm7.f index 7e195415..d76a16af 100644 --- a/TESTING/MATGEN/slatm7.f +++ b/TESTING/MATGEN/slatm7.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, * RANK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND * INTEGER IDIST, INFO, IRSIGN, MODE, N, RANK @@ -19,7 +19,7 @@ * REAL D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -109,10 +109,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date September 2012 * diff --git a/TESTING/MATGEN/slatme.f b/TESTING/MATGEN/slatme.f index 88bfaae3..c95b4614 100644 --- a/TESTING/MATGEN/slatme.f +++ b/TESTING/MATGEN/slatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * -* SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -24,7 +24,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), DS( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -316,20 +316,20 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * *> \ingroup real_matgen * * ===================================================================== - SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/slatmr.f b/TESTING/MATGEN/slatmr.f index d53ddf84..0a945c73 100644 --- a/TESTING/MATGEN/slatmr.f +++ b/TESTING/MATGEN/slatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -22,7 +22,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * REAL A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -456,10 +456,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatms.f b/TESTING/MATGEN/slatms.f index 9480e40e..f9441794 100644 --- a/TESTING/MATGEN/slatms.f +++ b/TESTING/MATGEN/slatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -20,7 +20,7 @@ * INTEGER ISEED( 4 ) * REAL A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -308,10 +308,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/slatmt.f b/TESTING/MATGEN/slatmt.f index 7bdfeffd..7c4b6fc2 100644 --- a/TESTING/MATGEN/slatmt.f +++ b/TESTING/MATGEN/slatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * REAL COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -20,7 +20,7 @@ * REAL A( LDA, * ), D( * ), WORK( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -318,10 +318,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlagge.f b/TESTING/MATGEN/zlagge.f index b175c4a9..16b0d066 100644 --- a/TESTING/MATGEN/zlagge.f +++ b/TESTING/MATGEN/zlagge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, KL, KU, LDA, M, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -102,10 +102,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/zlaghe.f b/TESTING/MATGEN/zlaghe.f index e3f09071..5500893f 100644 --- a/TESTING/MATGEN/zlaghe.f +++ b/TESTING/MATGEN/zlaghe.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlagsy.f b/TESTING/MATGEN/zlagsy.f index 4a793a01..5ecbd707 100644 --- a/TESTING/MATGEN/zlagsy.f +++ b/TESTING/MATGEN/zlagsy.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, K, LDA, N * .. @@ -18,7 +18,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -90,10 +90,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlahilb.f b/TESTING/MATGEN/zlahilb.f index f30835df..7bf416a6 100644 --- a/TESTING/MATGEN/zlahilb.f +++ b/TESTING/MATGEN/zlahilb.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, * INFO, PATH) -* +* * .. Scalar Arguments .. * INTEGER N, NRHS, LDA, LDX, LDB, INFO * .. Array Arguments .. @@ -18,7 +18,7 @@ * COMPLEX*16 A(LDA,N), X(LDX, NRHS), B(LDB, NRHS) * CHARACTER*3 PATH * .. -* +* * *> \par Purpose: * ============= @@ -121,10 +121,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * @@ -168,7 +168,7 @@ COMPLEX*16 d1(8), d2(8), invd1(8), invd2(8) DATA D1 /(-1,0),(0,1),(-1,-1),(0,-1),(1,0),(-1,1),(1,1),(1,-1)/ DATA D2 /(-1,0),(0,-1),(-1,1),(0,1),(1,0),(-1,-1),(1,-1),(1,1)/ - + DATA INVD1 /(-1,0),(0,-1),(-.5,.5),(0,1),(1,0), $ (-.5,-.5),(.5,-.5),(.5,.5)/ DATA INVD2 /(-1,0),(0,1),(-.5,-.5),(0,-1),(1,0), @@ -237,7 +237,7 @@ END DO END DO END IF - + * Generate matrix B as simply the first NRHS columns of M * the * identity. TMP = DBLE(M) @@ -252,7 +252,7 @@ $ * (N +J -1) END DO -* If we are testing SY routines, +* If we are testing SY routines, * take D1_i = D2_i, else, D1_i = D2_i* IF ( LSAMEN( 2, C2, 'SY' ) ) THEN DO J = 1, NRHS diff --git a/TESTING/MATGEN/zlakf2.f b/TESTING/MATGEN/zlakf2.f index 7e8fc479..4fd62b46 100644 --- a/TESTING/MATGEN/zlakf2.f +++ b/TESTING/MATGEN/zlakf2.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDZ, M, N * .. @@ -17,7 +17,7 @@ * COMPLEX*16 A( LDA, * ), B( LDA, * ), D( LDA, * ), * $ E( LDA, * ), Z( LDZ, * ) * .. -* +* * *> \par Purpose: * ============= @@ -93,10 +93,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlarge.f b/TESTING/MATGEN/zlarge.f index e44c2fab..593eb00f 100644 --- a/TESTING/MATGEN/zlarge.f +++ b/TESTING/MATGEN/zlarge.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLARGE( N, A, LDA, ISEED, WORK, INFO ) -* +* * .. Scalar Arguments .. * INTEGER INFO, LDA, N * .. @@ -17,7 +17,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -75,10 +75,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlarnd.f b/TESTING/MATGEN/zlarnd.f index 563a453e..fe750551 100644 --- a/TESTING/MATGEN/zlarnd.f +++ b/TESTING/MATGEN/zlarnd.f @@ -2,21 +2,21 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) -* +* * .. Scalar Arguments .. * INTEGER IDIST * .. * .. Array Arguments .. * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -53,10 +53,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlaror.f b/TESTING/MATGEN/zlaror.f index 2fd1e63d..6b9ed97d 100644 --- a/TESTING/MATGEN/zlaror.f +++ b/TESTING/MATGEN/zlaror.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER INIT, SIDE * INTEGER INFO, LDA, M, N @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 A( LDA, * ), X( * ) * .. -* +* * *> \par Purpose: * ============= @@ -146,10 +146,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlarot.f b/TESTING/MATGEN/zlarot.f index 0b2b9142..4d69397d 100644 --- a/TESTING/MATGEN/zlarot.f +++ b/TESTING/MATGEN/zlarot.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, * XRIGHT ) -* +* * .. Scalar Arguments .. * LOGICAL LLEFT, LRIGHT, LROWS * INTEGER LDA, NL @@ -19,7 +19,7 @@ * .. Array Arguments .. * COMPLEX*16 A( * ) * .. -* +* * *> \par Purpose: * ============= @@ -216,10 +216,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatm1.f b/TESTING/MATGEN/zlatm1.f index 409a4de5..efcdabb8 100644 --- a/TESTING/MATGEN/zlatm1.f +++ b/TESTING/MATGEN/zlatm1.f @@ -2,14 +2,14 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) -* +* * .. Scalar Arguments .. * INTEGER IDIST, INFO, IRSIGN, MODE, N * DOUBLE PRECISION COND @@ -18,7 +18,7 @@ * INTEGER ISEED( 4 ) * COMPLEX*16 D( * ) * .. -* +* * *> \par Purpose: * ============= @@ -125,10 +125,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2015 * diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f index 3719a685..8918c675 100644 --- a/TESTING/MATGEN/zlatm2.f +++ b/TESTING/MATGEN/zlatm2.f @@ -2,27 +2,27 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, * ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, J, KL, KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX*16 D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -198,10 +198,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/zlatm3.f b/TESTING/MATGEN/zlatm3.f index d7b10579..93e9b3fa 100644 --- a/TESTING/MATGEN/zlatm3.f +++ b/TESTING/MATGEN/zlatm3.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,20 +11,20 @@ * COMPLEX*16 FUNCTION ZLATM3( M, N, I, J, ISUB, JSUB, KL, KU, * IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, * SPARSE ) -* +* * .. Scalar Arguments .. -* +* * INTEGER I, IDIST, IGRADE, IPVTNG, ISUB, J, JSUB, KL, * $ KU, M, N * DOUBLE PRECISION SPARSE * .. -* +* * .. Array Arguments .. -* +* * INTEGER ISEED( 4 ), IWORK( * ) * COMPLEX*16 D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -215,10 +215,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/zlatm5.f b/TESTING/MATGEN/zlatm5.f index b0f1516f..2ad19b90 100644 --- a/TESTING/MATGEN/zlatm5.f +++ b/TESTING/MATGEN/zlatm5.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -11,7 +11,7 @@ * SUBROUTINE ZLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, * E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, * QBLCKB ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, * $ PRTYPE, QBLCKA, QBLCKB @@ -22,7 +22,7 @@ * $ D( LDD, * ), E( LDE, * ), F( LDF, * ), * $ L( LDL, * ), R( LDR, * ) * .. -* +* * *> \par Purpose: * ============= @@ -187,10 +187,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date June 2016 * diff --git a/TESTING/MATGEN/zlatm6.f b/TESTING/MATGEN/zlatm6.f index 8dc258ac..3736f249 100644 --- a/TESTING/MATGEN/zlatm6.f +++ b/TESTING/MATGEN/zlatm6.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, * BETA, WX, WY, S, DIF ) -* +* * .. Scalar Arguments .. * INTEGER LDA, LDX, LDY, N, TYPE * COMPLEX*16 ALPHA, BETA, WX, WY @@ -20,7 +20,7 @@ * COMPLEX*16 A( LDA, * ), B( LDA, * ), X( LDX, * ), * $ Y( LDY, * ) * .. -* +* * *> \par Purpose: * ============= @@ -161,10 +161,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatme.f b/TESTING/MATGEN/zlatme.f index eb52d141..874ba4b8 100644 --- a/TESTING/MATGEN/zlatme.f +++ b/TESTING/MATGEN/zlatme.f @@ -2,18 +2,18 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, -* RSIGN, -* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, -* A, +* RSIGN, +* UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, +* A, * LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, RSIGN, SIM, UPPER * INTEGER INFO, KL, KU, LDA, MODE, MODES, N @@ -25,7 +25,7 @@ * DOUBLE PRECISION DS( * ) * COMPLEX*16 A( LDA, * ), D( * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -285,10 +285,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * @@ -296,9 +296,9 @@ * * ===================================================================== SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, - $ RSIGN, - $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, - $ A, + $ RSIGN, + $ UPPER, SIM, DS, MODES, CONDS, KL, KU, ANORM, + $ A, $ LDA, WORK, INFO ) * * -- LAPACK computational routine (version 3.4.0) -- diff --git a/TESTING/MATGEN/zlatmr.f b/TESTING/MATGEN/zlatmr.f index ed85d360..817f14eb 100644 --- a/TESTING/MATGEN/zlatmr.f +++ b/TESTING/MATGEN/zlatmr.f @@ -2,8 +2,8 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== @@ -12,7 +12,7 @@ * RSIGN, GRADE, DL, MODEL, CONDL, DR, MODER, * CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, * PACK, A, LDA, IWORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, MODEL, MODER, N @@ -23,7 +23,7 @@ * INTEGER IPIVOT( * ), ISEED( 4 ), IWORK( * ) * COMPLEX*16 A( LDA, * ), D( * ), DL( * ), DR( * ) * .. -* +* * *> \par Purpose: * ============= @@ -475,10 +475,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatms.f b/TESTING/MATGEN/zlatms.f index 04a5386e..b49e34ac 100644 --- a/TESTING/MATGEN/zlatms.f +++ b/TESTING/MATGEN/zlatms.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER DIST, PACK, SYM * INTEGER INFO, KL, KU, LDA, M, MODE, N @@ -21,7 +21,7 @@ * DOUBLE PRECISION D( * ) * COMPLEX*16 A( LDA, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -319,10 +319,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/MATGEN/zlatmt.f b/TESTING/MATGEN/zlatmt.f index 515d86b2..63c8a07a 100644 --- a/TESTING/MATGEN/zlatmt.f +++ b/TESTING/MATGEN/zlatmt.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, * RANK, KL, KU, PACK, A, LDA, WORK, INFO ) -* +* * .. Scalar Arguments .. * DOUBLE PRECISION COND, DMAX * INTEGER INFO, KL, KU, LDA, M, MODE, N, RANK @@ -21,7 +21,7 @@ * DOUBLE PRECISION D( * ) * INTEGER ISEED( 4 ) * .. -* +* * *> \par Purpose: * ============= @@ -327,10 +327,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * diff --git a/TESTING/cbak.in b/TESTING/cbak.in index c6073bdc..ef364dc8 100644 --- a/TESTING/cbak.in +++ b/TESTING/cbak.in @@ -3,76 +3,76 @@ CBK: Tests CGEBAK 0.1000E+01 0.2000E+01 0.3000E+01 0.4000E+01 0.5000E+01 (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) 5 1 1 0.1000E+01 0.2000E+01 0.3000E+01 0.2000E+01 0.1000E+01 (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) +(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25000E+00,0.00000E+00) (-.66667E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.22222E+00,0.00000E+00) -(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) +(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (-.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.50000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.22222E+00,0.00000E+00) -(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) +(-.10000E+01,0.00000E+00) (-.50000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25000E+00,0.00000E+00) (-.66667E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.16667E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) +(-.66667E+00,0.00000E+00) (-.41667E-01,0.00000E+00) 5 1 1 0.1000E+01 0.2000E+01 0.3000E+01 0.2000E+01 0.1000E+01 (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) -(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) +(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.36000E-34,0.00000E+00) -(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) +(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.36000E-34,0.00000E+00) -(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) +(0.36000E-34,0.00000E+00) (0.36000E-34,0.00000E+00) (0.00000E+00,0.00000E+00) (-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) -(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) +(-.60000E-17,0.00000E+00) (-.60000E-17,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) 6 4 6 0.4000E+01 0.3000E+01 0.5000E+01 0.1000E+03 0.1000E+00 0.1000E+01 @@ -107,26 +107,26 @@ CBK: Tests CGEBAK 0.1000E+03 0.1000E+00 0.1000E-01 0.1000E+01 0.1000E+02 (0.13663E-03,0.00000E+00) (-.68290E-04,0.00000E+00) (0.12516E-03,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.19503E-14,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.19503E-14,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (-.27756E-16,0.00000E+00) -(0.36012E-05,0.00000E+00) (-.60728E-17,0.00000E+00) +(0.36012E-05,0.00000E+00) (-.60728E-17,0.00000E+00) (0.27355E+00,0.00000E+00) (-.13627E+00,0.00000E+00) (0.25030E+00,0.00000E+00) -(-.33221E-05,0.00000E+00) (-.20000E-02,0.00000E+00) +(-.33221E-05,0.00000E+00) (-.20000E-02,0.00000E+00) (0.69088E-02,0.00000E+00) (-.34434E-02,0.00000E+00) (0.61959E-02,0.00000E+00) -(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.38988E+00,0.00000E+00) (-.20327E+00,0.00000E+00) (-.34200E+00,0.00000E+00) -(-.10000E-02,0.00000E+00) (0.60004E-14,0.00000E+00) +(-.10000E-02,0.00000E+00) (0.60004E-14,0.00000E+00) (0.13663E-01,0.00000E+00) (-.68290E-02,0.00000E+00) (0.12516E-01,0.00000E+00) -(0.10000E+03,0.00000E+00) (0.19503E-12,0.00000E+00) +(0.10000E+03,0.00000E+00) (0.19503E-12,0.00000E+00) (0.10000E+00,0.00000E+00) (0.10000E+00,0.00000E+00) (-.27756E-17,0.00000E+00) -(0.36012E-06,0.00000E+00) (-.60728E-18,0.00000E+00) +(0.36012E-06,0.00000E+00) (-.60728E-18,0.00000E+00) (0.27355E-02,0.00000E+00) (-.13627E-02,0.00000E+00) (0.25030E-02,0.00000E+00) -(-.33221E-07,0.00000E+00) (-.20000E-04,0.00000E+00) +(-.33221E-07,0.00000E+00) (-.20000E-04,0.00000E+00) (0.69088E-02,0.00000E+00) (-.34434E-02,0.00000E+00) (0.61959E-02,0.00000E+00) -(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.16661E-01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.38988E+01,0.00000E+00) (-.20327E+01,0.00000E+00) (-.34200E+01,0.00000E+00) -(-.10000E-01,0.00000E+00) (0.60004E-13,0.00000E+00) +(-.10000E-01,0.00000E+00) (0.60004E-13,0.00000E+00) 6 2 5 0.3000E+01 0.1000E+01 0.1000E+01 0.1000E+01 0.1000E+01 0.4000E+01 @@ -163,19 +163,19 @@ CBK: Tests CGEBAK (0.10000E+01,0.00000E+00) (-.11048E-01,0.00000E+00) (0.37942E-01,0.00000E+00) (-.93781E-01,0.00000E+00) (-.34815E-01,0.00000E+00) (0.44651E+00,0.00000E+00) -(-.36016E-01,0.00000E+00) +(-.36016E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.45564E+00,0.00000E+00) (-.45447E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.46394E+00,0.00000E+00) (-.65116E+00,0.00000E+00) -(0.47808E+00,0.00000E+00) +(0.47808E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.27336E+00,0.00000E+00) (-.79459E+00,0.00000E+00) (0.63028E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.62791E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.69389E-17,0.00000E+00) (0.42585E-01,0.00000E+00) (-.64954E+00,0.00000E+00) (-.55814E+00,0.00000E+00) -(-.64516E+00,0.00000E+00) +(-.64516E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.39041E+00,0.00000E+00) (-.40294E+00,0.00000E+00) (-.16849E+00,0.00000E+00) (-.94294E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(-.93714E+00,0.00000E+00) +(-.93714E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25581E+00,0.00000E+00) (0.33085E-03,0.00000E+00) @@ -185,24 +185,24 @@ CBK: Tests CGEBAK (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.25581E+00,0.00000E+00) -(0.33085E-03,0.00000E+00) +(0.33085E-03,0.00000E+00) (0.00000E+00,0.00000E+00) (-.45564E-03,0.00000E+00) (-.45447E-03,0.00000E+00) (0.10000E-02,0.00000E+00) (0.46394E-03,0.00000E+00) (-.65116E-03,0.00000E+00) -(0.47808E-03,0.00000E+00) +(0.47808E-03,0.00000E+00) (0.10000E+01,0.00000E+00) (-.11048E-01,0.00000E+00) (0.37942E-01,0.00000E+00) (-.93781E-01,0.00000E+00) (-.34815E-01,0.00000E+00) (0.44651E+00,0.00000E+00) -(-.36016E-01,0.00000E+00) +(-.36016E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+02,0.00000E+00) (-.69389E-16,0.00000E+00) (0.42585E+00,0.00000E+00) (-.64954E+01,0.00000E+00) (-.55814E+01,0.00000E+00) -(-.64516E+01,0.00000E+00) +(-.64516E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.39041E-01,0.00000E+00) (-.40294E-01,0.00000E+00) (-.16849E-01,0.00000E+00) (-.94294E-01,0.00000E+00) (0.10000E+00,0.00000E+00) -(-.93714E-01,0.00000E+00) +(-.93714E-01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(-.19851E-02,0.00000E+00) +(-.19851E-02,0.00000E+00) (0.00000E+00,0.00000E+00) (-.27336E-02,0.00000E+00) (-.79459E-02,0.00000E+00) (0.63028E-02,0.00000E+00) (0.10000E-01,0.00000E+00) (-.62791E-02,0.00000E+00) -(0.10000E-01,0.00000E+00) +(0.10000E-01,0.00000E+00) -0 0 0 +0 0 0 diff --git a/TESTING/cbal.in b/TESTING/cbal.in index 29b1459c..909531c3 100644 --- a/TESTING/cbal.in +++ b/TESTING/cbal.in @@ -1,92 +1,92 @@ CBL: Tests CGEBAL 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) +(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) 1 1 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) +(0.00000E+00,0.00000E+00) (0.50000E+01,0.50000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.40000E+01 0.50000E+01 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.40000E+01,0.40000E+01) (0.00000E+00,0.00000E+00) +(0.40000E+01,0.40000E+01) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.20000E+01,0.20000E+01) (0.30000E+01,0.30000E+01) -(0.40000E+01,0.40000E+01) (0.50000E+01,0.50000E+01) +(0.40000E+01,0.40000E+01) (0.50000E+01,0.50000E+01) 1 1 (0.50000E+01,0.50000E+01) (0.40000E+01,0.40000E+01) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.40000E+01,0.40000E+01) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E+01,0.30000E+01) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) +(0.20000E+01,0.20000E+01) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.20000E+01 0.10000E+01 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.10000E+01) 1 1 (0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) -(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.10000E+01) (0.10000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) +(0.00000E+00,0.00000E+00) (0.10000E+01,0.10000E+01) 0.10000E+01 0.20000E+01 0.30000E+01 0.20000E+01 0.10000E+01 4 (0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.10000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.10000E+00,0.00000E+00) +(0.10000E+00,0.00000E+00) (0.10000E+03,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.20000E+01,0.00000E+00) +(0.20000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+03,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) - +(0.00000E+00,0.00000E+00) + 1 4 (0.0000E+00,0.00000E+00) (0.2000E+01,0.00000E+00) (0.3200E+01,0.00000E+00) (0.000E+00,0.00000E+00) @@ -131,25 +131,25 @@ CBL: Tests CGEBAL 5 (0.10000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.81920E+04,0.00000E+00) -(0.20000E+01,0.00000E+00) (0.40000E+01,0.00000E+00) +(0.20000E+01,0.00000E+00) (0.40000E+01,0.00000E+00) (0.25000E-03,0.00000E+00) (0.12500E-03,0.00000E+00) (0.40000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.64000E+02,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.64000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.00000E+00) (0.10240E+04,0.10240E+01) -(0.40000E+01,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.40000E+01,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.81920E+04) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) 1 5 - ( 1.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) + ( 1.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 1.0240e+003,0.00000E+00) - ( 16.0000e+000,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( 16.0000e+000,0.00000E+00) ( 16.0000e+000,0.00000E+00) (256.0000e-003,0.00000E+00) ( 1.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 2.0480e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) (250.0000e-003,0.00000E+00) ( 16.0000e+000,16.0000e-003) - ( 4.0000e+000,0.00000E+00) ( 4.0000e+000,0.00000E+00) + ( 4.0000e+000,0.00000E+00) ( 4.0000e+000,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003, 2.0480e+003) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 8.0000e+000,0.00000E+00) @@ -157,61 +157,61 @@ CBL: Tests CGEBAL 4 (0.10000E+01,0.10000E+01) (0.10000E+07,0.00000E+00) (0.10000E+07,0.00000E+00) -(0.10000E+07,0.00000E+00) +(0.10000E+07,0.00000E+00) (-.20000E+07,0.00000E+00) (0.30000E+01,0.10000E+01) (0.20000E-05,0.00000E+00) -(0.30000E-05,0.00000E+00) +(0.30000E-05,0.00000E+00) (-.30000E+07,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E-05,0.10000E+01) (0.20000E+01,0.00000E+00) (0.10000E+07,0.00000E+00) (0.00000E+00,0.00000E+00) (0.30000E-05,0.00000E+00) -(0.40000E+07,0.10000E+01) +(0.40000E+07,0.10000E+01) 1 4 - ( 1.0000e+000, 1.0000e+000) ( 1.0000e+006,0.00000E+00) ( 2.0000e+006,0.00000E+00) ( 1.0000e+006,0.00000E+00) (250.0000e-003,0.00000E+00) - ( -2.0000e+006,0.00000E+00) ( 3.0000e+000, 1.0000e+000) ( 4.0000e-006,0.00000E+00) ( 3.0000e-006,0.00000E+00) ( 16.0000e+000,0.00000E+00) - ( -1.5000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 1.0000e-006, 1.0000e+000) ( 1.0000e+000,0.00000E+00) ( 2.0480e+003,0.00000E+00) - ( 1.0000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 6.0000e-006,0.00000E+00) ( 4.0000e+006, 1.0000e+000) ( 4.0000e+000,0.00000E+00) + ( 1.0000e+000, 1.0000e+000) ( 1.0000e+006,0.00000E+00) ( 2.0000e+006,0.00000E+00) ( 1.0000e+006,0.00000E+00) (250.0000e-003,0.00000E+00) + ( -2.0000e+006,0.00000E+00) ( 3.0000e+000, 1.0000e+000) ( 4.0000e-006,0.00000E+00) ( 3.0000e-006,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( -1.5000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 1.0000e-006, 1.0000e+000) ( 1.0000e+000,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 1.0000e+006,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 6.0000e-006,0.00000E+00) ( 4.0000e+006, 1.0000e+000) ( 4.0000e+000,0.00000E+00) 1.0000e+000 1.0000e+000 2.0000e+000 1.0000e+000 4 (0.10000E+01,0.00000E+00) (0.00000E+00,0.10000E+05) (0.00000E+00,0.10000E+05) -(0.00000E+00,0.10000E+05) +(0.00000E+00,0.10000E+05) (-.20000E+05,0.00000E+00) (0.30000E+01,0.00000E+00) (0.20000E-02,0.00000E+00) -(0.30000E-02,0.00000E+00) +(0.30000E-02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E+01,0.10000E+01) (0.00000E+00,0.00000E+00) -(-.30000E+05,0.00000E+00) +(-.30000E+05,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+05,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) 1 4 - ( 1.0000e+000,0.00000E+00) ( 0.0000e-003,10.0000e+003) (0.0000e-003,10.0000e+003) (0.0000e-003,5.0000e+003) (250.0000e-003,0.00000E+00) - (-20.0000e+003,0.00000E+00) ( 3.0000e+000,0.00000E+00) ( 2.0000e-003,0.00000E+00) ( 1.5000e-003,0.00000E+00) ( 16.0000e+000,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) (-15.0000e+003,0.00000E+00) ( 2.0480e+003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 20.0000e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) + ( 1.0000e+000,0.00000E+00) ( 0.0000e-003,10.0000e+003) (0.0000e-003,10.0000e+003) (0.0000e-003,5.0000e+003) (250.0000e-003,0.00000E+00) + (-20.0000e+003,0.00000E+00) ( 3.0000e+000,0.00000E+00) ( 2.0000e-003,0.00000E+00) ( 1.5000e-003,0.00000E+00) ( 16.0000e+000,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 2.0000e+000, 1.0000e+000) ( 0.0000e-003,0.00000E+00) (-15.0000e+003,0.00000E+00) ( 2.0480e+003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 20.0000e+003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 4.0000e+000,0.00000E+00) 1.0000e+000 1.0000e+000 1.0000e+000 500.0000e-003 5 (0.10000E+01,0.00000E+00) (0.51200E+03,0.00000E+00) (0.40960E+04,0.00000E+00) -(0.32768E+05,0.00000E+00) (2.62144E+05,0.00000E+00) +(0.32768E+05,0.00000E+00) (2.62144E+05,0.00000E+00) (0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.80000E+01) -(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) +(0.80000E+01,0.80000E+01) (0.00000E+00,0.00000E+00) 1 5 - ( 1.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) -( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) - ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) -( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) - ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 1.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) +( 64.0000e+000,0.00000E+00) ( 64.0000e+000,0.00000E+00) + ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) +( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) + ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 0.0000e-003,0.00000E+00) ( 64.0000e+000,64.0000e+000) ( 0.0000e-003,0.00000E+00) 128.0000e+000 16.0000e+000 2.0000e+000 250.0000e-003 31.2500e-003 @@ -249,25 +249,25 @@ CBL: Tests CGEBAL 7 (0.60000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.40000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.25000E-03,0.00000E+00) (0.12500E-01,0.00000E+00) (0.20000E-01,0.00000E+00) -(0.12500E+00,0.00000E+00) +(0.12500E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (0.12800E+03,0.00000E+00) (0.64000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (-.20000E+01,0.00000E+00) -(0.16000E+02,0.00000E+00) +(0.16000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.16384E+05,0.00000E+00) (0.00000E+00,0.00000E+00) (0.10000E+01,0.00000E+00) (-.40000E+03,0.00000E+00) (0.25600E+03,0.00000E+00) -(-.40000E+04,0.00000E+00) +(-.40000E+04,0.00000E+00) (-.20000E+01,0.00000E+00) (-.25600E+03,0.00000E+00) (0.00000E+00,0.00000E+00) (0.12500E-01,0.00000E+00) (0.20000E+01,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.32000E+02,0.00000E+00) +(0.32000E+02,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) -(0.00000E+00,0.00000E+00) +(0.00000E+00,0.00000E+00) (0.00000E+00,0.00000E+00) (0.80000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.40000E-02,0.00000E+00) (0.12500E+00,0.00000E+00) (-.20000E+00,0.00000E+00) -(0.30000E+01,0.00000E+00) +(0.30000E+01,0.00000E+00) 2 5 (6.4000E+01,0.00000E+00) (2.5000E-01,0.00000E+00) (5.00000E-01,0.00000E+00) @@ -296,40 +296,40 @@ CBL: Tests CGEBAL 5 (0.10000E+04,0.00000E+00) (0.20000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) -(0.40000E+01,0.00000E+00) (0.50000E+06,0.00000E+00) +(0.40000E+01,0.00000E+00) (0.50000E+06,0.00000E+00) (0.90000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (0.20000E-03,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.30000E+01,0.00000E+00) (0.00000E+00,0.00000E+00) (-.30000E+03,0.00000E+00) (0.20000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) +(0.10000E+01,0.00000E+00) (0.10000E+01,0.00000E+00) (0.90000E+01,0.00000E+00) (0.20000E-02,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.10000E+01,0.00000E+00) (-.10000E+04,0.00000E+00) +(0.10000E+01,0.00000E+00) (-.10000E+04,0.00000E+00) (0.60000E+01,0.00000E+00) (0.20000E+03,0.00000E+00) (0.10000E+01,0.00000E+00) -(0.60000E+03,0.00000E+00) (0.30000E+01,0.00000E+00) +(0.60000E+03,0.00000E+00) (0.30000E+01,0.00000E+00) 1 5 - (1.0000E+03,0.00000E+00) (3.1250E-02,0.00000E+00) (3.7500E-01,0.00000E+00) + (1.0000E+03,0.00000E+00) (3.1250E-02,0.00000E+00) (3.7500E-01,0.00000E+00) (6.2500E-02,0.00000E+00) (3.90625E+03,0.00000E+00) - (5.7600E+02,0.00000E+00) (0.0000E+00,0.00000E+00) (1.6000E-03,0.00000E+00) + (5.7600E+02,0.00000E+00) (0.0000E+00,0.00000E+00) (1.6000E-03,0.00000E+00) (1.0000E+00,0.00000E+00) (1.5000E+00,0.00000E+00) - (0.0000E+00,0.00000E+00) (-3.7500E+01,0.00000E+00) (2.0000E+00,0.00000E+00) + (0.0000E+00,0.00000E+00) (-3.7500E+01,0.00000E+00) (2.0000E+00,0.00000E+00) (1.2500E-01,0.00000E+00) (6.2500E-02,0.00000E+00) - (5.7600E+02,0.00000E+00) (2.0000E-03,0.00000E+00) (8.0000E+00,0.00000E+00) + (5.7600E+02,0.00000E+00) (2.0000E-03,0.00000E+00) (8.0000E+00,0.00000E+00) (1.0000E+00,0.00000E+00) (-5.0000E+02,0.00000E+00) - (7.6800E+02,0.00000E+00) (4.0000E+02,0.00000E+00) (1.6000E+01,0.00000E+00) + (7.6800E+02,0.00000E+00) (4.0000E+02,0.00000E+00) (1.6000E+01,0.00000E+00) (1.2000E+03,0.00000E+00) (3.0000E+00,0.00000E+00) 1.2800E+02 2.0000E+00 1.6000E+01 2.0000E+00 1.0000E+00 5 -(1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) +(1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) -(1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) +(1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) -(0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) +(0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) (0.0000E+00,0.0000E+00) -(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) +(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) (1.0000E+15,0.0000E+00) -(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) +(0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (0.0000E+00,0.0000E+00) (1.0000E-15,0.0000E+00) (1.0000E+00,0.0000E+00) 1 5 diff --git a/TESTING/ced.in b/TESTING/ced.in index dde30fa8..ef6c9e36 100644 --- a/TESTING/ced.in +++ b/TESTING/ced.in @@ -35,489 +35,489 @@ CSX 21 Use all matrix types 1.0000E+00 1.0000E+00 5 3 0 2 3 4 -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 1.0000E+00 2.9582E-31 5 3 0 1 3 5 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 1.0000E+00 5 2 0 2 4 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 0.0000E+00) 1.0000E+00 1.0000E+00 6 3 1 3 4 6 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 1.0000E+00 2.0000E+00 6 3 0 1 3 5 -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 1.0000E+00 2.0000E+00 4 2 0 3 4 -( 9.4480E-01, 1.0000E+00) -( 6.7670E-01, 1.0000E+00) -( 6.9080E-01, 1.0000E+00) +( 9.4480E-01, 1.0000E+00) +( 6.7670E-01, 1.0000E+00) +( 6.9080E-01, 1.0000E+00) ( 5.9650E-01, 1.0000E+00) -( 5.8760E-01, 1.0000E+00) -( 8.6420E-01, 1.0000E+00) -( 6.7690E-01, 1.0000E+00) +( 5.8760E-01, 1.0000E+00) +( 8.6420E-01, 1.0000E+00) +( 6.7690E-01, 1.0000E+00) ( 7.2600E-02, 1.0000E+00) -( 7.2560E-01, 1.0000E+00) -( 1.9430E-01, 1.0000E+00) -( 9.6870E-01, 1.0000E+00) +( 7.2560E-01, 1.0000E+00) +( 1.9430E-01, 1.0000E+00) +( 9.6870E-01, 1.0000E+00) ( 2.8310E-01, 1.0000E+00) -( 2.8490E-01, 1.0000E+00) -( 5.8000E-02, 1.0000E+00) -( 4.8450E-01, 1.0000E+00) +( 2.8490E-01, 1.0000E+00) +( 5.8000E-02, 1.0000E+00) +( 4.8450E-01, 1.0000E+00) ( 7.3610E-01, 1.0000E+00) 9.6350E-01 3.3122E-01 4 2 0 2 3 -( 2.1130E-01, 9.9330E-01) -( 8.0960E-01, 4.2370E-01) -( 4.8320E-01, 1.1670E-01) +( 2.1130E-01, 9.9330E-01) +( 8.0960E-01, 4.2370E-01) +( 4.8320E-01, 1.1670E-01) ( 6.5380E-01, 4.9430E-01) -( 8.2400E-02, 8.3600E-01) -( 8.4740E-01, 2.6130E-01) -( 6.1350E-01, 6.2500E-01) +( 8.2400E-02, 8.3600E-01) +( 8.4740E-01, 2.6130E-01) +( 6.1350E-01, 6.2500E-01) ( 4.8990E-01, 3.6500E-02) -( 7.5990E-01, 7.4690E-01) -( 4.5240E-01, 2.4030E-01) -( 2.7490E-01, 5.5100E-01) +( 7.5990E-01, 7.4690E-01) +( 4.5240E-01, 2.4030E-01) +( 2.7490E-01, 5.5100E-01) ( 7.7410E-01, 2.2600E-01) -( 8.7000E-03, 3.7800E-02) -( 8.0750E-01, 3.4050E-01) -( 8.8070E-01, 3.5500E-01) +( 8.7000E-03, 3.7800E-02) +( 8.0750E-01, 3.4050E-01) +( 8.8070E-01, 3.5500E-01) ( 9.6260E-01, 8.1590E-01) 8.4053E-01 7.4754E-01 3 2 0 2 3 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) ( 2.1000E+01, 2.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) ( 1.5000E+01, 1.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) ( 2.5000E+01, 2.6000E+01) 3.9550E-01 2.0464E+01 4 2 0 1 3 -( 5.0000E+00, 9.0000E+00) -( 5.0000E+00, 5.0000E+00) -(-6.0000E+00,-6.0000E+00) +( 5.0000E+00, 9.0000E+00) +( 5.0000E+00, 5.0000E+00) +(-6.0000E+00,-6.0000E+00) (-7.0000E+00,-7.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 6.0000E+00, 1.0000E+01) -(-5.0000E+00,-5.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 6.0000E+00, 1.0000E+01) +(-5.0000E+00,-5.0000E+00) (-6.0000E+00,-6.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -(-1.0000E+00, 3.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +(-1.0000E+00, 3.0000E+00) (-5.0000E+00,-5.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 2.0000E+00, 2.0000E+00) -(-3.0000E+00,-3.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 2.0000E+00, 2.0000E+00) +(-3.0000E+00,-3.0000E+00) ( 0.0000E+00, 4.0000E+00) 3.3333E-01 1.2569E-01 4 3 0 1 3 4 -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 8.2843E-01 4 2 0 2 3 -( 7.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 2.0000E+00) (-1.0000E+00, 2.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 7.0000E+00, 0.0000E+00) -( 1.0000E+00,-2.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 1.0000E+00,-2.0000E+00) +(-1.0000E+00,-2.0000E+00) +( 1.0000E+00,-2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +(-3.0000E+00, 0.0000E+00) (-1.0000E+00,-2.0000E+00) -( 1.0000E+00,-2.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 7.0000E+00, 0.0000E+00) +(-2.0000E+00, 2.0000E+00) (-3.0000E+00, 0.0000E+00) -(-1.0000E+00,-2.0000E+00) -(-2.0000E+00, 2.0000E+00) -(-3.0000E+00, 0.0000E+00) ( 7.0000E+00, 0.0000E+00) 9.8985E-01 4.1447E+00 5 2 1 2 3 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) -( 2.1000E+01, 2.2000E+01) -( 2.3000E+01, 2.4000E+01) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) +( 2.1000E+01, 2.2000E+01) +( 2.3000E+01, 2.4000E+01) ( 4.1000E+01, 4.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) -( 1.5000E+01, 1.6000E+01) -( 3.3000E+01, 3.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) +( 1.5000E+01, 1.6000E+01) +( 3.3000E+01, 3.4000E+01) ( 3.5000E+01, 3.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) -( 2.5000E+01, 2.6000E+01) -( 2.7000E+01, 2.8000E+01) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) +( 2.5000E+01, 2.6000E+01) +( 2.7000E+01, 2.8000E+01) ( 4.5000E+01, 4.6000E+01) -( 4.7000E+01, 4.8000E+01) -( 1.7000E+01, 1.8000E+01) -( 1.9000E+01, 2.0000E+01) -( 3.7000E+01, 3.8000E+01) +( 4.7000E+01, 4.8000E+01) +( 1.7000E+01, 1.8000E+01) +( 1.9000E+01, 2.0000E+01) +( 3.7000E+01, 3.8000E+01) ( 3.9000E+01, 4.0000E+01) -( 9.0000E+00, 1.0000E+01) -( 1.1000E+01, 1.2000E+01) -( 2.9000E+01, 3.0000E+01) -( 3.1000E+01, 3.2000E+01) +( 9.0000E+00, 1.0000E+01) +( 1.1000E+01, 1.2000E+01) +( 2.9000E+01, 3.0000E+01) +( 3.1000E+01, 3.2000E+01) ( 4.9000E+01, 5.0000E+01) 3.1088E-01 4.6912E+00 3 2 0 1 2 -( 1.0000E+00, 1.0000E+00) -(-1.0000E+00,-1.0000E+00) +( 1.0000E+00, 1.0000E+00) +(-1.0000E+00,-1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -(-1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +(-1.0000E+00, 0.0000E+00) ( 3.0000E+00, 1.0000E+00) 2.2361E-01 1.0000E+00 4 2 1 1 3 -(-4.0000E+00,-2.0000E+00) -(-5.0000E+00,-6.0000E+00) -(-2.0000E+00,-6.0000E+00) +(-4.0000E+00,-2.0000E+00) +(-5.0000E+00,-6.0000E+00) +(-2.0000E+00,-6.0000E+00) ( 0.0000E+00,-2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 7.2803E-05 1.1947E-04 7 4 0 1 4 6 7 -( 2.0000E+00, 4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 5.0000E+00, 5.0000E+00) -( 2.0000E+00, 6.0000E+00) +( 2.0000E+00, 4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 5.0000E+00, 5.0000E+00) +( 2.0000E+00, 6.0000E+00) ( 1.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 1.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 5.0000E+00,-4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 7.0000E+00, 2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 1.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 5.0000E+00,-4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 7.0000E+00, 2.0000E+00) ( 2.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00,-2.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 3.0000E+00) -( 2.0000E+00, 1.0000E+00) -( 1.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00,-2.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 3.0000E+00) ( 2.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 2.0000E+00) +( 1.0000E+00, 4.0000E+00) +( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-1.0000E+00) +( 2.0000E+00, 2.0000E+00) ( 3.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-1.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 1.0000E+00) ( 1.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00,-1.0000E+00) -( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00,-1.0000E+00) +( 2.0000E+00, 1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-2.0000E+00) ( 1.0000E+00, 1.0000E+00) 3.7241E-01 5.2080E-01 5 3 1 1 3 5 -( 0.0000E+00, 5.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 3.0000E+00) -(-3.0000E+00, 6.0000E+00) +( 0.0000E+00, 5.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 3.0000E+00) +(-3.0000E+00, 6.0000E+00) ( 6.0000E+00, 0.0000E+00) -(-1.0000E+00, 2.0000E+00) -( 0.0000E+00, 6.0000E+00) -( 4.0000E+00, 5.0000E+00) -(-3.0000E+00,-2.0000E+00) +(-1.0000E+00, 2.0000E+00) +( 0.0000E+00, 6.0000E+00) +( 4.0000E+00, 5.0000E+00) +(-3.0000E+00,-2.0000E+00) ( 5.0000E+00, 0.0000E+00) -(-2.0000E+00, 3.0000E+00) -(-4.0000E+00, 5.0000E+00) -( 0.0000E+00, 7.0000E+00) -( 3.0000E+00, 0.0000E+00) +(-2.0000E+00, 3.0000E+00) +(-4.0000E+00, 5.0000E+00) +( 0.0000E+00, 7.0000E+00) +( 3.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 3.0000E+00, 6.0000E+00) -( 3.0000E+00,-2.0000E+00) -(-3.0000E+00, 0.0000E+00) -( 0.0000E+00,-5.0000E+00) +( 3.0000E+00, 6.0000E+00) +( 3.0000E+00,-2.0000E+00) +(-3.0000E+00, 0.0000E+00) +( 0.0000E+00,-5.0000E+00) ( 2.0000E+00, 1.0000E+00) -(-6.0000E+00, 0.0000E+00) -(-5.0000E+00, 0.0000E+00) -(-2.0000E+00, 0.0000E+00) -(-2.0000E+00, 1.0000E+00) +(-6.0000E+00, 0.0000E+00) +(-5.0000E+00, 0.0000E+00) +(-2.0000E+00, 0.0000E+00) +(-2.0000E+00, 1.0000E+00) ( 0.0000E+00, 2.0000E+00) 1.0000E+00 4.5989E+00 8 4 1 1 2 3 4 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 3.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 3.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 3.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 3.0000E+00) ( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 4.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 4.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 4.0000E+00) ( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 9.5000E-01) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 9.5000E-01) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 9.5000E-01) 9.5269E-12 2.9360E-11 3 2 0 2 3 -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00,-1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00,-1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 2.0000E+00 0 0 0 @@ -537,51 +537,51 @@ CVX 21 Use all matrix types ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.0000E+00 1.0000E+00 2 0 -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 2 0 -( 3.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 4.0000E+00 5.0000E+00 0.0000E+00 1.0000E+00 4.0000E+00 2 0 -( 3.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 0.0000E+00, 2.0000E+00) ( 3.0000E+00, 0.0000E+00) 3.0000E+00 2.0000E+00 1.0000E+00 4.0000E+00 3.0000E+00 -2.0000E+00 1.0000E+00 4.0000E+00 5 0 -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 @@ -589,30 +589,30 @@ CVX 21 Use all matrix types 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 5 0 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 @@ -620,30 +620,30 @@ CVX 21 Use all matrix types 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 5 0 -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 4.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 4.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 2.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 @@ -651,41 +651,41 @@ CVX 21 Use all matrix types 4.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 5.0000E+00 0.0000E+00 1.0000E+00 1.0000E+00 6 0 -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 @@ -694,41 +694,41 @@ CVX 21 Use all matrix types 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 6 0 -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 1.0000E+00) 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 @@ -737,148 +737,148 @@ CVX 21 Use all matrix types 0.0000E+00 1.0000E+00 2.4074E-35 0.0000E+00 0.0000E+00 1.0000E+00 1.1921E-07 0.0000E+00 4 0 -( 9.4480E-01, 1.0000E+00) -( 6.7670E-01, 1.0000E+00) -( 6.9080E-01, 1.0000E+00) +( 9.4480E-01, 1.0000E+00) +( 6.7670E-01, 1.0000E+00) +( 6.9080E-01, 1.0000E+00) ( 5.9650E-01, 1.0000E+00) -( 5.8760E-01, 1.0000E+00) -( 8.6420E-01, 1.0000E+00) -( 6.7690E-01, 1.0000E+00) +( 5.8760E-01, 1.0000E+00) +( 8.6420E-01, 1.0000E+00) +( 6.7690E-01, 1.0000E+00) ( 7.2600E-02, 1.0000E+00) -( 7.2560E-01, 1.0000E+00) -( 1.9430E-01, 1.0000E+00) -( 9.6870E-01, 1.0000E+00) +( 7.2560E-01, 1.0000E+00) +( 1.9430E-01, 1.0000E+00) +( 9.6870E-01, 1.0000E+00) ( 2.8310E-01, 1.0000E+00) -( 2.8490E-01, 1.0000E+00) -( 5.8000E-02, 1.0000E+00) -( 4.8450E-01, 1.0000E+00) +( 2.8490E-01, 1.0000E+00) +( 5.8000E-02, 1.0000E+00) +( 4.8450E-01, 1.0000E+00) ( 7.3610E-01, 1.0000E+00) 2.6014E-01 -1.7813E-01 8.5279E-01 3.2881E-01 2.8961E-01 2.0772E-01 8.4871E-01 3.2358E-01 7.3990E-01 -4.6522E-04 9.7398E-01 3.4994E-01 2.2242E+00 3.9709E+00 9.8325E-01 4.1429E+00 4 0 -( 2.1130E-01, 9.9330E-01) -( 8.0960E-01, 4.2370E-01) -( 4.8320E-01, 1.1670E-01) +( 2.1130E-01, 9.9330E-01) +( 8.0960E-01, 4.2370E-01) +( 4.8320E-01, 1.1670E-01) ( 6.5380E-01, 4.9430E-01) -( 8.2400E-02, 8.3600E-01) -( 8.4740E-01, 2.6130E-01) -( 6.1350E-01, 6.2500E-01) +( 8.2400E-02, 8.3600E-01) +( 8.4740E-01, 2.6130E-01) +( 6.1350E-01, 6.2500E-01) ( 4.8990E-01, 3.6500E-02) -( 7.5990E-01, 7.4690E-01) -( 4.5240E-01, 2.4030E-01) -( 2.7490E-01, 5.5100E-01) +( 7.5990E-01, 7.4690E-01) +( 4.5240E-01, 2.4030E-01) +( 2.7490E-01, 5.5100E-01) ( 7.7410E-01, 2.2600E-01) -( 8.7000E-03, 3.7800E-02) -( 8.0750E-01, 3.4050E-01) -( 8.8070E-01, 3.5500E-01) +( 8.7000E-03, 3.7800E-02) +( 8.0750E-01, 3.4050E-01) +( 8.8070E-01, 3.5500E-01) ( 9.6260E-01, 8.1590E-01) -6.2157E-01 6.0607E-01 8.7533E-01 8.1980E-01 2.8890E-01 -2.6354E-01 8.2538E-01 8.1086E-01 3.8017E-01 5.4217E-01 7.4771E-01 7.0323E-01 2.2487E+00 1.7368E+00 9.2372E-01 2.2178E+00 3 0 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) ( 2.1000E+01, 2.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) ( 1.5000E+01, 1.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) ( 2.5000E+01, 2.6000E+01) -7.4775E+00 6.8803E+00 3.9550E-01 1.6583E+01 6.7009E+00 -7.8760E+00 3.9828E-01 1.6312E+01 3.9777E+01 4.2996E+01 7.9686E-01 3.7399E+01 4 0 -( 5.0000E+00, 9.0000E+00) -( 5.0000E+00, 5.0000E+00) -(-6.0000E+00,-6.0000E+00) +( 5.0000E+00, 9.0000E+00) +( 5.0000E+00, 5.0000E+00) +(-6.0000E+00,-6.0000E+00) (-7.0000E+00,-7.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 6.0000E+00, 1.0000E+01) -(-5.0000E+00,-5.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 6.0000E+00, 1.0000E+01) +(-5.0000E+00,-5.0000E+00) (-6.0000E+00,-6.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -(-1.0000E+00, 3.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +(-1.0000E+00, 3.0000E+00) (-5.0000E+00,-5.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 2.0000E+00, 2.0000E+00) -(-3.0000E+00,-3.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 2.0000E+00, 2.0000E+00) +(-3.0000E+00,-3.0000E+00) ( 0.0000E+00, 4.0000E+00) 1.0000E+00 5.0000E+00 2.1822E-01 7.4651E-01 2.0000E+00 6.0000E+00 2.1822E-01 3.0893E-01 3.0000E+00 7.0000E+00 2.1822E-01 1.8315E-01 4.0000E+00 8.0000E+00 2.1822E-01 6.6350E-01 4 0 -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 2.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00,-2.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 2.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -( 0.0000E+00,-2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) ( 1.0000E+00, 0.0000E+00) -8.2843E-01 1.6979E-07 1.0000E+00 8.2843E-01 4.1744E-07 7.1526E-08 1.0000E+00 8.2843E-01 4.0000E+00 1.6690E-07 1.0000E+00 8.2843E-01 4.8284E+00 6.8633E-08 1.0000E+00 8.2843E-01 4 0 -( 7.0000E+00, 0.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 1.0000E+00, 2.0000E+00) (-1.0000E+00, 2.0000E+00) -( 3.0000E+00, 0.0000E+00) -( 7.0000E+00, 0.0000E+00) -( 1.0000E+00,-2.0000E+00) +( 3.0000E+00, 0.0000E+00) +( 7.0000E+00, 0.0000E+00) +( 1.0000E+00,-2.0000E+00) +(-1.0000E+00,-2.0000E+00) +( 1.0000E+00,-2.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 7.0000E+00, 0.0000E+00) +(-3.0000E+00, 0.0000E+00) (-1.0000E+00,-2.0000E+00) -( 1.0000E+00,-2.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 7.0000E+00, 0.0000E+00) +(-2.0000E+00, 2.0000E+00) (-3.0000E+00, 0.0000E+00) -(-1.0000E+00,-2.0000E+00) -(-2.0000E+00, 2.0000E+00) -(-3.0000E+00, 0.0000E+00) ( 7.0000E+00, 0.0000E+00) -8.0767E-03 -2.5211E-01 9.9864E-01 7.7961E+00 7.7723E+00 2.4349E-01 7.0272E-01 3.3337E-01 8.0000E+00 -3.4273E-07 7.0711E-01 3.3337E-01 1.2236E+01 8.6188E-03 9.9021E-01 3.9429E+00 5 0 -( 1.0000E+00, 2.0000E+00) -( 3.0000E+00, 4.0000E+00) -( 2.1000E+01, 2.2000E+01) -( 2.3000E+01, 2.4000E+01) +( 1.0000E+00, 2.0000E+00) +( 3.0000E+00, 4.0000E+00) +( 2.1000E+01, 2.2000E+01) +( 2.3000E+01, 2.4000E+01) ( 4.1000E+01, 4.2000E+01) -( 4.3000E+01, 4.4000E+01) -( 1.3000E+01, 1.4000E+01) -( 1.5000E+01, 1.6000E+01) -( 3.3000E+01, 3.4000E+01) +( 4.3000E+01, 4.4000E+01) +( 1.3000E+01, 1.4000E+01) +( 1.5000E+01, 1.6000E+01) +( 3.3000E+01, 3.4000E+01) ( 3.5000E+01, 3.6000E+01) -( 5.0000E+00, 6.0000E+00) -( 7.0000E+00, 8.0000E+00) -( 2.5000E+01, 2.6000E+01) -( 2.7000E+01, 2.8000E+01) +( 5.0000E+00, 6.0000E+00) +( 7.0000E+00, 8.0000E+00) +( 2.5000E+01, 2.6000E+01) +( 2.7000E+01, 2.8000E+01) ( 4.5000E+01, 4.6000E+01) -( 4.7000E+01, 4.8000E+01) -( 1.7000E+01, 1.8000E+01) -( 1.9000E+01, 2.0000E+01) -( 3.7000E+01, 3.8000E+01) +( 4.7000E+01, 4.8000E+01) +( 1.7000E+01, 1.8000E+01) +( 1.9000E+01, 2.0000E+01) +( 3.7000E+01, 3.8000E+01) ( 3.9000E+01, 4.0000E+01) -( 9.0000E+00, 1.0000E+01) -( 1.1000E+01, 1.2000E+01) -( 2.9000E+01, 3.0000E+01) -( 3.1000E+01, 3.2000E+01) +( 9.0000E+00, 1.0000E+01) +( 1.1000E+01, 1.2000E+01) +( 2.9000E+01, 3.0000E+01) +( 3.1000E+01, 3.2000E+01) ( 4.9000E+01, 5.0000E+01) -9.4600E+00 7.2802E+00 3.1053E-01 1.1937E+01 -7.7912E-06 -1.2743E-05 2.9408E-01 1.6030E-05 @@ -886,88 +886,88 @@ CVX 21 Use all matrix types 7.0733E+00 -9.5584E+00 3.0911E-01 1.1891E+01 1.2739E+02 1.3228E+02 9.2770E-01 1.2111E+02 3 0 -( 1.0000E+00, 1.0000E+00) -(-1.0000E+00,-1.0000E+00) +( 1.0000E+00, 1.0000E+00) +(-1.0000E+00,-1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -(-1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +(-1.0000E+00, 0.0000E+00) ( 3.0000E+00, 1.0000E+00) 1.0000E+00 1.0000E+00 3.0151E-01 0.0000E+00 1.0000E+00 1.0000E+00 3.1623E-01 0.0000E+00 2.0000E+00 1.0000E+00 2.2361E-01 1.0000E+00 4 1 -(-4.0000E+00,-2.0000E+00) -(-5.0000E+00,-6.0000E+00) -(-2.0000E+00,-6.0000E+00) +(-4.0000E+00,-2.0000E+00) +(-5.0000E+00,-6.0000E+00) +(-2.0000E+00,-6.0000E+00) ( 0.0000E+00,-2.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -9.9883E-01 -1.0006E+00 1.3180E-04 2.4106E-04 -1.0012E+00 -9.9945E-01 1.3140E-04 2.4041E-04 -9.9947E-01 -6.8325E-04 1.3989E-04 8.7487E-05 -1.0005E+00 6.8556E-04 1.4010E-04 8.7750E-05 7 0 -( 2.0000E+00, 4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 2.0000E+00) -( 3.0000E+00, 3.0000E+00) -( 5.0000E+00, 5.0000E+00) -( 2.0000E+00, 6.0000E+00) +( 2.0000E+00, 4.0000E+00) ( 1.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 1.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 5.0000E+00,-4.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 7.0000E+00, 2.0000E+00) +( 6.0000E+00, 2.0000E+00) +( 3.0000E+00, 3.0000E+00) +( 5.0000E+00, 5.0000E+00) +( 2.0000E+00, 6.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 1.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 5.0000E+00,-4.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 7.0000E+00, 2.0000E+00) ( 2.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 3.0000E+00,-2.0000E+00) -( 1.0000E+00, 1.0000E+00) -( 6.0000E+00, 3.0000E+00) -( 2.0000E+00, 1.0000E+00) -( 1.0000E+00, 4.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 3.0000E+00,-2.0000E+00) +( 1.0000E+00, 1.0000E+00) +( 6.0000E+00, 3.0000E+00) +( 2.0000E+00, 1.0000E+00) +( 1.0000E+00, 4.0000E+00) ( 2.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00, 3.0000E+00) -( 3.0000E+00, 1.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00, 3.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 2.0000E+00) +( 3.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-1.0000E+00) +( 2.0000E+00, 2.0000E+00) ( 3.0000E+00, 1.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-1.0000E+00) -( 2.0000E+00, 2.0000E+00) -( 3.0000E+00, 1.0000E+00) ( 1.0000E+00, 3.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 1.0000E+00,-1.0000E+00) -( 2.0000E+00, 1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 1.0000E+00,-1.0000E+00) +( 2.0000E+00, 1.0000E+00) ( 2.0000E+00, 2.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 2.0000E+00,-2.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 2.0000E+00,-2.0000E+00) ( 1.0000E+00, 1.0000E+00) -2.7081E+00 -2.8029E+00 6.9734E-01 3.9279E+00 -1.1478E+00 8.0176E-01 6.5772E-01 9.4243E-01 @@ -977,30 +977,30 @@ CVX 21 Use all matrix types 5.3138E+00 1.2242E+00 3.0213E-01 7.1268E-01 8.2674E+00 3.7047E+00 2.8270E-01 3.2849E+00 5 1 -( 0.0000E+00, 5.0000E+00) -( 1.0000E+00, 2.0000E+00) -( 2.0000E+00, 3.0000E+00) -(-3.0000E+00, 6.0000E+00) +( 0.0000E+00, 5.0000E+00) +( 1.0000E+00, 2.0000E+00) +( 2.0000E+00, 3.0000E+00) +(-3.0000E+00, 6.0000E+00) ( 6.0000E+00, 0.0000E+00) -(-1.0000E+00, 2.0000E+00) -( 0.0000E+00, 6.0000E+00) -( 4.0000E+00, 5.0000E+00) -(-3.0000E+00,-2.0000E+00) +(-1.0000E+00, 2.0000E+00) +( 0.0000E+00, 6.0000E+00) +( 4.0000E+00, 5.0000E+00) +(-3.0000E+00,-2.0000E+00) ( 5.0000E+00, 0.0000E+00) -(-2.0000E+00, 3.0000E+00) -(-4.0000E+00, 5.0000E+00) -( 0.0000E+00, 7.0000E+00) -( 3.0000E+00, 0.0000E+00) +(-2.0000E+00, 3.0000E+00) +(-4.0000E+00, 5.0000E+00) +( 0.0000E+00, 7.0000E+00) +( 3.0000E+00, 0.0000E+00) ( 2.0000E+00, 0.0000E+00) -( 3.0000E+00, 6.0000E+00) -( 3.0000E+00,-2.0000E+00) -(-3.0000E+00, 0.0000E+00) -( 0.0000E+00,-5.0000E+00) +( 3.0000E+00, 6.0000E+00) +( 3.0000E+00,-2.0000E+00) +(-3.0000E+00, 0.0000E+00) +( 0.0000E+00,-5.0000E+00) ( 2.0000E+00, 1.0000E+00) -(-6.0000E+00, 0.0000E+00) -(-5.0000E+00, 0.0000E+00) -(-2.0000E+00, 0.0000E+00) -(-2.0000E+00, 1.0000E+00) +(-6.0000E+00, 0.0000E+00) +(-5.0000E+00, 0.0000E+00) +(-2.0000E+00, 0.0000E+00) +(-2.0000E+00, 1.0000E+00) ( 0.0000E+00, 2.0000E+00) -4.1735E-08 -1.0734E+01 1.0000E+00 7.7345E+00 -2.6397E-07 -2.9991E+00 1.0000E+00 4.5989E+00 @@ -1008,14 +1008,14 @@ CVX 21 Use all matrix types -4.4369E-07 9.3159E+00 1.0000E+00 7.7161E+00 4.0937E-09 1.7817E+01 1.0000E+00 8.5013E+00 3 0 -( 2.0000E+00, 0.0000E+00) -( 0.0000E+00,-1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00,-1.0000E+00) +( 0.0000E+00, 0.0000E+00) +( 0.0000E+00, 1.0000E+00) +( 2.0000E+00, 0.0000E+00) +( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 1.0000E+00) -( 2.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) -( 0.0000E+00, 0.0000E+00) ( 3.0000E+00, 0.0000E+00) 1.0000E+00 0.0000E+00 1.0000E+00 2.0000E+00 3.0000E+00 0.0000E+00 1.0000E+00 0.0000E+00 diff --git a/TESTING/cgbak.in b/TESTING/cgbak.in index 970fb26d..0f6a3f58 100644 --- a/TESTING/cgbak.in +++ b/TESTING/cgbak.in @@ -443,4 +443,4 @@ CGK: Tests CGGBAK (-0.5000E+01,-0.5000E+01) (-0.5000E+01,-0.5000E+01) (-0.5000E+01,-0.5000E+01) (-0.6000E+01,-0.6000E+01) (-0.6000E+01,-0.6000E+01) (-0.6000E+01,-0.6000E+01) -0 0 +0 0 diff --git a/TESTING/cgbal.in b/TESTING/cgbal.in index 6fa31550..51ce6931 100644 --- a/TESTING/cgbal.in +++ b/TESTING/cgbal.in @@ -657,4 +657,4 @@ CGL: Tests CGGBAL 0.2000E+01 0.2000E+01 0.1000E+01 0.1000E+01 0.5000E+01 0.5000E+01 -0 +0 diff --git a/TESTING/cgd.in b/TESTING/cgd.in index da7d4a42..a030a78a 100644 --- a/TESTING/cgd.in +++ b/TESTING/cgd.in @@ -1,6 +1,6 @@ CGV Data for the Complex Nonsymmetric Eigenvalue Driver 6 Number of matrix dimensions -2 6 8 10 12 20 Matrix dimensions +2 6 8 10 12 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,7 +8,7 @@ CGV Data for the Complex Nonsymmetric Eigenvalue Driver CGV 26 Test all 26 matrix types CGS Data for the Complex Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -32,11 +32,11 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 ( 2.0000E+00, 6.0000E+00) ( 2.0000E+00, 5.0000E+00) -( 3.0000E+00,-1.0000E+01) +( 3.0000E+00,-1.0000E+01) ( 4.0000E+00, 7.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 9.0000E+00, 2.0000E+00) @@ -50,7 +50,7 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 1.0000E+01,-1.6000E+01) -(-9.0000E+00, 1.0000E+00) +(-9.0000E+00, 1.0000E+00) (-1.0000E+00,-8.0000E+00) (-1.0000E+00, 1.0000E+01) ( 2.0000E+00,-6.0000E+00) @@ -67,12 +67,12 @@ CGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000E+00, 0.0000E+00) ( 8.0000E+00, 4.0000E+00) 7.6883E-02 2.1007E-01 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 ( 1.0000E+00, 8.0000E+00) ( 2.0000E+00, 4.0000E+00) ( 3.0000E+00,-1.3000E+01) -( 4.0000E+00, 4.0000E+00) +( 4.0000E+00, 4.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 7.0000E+00) ( 6.0000E+00,-2.4000E+01) @@ -112,7 +112,7 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver 4 ( 2.0000E+00, 6.0000E+00) ( 2.0000E+00, 5.0000E+00) -( 3.0000E+00,-1.0000E+01) +( 3.0000E+00,-1.0000E+01) ( 4.0000E+00, 7.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 9.0000E+00, 2.0000E+00) @@ -126,7 +126,7 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 0.0000E+00, 0.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 1.0000E+01,-1.6000E+01) -(-9.0000E+00, 1.0000E+00) +(-9.0000E+00, 1.0000E+00) (-1.0000E+00,-8.0000E+00) (-1.0000E+00, 1.0000E+01) ( 2.0000E+00,-6.0000E+00) @@ -144,11 +144,11 @@ CXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 8.0000E+00, 4.0000E+00) 5.2612E+00 8.0058E-01 1.4032E+00 4.0073E+00 condition #'s for eigenvalues 1.1787E+00 3.3139E+00 1.1835E+00 2.0777E+00 condition #'s for eigenvectors - 4 + 4 ( 1.0000E+00, 8.0000E+00) ( 2.0000E+00, 4.0000E+00) ( 3.0000E+00,-1.3000E+01) -( 4.0000E+00, 4.0000E+00) +( 4.0000E+00, 4.0000E+00) ( 0.0000E+00, 0.0000E+00) ( 5.0000E+00, 7.0000E+00) ( 6.0000E+00,-2.4000E+01) diff --git a/TESTING/dbak.in b/TESTING/dbak.in index cb69cb34..fc93a32d 100644 --- a/TESTING/dbak.in +++ b/TESTING/dbak.in @@ -127,4 +127,4 @@ DBK: Tests DGEBAK 0.0000D+00 -0.2734D-02 -0.7946D-02 0.6303D-02 0.1000D-01 -0.6279D-02 0.1000D-01 - 0 0 0 + 0 0 0 diff --git a/TESTING/dbal.in b/TESTING/dbal.in index 103d0905..94268a11 100644 --- a/TESTING/dbal.in +++ b/TESTING/dbal.in @@ -106,9 +106,9 @@ DBL: Tests DGEBAL -2.0000D+06 3.0000D+00 4.0000D-06 3.0000D-06 -1.5000D+06 0.0000D-03 1.0000D-06 1.0000D+00 1.0000D+06 0.0000D-03 6.0000D-06 4.0000D+06 - + 1.0000D+00 1.0000D+00 2.0000D+00 1.0000D+00 - + 4 0.1000D+01 0.1000D+05 0.1000D+05 0.1000D+05 -0.2000D+05 0.3000D+01 0.2000D-02 0.3000D-02 @@ -122,7 +122,7 @@ DBL: Tests DGEBAL 0.0000D-03 0.0000D-03 20.0000D+03 0.0000D-03 1.0000D+00 1.0000D+00 1.0000D+00 500.0000D-03 - + 5 0.1000D+01 0.5120D+03 0.4096D+04 3.2768D+04 2.62144D+05 0.8000D+01 0.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 diff --git a/TESTING/dgbak.in b/TESTING/dgbak.in index 633ec77a..edf304d8 100644 --- a/TESTING/dgbak.in +++ b/TESTING/dgbak.in @@ -263,4 +263,4 @@ DGK: Tests DGGBAK 0.5000D+02 0.5000D+02 0.6000D+02 0.6000D+02 -0 0 +0 0 diff --git a/TESTING/dgd.in b/TESTING/dgd.in index 42ff716a..ca24dd2a 100644 --- a/TESTING/dgd.in +++ b/TESTING/dgd.in @@ -1,6 +1,6 @@ DGS Data for the Real Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,25 +8,25 @@ DGS Data for the Real Nonsymmetric Schur Form Driver DGS 26 Test all 26 matrix types DGV Data for the Real Nonsymmetric Eigenvalue Problem Driver 6 Number of matrix dimensions -2 6 8 10 15 20 Matrix dimensions +2 6 8 10 15 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold value .TRUE. Put T to test the error exits 0 Code to interpret the seed DGV 26 Test all 26 matrix types -DGX Data for the Real Nonsymmetric Schur Form Expert Driver +DGX Data for the Real Nonsymmetric Schur Form Expert Driver 2 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -DGX Data for the Real Nonsymmetric Schur Form Expert Driver +DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 8.0000D+00 4.0000D+00 -1.3000D+01 4.0000D+00 Input matrix A 0.0000D+00 7.0000D+00 -2.4000D+01 -3.0000D+00 @@ -37,7 +37,7 @@ DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000D+00 0.0000D+00 -1.1000D+01 6.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 4.0000D+00 2.5901D-01 1.7592D+00 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 1.0000D+00 2.0000D+00 3.0000D+00 4.0000D+00 Input matrix A 0.0000D+00 5.0000D+00 6.0000D+00 7.0000D+00 @@ -49,13 +49,13 @@ DGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 9.8173D-01 6.3649D-01 Condition #'s for cluster selected from lower 2x2 0 -DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 5 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +DXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios diff --git a/TESTING/glm.in b/TESTING/glm.in index 4fddc61c..f3fd54b7 100644 --- a/TESTING/glm.in +++ b/TESTING/glm.in @@ -1,9 +1,9 @@ GLM: Data file for testing Generalized Linear Regression Model routines 6 Number of values of M, P, and N -0 5 8 15 20 40 Values of M (row dimension) -9 0 15 12 15 30 Values of P (row dimension) +0 5 8 15 20 40 Values of M (row dimension) +9 0 15 12 15 30 Values of P (row dimension) 5 5 10 25 30 40 Values of N (col dimension), M <= N <= M+P 20.0 Threshold value of test ratio T Put T to test the error exits 1 Code to interpret the seed -GLM 8 List types on next line if 0 < NTYPES < 8 +GLM 8 List types on next line if 0 < NTYPES < 8 diff --git a/TESTING/gqr.in b/TESTING/gqr.in index ccd861ca..449d4288 100644 --- a/TESTING/gqr.in +++ b/TESTING/gqr.in @@ -1,9 +1,9 @@ GQR: Data file for testing Generalized QR and RQ routines 3 Number of values of M, P and N -0 3 10 Values of M -0 5 20 Values of P +0 3 10 Values of M +0 5 20 Values of P 0 3 30 Values of N 20.0 Threshold value of test ratio T Put T to test the error exits 1 Code to interpret the seed -GQR 8 List types on next line if 0 < NTYPES < 8 +GQR 8 List types on next line if 0 < NTYPES < 8 diff --git a/TESTING/lse.in b/TESTING/lse.in index 59598545..a1b5677c 100644 --- a/TESTING/lse.in +++ b/TESTING/lse.in @@ -1,7 +1,7 @@ LSE: Data file for testing Constrained Linear Least Squares routines 6 Number of values of M, P, and N -6 0 5 8 10 30 Values of M -0 5 5 5 8 20 Values of P +6 0 5 8 10 30 Values of M +0 5 5 5 8 20 Values of P 5 5 6 8 12 40 Values of N, note P<= N <= P+M 20.0 Threshold value of test ratio T Put T to test the error exits diff --git a/TESTING/runtest.cmake b/TESTING/runtest.cmake index 2c96a2b1..30807c1a 100644 --- a/TESTING/runtest.cmake +++ b/TESTING/runtest.cmake @@ -21,7 +21,7 @@ if(DEFINED INPUT) endif() message("Running: ${TEST}") message("ARGS= ${ARGS}") -execute_process(COMMAND "${TEST}" +execute_process(COMMAND "${TEST}" ${ARGS} RESULT_VARIABLE RET) if(DEFINED OUTPUT) diff --git a/TESTING/sbak.in b/TESTING/sbak.in index 8bfeda32..0ec11c17 100644 --- a/TESTING/sbak.in +++ b/TESTING/sbak.in @@ -127,4 +127,4 @@ SBK: Tests SGEBAK 0.0000E+00 -0.2734E-02 -0.7946E-02 0.6303E-02 0.1000E-01 -0.6279E-02 0.1000E-01 - 0 0 0 + 0 0 0 diff --git a/TESTING/sbal.in b/TESTING/sbal.in index 9f7cfd5b..fac6f8ea 100644 --- a/TESTING/sbal.in +++ b/TESTING/sbal.in @@ -105,9 +105,9 @@ SBL: Tests SGEBAL -2.0000E+06 3.0000E+00 4.0000E-06 3.0000E-06 -1.5000E+06 0.0000E-03 1.0000E-06 1.0000E+00 1.0000E+06 0.0000E-03 6.0000E-06 4.0000E+06 - + 1.0000E+00 1.0000E+00 2.0000E+00 1.0000E+00 - + 4 0.1000E+01 0.1000E+05 0.1000E+05 0.1000E+05 -0.2000E+05 0.3000E+01 0.2000E-02 0.3000E-02 @@ -121,7 +121,7 @@ SBL: Tests SGEBAL 0.0000E-03 0.0000E-03 20.0000E+03 0.0000E-03 1.0000E+00 1.0000E+00 1.0000E+00 500.0000E-03 - + 5 0.1000E+01 0.5120E+03 0.4096E+04 3.2768E+04 2.62144E+05 0.8000E+01 0.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 @@ -209,5 +209,5 @@ SBL: Tests SGEBAL 5.0706024E+30 3.6028797E+16 1.2800000E+02 2.2737368E-13 2.0194839E-28 - + 0 diff --git a/TESTING/sgbak.in b/TESTING/sgbak.in index 6e6622a8..cea16b40 100644 --- a/TESTING/sgbak.in +++ b/TESTING/sgbak.in @@ -263,4 +263,4 @@ SGK: Tests SGGBAK 0.5000E+02 0.5000E+02 0.6000E+02 0.6000E+02 -0 0 +0 0 diff --git a/TESTING/sgd.in b/TESTING/sgd.in index 79a70bc0..164b3cc3 100644 --- a/TESTING/sgd.in +++ b/TESTING/sgd.in @@ -1,6 +1,6 @@ SGS Data for the Real Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,25 +8,25 @@ SGS Data for the Real Nonsymmetric Schur Form Driver SGS 26 Test all 26 matrix types SGV Data for the Real Nonsymmetric Eigenvalue Problem Driver 6 Number of matrix dimensions -2 6 8 10 15 20 Matrix dimensions +2 6 8 10 15 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold value .TRUE. Put T to test the error exits 0 Code to interpret the seed SGV 26 Test all 26 matrix types -SGX Data for the Real Nonsymmetric Schur Form Expert Driver +SGX Data for the Real Nonsymmetric Schur Form Expert Driver 2 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -SGX Data for the Real Nonsymmetric Schur Form Expert Driver +SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0 Largest matrix dimension (0 <= NSIZE <= 5) 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 8.0000E+00 4.0000E+00 -1.3000E+01 4.0000E+00 Input matrix A 0.0000E+00 7.0000E+00 -2.4000E+01 -3.0000E+00 @@ -37,7 +37,7 @@ SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000E+00 0.0000E+00 -1.1000E+01 6.0000E+00 0.0000E+00 0.0000E+00 0.0000E+00 4.0000E+00 2.5901E-01 1.7592E+00 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 1.0000E+00 2.0000E+00 3.0000E+00 4.0000E+00 Input matrix A 0.0000E+00 5.0000E+00 6.0000E+00 7.0000E+00 @@ -49,13 +49,13 @@ SGX Data for the Real Nonsymmetric Schur Form Expert Driver 0.0000E+00 0.0000E+00 0.0000E+00 1.0000E+00 9.8173E-01 6.3649E-01 Condition #'s for cluster selected from lower 2x2 0 -SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 5 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed -SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver +SXV Data for the Real Nonsymmetric Eigenvalue Expert Driver 0 Largest matrix dimension 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios diff --git a/TESTING/zbak.in b/TESTING/zbak.in index 624df47d..6a98a898 100644 --- a/TESTING/zbak.in +++ b/TESTING/zbak.in @@ -3,76 +3,76 @@ ZBK: Tests ZGEBAK 0.1000D+01 0.2000D+01 0.3000D+01 0.4000D+01 0.5000D+01 (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) 5 1 1 0.1000D+01 0.2000D+01 0.3000D+01 0.2000D+01 0.1000D+01 (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) +(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25000D+00,0.00000D+00) (-.66667D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.22222D+00,0.00000D+00) -(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) +(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (-.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.50000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.22222D+00,0.00000D+00) -(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) +(-.10000D+01,0.00000D+00) (-.50000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25000D+00,0.00000D+00) (-.66667D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.16667D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) +(-.66667D+00,0.00000D+00) (-.41667D-01,0.00000D+00) 5 1 1 0.1000D+01 0.2000D+01 0.3000D+01 0.2000D+01 0.1000D+01 (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) -(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) +(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.36000D-34,0.00000D+00) -(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) +(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.36000D-34,0.00000D+00) -(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) +(0.36000D-34,0.00000D+00) (0.36000D-34,0.00000D+00) (0.00000D+00,0.00000D+00) (-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) -(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) +(-.60000D-17,0.00000D+00) (-.60000D-17,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) 6 4 6 0.4000D+01 0.3000D+01 0.5000D+01 0.1000D+03 0.1000D+00 0.1000D+01 @@ -107,26 +107,26 @@ ZBK: Tests ZGEBAK 0.1000D+03 0.1000D+00 0.1000D-01 0.1000D+01 0.1000D+02 (0.13663D-03,0.00000D+00) (-.68290D-04,0.00000D+00) (0.12516D-03,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.19503D-14,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.19503D-14,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (-.27756D-16,0.00000D+00) -(0.36012D-05,0.00000D+00) (-.60728D-17,0.00000D+00) +(0.36012D-05,0.00000D+00) (-.60728D-17,0.00000D+00) (0.27355D+00,0.00000D+00) (-.13627D+00,0.00000D+00) (0.25030D+00,0.00000D+00) -(-.33221D-05,0.00000D+00) (-.20000D-02,0.00000D+00) +(-.33221D-05,0.00000D+00) (-.20000D-02,0.00000D+00) (0.69088D-02,0.00000D+00) (-.34434D-02,0.00000D+00) (0.61959D-02,0.00000D+00) -(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.38988D+00,0.00000D+00) (-.20327D+00,0.00000D+00) (-.34200D+00,0.00000D+00) -(-.10000D-02,0.00000D+00) (0.60004D-14,0.00000D+00) +(-.10000D-02,0.00000D+00) (0.60004D-14,0.00000D+00) (0.13663D-01,0.00000D+00) (-.68290D-02,0.00000D+00) (0.12516D-01,0.00000D+00) -(0.10000D+03,0.00000D+00) (0.19503D-12,0.00000D+00) +(0.10000D+03,0.00000D+00) (0.19503D-12,0.00000D+00) (0.10000D+00,0.00000D+00) (0.10000D+00,0.00000D+00) (-.27756D-17,0.00000D+00) -(0.36012D-06,0.00000D+00) (-.60728D-18,0.00000D+00) +(0.36012D-06,0.00000D+00) (-.60728D-18,0.00000D+00) (0.27355D-02,0.00000D+00) (-.13627D-02,0.00000D+00) (0.25030D-02,0.00000D+00) -(-.33221D-07,0.00000D+00) (-.20000D-04,0.00000D+00) +(-.33221D-07,0.00000D+00) (-.20000D-04,0.00000D+00) (0.69088D-02,0.00000D+00) (-.34434D-02,0.00000D+00) (0.61959D-02,0.00000D+00) -(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.16661D-01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.38988D+01,0.00000D+00) (-.20327D+01,0.00000D+00) (-.34200D+01,0.00000D+00) -(-.10000D-01,0.00000D+00) (0.60004D-13,0.00000D+00) +(-.10000D-01,0.00000D+00) (0.60004D-13,0.00000D+00) 6 2 5 0.3000D+01 0.1000D+01 0.1000D+01 0.1000D+01 0.1000D+01 0.4000D+01 @@ -163,19 +163,19 @@ ZBK: Tests ZGEBAK (0.10000D+01,0.00000D+00) (-.11048D-01,0.00000D+00) (0.37942D-01,0.00000D+00) (-.93781D-01,0.00000D+00) (-.34815D-01,0.00000D+00) (0.44651D+00,0.00000D+00) -(-.36016D-01,0.00000D+00) +(-.36016D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.45564D+00,0.00000D+00) (-.45447D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.46394D+00,0.00000D+00) (-.65116D+00,0.00000D+00) -(0.47808D+00,0.00000D+00) +(0.47808D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.27336D+00,0.00000D+00) (-.79459D+00,0.00000D+00) (0.63028D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.62791D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.69389D-17,0.00000D+00) (0.42585D-01,0.00000D+00) (-.64954D+00,0.00000D+00) (-.55814D+00,0.00000D+00) -(-.64516D+00,0.00000D+00) +(-.64516D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.39041D+00,0.00000D+00) (-.40294D+00,0.00000D+00) (-.16849D+00,0.00000D+00) (-.94294D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(-.93714D+00,0.00000D+00) +(-.93714D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25581D+00,0.00000D+00) (0.33085D-03,0.00000D+00) @@ -185,24 +185,24 @@ ZBK: Tests ZGEBAK (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.25581D+00,0.00000D+00) -(0.33085D-03,0.00000D+00) +(0.33085D-03,0.00000D+00) (0.00000D+00,0.00000D+00) (-.45564D-03,0.00000D+00) (-.45447D-03,0.00000D+00) (0.10000D-02,0.00000D+00) (0.46394D-03,0.00000D+00) (-.65116D-03,0.00000D+00) -(0.47808D-03,0.00000D+00) +(0.47808D-03,0.00000D+00) (0.10000D+01,0.00000D+00) (-.11048D-01,0.00000D+00) (0.37942D-01,0.00000D+00) (-.93781D-01,0.00000D+00) (-.34815D-01,0.00000D+00) (0.44651D+00,0.00000D+00) -(-.36016D-01,0.00000D+00) +(-.36016D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+02,0.00000D+00) (-.69389D-16,0.00000D+00) (0.42585D+00,0.00000D+00) (-.64954D+01,0.00000D+00) (-.55814D+01,0.00000D+00) -(-.64516D+01,0.00000D+00) +(-.64516D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.39041D-01,0.00000D+00) (-.40294D-01,0.00000D+00) (-.16849D-01,0.00000D+00) (-.94294D-01,0.00000D+00) (0.10000D+00,0.00000D+00) -(-.93714D-01,0.00000D+00) +(-.93714D-01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(-.19851D-02,0.00000D+00) +(-.19851D-02,0.00000D+00) (0.00000D+00,0.00000D+00) (-.27336D-02,0.00000D+00) (-.79459D-02,0.00000D+00) (0.63028D-02,0.00000D+00) (0.10000D-01,0.00000D+00) (-.62791D-02,0.00000D+00) -(0.10000D-01,0.00000D+00) +(0.10000D-01,0.00000D+00) -0 0 0 +0 0 0 diff --git a/TESTING/zbal.in b/TESTING/zbal.in index c742723f..1efb5f2f 100644 --- a/TESTING/zbal.in +++ b/TESTING/zbal.in @@ -1,91 +1,91 @@ ZBL: Tests ZGEBAL 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) +(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) 1 1 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) +(0.00000D+00,0.00000D+00) (0.50000D+01,0.50000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.40000D+01 0.50000D+01 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.40000D+01,0.40000D+01) (0.00000D+00,0.00000D+00) +(0.40000D+01,0.40000D+01) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.20000D+01,0.20000D+01) (0.30000D+01,0.30000D+01) -(0.40000D+01,0.40000D+01) (0.50000D+01,0.50000D+01) +(0.40000D+01,0.40000D+01) (0.50000D+01,0.50000D+01) 1 1 (0.50000D+01,0.50000D+01) (0.40000D+01,0.40000D+01) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.40000D+01,0.40000D+01) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D+01,0.30000D+01) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) +(0.20000D+01,0.20000D+01) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.20000D+01 0.10000D+01 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.10000D+01) 1 1 (0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) -(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.10000D+01) (0.10000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) +(0.00000D+00,0.00000D+00) (0.10000D+01,0.10000D+01) 0.10000D+01 0.20000D+01 0.30000D+01 0.20000D+01 0.10000D+01 4 (0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.10000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.10000D+00,0.00000D+00) +(0.10000D+00,0.00000D+00) (0.10000D+03,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.20000D+01,0.00000D+00) +(0.20000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+03,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) 1 4 (0.0000D+00,0.00000D+00) (0.2000D+01,0.00000D+00) (0.3200D+01,0.00000D+00) @@ -131,25 +131,25 @@ ZBL: Tests ZGEBAL 5 (0.10000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.81920D+04,0.00000D+00) -(0.20000D+01,0.00000D+00) (0.40000D+01,0.00000D+00) +(0.20000D+01,0.00000D+00) (0.40000D+01,0.00000D+00) (0.25000D-03,0.00000D+00) (0.12500D-03,0.00000D+00) (0.40000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.64000D+02,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.64000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.00000D+00) (0.10240D+04,0.10240D+01) -(0.40000D+01,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.40000D+01,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.81920D+04) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) 1 5 - ( 1.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) + ( 1.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 1.0240D+003,0.00000D+00) - ( 16.0000D+000,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( 16.0000D+000,0.00000D+00) ( 16.0000D+000,0.00000D+00) (256.0000D-003,0.00000D+00) ( 1.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 2.0480D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) (250.0000D-003,0.00000D+00) ( 16.0000D+000,16.0000D-003) - ( 4.0000D+000,0.00000D+00) ( 4.0000D+000,0.00000D+00) + ( 4.0000D+000,0.00000D+00) ( 4.0000D+000,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003, 2.0480D+003) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 8.0000D+000,0.00000D+00) @@ -157,62 +157,62 @@ ZBL: Tests ZGEBAL 4 (0.10000D+01,0.10000D+01) (0.10000D+07,0.00000D+00) (0.10000D+07,0.00000D+00) -(0.10000D+07,0.00000D+00) +(0.10000D+07,0.00000D+00) (-.20000D+07,0.00000D+00) (0.30000D+01,0.10000D+01) (0.20000D-05,0.00000D+00) -(0.30000D-05,0.00000D+00) +(0.30000D-05,0.00000D+00) (-.30000D+07,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D-05,0.10000D+01) (0.20000D+01,0.00000D+00) (0.10000D+07,0.00000D+00) (0.00000D+00,0.00000D+00) (0.30000D-05,0.00000D+00) -(0.40000D+07,0.10000D+01) +(0.40000D+07,0.10000D+01) 1 4 - ( 1.0000D+000, 1.0000D+000) ( 1.0000D+006,0.00000D+00) ( 2.0000D+006,0.00000D+00) ( 1.0000D+006,0.00000D+00) (250.0000D-003,0.00000D+00) - ( -2.0000D+006,0.00000D+00) ( 3.0000D+000, 1.0000D+000) ( 4.0000D-006,0.00000D+00) ( 3.0000D-006,0.00000D+00) ( 16.0000D+000,0.00000D+00) - ( -1.5000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 1.0000D-006, 1.0000D+000) ( 1.0000D+000,0.00000D+00) ( 2.0480D+003,0.00000D+00) - ( 1.0000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 6.0000D-006,0.00000D+00) ( 4.0000D+006, 1.0000D+000) ( 4.0000D+000,0.00000D+00) + ( 1.0000D+000, 1.0000D+000) ( 1.0000D+006,0.00000D+00) ( 2.0000D+006,0.00000D+00) ( 1.0000D+006,0.00000D+00) (250.0000D-003,0.00000D+00) + ( -2.0000D+006,0.00000D+00) ( 3.0000D+000, 1.0000D+000) ( 4.0000D-006,0.00000D+00) ( 3.0000D-006,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( -1.5000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 1.0000D-006, 1.0000D+000) ( 1.0000D+000,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 1.0000D+006,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 6.0000D-006,0.00000D+00) ( 4.0000D+006, 1.0000D+000) ( 4.0000D+000,0.00000D+00) 1.0000D+000 1.0000D+000 2.0000D+000 1.0000D+000 4 (0.10000D+01,0.00000D+00) (0.00000D+00,0.10000D+05) (0.00000D+00,0.10000D+05) -(0.00000D+00,0.10000D+05) +(0.00000D+00,0.10000D+05) (-.20000D+05,0.00000D+00) (0.30000D+01,0.00000D+00) (0.20000D-02,0.00000D+00) -(0.30000D-02,0.00000D+00) +(0.30000D-02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D+01,0.10000D+01) (0.00000D+00,0.00000D+00) -(-.30000D+05,0.00000D+00) +(-.30000D+05,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+05,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) 1 4 - ( 1.0000D+000,0.00000D+00) ( 0.0000D-003,10.0000D+003) (0.0000D-003,10.0000D+003) (0.0000D-003,5.0000D+003) (250.0000D-003,0.00000D+00) - (-20.0000D+003,0.00000D+00) ( 3.0000D+000,0.00000D+00) ( 2.0000D-003,0.00000D+00) ( 1.5000D-003,0.00000D+00) ( 16.0000D+000,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) (-15.0000D+003,0.00000D+00) ( 2.0480D+003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 20.0000D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) + ( 1.0000D+000,0.00000D+00) ( 0.0000D-003,10.0000D+003) (0.0000D-003,10.0000D+003) (0.0000D-003,5.0000D+003) (250.0000D-003,0.00000D+00) + (-20.0000D+003,0.00000D+00) ( 3.0000D+000,0.00000D+00) ( 2.0000D-003,0.00000D+00) ( 1.5000D-003,0.00000D+00) ( 16.0000D+000,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 2.0000D+000, 1.0000D+000) ( 0.0000D-003,0.00000D+00) (-15.0000D+003,0.00000D+00) ( 2.0480D+003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 20.0000D+003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 4.0000D+000,0.00000D+00) 1.0000D+000 1.0000D+000 1.0000D+000 500.0000D-003 5 (0.10000D+01,0.00000D+00) (0.51200D+03,0.00000D+00) (0.40960D+04,0.00000D+00) -(0.32768D+05,0.00000D+00) (2.62144D+05,0.00000D+00) +(0.32768D+05,0.00000D+00) (2.62144D+05,0.00000D+00) (0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.80000D+01) -(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) +(0.80000D+01,0.80000D+01) (0.00000D+00,0.00000D+00) 1 5 - ( 1.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) -( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) - ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) -( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) - ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 1.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) +( 64.0000D+000,0.00000D+00) ( 64.0000D+000,0.00000D+00) + ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) +( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) + ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 0.0000D-003,0.00000D+00) ( 64.0000D+000,64.0000D+000) ( 0.0000D-003,0.00000D+00) 128.0000D+000 16.0000D+000 2.0000D+000 250.0000D-003 31.2500D-003 @@ -250,25 +250,25 @@ ZBL: Tests ZGEBAL 7 (0.60000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.40000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.25000D-03,0.00000D+00) (0.12500D-01,0.00000D+00) (0.20000D-01,0.00000D+00) -(0.12500D+00,0.00000D+00) +(0.12500D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (0.12800D+03,0.00000D+00) (0.64000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (-.20000D+01,0.00000D+00) -(0.16000D+02,0.00000D+00) +(0.16000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.16384D+05,0.00000D+00) (0.00000D+00,0.00000D+00) (0.10000D+01,0.00000D+00) (-.40000D+03,0.00000D+00) (0.25600D+03,0.00000D+00) -(-.40000D+04,0.00000D+00) +(-.40000D+04,0.00000D+00) (-.20000D+01,0.00000D+00) (-.25600D+03,0.00000D+00) (0.00000D+00,0.00000D+00) (0.12500D-01,0.00000D+00) (0.20000D+01,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.32000D+02,0.00000D+00) +(0.32000D+02,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) -(0.00000D+00,0.00000D+00) +(0.00000D+00,0.00000D+00) (0.00000D+00,0.00000D+00) (0.80000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.40000D-02,0.00000D+00) (0.12500D+00,0.00000D+00) (-.20000D+00,0.00000D+00) -(0.30000D+01,0.00000D+00) +(0.30000D+01,0.00000D+00) 2 5 (6.4000D+01,0.00000D+00) (2.5000D-01,0.00000D+00) (5.00000D-01,0.00000D+00) @@ -297,26 +297,26 @@ ZBL: Tests ZGEBAL 5 (0.10000D+04,0.00000D+00) (0.20000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) -(0.40000D+01,0.00000D+00) (0.50000D+06,0.00000D+00) +(0.40000D+01,0.00000D+00) (0.50000D+06,0.00000D+00) (0.90000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (0.20000D-03,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.30000D+01,0.00000D+00) (0.00000D+00,0.00000D+00) (-.30000D+03,0.00000D+00) (0.20000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) +(0.10000D+01,0.00000D+00) (0.10000D+01,0.00000D+00) (0.90000D+01,0.00000D+00) (0.20000D-02,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.10000D+01,0.00000D+00) (-.10000D+04,0.00000D+00) +(0.10000D+01,0.00000D+00) (-.10000D+04,0.00000D+00) (0.60000D+01,0.00000D+00) (0.20000D+03,0.00000D+00) (0.10000D+01,0.00000D+00) -(0.60000D+03,0.00000D+00) (0.30000D+01,0.00000D+00) +(0.60000D+03,0.00000D+00) (0.30000D+01,0.00000D+00) 1 5 - (1.0000D+03,0.00000D+00) (3.1250D-02,0.00000D+00) (3.7500D-01,0.00000D+00) + (1.0000D+03,0.00000D+00) (3.1250D-02,0.00000D+00) (3.7500D-01,0.00000D+00) (6.2500D-02,0.00000D+00) (3.90625D+03,0.00000D+00) - (5.7600D+02,0.00000D+00) (0.0000D+00,0.00000D+00) (1.6000D-03,0.00000D+00) + (5.7600D+02,0.00000D+00) (0.0000D+00,0.00000D+00) (1.6000D-03,0.00000D+00) (1.0000D+00,0.00000D+00) (1.5000D+00,0.00000D+00) - (0.0000D+00,0.00000D+00) (-3.7500D+01,0.00000D+00) (2.0000D+00,0.00000D+00) + (0.0000D+00,0.00000D+00) (-3.7500D+01,0.00000D+00) (2.0000D+00,0.00000D+00) (1.2500D-01,0.00000D+00) (6.2500D-02,0.00000D+00) - (5.7600D+02,0.00000D+00) (2.0000D-03,0.00000D+00) (8.0000D+00,0.00000D+00) + (5.7600D+02,0.00000D+00) (2.0000D-03,0.00000D+00) (8.0000D+00,0.00000D+00) (1.0000D+00,0.00000D+00) (-5.0000D+02,0.00000D+00) - (7.6800D+02,0.00000D+00) (4.0000D+02,0.00000D+00) (1.6000D+01,0.00000D+00) + (7.6800D+02,0.00000D+00) (4.0000D+02,0.00000D+00) (1.6000D+01,0.00000D+00) (1.2000D+03,0.00000D+00) (3.0000D+00,0.00000D+00) 1.2800D+02 2.0000D+00 1.6000D+01 2.0000D+00 1.0000D+00 diff --git a/TESTING/zed.in b/TESTING/zed.in index 880ae197..538d8b0a 100644 --- a/TESTING/zed.in +++ b/TESTING/zed.in @@ -35,489 +35,489 @@ ZSX 21 Use all matrix types 1.0000D+00 1.0000D+00 5 3 0 2 3 4 -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 1.0000D+00 2.9582D-31 5 3 0 1 3 5 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 1.0000D+00 5 2 0 2 4 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 0.0000D+00) 1.0000D+00 1.0000D+00 6 3 1 3 4 6 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 1.0000D+00 2.0000D+00 6 3 0 1 3 5 -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 1.0000D+00 2.0000D+00 4 2 0 3 4 -( 9.4480D-01, 1.0000D+00) -( 6.7670D-01, 1.0000D+00) -( 6.9080D-01, 1.0000D+00) +( 9.4480D-01, 1.0000D+00) +( 6.7670D-01, 1.0000D+00) +( 6.9080D-01, 1.0000D+00) ( 5.9650D-01, 1.0000D+00) -( 5.8760D-01, 1.0000D+00) -( 8.6420D-01, 1.0000D+00) -( 6.7690D-01, 1.0000D+00) +( 5.8760D-01, 1.0000D+00) +( 8.6420D-01, 1.0000D+00) +( 6.7690D-01, 1.0000D+00) ( 7.2600D-02, 1.0000D+00) -( 7.2560D-01, 1.0000D+00) -( 1.9430D-01, 1.0000D+00) -( 9.6870D-01, 1.0000D+00) +( 7.2560D-01, 1.0000D+00) +( 1.9430D-01, 1.0000D+00) +( 9.6870D-01, 1.0000D+00) ( 2.8310D-01, 1.0000D+00) -( 2.8490D-01, 1.0000D+00) -( 5.8000D-02, 1.0000D+00) -( 4.8450D-01, 1.0000D+00) +( 2.8490D-01, 1.0000D+00) +( 5.8000D-02, 1.0000D+00) +( 4.8450D-01, 1.0000D+00) ( 7.3610D-01, 1.0000D+00) 9.6350D-01 3.3122D-01 4 2 0 2 3 -( 2.1130D-01, 9.9330D-01) -( 8.0960D-01, 4.2370D-01) -( 4.8320D-01, 1.1670D-01) +( 2.1130D-01, 9.9330D-01) +( 8.0960D-01, 4.2370D-01) +( 4.8320D-01, 1.1670D-01) ( 6.5380D-01, 4.9430D-01) -( 8.2400D-02, 8.3600D-01) -( 8.4740D-01, 2.6130D-01) -( 6.1350D-01, 6.2500D-01) +( 8.2400D-02, 8.3600D-01) +( 8.4740D-01, 2.6130D-01) +( 6.1350D-01, 6.2500D-01) ( 4.8990D-01, 3.6500D-02) -( 7.5990D-01, 7.4690D-01) -( 4.5240D-01, 2.4030D-01) -( 2.7490D-01, 5.5100D-01) +( 7.5990D-01, 7.4690D-01) +( 4.5240D-01, 2.4030D-01) +( 2.7490D-01, 5.5100D-01) ( 7.7410D-01, 2.2600D-01) -( 8.7000D-03, 3.7800D-02) -( 8.0750D-01, 3.4050D-01) -( 8.8070D-01, 3.5500D-01) +( 8.7000D-03, 3.7800D-02) +( 8.0750D-01, 3.4050D-01) +( 8.8070D-01, 3.5500D-01) ( 9.6260D-01, 8.1590D-01) 8.4053D-01 7.4754D-01 3 2 0 2 3 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) ( 2.1000D+01, 2.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) ( 1.5000D+01, 1.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) ( 2.5000D+01, 2.6000D+01) 3.9550D-01 2.0464D+01 4 2 0 1 3 -( 5.0000D+00, 9.0000D+00) -( 5.0000D+00, 5.0000D+00) -(-6.0000D+00,-6.0000D+00) +( 5.0000D+00, 9.0000D+00) +( 5.0000D+00, 5.0000D+00) +(-6.0000D+00,-6.0000D+00) (-7.0000D+00,-7.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 6.0000D+00, 1.0000D+01) -(-5.0000D+00,-5.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 6.0000D+00, 1.0000D+01) +(-5.0000D+00,-5.0000D+00) (-6.0000D+00,-6.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -(-1.0000D+00, 3.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +(-1.0000D+00, 3.0000D+00) (-5.0000D+00,-5.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 2.0000D+00, 2.0000D+00) -(-3.0000D+00,-3.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 2.0000D+00, 2.0000D+00) +(-3.0000D+00,-3.0000D+00) ( 0.0000D+00, 4.0000D+00) 3.3333D-01 1.2569D-01 4 3 0 1 3 4 -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 8.2843D-01 4 2 0 2 3 -( 7.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 2.0000D+00) (-1.0000D+00, 2.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 7.0000D+00, 0.0000D+00) -( 1.0000D+00,-2.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 1.0000D+00,-2.0000D+00) +(-1.0000D+00,-2.0000D+00) +( 1.0000D+00,-2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +(-3.0000D+00, 0.0000D+00) (-1.0000D+00,-2.0000D+00) -( 1.0000D+00,-2.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 7.0000D+00, 0.0000D+00) +(-2.0000D+00, 2.0000D+00) (-3.0000D+00, 0.0000D+00) -(-1.0000D+00,-2.0000D+00) -(-2.0000D+00, 2.0000D+00) -(-3.0000D+00, 0.0000D+00) ( 7.0000D+00, 0.0000D+00) 9.8985D-01 4.1447D+00 5 2 1 2 3 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) -( 2.1000D+01, 2.2000D+01) -( 2.3000D+01, 2.4000D+01) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) +( 2.1000D+01, 2.2000D+01) +( 2.3000D+01, 2.4000D+01) ( 4.1000D+01, 4.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) -( 1.5000D+01, 1.6000D+01) -( 3.3000D+01, 3.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) +( 1.5000D+01, 1.6000D+01) +( 3.3000D+01, 3.4000D+01) ( 3.5000D+01, 3.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) -( 2.5000D+01, 2.6000D+01) -( 2.7000D+01, 2.8000D+01) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) +( 2.5000D+01, 2.6000D+01) +( 2.7000D+01, 2.8000D+01) ( 4.5000D+01, 4.6000D+01) -( 4.7000D+01, 4.8000D+01) -( 1.7000D+01, 1.8000D+01) -( 1.9000D+01, 2.0000D+01) -( 3.7000D+01, 3.8000D+01) +( 4.7000D+01, 4.8000D+01) +( 1.7000D+01, 1.8000D+01) +( 1.9000D+01, 2.0000D+01) +( 3.7000D+01, 3.8000D+01) ( 3.9000D+01, 4.0000D+01) -( 9.0000D+00, 1.0000D+01) -( 1.1000D+01, 1.2000D+01) -( 2.9000D+01, 3.0000D+01) -( 3.1000D+01, 3.2000D+01) +( 9.0000D+00, 1.0000D+01) +( 1.1000D+01, 1.2000D+01) +( 2.9000D+01, 3.0000D+01) +( 3.1000D+01, 3.2000D+01) ( 4.9000D+01, 5.0000D+01) 3.1088D-01 4.6912D+00 3 2 0 1 2 -( 1.0000D+00, 1.0000D+00) -(-1.0000D+00,-1.0000D+00) +( 1.0000D+00, 1.0000D+00) +(-1.0000D+00,-1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -(-1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +(-1.0000D+00, 0.0000D+00) ( 3.0000D+00, 1.0000D+00) 2.2361D-01 1.0000D+00 4 2 1 1 3 -(-4.0000D+00,-2.0000D+00) -(-5.0000D+00,-6.0000D+00) -(-2.0000D+00,-6.0000D+00) +(-4.0000D+00,-2.0000D+00) +(-5.0000D+00,-6.0000D+00) +(-2.0000D+00,-6.0000D+00) ( 0.0000D+00,-2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 7.2803D-05 1.1947D-04 7 4 0 1 4 6 7 -( 2.0000D+00, 4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 5.0000D+00, 5.0000D+00) -( 2.0000D+00, 6.0000D+00) +( 2.0000D+00, 4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 5.0000D+00, 5.0000D+00) +( 2.0000D+00, 6.0000D+00) ( 1.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 1.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 5.0000D+00,-4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 7.0000D+00, 2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 1.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 5.0000D+00,-4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 7.0000D+00, 2.0000D+00) ( 2.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00,-2.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 3.0000D+00) -( 2.0000D+00, 1.0000D+00) -( 1.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00,-2.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 3.0000D+00) ( 2.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 2.0000D+00) +( 1.0000D+00, 4.0000D+00) +( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-1.0000D+00) +( 2.0000D+00, 2.0000D+00) ( 3.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-1.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 1.0000D+00) ( 1.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00,-1.0000D+00) -( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00,-1.0000D+00) +( 2.0000D+00, 1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-2.0000D+00) ( 1.0000D+00, 1.0000D+00) 3.7241D-01 5.2080D-01 5 3 1 1 3 5 -( 0.0000D+00, 5.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 3.0000D+00) -(-3.0000D+00, 6.0000D+00) +( 0.0000D+00, 5.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 3.0000D+00) +(-3.0000D+00, 6.0000D+00) ( 6.0000D+00, 0.0000D+00) -(-1.0000D+00, 2.0000D+00) -( 0.0000D+00, 6.0000D+00) -( 4.0000D+00, 5.0000D+00) -(-3.0000D+00,-2.0000D+00) +(-1.0000D+00, 2.0000D+00) +( 0.0000D+00, 6.0000D+00) +( 4.0000D+00, 5.0000D+00) +(-3.0000D+00,-2.0000D+00) ( 5.0000D+00, 0.0000D+00) -(-2.0000D+00, 3.0000D+00) -(-4.0000D+00, 5.0000D+00) -( 0.0000D+00, 7.0000D+00) -( 3.0000D+00, 0.0000D+00) +(-2.0000D+00, 3.0000D+00) +(-4.0000D+00, 5.0000D+00) +( 0.0000D+00, 7.0000D+00) +( 3.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 3.0000D+00, 6.0000D+00) -( 3.0000D+00,-2.0000D+00) -(-3.0000D+00, 0.0000D+00) -( 0.0000D+00,-5.0000D+00) +( 3.0000D+00, 6.0000D+00) +( 3.0000D+00,-2.0000D+00) +(-3.0000D+00, 0.0000D+00) +( 0.0000D+00,-5.0000D+00) ( 2.0000D+00, 1.0000D+00) -(-6.0000D+00, 0.0000D+00) -(-5.0000D+00, 0.0000D+00) -(-2.0000D+00, 0.0000D+00) -(-2.0000D+00, 1.0000D+00) +(-6.0000D+00, 0.0000D+00) +(-5.0000D+00, 0.0000D+00) +(-2.0000D+00, 0.0000D+00) +(-2.0000D+00, 1.0000D+00) ( 0.0000D+00, 2.0000D+00) 1.0000D+00 4.5989D+00 8 4 1 1 2 3 4 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 3.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 3.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 3.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 3.0000D+00) ( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 4.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 4.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 4.0000D+00) ( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 9.5000D-01) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 9.5000D-01) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 9.5000D-01) 9.5269D-12 2.9360D-11 3 2 0 2 3 -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00,-1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00,-1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 2.0000D+00 0 0 0 @@ -537,51 +537,51 @@ ZVX 21 Use all matrix types ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.0000D+00 1.0000D+00 2 0 -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 2 0 -( 3.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 4.0000D+00 5.0000D+00 0.0000D+00 1.0000D+00 4.0000D+00 2 0 -( 3.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 0.0000D+00, 2.0000D+00) ( 3.0000D+00, 0.0000D+00) 3.0000D+00 2.0000D+00 1.0000D+00 4.0000D+00 3.0000D+00 -2.0000D+00 1.0000D+00 4.0000D+00 5 0 -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 @@ -589,30 +589,30 @@ ZVX 21 Use all matrix types 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 0.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 5 0 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 @@ -620,30 +620,30 @@ ZVX 21 Use all matrix types 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 5 0 -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 4.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 4.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 2.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 @@ -651,41 +651,41 @@ ZVX 21 Use all matrix types 4.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 5.0000D+00 0.0000D+00 1.0000D+00 1.0000D+00 6 0 -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 @@ -694,41 +694,41 @@ ZVX 21 Use all matrix types 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 6 0 -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 1.0000D+00) 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 @@ -737,148 +737,148 @@ ZVX 21 Use all matrix types 0.0000D+00 1.0000D+00 2.4074D-35 0.0000D+00 0.0000D+00 1.0000D+00 1.1921D-07 0.0000D+00 4 0 -( 9.4480D-01, 1.0000D+00) -( 6.7670D-01, 1.0000D+00) -( 6.9080D-01, 1.0000D+00) +( 9.4480D-01, 1.0000D+00) +( 6.7670D-01, 1.0000D+00) +( 6.9080D-01, 1.0000D+00) ( 5.9650D-01, 1.0000D+00) -( 5.8760D-01, 1.0000D+00) -( 8.6420D-01, 1.0000D+00) -( 6.7690D-01, 1.0000D+00) +( 5.8760D-01, 1.0000D+00) +( 8.6420D-01, 1.0000D+00) +( 6.7690D-01, 1.0000D+00) ( 7.2600D-02, 1.0000D+00) -( 7.2560D-01, 1.0000D+00) -( 1.9430D-01, 1.0000D+00) -( 9.6870D-01, 1.0000D+00) +( 7.2560D-01, 1.0000D+00) +( 1.9430D-01, 1.0000D+00) +( 9.6870D-01, 1.0000D+00) ( 2.8310D-01, 1.0000D+00) -( 2.8490D-01, 1.0000D+00) -( 5.8000D-02, 1.0000D+00) -( 4.8450D-01, 1.0000D+00) +( 2.8490D-01, 1.0000D+00) +( 5.8000D-02, 1.0000D+00) +( 4.8450D-01, 1.0000D+00) ( 7.3610D-01, 1.0000D+00) 2.6014D-01 -1.7813D-01 8.5279D-01 3.2881D-01 2.8961D-01 2.0772D-01 8.4871D-01 3.2358D-01 7.3990D-01 -4.6522D-04 9.7398D-01 3.4994D-01 2.2242D+00 3.9709D+00 9.8325D-01 4.1429D+00 4 0 -( 2.1130D-01, 9.9330D-01) -( 8.0960D-01, 4.2370D-01) -( 4.8320D-01, 1.1670D-01) +( 2.1130D-01, 9.9330D-01) +( 8.0960D-01, 4.2370D-01) +( 4.8320D-01, 1.1670D-01) ( 6.5380D-01, 4.9430D-01) -( 8.2400D-02, 8.3600D-01) -( 8.4740D-01, 2.6130D-01) -( 6.1350D-01, 6.2500D-01) +( 8.2400D-02, 8.3600D-01) +( 8.4740D-01, 2.6130D-01) +( 6.1350D-01, 6.2500D-01) ( 4.8990D-01, 3.6500D-02) -( 7.5990D-01, 7.4690D-01) -( 4.5240D-01, 2.4030D-01) -( 2.7490D-01, 5.5100D-01) +( 7.5990D-01, 7.4690D-01) +( 4.5240D-01, 2.4030D-01) +( 2.7490D-01, 5.5100D-01) ( 7.7410D-01, 2.2600D-01) -( 8.7000D-03, 3.7800D-02) -( 8.0750D-01, 3.4050D-01) -( 8.8070D-01, 3.5500D-01) +( 8.7000D-03, 3.7800D-02) +( 8.0750D-01, 3.4050D-01) +( 8.8070D-01, 3.5500D-01) ( 9.6260D-01, 8.1590D-01) -6.2157D-01 6.0607D-01 8.7533D-01 8.1980D-01 2.8890D-01 -2.6354D-01 8.2538D-01 8.1086D-01 3.8017D-01 5.4217D-01 7.4771D-01 7.0323D-01 2.2487D+00 1.7368D+00 9.2372D-01 2.2178D+00 3 0 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) ( 2.1000D+01, 2.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) ( 1.5000D+01, 1.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) ( 2.5000D+01, 2.6000D+01) -7.4775D+00 6.8803D+00 3.9550D-01 1.6583D+01 6.7009D+00 -7.8760D+00 3.9828D-01 1.6312D+01 3.9777D+01 4.2996D+01 7.9686D-01 3.7399D+01 4 0 -( 5.0000D+00, 9.0000D+00) -( 5.0000D+00, 5.0000D+00) -(-6.0000D+00,-6.0000D+00) +( 5.0000D+00, 9.0000D+00) +( 5.0000D+00, 5.0000D+00) +(-6.0000D+00,-6.0000D+00) (-7.0000D+00,-7.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 6.0000D+00, 1.0000D+01) -(-5.0000D+00,-5.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 6.0000D+00, 1.0000D+01) +(-5.0000D+00,-5.0000D+00) (-6.0000D+00,-6.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -(-1.0000D+00, 3.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +(-1.0000D+00, 3.0000D+00) (-5.0000D+00,-5.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 2.0000D+00, 2.0000D+00) -(-3.0000D+00,-3.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 2.0000D+00, 2.0000D+00) +(-3.0000D+00,-3.0000D+00) ( 0.0000D+00, 4.0000D+00) 1.0000D+00 5.0000D+00 2.1822D-01 7.4651D-01 2.0000D+00 6.0000D+00 2.1822D-01 3.0893D-01 3.0000D+00 7.0000D+00 2.1822D-01 1.8315D-01 4.0000D+00 8.0000D+00 2.1822D-01 6.6350D-01 4 0 -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 2.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00,-2.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 2.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -( 0.0000D+00,-2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) ( 1.0000D+00, 0.0000D+00) -8.2843D-01 1.6979D-07 1.0000D+00 8.2843D-01 4.1744D-07 7.1526D-08 1.0000D+00 8.2843D-01 4.0000D+00 1.6690D-07 1.0000D+00 8.2843D-01 4.8284D+00 6.8633D-08 1.0000D+00 8.2843D-01 4 0 -( 7.0000D+00, 0.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 1.0000D+00, 2.0000D+00) (-1.0000D+00, 2.0000D+00) -( 3.0000D+00, 0.0000D+00) -( 7.0000D+00, 0.0000D+00) -( 1.0000D+00,-2.0000D+00) +( 3.0000D+00, 0.0000D+00) +( 7.0000D+00, 0.0000D+00) +( 1.0000D+00,-2.0000D+00) +(-1.0000D+00,-2.0000D+00) +( 1.0000D+00,-2.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 7.0000D+00, 0.0000D+00) +(-3.0000D+00, 0.0000D+00) (-1.0000D+00,-2.0000D+00) -( 1.0000D+00,-2.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 7.0000D+00, 0.0000D+00) +(-2.0000D+00, 2.0000D+00) (-3.0000D+00, 0.0000D+00) -(-1.0000D+00,-2.0000D+00) -(-2.0000D+00, 2.0000D+00) -(-3.0000D+00, 0.0000D+00) ( 7.0000D+00, 0.0000D+00) -8.0767D-03 -2.5211D-01 9.9864D-01 7.7961D+00 7.7723D+00 2.4349D-01 7.0272D-01 3.3337D-01 8.0000D+00 -3.4273D-07 7.0711D-01 3.3337D-01 1.2236D+01 8.6188D-03 9.9021D-01 3.9429D+00 5 0 -( 1.0000D+00, 2.0000D+00) -( 3.0000D+00, 4.0000D+00) -( 2.1000D+01, 2.2000D+01) -( 2.3000D+01, 2.4000D+01) +( 1.0000D+00, 2.0000D+00) +( 3.0000D+00, 4.0000D+00) +( 2.1000D+01, 2.2000D+01) +( 2.3000D+01, 2.4000D+01) ( 4.1000D+01, 4.2000D+01) -( 4.3000D+01, 4.4000D+01) -( 1.3000D+01, 1.4000D+01) -( 1.5000D+01, 1.6000D+01) -( 3.3000D+01, 3.4000D+01) +( 4.3000D+01, 4.4000D+01) +( 1.3000D+01, 1.4000D+01) +( 1.5000D+01, 1.6000D+01) +( 3.3000D+01, 3.4000D+01) ( 3.5000D+01, 3.6000D+01) -( 5.0000D+00, 6.0000D+00) -( 7.0000D+00, 8.0000D+00) -( 2.5000D+01, 2.6000D+01) -( 2.7000D+01, 2.8000D+01) +( 5.0000D+00, 6.0000D+00) +( 7.0000D+00, 8.0000D+00) +( 2.5000D+01, 2.6000D+01) +( 2.7000D+01, 2.8000D+01) ( 4.5000D+01, 4.6000D+01) -( 4.7000D+01, 4.8000D+01) -( 1.7000D+01, 1.8000D+01) -( 1.9000D+01, 2.0000D+01) -( 3.7000D+01, 3.8000D+01) +( 4.7000D+01, 4.8000D+01) +( 1.7000D+01, 1.8000D+01) +( 1.9000D+01, 2.0000D+01) +( 3.7000D+01, 3.8000D+01) ( 3.9000D+01, 4.0000D+01) -( 9.0000D+00, 1.0000D+01) -( 1.1000D+01, 1.2000D+01) -( 2.9000D+01, 3.0000D+01) -( 3.1000D+01, 3.2000D+01) +( 9.0000D+00, 1.0000D+01) +( 1.1000D+01, 1.2000D+01) +( 2.9000D+01, 3.0000D+01) +( 3.1000D+01, 3.2000D+01) ( 4.9000D+01, 5.0000D+01) -9.4600D+00 7.2802D+00 3.1053D-01 1.1937D+01 -7.7912D-06 -1.2743D-05 2.9408D-01 1.6030D-05 @@ -886,88 +886,88 @@ ZVX 21 Use all matrix types 7.0733D+00 -9.5584D+00 3.0911D-01 1.1891D+01 1.2739D+02 1.3228D+02 9.2770D-01 1.2111D+02 3 0 -( 1.0000D+00, 1.0000D+00) -(-1.0000D+00,-1.0000D+00) +( 1.0000D+00, 1.0000D+00) +(-1.0000D+00,-1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -(-1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +(-1.0000D+00, 0.0000D+00) ( 3.0000D+00, 1.0000D+00) 1.0000D+00 1.0000D+00 3.0151D-01 0.0000D+00 1.0000D+00 1.0000D+00 3.1623D-01 0.0000D+00 2.0000D+00 1.0000D+00 2.2361D-01 1.0000D+00 4 1 -(-4.0000D+00,-2.0000D+00) -(-5.0000D+00,-6.0000D+00) -(-2.0000D+00,-6.0000D+00) +(-4.0000D+00,-2.0000D+00) +(-5.0000D+00,-6.0000D+00) +(-2.0000D+00,-6.0000D+00) ( 0.0000D+00,-2.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -9.9883D-01 -1.0006D+00 1.3180D-04 2.4106D-04 -1.0012D+00 -9.9945D-01 1.3140D-04 2.4041D-04 -9.9947D-01 -6.8325D-04 1.3989D-04 8.7487D-05 -1.0005D+00 6.8556D-04 1.4010D-04 8.7750D-05 7 0 -( 2.0000D+00, 4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 2.0000D+00) -( 3.0000D+00, 3.0000D+00) -( 5.0000D+00, 5.0000D+00) -( 2.0000D+00, 6.0000D+00) +( 2.0000D+00, 4.0000D+00) ( 1.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 1.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 5.0000D+00,-4.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 7.0000D+00, 2.0000D+00) +( 6.0000D+00, 2.0000D+00) +( 3.0000D+00, 3.0000D+00) +( 5.0000D+00, 5.0000D+00) +( 2.0000D+00, 6.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 1.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 5.0000D+00,-4.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 7.0000D+00, 2.0000D+00) ( 2.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 3.0000D+00,-2.0000D+00) -( 1.0000D+00, 1.0000D+00) -( 6.0000D+00, 3.0000D+00) -( 2.0000D+00, 1.0000D+00) -( 1.0000D+00, 4.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 3.0000D+00,-2.0000D+00) +( 1.0000D+00, 1.0000D+00) +( 6.0000D+00, 3.0000D+00) +( 2.0000D+00, 1.0000D+00) +( 1.0000D+00, 4.0000D+00) ( 2.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00, 3.0000D+00) -( 3.0000D+00, 1.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00, 3.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 2.0000D+00) +( 3.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-1.0000D+00) +( 2.0000D+00, 2.0000D+00) ( 3.0000D+00, 1.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-1.0000D+00) -( 2.0000D+00, 2.0000D+00) -( 3.0000D+00, 1.0000D+00) ( 1.0000D+00, 3.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 1.0000D+00,-1.0000D+00) -( 2.0000D+00, 1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 1.0000D+00,-1.0000D+00) +( 2.0000D+00, 1.0000D+00) ( 2.0000D+00, 2.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 2.0000D+00,-2.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 2.0000D+00,-2.0000D+00) ( 1.0000D+00, 1.0000D+00) -2.7081D+00 -2.8029D+00 6.9734D-01 3.9279D+00 -1.1478D+00 8.0176D-01 6.5772D-01 9.4243D-01 @@ -977,30 +977,30 @@ ZVX 21 Use all matrix types 5.3138D+00 1.2242D+00 3.0213D-01 7.1268D-01 8.2674D+00 3.7047D+00 2.8270D-01 3.2849D+00 5 1 -( 0.0000D+00, 5.0000D+00) -( 1.0000D+00, 2.0000D+00) -( 2.0000D+00, 3.0000D+00) -(-3.0000D+00, 6.0000D+00) +( 0.0000D+00, 5.0000D+00) +( 1.0000D+00, 2.0000D+00) +( 2.0000D+00, 3.0000D+00) +(-3.0000D+00, 6.0000D+00) ( 6.0000D+00, 0.0000D+00) -(-1.0000D+00, 2.0000D+00) -( 0.0000D+00, 6.0000D+00) -( 4.0000D+00, 5.0000D+00) -(-3.0000D+00,-2.0000D+00) +(-1.0000D+00, 2.0000D+00) +( 0.0000D+00, 6.0000D+00) +( 4.0000D+00, 5.0000D+00) +(-3.0000D+00,-2.0000D+00) ( 5.0000D+00, 0.0000D+00) -(-2.0000D+00, 3.0000D+00) -(-4.0000D+00, 5.0000D+00) -( 0.0000D+00, 7.0000D+00) -( 3.0000D+00, 0.0000D+00) +(-2.0000D+00, 3.0000D+00) +(-4.0000D+00, 5.0000D+00) +( 0.0000D+00, 7.0000D+00) +( 3.0000D+00, 0.0000D+00) ( 2.0000D+00, 0.0000D+00) -( 3.0000D+00, 6.0000D+00) -( 3.0000D+00,-2.0000D+00) -(-3.0000D+00, 0.0000D+00) -( 0.0000D+00,-5.0000D+00) +( 3.0000D+00, 6.0000D+00) +( 3.0000D+00,-2.0000D+00) +(-3.0000D+00, 0.0000D+00) +( 0.0000D+00,-5.0000D+00) ( 2.0000D+00, 1.0000D+00) -(-6.0000D+00, 0.0000D+00) -(-5.0000D+00, 0.0000D+00) -(-2.0000D+00, 0.0000D+00) -(-2.0000D+00, 1.0000D+00) +(-6.0000D+00, 0.0000D+00) +(-5.0000D+00, 0.0000D+00) +(-2.0000D+00, 0.0000D+00) +(-2.0000D+00, 1.0000D+00) ( 0.0000D+00, 2.0000D+00) -4.1735D-08 -1.0734D+01 1.0000D+00 7.7345D+00 -2.6397D-07 -2.9991D+00 1.0000D+00 4.5989D+00 @@ -1008,14 +1008,14 @@ ZVX 21 Use all matrix types -4.4369D-07 9.3159D+00 1.0000D+00 7.7161D+00 4.0937D-09 1.7817D+01 1.0000D+00 8.5013D+00 3 0 -( 2.0000D+00, 0.0000D+00) -( 0.0000D+00,-1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00,-1.0000D+00) +( 0.0000D+00, 0.0000D+00) +( 0.0000D+00, 1.0000D+00) +( 2.0000D+00, 0.0000D+00) +( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 1.0000D+00) -( 2.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) -( 0.0000D+00, 0.0000D+00) ( 3.0000D+00, 0.0000D+00) 1.0000D+00 0.0000D+00 1.0000D+00 2.0000D+00 3.0000D+00 0.0000D+00 1.0000D+00 0.0000D+00 diff --git a/TESTING/zgbak.in b/TESTING/zgbak.in index e11d5026..6c890d06 100644 --- a/TESTING/zgbak.in +++ b/TESTING/zgbak.in @@ -443,4 +443,4 @@ ZGK: Tests ZGGBAK (-0.5000D+01,-0.5000D+01) (-0.5000D+01,-0.5000D+01) (-0.5000D+01,-0.5000D+01) (-0.6000D+01,-0.6000D+01) (-0.6000D+01,-0.6000D+01) (-0.6000D+01,-0.6000D+01) -0 0 +0 0 diff --git a/TESTING/zgbal.in b/TESTING/zgbal.in index 51b1164c..fff9e051 100644 --- a/TESTING/zgbal.in +++ b/TESTING/zgbal.in @@ -657,4 +657,4 @@ ZGL: Tests ZGGBAL 0.2000D+01 0.2000D+01 0.1000D+01 0.1000D+01 0.5000D+01 0.5000D+01 -0 +0 diff --git a/TESTING/zgd.in b/TESTING/zgd.in index e92782a4..bf462b76 100644 --- a/TESTING/zgd.in +++ b/TESTING/zgd.in @@ -1,6 +1,6 @@ ZGV Data for the Complex Nonsymmetric Eigenvalue Driver 6 Number of matrix dimensions -2 6 8 10 12 20 Matrix dimensions +2 6 8 10 12 20 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -8,7 +8,7 @@ ZGV Data for the Complex Nonsymmetric Eigenvalue Driver ZGV 26 Test all 26 matrix types ZGS Data for the Complex Nonsymmetric Schur Form Driver 5 Number of matrix dimensions -2 6 10 12 20 30 Matrix dimensions +2 6 10 12 20 30 Matrix dimensions 1 1 1 2 1 Parameters NB, NBMIN, NXOVER, NS, NBCOL 10 Threshold for test ratios .TRUE. Put T to test the error exits @@ -32,11 +32,11 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver 10 Threshold for test ratios .TRUE. Put T to test the error exits 0 Code to interpret the seed - 4 + 4 2 ( 2.0000D+00, 6.0000D+00) ( 2.0000D+00, 5.0000D+00) -( 3.0000D+00,-1.0000D+01) +( 3.0000D+00,-1.0000D+01) ( 4.0000D+00, 7.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 9.0000D+00, 2.0000D+00) @@ -50,7 +50,7 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 1.0000D+01,-1.6000D+01) -(-9.0000D+00, 1.0000D+00) +(-9.0000D+00, 1.0000D+00) (-1.0000D+00,-8.0000D+00) (-1.0000D+00, 1.0000D+01) ( 2.0000D+00,-6.0000D+00) @@ -67,12 +67,12 @@ ZGX Data for the Complex Nonsymmetric Schur Form Expert Driver ( 0.0000D+00, 0.0000D+00) ( 8.0000D+00, 4.0000D+00) 7.6883D-02 2.1007D-01 Condition #'s for cluster selected from lower 2x2 - 4 + 4 2 ( 1.0000D+00, 8.0000D+00) ( 2.0000D+00, 4.0000D+00) ( 3.0000D+00,-1.3000D+01) -( 4.0000D+00, 4.0000D+00) +( 4.0000D+00, 4.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 7.0000D+00) ( 6.0000D+00,-2.4000D+01) @@ -112,7 +112,7 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver 4 ( 2.0000D+00, 6.0000D+00) ( 2.0000D+00, 5.0000D+00) -( 3.0000D+00,-1.0000D+01) +( 3.0000D+00,-1.0000D+01) ( 4.0000D+00, 7.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 9.0000D+00, 2.0000D+00) @@ -126,7 +126,7 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 0.0000D+00, 0.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 1.0000D+01,-1.6000D+01) -(-9.0000D+00, 1.0000D+00) +(-9.0000D+00, 1.0000D+00) (-1.0000D+00,-8.0000D+00) (-1.0000D+00, 1.0000D+01) ( 2.0000D+00,-6.0000D+00) @@ -144,11 +144,11 @@ ZXV Data for the Complex Nonsymmetric Eigenvalue Expert Driver ( 8.0000D+00, 4.0000D+00) 5.2612D+00 8.0058D-01 1.4032D+00 4.0073D+00 condition #'s for eigenvalues 1.1787D+00 3.3139D+00 1.1835D+00 2.0777D+00 condition #'s for eigenvectors - 4 + 4 ( 1.0000D+00, 8.0000D+00) ( 2.0000D+00, 4.0000D+00) ( 3.0000D+00,-1.3000D+01) -( 4.0000D+00, 4.0000D+00) +( 4.0000D+00, 4.0000D+00) ( 0.0000D+00, 0.0000D+00) ( 5.0000D+00, 7.0000D+00) ( 6.0000D+00,-2.4000D+01) |