CTRSL(3F) CTRSL(3F)
CTRSL  CTRSL solves systems of the form
T * X = B or
CTRANS(T) * X = B
where T is a triangular matrix of order N. Here CTRANS(T) denotes the
conjugate transpose of the matrix T.
SUBROUTINE CTRSL(T,LDT,N,B,JOB,INFO)
On Entry
T COMPLEX(LDT,N)
T contains the matrix of the system. The zero
elements of the matrix are not referenced, and
the corresponding elements of the array can be
used to store other information.
LDT INTEGER
LDT is the leading dimension of the array T.
N INTEGER
N is the order of the system.
B COMPLEX(N).
B contains the right hand side of the system.
JOB INTEGER
JOB specifies what kind of system is to be solved.
If JOB is
00 solve T*X = B, T lower triangular,
01 solve T*X = B, T upper triangular,
10 solve CTRANS(T)*X = B, T lower triangular,
11 solve CTRANS(T)*X = B, T upper triangular. On Return
B B contains the solution, if INFO .EQ. 0.
Otherwise B is unaltered.
INFO INTEGER
INFO contains zero if the system is nonsingular.
Otherwise INFO contains the index of
the first zero diagonal element of T. LINPACK. This version dated
08/14/78 . G. W. Stewart, University of Maryland, Argonne National Lab.
Subroutines and Functions BLAS CAXPY,CDOTC Fortran
ABS,AIMAG,CONJG,MOD,REAL
PPPPaaaaggggeeee 1111 [ Back ]
