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, * )
141 EXTERNAL dgetrf, dgetrs, xerbla
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,