fortran-lapack
|
LALSA: is an itermediate step in solving the least squares problem by computing the SVD of the coefficient matrix in compact form (The singular vectors are computed as products of simple orthorgonal matrices.). If ICOMPQ = 0, LALSA applies the inverse of the left singular vector matrix of an upper bidiagonal matrix to the right hand side; and if ICOMPQ = 1, LALSA applies the right singular vector matrix to the right hand side. The singular vector matrices were generated in compact form by LALSA. More...
Public Member Functions | |
pure subroutine | clalsa (icompq, smlsiz, n, nrhs, b, ldb, bx, ldbx, u, ldu, vt, k, difl, difr, z, poles, givptr, givcol, ldgcol, perm, givnum, c, s, rwork, iwork, info) |
la_clalsa | |
pure subroutine | dlalsa (icompq, smlsiz, n, nrhs, b, ldb, bx, ldbx, u, ldu, vt, k, difl, difr, z, poles, givptr, givcol, ldgcol, perm, givnum, c, s, work, iwork, info) |
la_dlalsa | |
la_qlalsa | |
pure subroutine | slalsa (icompq, smlsiz, n, nrhs, b, ldb, bx, ldbx, u, ldu, vt, k, difl, difr, z, poles, givptr, givcol, ldgcol, perm, givnum, c, s, work, iwork, info) |
la_slalsa | |
la_wlalsa | |
pure subroutine | zlalsa (icompq, smlsiz, n, nrhs, b, ldb, bx, ldbx, u, ldu, vt, k, difl, difr, z, poles, givptr, givcol, ldgcol, perm, givnum, c, s, rwork, iwork, info) |
la_zlalsa | |
LALSA: is an itermediate step in solving the least squares problem by computing the SVD of the coefficient matrix in compact form (The singular vectors are computed as products of simple orthorgonal matrices.). If ICOMPQ = 0, LALSA applies the inverse of the left singular vector matrix of an upper bidiagonal matrix to the right hand side; and if ICOMPQ = 1, LALSA applies the right singular vector matrix to the right hand side. The singular vector matrices were generated in compact form by LALSA.
pure subroutine la_lapack::lalsa::clalsa | ( | integer(ilp), intent(in) | icompq, |
integer(ilp), intent(in) | smlsiz, | ||
integer(ilp), intent(in) | n, | ||
integer(ilp), intent(in) | nrhs, | ||
complex(sp), dimension(ldb,*), intent(inout) | b, | ||
integer(ilp), intent(in) | ldb, | ||
complex(sp), dimension(ldbx,*), intent(out) | bx, | ||
integer(ilp), intent(in) | ldbx, | ||
real(sp), dimension(ldu,*), intent(in) | u, | ||
integer(ilp), intent(in) | ldu, | ||
real(sp), dimension(ldu,*), intent(in) | vt, | ||
integer(ilp), dimension(*), intent(in) | k, | ||
real(sp), dimension(ldu,*), intent(in) | difl, | ||
real(sp), dimension(ldu,*), intent(in) | difr, | ||
real(sp), dimension(ldu,*), intent(in) | z, | ||
real(sp), dimension(ldu, *), intent(in) | poles, | ||
integer(ilp), dimension(*), intent(in) | givptr, | ||
integer(ilp), dimension( ldgcol,*), intent(in) | givcol, | ||
integer(ilp), intent(in) | ldgcol, | ||
integer(ilp), dimension(ldgcol,*), intent(in) | perm, | ||
real(sp), dimension(ldu,*), intent(in) | givnum, | ||
real(sp), dimension(*), intent(in) | c, | ||
real(sp), dimension(*), intent(in) | s, | ||
real(sp), dimension(*), intent(out) | rwork, | ||
integer(ilp), dimension(*), intent(out) | iwork, | ||
integer(ilp), intent(out) | info | ||
) |
pure subroutine la_lapack::lalsa::dlalsa | ( | integer(ilp), intent(in) | icompq, |
integer(ilp), intent(in) | smlsiz, | ||
integer(ilp), intent(in) | n, | ||
integer(ilp), intent(in) | nrhs, | ||
real(dp), dimension(ldb,*), intent(inout) | b, | ||
integer(ilp), intent(in) | ldb, | ||
real(dp), dimension(ldbx,*), intent(out) | bx, | ||
integer(ilp), intent(in) | ldbx, | ||
real(dp), dimension(ldu,*), intent(in) | u, | ||
integer(ilp), intent(in) | ldu, | ||
real(dp), dimension(ldu,*), intent(in) | vt, | ||
integer(ilp), dimension(*), intent(in) | k, | ||
real(dp), dimension(ldu,*), intent(in) | difl, | ||
real(dp), dimension(ldu,*), intent(in) | difr, | ||
real(dp), dimension(ldu,*), intent(in) | z, | ||
real(dp), dimension(ldu, *), intent(in) | poles, | ||
integer(ilp), dimension(*), intent(in) | givptr, | ||
integer(ilp), dimension( ldgcol,*), intent(in) | givcol, | ||
integer(ilp), intent(in) | ldgcol, | ||
integer(ilp), dimension(ldgcol,*), intent(in) | perm, | ||
real(dp), dimension(ldu,*), intent(in) | givnum, | ||
real(dp), dimension(*), intent(in) | c, | ||
real(dp), dimension(*), intent(in) | s, | ||
real(dp), dimension(*), intent(out) | work, | ||
integer(ilp), dimension(*), intent(out) | iwork, | ||
integer(ilp), intent(out) | info | ||
) |
la_lapack::lalsa::la_clalsa |
la_lapack::lalsa::la_dlalsa |
la_lapack::lalsa::la_qlalsa |
la_lapack::lalsa::la_slalsa |
la_lapack::lalsa::la_wlalsa |
la_lapack::lalsa::la_zlalsa |
pure subroutine la_lapack::lalsa::slalsa | ( | integer(ilp), intent(in) | icompq, |
integer(ilp), intent(in) | smlsiz, | ||
integer(ilp), intent(in) | n, | ||
integer(ilp), intent(in) | nrhs, | ||
real(sp), dimension(ldb,*), intent(inout) | b, | ||
integer(ilp), intent(in) | ldb, | ||
real(sp), dimension(ldbx,*), intent(out) | bx, | ||
integer(ilp), intent(in) | ldbx, | ||
real(sp), dimension(ldu,*), intent(in) | u, | ||
integer(ilp), intent(in) | ldu, | ||
real(sp), dimension(ldu,*), intent(in) | vt, | ||
integer(ilp), dimension(*), intent(in) | k, | ||
real(sp), dimension(ldu,*), intent(in) | difl, | ||
real(sp), dimension(ldu,*), intent(in) | difr, | ||
real(sp), dimension(ldu,*), intent(in) | z, | ||
real(sp), dimension(ldu, *), intent(in) | poles, | ||
integer(ilp), dimension(*), intent(in) | givptr, | ||
integer(ilp), dimension( ldgcol,*), intent(in) | givcol, | ||
integer(ilp), intent(in) | ldgcol, | ||
integer(ilp), dimension(ldgcol,*), intent(in) | perm, | ||
real(sp), dimension(ldu,*), intent(in) | givnum, | ||
real(sp), dimension(*), intent(in) | c, | ||
real(sp), dimension(*), intent(in) | s, | ||
real(sp), dimension(*), intent(out) | work, | ||
integer(ilp), dimension(*), intent(out) | iwork, | ||
integer(ilp), intent(out) | info | ||
) |
pure subroutine la_lapack::lalsa::zlalsa | ( | integer(ilp), intent(in) | icompq, |
integer(ilp), intent(in) | smlsiz, | ||
integer(ilp), intent(in) | n, | ||
integer(ilp), intent(in) | nrhs, | ||
complex(dp), dimension(ldb,*), intent(inout) | b, | ||
integer(ilp), intent(in) | ldb, | ||
complex(dp), dimension(ldbx,*), intent(out) | bx, | ||
integer(ilp), intent(in) | ldbx, | ||
real(dp), dimension(ldu,*), intent(in) | u, | ||
integer(ilp), intent(in) | ldu, | ||
real(dp), dimension(ldu,*), intent(in) | vt, | ||
integer(ilp), dimension(*), intent(in) | k, | ||
real(dp), dimension(ldu,*), intent(in) | difl, | ||
real(dp), dimension(ldu,*), intent(in) | difr, | ||
real(dp), dimension(ldu,*), intent(in) | z, | ||
real(dp), dimension(ldu, *), intent(in) | poles, | ||
integer(ilp), dimension(*), intent(in) | givptr, | ||
integer(ilp), dimension( ldgcol,*), intent(in) | givcol, | ||
integer(ilp), intent(in) | ldgcol, | ||
integer(ilp), dimension(ldgcol,*), intent(in) | perm, | ||
real(dp), dimension(ldu,*), intent(in) | givnum, | ||
real(dp), dimension(*), intent(in) | c, | ||
real(dp), dimension(*), intent(in) | s, | ||
real(dp), dimension(*), intent(out) | rwork, | ||
integer(ilp), dimension(*), intent(out) | iwork, | ||
integer(ilp), intent(out) | info | ||
) |