1 SUBROUTINE dgesv( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
9 INTEGER INFO, LDA, LDB, N, NRHS
13 DOUBLE PRECISION A( LDA, * ), B( LDB, * )
82 ELSE IF( nrhs.LT.0 )
THEN
84 ELSE IF( lda.LT.max( 1, n ) )
THEN
86 ELSE IF( ldb.LT.max( 1, n ) )
THEN
90 CALL xerbla(
'DGESV ', -info )
96 CALL dgetrf( n, n, a, lda, ipiv, info )
101 CALL dgetrs(
'No transpose', n, nrhs, a, lda, ipiv, b, ldb,
subroutine dgesv(N, NRHS, A, LDA, IPIV, B, LDB, INFO)
subroutine dgetrf(M, N, A, LDA, IPIV, INFO)
subroutine dgetrs(TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
subroutine xerbla(SRNAME, INFO)