STRSL(3F)

NAME
     STRSL   - STRSL solves systems of the form

        T * X = B or
        TRANS(T) * X = B

     where T is a triangular matrix of order N.  Here TRANS(T) denotes the
     transpose of the matrix T.


SYNOPSYS
      SUBROUTINE STRSL(T,LDT,N,B,JOB,INFO)

DESCRIPTION
     On Entry

     T REAL(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 REAL(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 TRANS(T)*X=B, T lower triangular,
        11   solve TRANS(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 SAXPY,SDOT Fortran MOD