![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dtrcon.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack|
Return to dtrcon.f CVS log | Up to [local] / rpl / lapack / lapack |
| version 1.7, 2010/12/21 13:53:40 | 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 ) |