Update LAPACK to 3.8.0
This commit is contained in:
@@ -137,7 +137,7 @@
|
||||
SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
|
||||
$ EIGCNT, LCNT, RCNT, INFO )
|
||||
*
|
||||
* -- LAPACK auxiliary routine (version 3.7.0) --
|
||||
* -- LAPACK auxiliary routine (version 3.7.1) --
|
||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||
* June 2016
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user