diff options
author | eugene.chereshnev <echeresh@jflmkl025.jf.intel.com> | 2017-03-30 16:26:41 -0700 |
---|---|---|
committer | eugene.chereshnev <echeresh@jflmkl025.jf.intel.com> | 2017-03-31 13:06:11 -0700 |
commit | 16db9c24ea1da07e27c22cea5a187545085947a4 (patch) | |
tree | 9b821c8ac04f334ce80b84a82da2b470415810b3 /SRC/dlarrv.f | |
parent | ee09e0720e729c268f91e42ec1bcb6c26402283b (diff) | |
download | lapack-16db9c24ea1da07e27c22cea5a187545085947a4.tar.gz lapack-16db9c24ea1da07e27c22cea5a187545085947a4.tar.bz2 lapack-16db9c24ea1da07e27c22cea5a187545085947a4.zip |
Add quick return for *LARR* routines
Diffstat (limited to 'SRC/dlarrv.f')
-rw-r--r-- | SRC/dlarrv.f | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/SRC/dlarrv.f b/SRC/dlarrv.f index edda67d7..8006a75c 100644 --- a/SRC/dlarrv.f +++ b/SRC/dlarrv.f @@ -344,6 +344,13 @@ * .. INFO = 0 +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + RETURN + END IF +* * The first N entries of WORK are reserved for the eigenvalues INDLD = N+1 INDLLD= 2*N+1 |