diff options
author | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-02-24 21:12:23 +0000 |
---|---|---|
committer | james <james@8a072113-8704-0410-8d35-dd094bca7971> | 2011-02-24 21:12:23 +0000 |
commit | 27bef224d9e4e8fdadc0e33d70c98d9a10a0d149 (patch) | |
tree | d8005dbec53eb5d46e8bf290e350027c72e824df /SRC/dsteqr.f | |
parent | dc06e1f1e960f24583f9b305b93de1c355d7db09 (diff) | |
download | lapack-27bef224d9e4e8fdadc0e33d70c98d9a10a0d149.tar.gz lapack-27bef224d9e4e8fdadc0e33d70c98d9a10a0d149.tar.bz2 lapack-27bef224d9e4e8fdadc0e33d70c98d9a10a0d149.zip |
changed matrix norm to 'M' (max) from 'I' (inf) for scaling of input matrix
and added check for zero norm in xSTERF (the xSTEQR already had this check)
this fixes the issue reported in bug0036
Diffstat (limited to 'SRC/dsteqr.f')
-rw-r--r-- | SRC/dsteqr.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dsteqr.f b/SRC/dsteqr.f index a0ec5cdb..17a17468 100644 --- a/SRC/dsteqr.f +++ b/SRC/dsteqr.f @@ -195,7 +195,7 @@ * * Scale submatrix in rows and columns L to LEND * - ANORM = DLANST( 'I', LEND-L+1, D( L ), E( L ) ) + ANORM = DLANST( 'M', LEND-L+1, D( L ), E( L ) ) ISCALE = 0 IF( ANORM.EQ.ZERO ) $ GO TO 10 |