Previous: sppsl Up: ../linpack.html Next: sqrdc

SPTSL

       SUBROUTINE SPTSL(N,D,E,B)
       INTEGER N
       REAL D(1),E(1),B(1)
 C
 C     SPTSL GIVEN A POSITIVE DEFINITE TRIDIAGONAL MATRIX AND A RIGHT
 C     HAND SIDE WILL FIND THE SOLUTION.
 C
 C     ON ENTRY
 C
 C        N        INTEGER
 C                 IS THE ORDER OF THE TRIDIAGONAL MATRIX.
 C
 C        D        REAL(N)
 C                 IS THE DIAGONAL OF THE TRIDIAGONAL MATRIX.
 C                 ON OUTPUT D IS DESTROYED.
 C
 C        E        REAL(N)
 C                 IS THE OFFDIAGONAL OF THE TRIDIAGONAL MATRIX.
 C                 E(1) THROUGH E(N-1) SHOULD CONTAIN THE
 C                 OFFDIAGONAL.
 C
 C        B        REAL(N)
 C                 IS THE RIGHT HAND SIDE VECTOR.
 C
 C     ON RETURN
 C
 C        B        CONTAINS THE SOULTION.
 C
 C     LINPACK. THIS VERSION DATED 08/14/78 .
 C     JACK DONGARRA, ARGONNE NATIONAL LABORATORY.
 C
 C     NO EXTERNALS
 C     FORTRAN MOD
 C