f77_getri Interface
public interface f77_getri
Generic old style interface for GETRI. Supports s, d, c, z. See also: mfi_getri, sgetri, dgetri, cgetri, zgetri.
Subroutines
public pure subroutine sgetri(n, a, lda, ipiv, work, lwork, info)
Original interface for SGETRI See also: mfi_getri, f77_getri.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL32), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| integer, | intent(in) | :: | ipiv(*) | |||
| real(kind=REAL32), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine dgetri(n, a, lda, ipiv, work, lwork, info)
Original interface for DGETRI See also: mfi_getri, f77_getri.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| real(kind=REAL64), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| integer, | intent(in) | :: | ipiv(*) | |||
| real(kind=REAL64), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine cgetri(n, a, lda, ipiv, work, lwork, info)
Original interface for CGETRI See also: mfi_getri, f77_getri.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL32), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| integer, | intent(in) | :: | ipiv(*) | |||
| complex(kind=REAL32), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine zgetri(n, a, lda, ipiv, work, lwork, info)
Original interface for ZGETRI See also: mfi_getri, f77_getri.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL64), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| integer, | intent(in) | :: | ipiv(*) | |||
| complex(kind=REAL64), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |