diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-10-12 12:07:47 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-10-12 12:07:47 +0000 |
| commit | 5df9426cf6db22751d8e3adefaee7beaead1d651 (patch) | |
| tree | c717024304676d39aa1e9ac0c0514c715ccc144c /TESTING/EIG/schkee.f | |
| parent | 5dfdfeba7f3a6779ba2833bd27e052f0589b5db9 (diff) | |
| download | lapack-5df9426cf6db22751d8e3adefaee7beaead1d651.tar.gz lapack-5df9426cf6db22751d8e3adefaee7beaead1d651.tar.bz2 lapack-5df9426cf6db22751d8e3adefaee7beaead1d651.zip | |
fix problem detected by Sven
xerbla was called without SRNAMT and INFOT.
Actually the problem was that the CSD routines did not have error exits.
So I added them, and i also modified the source files because info was not set correctly.
Diffstat (limited to 'TESTING/EIG/schkee.f')
| -rw-r--r-- | TESTING/EIG/schkee.f | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/TESTING/EIG/schkee.f b/TESTING/EIG/schkee.f index f3644650..73dd3bb4 100644 --- a/TESTING/EIG/schkee.f +++ b/TESTING/EIG/schkee.f @@ -2351,6 +2351,7 @@ * CSD: CS Decomposition * ---------------------------------------------- * + CALL XLAENV(1,1) IF( TSTERR ) $ CALL SERRGG( 'CSD', NOUT ) CALL SCKCSD( NN, MVAL, PVAL, NVAL, NTYPES, ISEED, THRESH, NMAX, |