Return to dtpcon.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.4, 2010/08/06 15:32:36 | 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 ) |