GEJSV: computes the singular value decomposition (SVD) of a complex M-by-N matrix [A], where M >= N. The SVD of [A] is written as [A] = [U] * [SIGMA] * [V]^*, where [SIGMA] is an N-by-N (M-by-N) matrix which is zero except for its N diagonal elements, [U] is an M-by-N (or M-by-M) unitary matrix, and [V] is an N-by-N unitary matrix. The diagonal elements of [SIGMA] are the singular values of [A]. The columns of [U] and [V] are the left and the right singular vectors of [A], respectively. The matrices [U] and [V] are computed and stored in the arrays U and V, respectively. The diagonal of [SIGMA] is computed and stored in the array SVA.
More...
|
pure subroutine | cgejsv (joba, jobu, jobv, jobr, jobt, jobp, m, n, a, lda, sva, u, ldu, v, ldv, cwork, lwork, rwork, lrwork, iwork, info) |
|
| la_cgejsv |
|
pure subroutine | dgejsv (joba, jobu, jobv, jobr, jobt, jobp, m, n, a, lda, sva, u, ldu, v, ldv, work, lwork, iwork, info) |
|
| la_dgejsv |
|
| la_qgejsv |
|
pure subroutine | sgejsv (joba, jobu, jobv, jobr, jobt, jobp, m, n, a, lda, sva, u, ldu, v, ldv, work, lwork, iwork, info) |
|
| la_sgejsv |
|
| la_wgejsv |
|
pure subroutine | zgejsv (joba, jobu, jobv, jobr, jobt, jobp, m, n, a, lda, sva, u, ldu, v, ldv, cwork, lwork, rwork, lrwork, iwork, info) |
|
| la_zgejsv |
|
GEJSV: computes the singular value decomposition (SVD) of a complex M-by-N matrix [A], where M >= N. The SVD of [A] is written as [A] = [U] * [SIGMA] * [V]^*, where [SIGMA] is an N-by-N (M-by-N) matrix which is zero except for its N diagonal elements, [U] is an M-by-N (or M-by-M) unitary matrix, and [V] is an N-by-N unitary matrix. The diagonal elements of [SIGMA] are the singular values of [A]. The columns of [U] and [V] are the left and the right singular vectors of [A], respectively. The matrices [U] and [V] are computed and stored in the arrays U and V, respectively. The diagonal of [SIGMA] is computed and stored in the array SVA.
◆ cgejsv()
pure subroutine la_lapack::gejsv::cgejsv |
( |
character, intent(in) |
joba, |
|
|
character, intent(in) |
jobu, |
|
|
character, intent(in) |
jobv, |
|
|
character, intent(in) |
jobr, |
|
|
character, intent(in) |
jobt, |
|
|
character, intent(in) |
jobp, |
|
|
integer(ilp), intent(in) |
m, |
|
|
integer(ilp), intent(in) |
n, |
|
|
complex(sp), dimension(lda,*), intent(inout) |
a, |
|
|
integer(ilp), intent(in) |
lda, |
|
|
real(sp), dimension(n), intent(out) |
sva, |
|
|
complex(sp), dimension(ldu,*), intent(out) |
u, |
|
|
integer(ilp), intent(in) |
ldu, |
|
|
complex(sp), dimension(ldv,*), intent(out) |
v, |
|
|
integer(ilp), intent(in) |
ldv, |
|
|
complex(sp), dimension(lwork), intent(out) |
cwork, |
|
|
integer(ilp), intent(in) |
lwork, |
|
|
real(sp), dimension(lrwork), intent(out) |
rwork, |
|
|
integer(ilp), intent(in) |
lrwork, |
|
|
integer(ilp), dimension(*), intent(out) |
iwork, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
◆ dgejsv()
pure subroutine la_lapack::gejsv::dgejsv |
( |
character, intent(in) |
joba, |
|
|
character, intent(in) |
jobu, |
|
|
character, intent(in) |
jobv, |
|
|
character, intent(in) |
jobr, |
|
|
character, intent(in) |
jobt, |
|
|
character, intent(in) |
jobp, |
|
|
integer(ilp), intent(in) |
m, |
|
|
integer(ilp), intent(in) |
n, |
|
|
real(dp), dimension(lda,*), intent(inout) |
a, |
|
|
integer(ilp), intent(in) |
lda, |
|
|
real(dp), dimension(n), intent(out) |
sva, |
|
|
real(dp), dimension(ldu,*), intent(out) |
u, |
|
|
integer(ilp), intent(in) |
ldu, |
|
|
real(dp), dimension(ldv,*), intent(out) |
v, |
|
|
integer(ilp), intent(in) |
ldv, |
|
|
real(dp), dimension(lwork), intent(out) |
work, |
|
|
integer(ilp), intent(in) |
lwork, |
|
|
integer(ilp), dimension(*), intent(out) |
iwork, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
◆ la_cgejsv()
la_lapack::gejsv::la_cgejsv |
◆ la_dgejsv()
la_lapack::gejsv::la_dgejsv |
◆ la_qgejsv()
la_lapack::gejsv::la_qgejsv |
◆ la_sgejsv()
la_lapack::gejsv::la_sgejsv |
◆ la_wgejsv()
la_lapack::gejsv::la_wgejsv |
◆ la_zgejsv()
la_lapack::gejsv::la_zgejsv |
◆ sgejsv()
pure subroutine la_lapack::gejsv::sgejsv |
( |
character, intent(in) |
joba, |
|
|
character, intent(in) |
jobu, |
|
|
character, intent(in) |
jobv, |
|
|
character, intent(in) |
jobr, |
|
|
character, intent(in) |
jobt, |
|
|
character, intent(in) |
jobp, |
|
|
integer(ilp), intent(in) |
m, |
|
|
integer(ilp), intent(in) |
n, |
|
|
real(sp), dimension(lda,*), intent(inout) |
a, |
|
|
integer(ilp), intent(in) |
lda, |
|
|
real(sp), dimension(n), intent(out) |
sva, |
|
|
real(sp), dimension(ldu,*), intent(out) |
u, |
|
|
integer(ilp), intent(in) |
ldu, |
|
|
real(sp), dimension(ldv,*), intent(out) |
v, |
|
|
integer(ilp), intent(in) |
ldv, |
|
|
real(sp), dimension(lwork), intent(out) |
work, |
|
|
integer(ilp), intent(in) |
lwork, |
|
|
integer(ilp), dimension(*), intent(out) |
iwork, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
◆ zgejsv()
pure subroutine la_lapack::gejsv::zgejsv |
( |
character, intent(in) |
joba, |
|
|
character, intent(in) |
jobu, |
|
|
character, intent(in) |
jobv, |
|
|
character, intent(in) |
jobr, |
|
|
character, intent(in) |
jobt, |
|
|
character, intent(in) |
jobp, |
|
|
integer(ilp), intent(in) |
m, |
|
|
integer(ilp), intent(in) |
n, |
|
|
complex(dp), dimension(lda,*), intent(inout) |
a, |
|
|
integer(ilp), intent(in) |
lda, |
|
|
real(dp), dimension(n), intent(out) |
sva, |
|
|
complex(dp), dimension(ldu,*), intent(out) |
u, |
|
|
integer(ilp), intent(in) |
ldu, |
|
|
complex(dp), dimension(ldv,*), intent(out) |
v, |
|
|
integer(ilp), intent(in) |
ldv, |
|
|
complex(dp), dimension(lwork), intent(out) |
cwork, |
|
|
integer(ilp), intent(in) |
lwork, |
|
|
real(dp), dimension(lrwork), intent(out) |
rwork, |
|
|
integer(ilp), intent(in) |
lrwork, |
|
|
integer(ilp), dimension(*), intent(out) |
iwork, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
The documentation for this interface was generated from the following file: