![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dtpcon.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 dtpcon.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:12 |
|---|---|
| Line 159 | Line 159 |
| $ WORK, SCALE, WORK( 2*N+1 ), INFO ) | $ WORK, SCALE, WORK( 2*N+1 ), INFO ) |
| ELSE | ELSE |
| * | * |
| * Multiply by inv(A'). | * Multiply by inv(A**T). |
| * | * |
| CALL DLATPS( UPLO, 'Transpose', DIAG, NORMIN, N, AP, | CALL DLATPS( UPLO, 'Transpose', DIAG, NORMIN, N, AP, |
| $ WORK, SCALE, WORK( 2*N+1 ), INFO ) | $ WORK, SCALE, WORK( 2*N+1 ), INFO ) |