NAME

       PSLATRS - solve a triangular system

SYNOPSIS

       SUBROUTINE PSLATRS( UPLO,  TRANS,  DIAG,  NORMIN,  N,  A, IA, JA, DESCA, X, IX, JX, DESCX,
                           SCALE, CNORM, WORK )

           CHARACTER       DIAG, NORMIN, TRANS, UPLO

           INTEGER         IA, IX, JA, JX, N

           REAL            SCALE

           INTEGER         DESCA( * ), DESCX( * )

           REAL            A( * ), CNORM( * ), X( * ), WORK( * )

PURPOSE

       PSLATRS solves a triangular system. This routine in unfinished at this time, but  will  be
       part of the next release.