version 1.18, 2017/06/17 11:06:32
|
version 1.19, 2018/05/29 06:55:20
|
Line 195
|
Line 195
|
SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, |
SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, |
$ SWORK, ITER, INFO ) |
$ SWORK, ITER, INFO ) |
* |
* |
* -- LAPACK driver routine (version 3.7.0) -- |
* -- LAPACK driver routine (version 3.8.0) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* June 2016 |
* June 2016 |
Line 230
|
Line 230
|
DOUBLE PRECISION ANRM, CTE, EPS, RNRM, XNRM |
DOUBLE PRECISION ANRM, CTE, EPS, RNRM, XNRM |
* |
* |
* .. External Subroutines .. |
* .. External Subroutines .. |
EXTERNAL DAXPY, DGEMM, DLACPY, DLAG2S, SLAG2D, SGETRF, |
EXTERNAL DAXPY, DGEMM, DLACPY, DLAG2S, DGETRF, DGETRS, |
$ SGETRS, XERBLA |
$ SGETRF, SGETRS, SLAG2D, XERBLA |
* .. |
* .. |
* .. External Functions .. |
* .. External Functions .. |
INTEGER IDAMAX |
INTEGER IDAMAX |