CTRSL(3F)							     CTRSL(3F)

NAME    [Toc]    [Back]

     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.

SYNOPSYS    [Toc]    [Back]

      SUBROUTINE CTRSL(T,LDT,N,B,JOB,INFO)

DESCRIPTION    [Toc]    [Back]

     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