version 1.2, 2010/04/21 13:45:15
|
version 1.8, 2011/07/22 07:38:05
|
Line 1
|
Line 1
|
SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, |
SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, |
$ WORK, IWORK, INFO ) |
$ WORK, IWORK, INFO ) |
* |
* |
* -- LAPACK routine (version 3.2) -- |
* -- LAPACK routine (version 3.3.1) -- |
* -- 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..-- |
* November 2006 |
* -- April 2011 -- |
* |
* |
* Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. |
* Modified to call DLACN2 in place of DLACON, 5 Feb 03, SJH. |
* |
* |
Line 151
|
Line 151
|
$ WORK, N, INFO ) |
$ WORK, N, INFO ) |
ELSE |
ELSE |
* |
* |
* Multiply by inv(L')*inv(U'). |
* Multiply by inv(L**T)*inv(U**T). |
* |
* |
CALL DGTTRS( 'Transpose', N, 1, DL, D, DU, DU2, IPIV, WORK, |
CALL DGTTRS( 'Transpose', N, 1, DL, D, DU, DU2, IPIV, WORK, |
$ N, INFO ) |
$ N, INFO ) |