mfi_strtrs Subroutine
public pure subroutine mfi_strtrs(a, b, uplo, trans, diag, info)
Modern interface for strtrs. See also: mfi_trtrs, f77_trtrs. Solves a triangular linear system with multiple right-hand sides:
A * X = B or A**T * X = B or A**H * X = B,
where A is a triangular matrix (stored in a), and B is overwritten by the solution X.
Optional arguments:
- uplo: 'U' (upper triangular, default) or 'L' (lower triangular)
- trans: 'N' (no transpose), 'T' (transpose), or 'C' (conjugate transpose, default 'N')
- diag: 'N' (non-unit diagonal, default) or 'U' (unit diagonal)
- info: if not present and info /= 0, calls mfi_error.
The shapes are inferred from a (N-by-N) and b (N-by-NRHS).
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=REAL32), | intent(in) | :: | a(:,:) | |||
| real(kind=REAL32), | intent(inout) | :: | b(:,:) | |||
| character(len=1), | intent(in), | optional | :: | uplo | ||
| character(len=1), | intent(in), | optional | :: | trans | ||
| character(len=1), | intent(in), | optional | :: | diag | ||
| integer, | intent(out), | optional | :: | info |