diff options
| author | brian <brian@8a072113-8704-0410-8d35-dd094bca7971> | 2010-11-04 01:12:34 +0000 |
|---|---|---|
| committer | brian <brian@8a072113-8704-0410-8d35-dd094bca7971> | 2010-11-04 01:12:34 +0000 |
| commit | 736b6a7ff19d5fc574ee4714cb4c5094bbb39711 (patch) | |
| tree | cd7007d6ff0001eabb84718794249212ff63df90 /TESTING/EIG/dckcsd.f | |
| parent | 508277c0ba59672d5d7b176004448205ac7f38c5 (diff) | |
| download | lapack-736b6a7ff19d5fc574ee4714cb4c5094bbb39711.tar.gz lapack-736b6a7ff19d5fc574ee4714cb4c5094bbb39711.tar.bz2 lapack-736b6a7ff19d5fc574ee4714cb4c5094bbb39711.zip | |
Removed nonexistent fourth matrix type from CSD test routines and csd.in
Diffstat (limited to 'TESTING/EIG/dckcsd.f')
| -rw-r--r-- | TESTING/EIG/dckcsd.f | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/TESTING/EIG/dckcsd.f b/TESTING/EIG/dckcsd.f index ad3cacc6..2938b6be 100644 --- a/TESTING/EIG/dckcsd.f +++ b/TESTING/EIG/dckcsd.f @@ -105,7 +105,7 @@ INTEGER NTESTS PARAMETER ( NTESTS = 9 ) INTEGER NTYPES - PARAMETER ( NTYPES = 4 ) + PARAMETER ( NTYPES = 3 ) DOUBLE PRECISION GAPDIGIT, ORTH, PIOVER2, TEN PARAMETER ( GAPDIGIT = 18.0D0, ORTH = 1.0D-12, $ PIOVER2 = 1.57079632679489662D0, @@ -186,7 +186,7 @@ $ ORTH*DLARND(2,ISEED) END DO END DO - ELSE IF( IMAT.EQ.3 ) THEN + ELSE R = MIN( P, M-P, Q, M-Q ) DO I = 1, R+1 THETA(I) = TEN**(-DLARND(1,ISEED)*GAPDIGIT) @@ -198,7 +198,6 @@ THETA(I) = PIOVER2 * THETA(I) / THETA(R+1) END DO CALL DLACSG( M, P, Q, THETA, ISEED, X, LDX, WORK ) - ELSE END IF * NT = 9 |