diff options
Diffstat (limited to 'TESTING/LIN/cdrvsy_aa.f')
-rw-r--r-- | TESTING/LIN/cdrvsy_aa.f | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/TESTING/LIN/cdrvsy_aa.f b/TESTING/LIN/cdrvsy_aa.f index 7ace06ef..69a4e556 100644 --- a/TESTING/LIN/cdrvsy_aa.f +++ b/TESTING/LIN/cdrvsy_aa.f @@ -192,7 +192,7 @@ INTEGER I, I1, I2, IFACT, IMAT, IN, INFO, IOFF, IUPLO, $ IZERO, J, K, KL, KU, LDA, LWORK, MODE, N, $ NB, NBMIN, NERRS, NFAIL, NIMAT, NRUN, NT - REAL ANORM, CNDNUM, RCONDC + REAL ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER FACTS( NFACT ), UPLOS( 2 ) @@ -380,15 +380,6 @@ * FACT = FACTS( IFACT ) * -* Compute the condition number for comparison with -* the value returned by CSYSVX. -* - IF( ZEROT ) THEN - IF( IFACT.EQ.1 ) - $ GO TO 150 - RCONDC = ZERO - END IF -* * Form an exact solution and set the right hand side. * SRNAMT = 'CLARHS' |