From 5178b0ead49ef1640fc5ff624ff8a70d69637fdb Mon Sep 17 00:00:00 2001 From: james Date: Tue, 3 Apr 2012 18:11:13 +0000 Subject: changed weights so that the badly conditioned tests (which always fail) are avoided for SXV, DXV, CXV, ZXV. --- TESTING/EIG/cdrgvx.f | 8 ++++---- TESTING/EIG/ddrgvx.f | 8 ++++---- TESTING/EIG/sdrgvx.f | 8 ++++---- 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 ) -- cgit v1.2.3