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

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

       PDDTTRS solves a system of linear equations
                                         or
                 A(1:N, JA:JA+N-1)' * X = B(IB:IB+N-1, 1:NRHS)

       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
       PDDTTRF.
       A(1:N, JA:JA+N-1) is an N-by-N real
       tridiagonal diagonally dominant-like distributed
       matrix.

       Routine PDDTTRF MUST be called first.

LAPACK version 1.5                                 12 May 1997                                        PDDTTRS(l)

       SUBROUTINE PDDTTRS( TRANS, N, NRHS, DL, D, DU, JA, DESCA, B, IB, DESCB, AF, LAF, WORK, LWORK, INFO )

           CHARACTER       TRANS

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

           INTEGER         DESCA( * ), DESCB( * )

           DOUBLE          PRECISION AF( * ), B( * ), D( * ), DL( * ), DU( * ), WORK( * )