123 SUBROUTINE zgesv( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
131 INTEGER info, lda, ldb, n, nrhs
135 COMPLEX*16 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(
'ZGESV ', -info )
167 CALL
zgetrf( n, n, a, lda, ipiv, info )
172 CALL
zgetrs(
'No transpose', n, nrhs, a, lda, ipiv,
b, ldb,
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zgesv(N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZGESV computes the solution to system of linear equations A * X = B for GE matrices (simple driver) ...
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine zgetrs(TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZGETRS
subroutine zgetrf(M, N, A, LDA, IPIV, INFO)
ZGETRF VARIANT: Crout Level 3 BLAS version of the algorithm.