123 SUBROUTINE dgesv( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
131 INTEGER INFO, LDA, LDB, N, NRHS
135 DOUBLE PRECISION A( lda, * ), B( ldb, * )
153 ELSE IF( nrhs.LT.0 )
THEN
155 ELSE IF( lda.LT.max( 1, n ) )
THEN
157 ELSE IF( ldb.LT.max( 1, n ) )
THEN
161 CALL
xerbla(
'DGESV ', -info )
167 CALL
dgetrf( n, n, a, lda, ipiv, info )
172 CALL
dgetrs(
'No transpose', n, nrhs, a, lda, ipiv, b, ldb,
subroutine dgetrs(TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
DGETRS
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dgesv(N, NRHS, A, LDA, IPIV, B, LDB, INFO)
DGESV computes the solution to system of linear equations A * X = B for GE matrices ...
subroutine dgetrf(M, N, A, LDA, IPIV, INFO)
DGETRF