CTRSL(3F)

NAME
     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
      SUBROUTINE CTRSL(T,LDT,N,B,JOB,INFO)

DESCRIPTION
     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