From 736b6a7ff19d5fc574ee4714cb4c5094bbb39711 Mon Sep 17 00:00:00 2001 From: brian Date: Thu, 4 Nov 2010 01:12:34 +0000 Subject: Removed nonexistent fourth matrix type from CSD test routines and csd.in --- TESTING/EIG/cckcsd.f | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'TESTING/EIG/cckcsd.f') 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 -- cgit v1.2.3