diff options
author | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-21 22:08:17 -0500 |
---|---|---|
committer | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-21 22:08:17 -0500 |
commit | 6714497b881128cd61207ee9f715477c1faaefd5 (patch) | |
tree | 7986fcc744a2278cb4dc0df6061cf48dbdb36b90 /TESTING | |
parent | a2710c2aeb7fa308b9a85bba44b76e47c364ecaa (diff) | |
download | lapack-6714497b881128cd61207ee9f715477c1faaefd5.tar.gz lapack-6714497b881128cd61207ee9f715477c1faaefd5.tar.bz2 lapack-6714497b881128cd61207ee9f715477c1faaefd5.zip |
remove RCONDC in testing.
Diffstat (limited to 'TESTING')
-rw-r--r-- | TESTING/LIN/cchkhe_aa.f | 19 | ||||
-rw-r--r-- | TESTING/LIN/cchksy_aa.f | 19 | ||||
-rw-r--r-- | TESTING/LIN/cdrvhe_aa.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/cdrvsy_aa.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/dchksy_aa.f | 19 | ||||
-rw-r--r-- | TESTING/LIN/ddrvsy_aa.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/schksy_aa.f | 19 | ||||
-rw-r--r-- | TESTING/LIN/sdrvsy_aa.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/zchkhe_aa.f | 19 | ||||
-rw-r--r-- | TESTING/LIN/zchksy_aa.f | 19 | ||||
-rw-r--r-- | TESTING/LIN/zdrvhe_aa.f | 11 | ||||
-rw-r--r-- | TESTING/LIN/zdrvsy_aa.f | 11 |
12 files changed, 36 insertions, 144 deletions
diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f index 9910deaa..ca23c0f2 100644 --- a/TESTING/LIN/cchkhe_aa.f +++ b/TESTING/LIN/cchkhe_aa.f @@ -205,13 +205,13 @@ PARAMETER ( NTESTS = 9 ) * .. * .. Local Scalars .. - LOGICAL TRFCON, ZEROT + LOGICAL ZEROT CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT - REAL ANORM, CNDNUM, RCONDC + REAL ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) @@ -464,14 +464,6 @@ $ NOUT ) END IF * -* Set the condition estimate flag if the INFO is not 0. -* - IF( INFO.NE.0 ) THEN - TRFCON = .TRUE. - ELSE - TRFCON = .FALSE. - END IF -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * @@ -494,10 +486,9 @@ 110 CONTINUE NRUN = NRUN + NT * -* Do only the condition estimate if INFO is not 0. +* Skip solver test if INFO is not 0. * - IF( TRFCON ) THEN - RCONDC = ZERO + IF( INFO.NE.0 ) THEN GO TO 140 END IF * @@ -506,7 +497,7 @@ DO 130 IRHS = 1, NNS NRHS = NSVAL( IRHS ) * -*+ TEST 3 (Using TRS) +*+ TEST 2 (Using TRS) * Solve and compute residual for A * X = B. * * Choose a set of NRHS random solution vectors diff --git a/TESTING/LIN/cchksy_aa.f b/TESTING/LIN/cchksy_aa.f index b7cd47f6..534be92f 100644 --- a/TESTING/LIN/cchksy_aa.f +++ b/TESTING/LIN/cchksy_aa.f @@ -205,13 +205,13 @@ PARAMETER ( NTESTS = 9 ) * .. * .. Local Scalars .. - LOGICAL TRFCON, ZEROT + LOGICAL ZEROT CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT - REAL ANORM, CNDNUM, RCONDC + REAL ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) @@ -465,14 +465,6 @@ $ NOUT ) END IF * -* Set the condition estimate flag if the INFO is not 0. -* - IF( INFO.NE.0 ) THEN - TRFCON = .TRUE. - ELSE - TRFCON = .FALSE. - END IF -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * @@ -495,10 +487,9 @@ 110 CONTINUE NRUN = NRUN + NT * -* Do only the condition estimate if INFO is not 0. +* Skip solver test if INFO is not 0. * - IF( TRFCON ) THEN - RCONDC = ZERO + IF( INFO.NE.0 ) THEN GO TO 140 END IF * @@ -507,7 +498,7 @@ DO 130 IRHS = 1, NNS NRHS = NSVAL( IRHS ) * -*+ TEST 3 ( Using TRS) +*+ TEST 2 (Using TRS) * Solve and compute residual for A * X = B. * * Choose a set of NRHS random solution vectors diff --git a/TESTING/LIN/cdrvhe_aa.f b/TESTING/LIN/cdrvhe_aa.f index c21a8883..4e4f73bb 100644 --- a/TESTING/LIN/cdrvhe_aa.f +++ b/TESTING/LIN/cdrvhe_aa.f @@ -188,7 +188,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 ) @@ -385,15 +385,6 @@ * FACT = FACTS( IFACT ) * -* Compute the condition number for comparison with -* the value returned by CHESVX. -* - 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' 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' diff --git a/TESTING/LIN/dchksy_aa.f b/TESTING/LIN/dchksy_aa.f index a5c0594c..a01f4fa0 100644 --- a/TESTING/LIN/dchksy_aa.f +++ b/TESTING/LIN/dchksy_aa.f @@ -202,13 +202,13 @@ PARAMETER ( NTESTS = 9 ) * .. * .. Local Scalars .. - LOGICAL TRFCON, ZEROT + LOGICAL ZEROT CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT - DOUBLE PRECISION ANORM, CNDNUM, RCONDC + DOUBLE PRECISION ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) @@ -462,14 +462,6 @@ $ NOUT ) END IF * -* Set the condition estimate flag if the INFO is not 0. -* - IF( INFO.NE.0 ) THEN - TRFCON = .TRUE. - ELSE - TRFCON = .FALSE. - END IF -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * @@ -492,10 +484,9 @@ 110 CONTINUE NRUN = NRUN + NT * -* Do only the condition estimate if INFO is not 0. +* Skip solver test if INFO is not 0. * - IF( TRFCON ) THEN - RCONDC = ZERO + IF( INFO.NE.0 ) THEN GO TO 140 END IF * @@ -504,7 +495,7 @@ DO 130 IRHS = 1, NNS NRHS = NSVAL( IRHS ) * -*+ TEST 3 ( Using TRS) +*+ TEST 2 (Using TRS) * Solve and compute residual for A * X = B. * * Choose a set of NRHS random solution vectors diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f index 1b350fcf..25a58292 100644 --- a/TESTING/LIN/ddrvsy_aa.f +++ b/TESTING/LIN/ddrvsy_aa.f @@ -188,7 +188,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 - DOUBLE PRECISION ANORM, CNDNUM, RCONDC + DOUBLE PRECISION ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER FACTS( NFACT ), UPLOS( 2 ) @@ -376,15 +376,6 @@ * FACT = FACTS( IFACT ) * -* Compute the condition number for comparison with -* the value returned by DSYSVX. -* - 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 = 'DLARHS' diff --git a/TESTING/LIN/schksy_aa.f b/TESTING/LIN/schksy_aa.f index 128664b2..ee00fdb0 100644 --- a/TESTING/LIN/schksy_aa.f +++ b/TESTING/LIN/schksy_aa.f @@ -202,13 +202,13 @@ PARAMETER ( NTESTS = 9 ) * .. * .. Local Scalars .. - LOGICAL TRFCON, ZEROT + LOGICAL ZEROT CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT - REAL ANORM, CNDNUM, RCONDC + REAL ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) @@ -463,14 +463,6 @@ $ NOUT ) END IF * -* Set the condition estimate flag if the INFO is not 0. -* - IF( INFO.NE.0 ) THEN - TRFCON = .TRUE. - ELSE - TRFCON = .FALSE. - END IF -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * @@ -493,10 +485,9 @@ 110 CONTINUE NRUN = NRUN + NT * -* Do only the condition estimate if INFO is not 0. +* Skip solver test if INFO is not 0. * - IF( TRFCON ) THEN - RCONDC = ZERO + IF( INFO.NE.0 ) THEN GO TO 140 END IF * @@ -505,7 +496,7 @@ DO 130 IRHS = 1, NNS NRHS = NSVAL( IRHS ) * -*+ TEST 3 ( Using TRS) +*+ TEST 2 (Using TRS) * Solve and compute residual for A * X = B. * * Choose a set of NRHS random solution vectors diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f index 8332df1f..da5cf8a2 100644 --- a/TESTING/LIN/sdrvsy_aa.f +++ b/TESTING/LIN/sdrvsy_aa.f @@ -186,7 +186,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 ) @@ -374,15 +374,6 @@ * FACT = FACTS( IFACT ) * -* Compute the condition number for comparison with -* the value returned by SSYSVX. -* - 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 = 'SLARHS' diff --git a/TESTING/LIN/zchkhe_aa.f b/TESTING/LIN/zchkhe_aa.f index 0a7e104e..5cc4b9ef 100644 --- a/TESTING/LIN/zchkhe_aa.f +++ b/TESTING/LIN/zchkhe_aa.f @@ -205,13 +205,13 @@ PARAMETER ( NTESTS = 9 ) * .. * .. Local Scalars .. - LOGICAL TRFCON, ZEROT + LOGICAL ZEROT CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT - DOUBLE PRECISION ANORM, CNDNUM, RCONDC + DOUBLE PRECISION ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) @@ -463,14 +463,6 @@ $ NOUT ) END IF * -* Set the condition estimate flag if the INFO is not 0. -* - IF( INFO.NE.0 ) THEN - TRFCON = .TRUE. - ELSE - TRFCON = .FALSE. - END IF -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * @@ -493,10 +485,9 @@ 110 CONTINUE NRUN = NRUN + NT * -* Do only the condition estimate if INFO is not 0. +* Skip solver test if INFO is not 0. * - IF( TRFCON ) THEN - RCONDC = ZERO + IF( INFO.NE.0 ) THEN GO TO 140 END IF * @@ -505,7 +496,7 @@ DO 130 IRHS = 1, NNS NRHS = NSVAL( IRHS ) * -*+ TEST 3 (Using TRS) +*+ TEST 2 (Using TRS) * Solve and compute residual for A * X = B. * * Choose a set of NRHS random solution vectors diff --git a/TESTING/LIN/zchksy_aa.f b/TESTING/LIN/zchksy_aa.f index d231746f..4c2cd041 100644 --- a/TESTING/LIN/zchksy_aa.f +++ b/TESTING/LIN/zchksy_aa.f @@ -205,13 +205,13 @@ PARAMETER ( NTESTS = 9 ) * .. * .. Local Scalars .. - LOGICAL TRFCON, ZEROT + LOGICAL ZEROT CHARACTER DIST, TYPE, UPLO, XTYPE CHARACTER*3 PATH, MATPATH INTEGER I, I1, I2, IMAT, IN, INB, INFO, IOFF, IRHS, $ IUPLO, IZERO, J, K, KL, KU, LDA, LWORK, MODE, $ N, NB, NERRS, NFAIL, NIMAT, NRHS, NRUN, NT - DOUBLE PRECISION ANORM, CNDNUM, RCONDC + DOUBLE PRECISION ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER UPLOS( 2 ) @@ -465,14 +465,6 @@ $ NOUT ) END IF * -* Set the condition estimate flag if the INFO is not 0. -* - IF( INFO.NE.0 ) THEN - TRFCON = .TRUE. - ELSE - TRFCON = .FALSE. - END IF -* *+ TEST 1 * Reconstruct matrix from factors and compute residual. * @@ -495,10 +487,9 @@ 110 CONTINUE NRUN = NRUN + NT * -* Do only the condition estimate if INFO is not 0. +* Skip solver test if INFO is not 0. * - IF( TRFCON ) THEN - RCONDC = ZERO + IF( INFO.NE.0 ) THEN GO TO 140 END IF * @@ -507,7 +498,7 @@ DO 130 IRHS = 1, NNS NRHS = NSVAL( IRHS ) * -*+ TEST 3 ( Using TRS) +*+ TEST 2 (Using TRS) * Solve and compute residual for A * X = B. * * Choose a set of NRHS random solution vectors diff --git a/TESTING/LIN/zdrvhe_aa.f b/TESTING/LIN/zdrvhe_aa.f index 129ae621..3b59395a 100644 --- a/TESTING/LIN/zdrvhe_aa.f +++ b/TESTING/LIN/zdrvhe_aa.f @@ -188,7 +188,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 - DOUBLE PRECISION ANORM, CNDNUM, RCONDC + DOUBLE PRECISION ANORM, CNDNUM * .. * .. Local Arrays .. CHARACTER FACTS( NFACT ), UPLOS( 2 ) @@ -383,15 +383,6 @@ * FACT = FACTS( IFACT ) * -* Compute the condition number for comparison with -* the value returned by ZHESVX. -* - 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 = 'ZLARHS' diff --git a/TESTING/LIN/zdrvsy_aa.f b/TESTING/LIN/zdrvsy_aa.f index 322fd3ba..d0a9711b 100644 --- a/TESTING/LIN/zdrvsy_aa.f +++ b/TESTING/LIN/zdrvsy_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 - DOUBLE PRECISION ANORM, CNDNUM, RCONDC + DOUBLE PRECISION 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 ZSYSVX. -* - 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 = 'ZLARHS' |