dbksol.f
SUBROUTINE DBKSOL (N, A, X)
C***BEGIN PROLOGUE DBKSOL
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Subsidiary to DBVSUP
C***LIBRARY SLATEC
C***TYPE DOUBLE PRECISION (BKSOL-S, DBKSOL-D)
C***AUTHOR Watts, H. A., (SNLA)
C***DESCRIPTION
C
C **********************************************************************
C Solution of an upper triangular linear system by
C back-substitution
C
C The matrix A is assumed to be stored in a linear
C array proceeding in a row-wise manner. The
C vector X contains the given constant vector on input
C and contains the solution on return.
C The actual diagonal of A is unity while a diagonal
C scaling matrix is stored there.
C **********************************************************************
C
C***SEE ALSO DBVSUP
C***ROUTINES CALLED DDOT
C***REVISION HISTORY (YYMMDD)
C 750601 DATE WRITTEN
C 890831 Modified array declarations. (WRB)
C 891214 Prologue converted to Version 4.0 format. (BAB)
C 900328 Added TYPE section. (WRB)
C 910722 Updated AUTHOR section. (ALS)
C***END PROLOGUE DBKSOL