121 SUBROUTINE zgesv( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
128 INTEGER INFO, LDA, LDB, N, NRHS
132 COMPLEX*16 A( LDA, * ), B( LDB, * )
150 ELSE IF( nrhs.LT.0 )
THEN
152 ELSE IF( lda.LT.max( 1, n ) )
THEN
154 ELSE IF( ldb.LT.max( 1, n ) )
THEN
158 CALL xerbla(
'ZGESV ', -info )
164 CALL zgetrf( n, n, a, lda, ipiv, info )
169 CALL zgetrs(
'No transpose', n, nrhs, a, lda, ipiv, b, ldb,
subroutine xerbla(srname, info)
subroutine zgesv(n, nrhs, a, lda, ipiv, b, ldb, info)
Download ZGESV + dependencies [TGZ] [ZIP] [TXT]
subroutine zgetrf(m, n, a, lda, ipiv, info)
ZGETRF
subroutine zgetrs(trans, n, nrhs, a, lda, ipiv, b, ldb, info)
ZGETRS