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 )
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine sptts2(N, NRHS, D, E, B, LDB)
SPTTS2 solves a tridiagonal system of the form AX=B using the L D LH factorization computed by spttrf...
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine sscal(N, SA, SX, INCX)
SSCAL