[BACK]Return to dtptrs.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dtptrs.f between versions 1.7 and 1.8

version 1.7, 2010/12/21 13:53:40 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 )
Removed from v.1.7  
changed lines
  Added in v.1.8

CVSweb interface <joel.bertrand@systella.fr>