f77_gglsm Interface
public interface f77_gglsm
Generic old style interface for GGLSM. Supports s, d, c, z. See also: mfi_gglsm, sgglsm, dgglsm, cgglsm, zgglsm.
Subroutines
public pure subroutine sgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)
Original interface for SGGLSM See also: mfi_gglsm, f77_gglsm.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | p | |||
| real(kind=REAL32), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| real(kind=REAL32), | intent(inout) | :: | b(ldb,*) | |||
| integer, | intent(in) | :: | ldb | |||
| real(kind=REAL32), | intent(inout) | :: | d(*) | |||
| real(kind=REAL32), | intent(out) | :: | x(*) | |||
| real(kind=REAL32), | intent(out) | :: | y(*) | |||
| real(kind=REAL32), | intent(out) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine dgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)
Original interface for DGGLSM See also: mfi_gglsm, f77_gglsm.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | p | |||
| real(kind=REAL64), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| real(kind=REAL64), | intent(inout) | :: | b(ldb,*) | |||
| integer, | intent(in) | :: | ldb | |||
| real(kind=REAL64), | intent(inout) | :: | d(*) | |||
| real(kind=REAL64), | intent(out) | :: | x(*) | |||
| real(kind=REAL64), | intent(out) | :: | y(*) | |||
| real(kind=REAL64), | intent(out) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine cgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)
Original interface for CGGLSM See also: mfi_gglsm, f77_gglsm.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | p | |||
| complex(kind=REAL32), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| complex(kind=REAL32), | intent(inout) | :: | b(ldb,*) | |||
| integer, | intent(in) | :: | ldb | |||
| complex(kind=REAL32), | intent(inout) | :: | d(*) | |||
| complex(kind=REAL32), | intent(out) | :: | x(*) | |||
| complex(kind=REAL32), | intent(out) | :: | y(*) | |||
| complex(kind=REAL32), | intent(out) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine zgglsm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)
Original interface for ZGGLSM See also: mfi_gglsm, f77_gglsm.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | p | |||
| complex(kind=REAL64), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| complex(kind=REAL64), | intent(inout) | :: | b(ldb,*) | |||
| integer, | intent(in) | :: | ldb | |||
| complex(kind=REAL64), | intent(inout) | :: | d(*) | |||
| complex(kind=REAL64), | intent(out) | :: | x(*) | |||
| complex(kind=REAL64), | intent(out) | :: | y(*) | |||
| complex(kind=REAL64), | intent(out) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |