PDLATRS - solve a triangular system

       PDLATRS - solve a triangular system

       PDLATRS 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                                        PDLATRS(l)

       SUBROUTINE PDLATRS( 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

           DOUBLE          PRECISION SCALE

           INTEGER         DESCA( * ), DESCX( * )

           DOUBLE          PRECISION A( * ), CNORM( * ), X( * ), WORK( * )