PDPTTRS - solve a system of linear equations A(1:N, JA:JA+N-1) * X = B(IB:IB+N-1, 1:NRHS)

       PDPTTRS - solve a system of linear equations   A(1:N, JA:JA+N-1) * X = B(IB:IB+N-1, 1:NRHS)

       PDPTTRS solves a system of linear equations

       where  A(1:N,  JA:JA+N-1)  is the matrix used to produce the factors stored in A(1:N,JA:JA+N-1) and AF by
       PDPTTRF.
       A(1:N, JA:JA+N-1) is an N-by-N real
       tridiagonal symmetric positive definite distributed
       matrix.

       Routine PDPTTRF MUST be called first.

LAPACK version 1.5                                 12 May 1997                                        PDPTTRS(l)

       SUBROUTINE PDPTTRS( N, NRHS, D, E, JA, DESCA, B, IB, DESCB, AF, LAF, WORK, LWORK, INFO )

           INTEGER         IB, INFO, JA, LAF, LWORK, N, NRHS

           INTEGER         DESCA( * ), DESCB( * )

           DOUBLE          PRECISION AF( * ), B( * ), D( * ), E( * ), WORK( * )