sptts2 - solve a tridiagonal system of the form A * X = B using the L*D*L' factorization of A computed by SPTTRF
SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB) INTEGER N, NRHS, LDB REAL D(*), E(*), B(LDB,*)
SUBROUTINE SPTTS2_64( N, NRHS, D, E, B, LDB) INTEGER*8 N, NRHS, LDB REAL D(*), E(*), B(LDB,*)
SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB) INTEGER :: N, NRHS, LDB REAL, DIMENSION(:) :: D, E REAL, DIMENSION(:,:) :: B
SUBROUTINE SPTTS2_64( N, NRHS, D, E, B, LDB) INTEGER(8) :: N, NRHS, LDB REAL, DIMENSION(:) :: D, E REAL, DIMENSION(:,:) :: B
#include <sunperf.h>
void sptts2(int n, int nrhs, float *d, float *e, float *b, int ldb);
void sptts2_64(long n, long nrhs, float *d, float *e, float *b, long ldb);
sptts2 solves a tridiagonal system of the form A * X = B using the L*D*L' factorization of A computed by SPTTRF. D is a diagonal matrix specified in the vector D, L is a unit bidiagonal matrix whose subdiagonal is specified in the vector E, and X and B are N by NRHS matrices.