zgbsl
zgbsl - (obsolete) solve the linear system Ax = b for a matrix A in banded storage, which has been LU-factored by CGBCO or CGBFA, and vectors b and x.
SUBROUTINE ZGBSL( A, LDA, N, NSUB, NSUPER, IPIVOT, B, JOB)
DOUBLE COMPLEX A(LDA,*), B(*)
INTEGER LDA, N, NSUB, NSUPER, JOB
INTEGER IPIVOT(*)
SUBROUTINE ZGBSL_64( A, LDA, N, NSUB, NSUPER, IPIVOT, B, JOB)
DOUBLE COMPLEX A(LDA,*), B(*)
INTEGER*8 LDA, N, NSUB, NSUPER, JOB
INTEGER*8 IPIVOT(*)
#include <sunperf.h>
void zgbsl(doublecomplex *a, int lda, int n, int nsub, int nsuper, int *ipivot, doublecomplex *b, int job);
void zgbsl_64(doublecomplex *a, long lda, long n, long nsub, long nsuper, long *ipivot, doublecomplex *b, long job);
-
* A (input)
-
LU factorization of the matrix A, as computed by CGBCO or CGBFA.
-
* LDA (input)
-
Leading dimension of the array A as specified in a dimension or type statement. LDA >= 2 * NSUB + NSUPER + 1.
-
* N (input)
-
Order of the matrix A. N >= 0.
-
* NSUB (input)
-
Number of subdiagonals of A. N-1 >= NSUB >= 0 but if N = 0 then NSUB = 0.
-
* NSUPER (input)
-
Number of superdiagonals of A. N-1 >= NSUPER >= 0 but if N = 0 then NSUPER = 0.
-
* IPIVOT (input)
-
Pivot vector as computed by CGBCO or CGBFA.
-
* B (input/output)
-
On entry, the right-hand side vector b. On exit, the solution vector x.
-
* JOB (input)
-
Determines which operation this subroutine will perform:
0 solve the system Ax = b
not 0 solve the linear system AHx = b Note that ATx = AHx for real matrices.