131 SUBROUTINE dposv( UPLO, N, NRHS, A, LDA, B, LDB, INFO )
140 INTEGER info, lda, ldb, n, nrhs
143 DOUBLE PRECISION 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(
'DPOSV ', -info )
181 CALL
dpotrf( uplo, n, a, lda, info )
186 CALL
dpotrs( uplo, n, nrhs, a, lda,
b, ldb, info )
subroutine dpotrs(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
DPOTRS
LOGICAL function lsame(CA, CB)
LSAME
subroutine dposv(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
DPOSV 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 dpotrf(UPLO, N, A, LDA, INFO)
DPOTRF