103 SUBROUTINE sptts2( N, NRHS, D, E, B, LDB )
114 REAL b( ldb, * ), d( * ), e( * )
131 $ CALL
sscal( nrhs, 1. / d( 1 ),
b, ldb )
143 b( i,
j ) =
b( i,
j ) -
b( i-1,
j )*e( i-1 )
148 b( n,
j ) =
b( n,
j ) / d( n )
149 DO 20 i = n - 1, 1, -1
150 b( i,
j ) =
b( i,
j ) / d( i ) -
b( i+1,
j )*e( i )