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 /SRC/cuncsd.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 'SRC/cuncsd.f')
| -rw-r--r-- | SRC/cuncsd.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 5d3a883c..c3772d83 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -359,13 +359,13 @@ $ ( .NOT.COLMAJOR .AND. LDX11 .LT. MAX(1,Q) ) ) THEN INFO = -11 ELSE IF( WANTU1 .AND. LDU1 .LT. P ) THEN - INFO = -14 + INFO = -20 ELSE IF( WANTU2 .AND. LDU2 .LT. M-P ) THEN - INFO = -16 + INFO = -22 ELSE IF( WANTV1T .AND. LDV1T .LT. Q ) THEN - INFO = -18 + INFO = -24 ELSE IF( WANTV2T .AND. LDV2T .LT. M-Q ) THEN - INFO = -20 + INFO = -26 END IF * * Work with transpose if convenient |