123 SUBROUTINE sgesv( N, NRHS, A, LDA, IPIV, B, LDB, INFO )
131 INTEGER info, lda, ldb, n, nrhs
135 REAL 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(
'SGESV ', -info )
167 CALL
sgetrf( n, n, a, lda, ipiv, info )
172 CALL
sgetrs(
'No transpose', n, nrhs, a, lda, ipiv,
b, ldb,
subroutine sgetrs(TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
SGETRS
subroutine sgesv(N, NRHS, A, LDA, IPIV, B, LDB, INFO)
SGESV computes the solution to system of linear equations A * X = B for GE matrices (simple driver) ...
subroutine sgetrf(M, N, A, LDA, IPIV, INFO)
SGETRF
subroutine xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i