diff options
| author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-06 17:56:35 +0000 |
|---|---|---|
| committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-06 17:56:35 +0000 |
| commit | f6dc581dc61092618ae23fc4640d37e5366191b5 (patch) | |
| tree | 61fad508ce3ed846edeb4f815b73bcdabaa1f793 /TESTING/LIN/cerrls.f | |
| parent | fcfe82e566e8c9424346a0f3923bc7d829b2d750 (diff) | |
Remove all but one deprecated routines from the test suite.
NOTE: The tests are renumbered in xDRVLS and xCHKTZ.
TODO: remove deprecated xGEQPF, when it is replaced by xGEQP3 in xGGSVP.
Diffstat (limited to 'TESTING/LIN/cerrls.f')
| -rw-r--r-- | TESTING/LIN/cerrls.f | 29 |
1 files changed, 2 insertions, 27 deletions
diff --git a/TESTING/LIN/cerrls.f b/TESTING/LIN/cerrls.f index b500a505..fff013b4 100644 --- a/TESTING/LIN/cerrls.f +++ b/TESTING/LIN/cerrls.f @@ -22,7 +22,7 @@ *> \verbatim *> *> CERRLS tests the error exits for the COMPLEX least squares -*> driver routines (CGELS, CGELSS, CGELSX, CGELSY, CGELSD). +*> driver routines (CGELS, CGELSS, CGELSY, CGELSD). *> \endverbatim * * Arguments: @@ -86,8 +86,7 @@ EXTERNAL LSAMEN * .. * .. External Subroutines .. - EXTERNAL ALAESM, CGELS, CGELSD, CGELSS, CGELSX, CGELSY, - $ CHKXER + EXTERNAL ALAESM, CGELS, CGELSD, CGELSS, CGELSY, CHKXER * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -162,30 +161,6 @@ $ INFO ) CALL CHKXER( 'CGELSS', INFOT, NOUT, LERR, OK ) * -* CGELSX -* - SRNAMT = 'CGELSX' - INFOT = 1 - CALL CGELSX( -1, 0, 0, A, 1, B, 1, IP, RCOND, IRNK, W, RW, - $ INFO ) - CALL CHKXER( 'CGELSX', INFOT, NOUT, LERR, OK ) - INFOT = 2 - CALL CGELSX( 0, -1, 0, A, 1, B, 1, IP, RCOND, IRNK, W, RW, - $ INFO ) - CALL CHKXER( 'CGELSX', INFOT, NOUT, LERR, OK ) - INFOT = 3 - CALL CGELSX( 0, 0, -1, A, 1, B, 1, IP, RCOND, IRNK, W, RW, - $ INFO ) - CALL CHKXER( 'CGELSX', INFOT, NOUT, LERR, OK ) - INFOT = 5 - CALL CGELSX( 2, 0, 0, A, 1, B, 2, IP, RCOND, IRNK, W, RW, - $ INFO ) - CALL CHKXER( 'CGELSX', INFOT, NOUT, LERR, OK ) - INFOT = 7 - CALL CGELSX( 2, 0, 0, A, 2, B, 1, IP, RCOND, IRNK, W, RW, - $ INFO ) - CALL CHKXER( 'CGELSX', INFOT, NOUT, LERR, OK ) -* * CGELSY * SRNAMT = 'CGELSY' |