cptsv - compute the solution to a complex system of linear equations A*X = B, where A is an N-by-N Hermitian positive definite tridiagonal matrix, and X and B are N-by-NRHS matrices.
SUBROUTINE CPTSV( N, NRHS, DIAG, SUB, B, LDB, INFO) COMPLEX SUB(*), B(LDB,*) INTEGER N, NRHS, LDB, INFO REAL DIAG(*)
SUBROUTINE CPTSV_64( N, NRHS, DIAG, SUB, B, LDB, INFO) COMPLEX SUB(*), B(LDB,*) INTEGER*8 N, NRHS, LDB, INFO REAL DIAG(*)
SUBROUTINE PTSV( [N], [NRHS], DIAG, SUB, B, [LDB], [INFO]) COMPLEX, DIMENSION(:) :: SUB COMPLEX, DIMENSION(:,:) :: B INTEGER :: N, NRHS, LDB, INFO REAL, DIMENSION(:) :: DIAG
SUBROUTINE PTSV_64( [N], [NRHS], DIAG, SUB, B, [LDB], [INFO]) COMPLEX, DIMENSION(:) :: SUB COMPLEX, DIMENSION(:,:) :: B INTEGER(8) :: N, NRHS, LDB, INFO REAL, DIMENSION(:) :: DIAG
#include <sunperf.h>
void cptsv(int n, int nrhs, float *diag, complex *sub, complex *b, int ldb, int *info);
void cptsv_64(long n, long nrhs, float *diag, complex *sub, complex *b, long ldb, long *info);
cptsv computes the solution to a complex system of linear equations A*X = B, where A is an N-by-N Hermitian positive definite tridiagonal matrix, and X and B are N-by-NRHS matrices.
A is factored as A = L*D*L**H, and the factored form of A is then used to solve the system of equations.
= 0: successful exit
< 0: if INFO = -i, the i-th argument had an illegal value
> 0: if INFO = i, the leading minor of order i is not positive definite, and the solution has not been computed. The factorization has not been completed unless i = N.