Update the LAPACK testsuite to match 3.10.1
This commit is contained in:
@@ -147,8 +147,6 @@
|
||||
*> \author Univ. of Colorado Denver
|
||||
*> \author NAG Ltd.
|
||||
*
|
||||
*> \date December 2016
|
||||
*
|
||||
*> \ingroup double_lin
|
||||
*
|
||||
* =====================================================================
|
||||
@@ -156,10 +154,9 @@
|
||||
$ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK,
|
||||
$ RWORK, IWORK, NOUT )
|
||||
*
|
||||
* -- LAPACK test routine (version 3.7.0) --
|
||||
* -- LAPACK test routine --
|
||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||
* December 2016
|
||||
*
|
||||
* .. Scalar Arguments ..
|
||||
LOGICAL TSTERR
|
||||
@@ -411,7 +408,7 @@
|
||||
CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
|
||||
LWORK = (N+NB+1)*(NB+3)
|
||||
*
|
||||
* We need to copute the invesrse to compute
|
||||
* We need to compute the inverse to compute
|
||||
* RCONDC that is used later in TEST3.
|
||||
*
|
||||
CALL DSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
|
||||
|
||||
Reference in New Issue
Block a user