Return to dtptrs.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.5, 2010/08/07 13:22:28 | version 1.8, 2011/07/22 07:38:13 |
---|---|
Line 141 | Line 141 |
END IF | END IF |
INFO = 0 | INFO = 0 |
* | * |
* Solve A * x = b or A' * x = b. | * Solve A * x = b or A**T * x = b. |
* | * |
DO 30 J = 1, NRHS | DO 30 J = 1, NRHS |
CALL DTPSV( UPLO, TRANS, DIAG, N, AP, B( 1, J ), 1 ) | CALL DTPSV( UPLO, TRANS, DIAG, N, AP, B( 1, J ), 1 ) |