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/slarrc.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/slarrc.f')
| -rw-r--r-- | SRC/slarrc.f | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/SRC/slarrc.f b/SRC/slarrc.f index 8469660a..75e568e8 100644 --- a/SRC/slarrc.f +++ b/SRC/slarrc.f @@ -170,6 +170,13 @@ * .. Executable Statements .. * INFO = 0 +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + RETURN + END IF +* LCNT = 0 RCNT = 0 EIGCNT = 0 |