diff options
author | Julie <julie@cs.utk.edu> | 2016-06-12 23:21:04 -0700 |
---|---|---|
committer | Julie <julie@cs.utk.edu> | 2016-06-12 23:21:04 -0700 |
commit | ed2ea1af894955ddd1ddfd0acb15e1c07d459f1e (patch) | |
tree | 98e082131f1ca4ec697e7522ce524b2e59ca3b24 /SRC/ilaenv.f | |
parent | f22614a1a00c722ee0c570a4e3d36af4f1cb2cb6 (diff) | |
download | lapack-ed2ea1af894955ddd1ddfd0acb15e1c07d459f1e.tar.gz lapack-ed2ea1af894955ddd1ddfd0acb15e1c07d459f1e.tar.bz2 lapack-ed2ea1af894955ddd1ddfd0acb15e1c07d459f1e.zip |
blocked back-transformation for the non-symmetric eigenvalue problem - Contribution from Mark Gates (UTK)
From mark:
It blocks NB gemv calls into one gemm call inside trevc. To do that, it
needs a new routine, trevc3, because unfortunately the lwork was not
passed into trevc. (I highly recommend all new routines always pass
lwork and lrwork, where applicable, to enable future upgrades & to
catch lwork bugs.)
Diffstat (limited to 'SRC/ilaenv.f')
-rw-r--r-- | SRC/ilaenv.f | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/SRC/ilaenv.f b/SRC/ilaenv.f index 89a4468f..a8daf00a 100644 --- a/SRC/ilaenv.f +++ b/SRC/ilaenv.f @@ -397,6 +397,12 @@ ELSE NB = 64 END IF + ELSE IF ( C3.EQ.'EVC' ) THEN + IF( SNAME ) THEN + NB = 64 + ELSE + NB = 64 + END IF END IF ELSE IF( C2.EQ.'LA' ) THEN IF( C3.EQ.'UUM' ) THEN |