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.