spttrs - solve a tridiagonal system of the form A * X = B using the L*D*L' factorization of A computed by SPTTRF
SUBROUTINE SPTTRS( N, NRHS, DIAG, OFFD, B, LDB, INFO) INTEGER N, NRHS, LDB, INFO REAL DIAG(*), OFFD(*), B(LDB,*)
SUBROUTINE SPTTRS_64( N, NRHS, DIAG, OFFD, B, LDB, INFO) INTEGER*8 N, NRHS, LDB, INFO REAL DIAG(*), OFFD(*), B(LDB,*)
SUBROUTINE PTTRS( [N], [NRHS], DIAG, OFFD, B, [LDB], [INFO]) INTEGER :: N, NRHS, LDB, INFO REAL, DIMENSION(:) :: DIAG, OFFD REAL, DIMENSION(:,:) :: B
SUBROUTINE PTTRS_64( [N], [NRHS], DIAG, OFFD, B, [LDB], [INFO]) INTEGER(8) :: N, NRHS, LDB, INFO REAL, DIMENSION(:) :: DIAG, OFFD REAL, DIMENSION(:,:) :: B
#include <sunperf.h>
void spttrs(int n, int nrhs, float *diag, float *offd, float *b, int ldb, int *info);
void spttrs_64(long n, long nrhs, float *diag, float *offd, float *b, long ldb, long *info);
spttrs 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.
= 0: successful exit
< 0: if INFO = -k, the k-th argument had an illegal value