diff options
author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-04-03 18:11:13 +0000 |
---|---|---|
committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2012-04-03 18:11:13 +0000 |
commit | 5178b0ead49ef1640fc5ff624ff8a70d69637fdb (patch) | |
tree | d1612b9185802364b7974ec0967835a65c50f400 | |
parent | 824718cced35ae7db728552fdf92bf72930076f2 (diff) | |
download | lapack-5178b0ead49ef1640fc5ff624ff8a70d69637fdb.tar.gz lapack-5178b0ead49ef1640fc5ff624ff8a70d69637fdb.tar.bz2 lapack-5178b0ead49ef1640fc5ff624ff8a70d69637fdb.zip |
changed weights so that the badly conditioned tests (which always fail) are avoided for SXV, DXV, CXV, ZXV.
-rw-r--r-- | TESTING/EIG/cdrgvx.f | 8 | ||||
-rw-r--r-- | TESTING/EIG/ddrgvx.f | 8 | ||||
-rw-r--r-- | TESTING/EIG/sdrgvx.f | 8 | ||||
-rw-r--r-- | TESTING/EIG/zdrgvx.f | 8 |
4 files changed, 16 insertions, 16 deletions
diff --git a/TESTING/EIG/cdrgvx.f b/TESTING/EIG/cdrgvx.f index be8ff0d3..9c0a807f 100644 --- a/TESTING/EIG/cdrgvx.f +++ b/TESTING/EIG/cdrgvx.f @@ -322,9 +322,9 @@ * ===================================================================== * * .. Parameters .. - REAL ZERO, ONE, TEN, TNTH + REAL ZERO, ONE, TEN, TNTH, HALF PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, TEN = 1.0E+1, - $ TNTH = 1.0E-1 ) + $ TNTH = 1.0E-1, HALF = 0.5E+0 ) * .. * .. Local Scalars .. INTEGER I, IPTYPE, IWA, IWB, IWX, IWY, J, LINFO, @@ -405,8 +405,8 @@ * * Parameters used for generating test matrices. * - WEIGHT( 1 ) = CMPLX( SQRT( SQRT( ULP ) ), ZERO ) - WEIGHT( 2 ) = CMPLX( TNTH, ZERO ) + WEIGHT( 1 ) = CMPLX( TNTH, ZERO ) + WEIGHT( 2 ) = CMPLX( HALF, ZERO ) WEIGHT( 3 ) = ONE WEIGHT( 4 ) = ONE / WEIGHT( 2 ) WEIGHT( 5 ) = ONE / WEIGHT( 1 ) diff --git a/TESTING/EIG/ddrgvx.f b/TESTING/EIG/ddrgvx.f index 0a8ce1de..92bf4e15 100644 --- a/TESTING/EIG/ddrgvx.f +++ b/TESTING/EIG/ddrgvx.f @@ -323,9 +323,9 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION ZERO, ONE, TEN, TNTH + DOUBLE PRECISION ZERO, ONE, TEN, TNTH, HALF PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TEN = 1.0D+1, - $ TNTH = 1.0D-1 ) + $ TNTH = 1.0D-1, HALF = 0.5D+0 ) * .. * .. Local Scalars .. INTEGER I, IPTYPE, IWA, IWB, IWX, IWY, J, LINFO, @@ -406,8 +406,8 @@ * * Parameters used for generating test matrices. * - WEIGHT( 1 ) = SQRT( SQRT( ULP ) ) - WEIGHT( 2 ) = TNTH + WEIGHT( 1 ) = TNTH + WEIGHT( 2 ) = HALF WEIGHT( 3 ) = ONE WEIGHT( 4 ) = ONE / WEIGHT( 2 ) WEIGHT( 5 ) = ONE / WEIGHT( 1 ) diff --git a/TESTING/EIG/sdrgvx.f b/TESTING/EIG/sdrgvx.f index cf23097f..d899e56d 100644 --- a/TESTING/EIG/sdrgvx.f +++ b/TESTING/EIG/sdrgvx.f @@ -325,9 +325,9 @@ * ===================================================================== * * .. Parameters .. - REAL ZERO, ONE, TEN, TNTH + REAL ZERO, ONE, TEN, TNTH, HALF PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, TEN = 1.0E+1, - $ TNTH = 1.0E-1 ) + $ TNTH = 1.0E-1, HALF = 0.5D+0 ) * .. * .. Local Scalars .. INTEGER I, IPTYPE, IWA, IWB, IWX, IWY, J, LINFO, @@ -408,8 +408,8 @@ * * Parameters used for generating test matrices. * - WEIGHT( 1 ) = SQRT( SQRT( ULP ) ) - WEIGHT( 2 ) = TNTH + WEIGHT( 1 ) = TNTH + WEIGHT( 2 ) = HALF WEIGHT( 3 ) = ONE WEIGHT( 4 ) = ONE / WEIGHT( 2 ) WEIGHT( 5 ) = ONE / WEIGHT( 1 ) diff --git a/TESTING/EIG/zdrgvx.f b/TESTING/EIG/zdrgvx.f index 4d010d28..452530fe 100644 --- a/TESTING/EIG/zdrgvx.f +++ b/TESTING/EIG/zdrgvx.f @@ -320,9 +320,9 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION ZERO, ONE, TEN, TNTH + DOUBLE PRECISION ZERO, ONE, TEN, TNTH, HALF PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TEN = 1.0D+1, - $ TNTH = 1.0D-1 ) + $ TNTH = 1.0D-1, HALF = 0.5D+0 ) * .. * .. Local Scalars .. INTEGER I, IPTYPE, IWA, IWB, IWX, IWY, J, LINFO, @@ -403,8 +403,8 @@ * * Parameters used for generating test matrices. * - WEIGHT( 1 ) = DCMPLX( SQRT( SQRT( ULP ) ), ZERO ) - WEIGHT( 2 ) = DCMPLX( TNTH, ZERO ) + WEIGHT( 1 ) = DCMPLX( TNTH, ZERO ) + WEIGHT( 2 ) = DCMPLX( HALF, ZERO ) WEIGHT( 3 ) = ONE WEIGHT( 4 ) = ONE / WEIGHT( 2 ) WEIGHT( 5 ) = ONE / WEIGHT( 1 ) |