f77_gesvd Interface
public interface f77_gesvd
Generic old style interface for GESVD. Supports s, d, c, z. See also: mfi_gesvd, sgesvd, dgesvd, cgesvd, zgesvd.
Subroutines
public pure subroutine sgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info)
Original interface for SGESVD See also: mfi_gesvd, f77_gesvd.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | jobu | |||
| character(len=1), | intent(in) | :: | jobvt | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | n | |||
| real(kind=REAL32), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| real(kind=REAL32), | intent(out) | :: | s(*) | |||
| real(kind=REAL32), | intent(out) | :: | u(ldu,*) | |||
| integer, | intent(in) | :: | ldu | |||
| real(kind=REAL32), | intent(out) | :: | vt(ldvt,*) | |||
| integer, | intent(in) | :: | ldvt | |||
| real(kind=REAL32), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine dgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, info)
Original interface for DGESVD See also: mfi_gesvd, f77_gesvd.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | jobu | |||
| character(len=1), | intent(in) | :: | jobvt | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | n | |||
| real(kind=REAL64), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| real(kind=REAL64), | intent(out) | :: | s(*) | |||
| real(kind=REAL64), | intent(out) | :: | u(ldu,*) | |||
| integer, | intent(in) | :: | ldu | |||
| real(kind=REAL64), | intent(out) | :: | vt(ldvt,*) | |||
| integer, | intent(in) | :: | ldvt | |||
| real(kind=REAL64), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| integer, | intent(out) | :: | info |
public pure subroutine cgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info)
Original interface for CGESVD See also: mfi_gesvd, f77_gesvd.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | jobu | |||
| character(len=1), | intent(in) | :: | jobvt | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL32), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| real(kind=REAL32), | intent(out) | :: | s(*) | |||
| complex(kind=REAL32), | intent(out) | :: | u(ldu,*) | |||
| integer, | intent(in) | :: | ldu | |||
| complex(kind=REAL32), | intent(out) | :: | vt(ldvt,*) | |||
| integer, | intent(in) | :: | ldvt | |||
| complex(kind=REAL32), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| real(kind=REAL32), | intent(in) | :: | rwork(*) | |||
| integer, | intent(out) | :: | info |
public pure subroutine zgesvd(jobu, jobvt, m, n, a, lda, s, u, ldu, vt, ldvt, work, lwork, rwork, info)
Original interface for ZGESVD See also: mfi_gesvd, f77_gesvd.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=1), | intent(in) | :: | jobu | |||
| character(len=1), | intent(in) | :: | jobvt | |||
| integer, | intent(in) | :: | m | |||
| integer, | intent(in) | :: | n | |||
| complex(kind=REAL64), | intent(inout) | :: | a(lda,*) | |||
| integer, | intent(in) | :: | lda | |||
| real(kind=REAL64), | intent(out) | :: | s(*) | |||
| complex(kind=REAL64), | intent(out) | :: | u(ldu,*) | |||
| integer, | intent(in) | :: | ldu | |||
| complex(kind=REAL64), | intent(out) | :: | vt(ldvt,*) | |||
| integer, | intent(in) | :: | ldvt | |||
| complex(kind=REAL64), | intent(inout) | :: | work(*) | |||
| integer, | intent(in) | :: | lwork | |||
| real(kind=REAL64), | intent(in) | :: | rwork(*) | |||
| integer, | intent(out) | :: | info |