SSPSL(3F)							     SSPSL(3F)

NAME    [Toc]    [Back]

     SSPSL   - SSISL solves the	real symmetric system A	* X = B	using the
     factors computed by SSPFA.

SYNOPSYS    [Toc]    [Back]

      SUBROUTINE SSPSL(AP,N,KPVT,B)

DESCRIPTION    [Toc]    [Back]

     On	Entry

     AP	REAL(N*(N+1)/2)
	the output from	SSPFA.

     N INTEGER
	the order of the matrix	 A .

     KPVT INTEGER(N)
	the pivot vector from SSPFA.

     B REAL(N)
	the right hand side vector.  On	Return

     B the solution vector  X .	Error Condition

     A division	by zero	may occur if  SSPCO  has set RCOND .EQ.	0.0 or	SSPFA
     has set INFO .NE. 0  .  To	compute	 INVERSE(A) * C	 where	C  is a	matrix
     with  P  columns
	CALL SSPFA(AP,N,KPVT,INFO)
	IF (INFO .NE. 0) GO TO ...
	DO 10 J	= 1, P
	CALL SSPSL(AP,N,KPVT,C(1,J)) 10	CONTINUE LINPACK.  This	version	dated
     08/14/78 .	 James Bunch, Univ. Calif. San Diego, Argonne Nat. Lab.
     Subroutines and Functions BLAS SAXPY,SDOT Fortran IABS


									PPPPaaaaggggeeee 1111