131 SUBROUTINE sposv( UPLO, N, NRHS, A, LDA, B, LDB, INFO )
140 INTEGER info, lda, ldb, n, nrhs
143 REAL a( lda, * ),
b( ldb, * )
163 IF( .NOT.
lsame( uplo,
'U' ) .AND. .NOT.
lsame( uplo,
'L' ) )
THEN
165 ELSE IF( n.LT.0 )
THEN
167 ELSE IF( nrhs.LT.0 )
THEN
169 ELSE IF( lda.LT.max( 1, n ) )
THEN
171 ELSE IF( ldb.LT.max( 1, n ) )
THEN
175 CALL
xerbla(
'SPOSV ', -info )
181 CALL
spotrf( uplo, n, a, lda, info )
186 CALL
spotrs( uplo, n, nrhs, a, lda,
b, ldb, info )
LOGICAL function lsame(CA, CB)
LSAME
subroutine sposv(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
SPOSV computes the solution to system of linear equations A * X = B for PO matrices ...
subroutine xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine spotrs(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
SPOTRS
subroutine spotrf(UPLO, N, A, LDA, INFO)
SPOTRF