Return to dtrcon.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.3, 2010/08/06 15:28:49 | version 1.8, 2011/07/22 07:38:13 |
---|---|
Line 165 | Line 165 |
$ LDA, WORK, SCALE, WORK( 2*N+1 ), INFO ) | $ LDA, WORK, SCALE, WORK( 2*N+1 ), INFO ) |
ELSE | ELSE |
* | * |
* Multiply by inv(A'). | * Multiply by inv(A**T). |
* | * |
CALL DLATRS( UPLO, 'Transpose', DIAG, NORMIN, N, A, LDA, | CALL DLATRS( UPLO, 'Transpose', DIAG, NORMIN, N, A, LDA, |
$ WORK, SCALE, WORK( 2*N+1 ), INFO ) | $ WORK, SCALE, WORK( 2*N+1 ), INFO ) |