PCLATRS - solve a triangular system

       PCLATRS - solve a triangular system

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

LAPACK version 1.5                                 12 May 1997                                        PCLATRS(l)

       SUBROUTINE PCLATRS( 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            CNORM( * )

           COMPLEX         A( * ), X( * ), WORK( * )