diff options
Diffstat (limited to 'TESTING/EIG')
| -rw-r--r-- | TESTING/EIG/cckcsd.f | 5 | ||||
| -rw-r--r-- | TESTING/EIG/dckcsd.f | 5 | ||||
| -rw-r--r-- | TESTING/EIG/sckcsd.f | 5 | ||||
| -rw-r--r-- | TESTING/EIG/zckcsd.f | 5 |
4 files changed, 8 insertions, 12 deletions
diff --git a/TESTING/EIG/cckcsd.f b/TESTING/EIG/cckcsd.f index 47315354..98402661 100644 --- a/TESTING/EIG/cckcsd.f +++ b/TESTING/EIG/cckcsd.f @@ -105,7 +105,7 @@ INTEGER NTESTS PARAMETER ( NTESTS = 9 ) INTEGER NTYPES - PARAMETER ( NTYPES = 4 ) + PARAMETER ( NTYPES = 3 ) REAL GAPDIGIT, ORTH, PIOVER2, TEN PARAMETER ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4, $ PIOVER2 = 1.57079632679489662E0, @@ -186,7 +186,7 @@ $ ORTH*SLARND(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**(-SLARND(1,ISEED)*GAPDIGIT) @@ -198,7 +198,6 @@ THETA(I) = PIOVER2 * THETA(I) / THETA(R+1) END DO CALL CLACSG( M, P, Q, THETA, ISEED, X, LDX, WORK ) - ELSE END IF * NT = 9 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 diff --git a/TESTING/EIG/sckcsd.f b/TESTING/EIG/sckcsd.f index e9d4646a..ef70f2d1 100644 --- a/TESTING/EIG/sckcsd.f +++ b/TESTING/EIG/sckcsd.f @@ -105,7 +105,7 @@ INTEGER NTESTS PARAMETER ( NTESTS = 9 ) INTEGER NTYPES - PARAMETER ( NTYPES = 4 ) + PARAMETER ( NTYPES = 3 ) REAL GAPDIGIT, ORTH, PIOVER2, TEN PARAMETER ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4, $ PIOVER2 = 1.57079632679489662E0, @@ -186,7 +186,7 @@ $ ORTH*SLARND(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**(-SLARND(1,ISEED)*GAPDIGIT) @@ -198,7 +198,6 @@ THETA(I) = PIOVER2 * THETA(I) / THETA(R+1) END DO CALL SLACSG( M, P, Q, THETA, ISEED, X, LDX, WORK ) - ELSE END IF * NT = 9 diff --git a/TESTING/EIG/zckcsd.f b/TESTING/EIG/zckcsd.f index 4cc7b921..c9485be1 100644 --- a/TESTING/EIG/zckcsd.f +++ b/TESTING/EIG/zckcsd.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 ZLACSG( M, P, Q, THETA, ISEED, X, LDX, WORK ) - ELSE END IF * NT = 9 |