Return to dtbcon.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 170 | Line 170 |
$ AB, LDAB, WORK, SCALE, WORK( 2*N+1 ), INFO ) | $ AB, LDAB, WORK, SCALE, WORK( 2*N+1 ), INFO ) |
ELSE | ELSE |
* | * |
* Multiply by inv(A'). | * Multiply by inv(A**T). |
* | * |
CALL DLATBS( UPLO, 'Transpose', DIAG, NORMIN, N, KD, AB, | CALL DLATBS( UPLO, 'Transpose', DIAG, NORMIN, N, KD, AB, |
$ LDAB, WORK, SCALE, WORK( 2*N+1 ), INFO ) | $ LDAB, WORK, SCALE, WORK( 2*N+1 ), INFO ) |