*DECK DSOSSL SUBROUTINE DSOSSL (K, N, L, X, C, B, M) C***BEGIN PROLOGUE DSOSSL C***SUBSIDIARY C***PURPOSE Subsidiary to DSOS C***LIBRARY SLATEC C***TYPE DOUBLE PRECISION (SOSSOL-S, DSOSSL-D) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C DSOSSL solves an upper triangular type of linear system by back C substitution. C C The matrix C is upper trapezoidal and stored as a linear array by C rows. The equations have been normalized so that the diagonal C entries of C are understood to be unity. The off diagonal entries C and the elements of the constant right hand side vector B have C already been stored as the negatives of the corresponding equation C values. C With each call to DSOSSL a (K-1) by (K-1) triangular system is C resolved. For L greater than K, column L of C is included in the C right hand side vector. C C***SEE ALSO DSOS C***ROUTINES CALLED (NONE) C***REVISION HISTORY (YYMMDD) C 801001 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***END PROLOGUE DSOSSL