LASD7: merges the two sets of singular values together into a single sorted set. Then it tries to deflate the size of the problem. There are two ways in which deflation can occur: when two or more singular values are close together or if there is a tiny entry in the Z vector. For each such occurrence the order of the related secular equation problem is reduced by one. LASD7 is called from DLASD6.
More...
|
| pure subroutine | dlasd7 (icompq, nl, nr, sqre, k, d, z, zw, vf, vfw, vl, vlw, alpha, beta, dsigma, idx, idxp, idxq, perm, givptr, givcol, ldgcol, givnum, ldgnum, c, s, info) |
| |
| | la_dlasd7 |
| |
| | la_qlasd7 |
| |
| pure subroutine | slasd7 (icompq, nl, nr, sqre, k, d, z, zw, vf, vfw, vl, vlw, alpha, beta, dsigma, idx, idxp, idxq, perm, givptr, givcol, ldgcol, givnum, ldgnum, c, s, info) |
| |
| | la_slasd7 |
| |
LASD7: merges the two sets of singular values together into a single sorted set. Then it tries to deflate the size of the problem. There are two ways in which deflation can occur: when two or more singular values are close together or if there is a tiny entry in the Z vector. For each such occurrence the order of the related secular equation problem is reduced by one. LASD7 is called from DLASD6.
◆ dlasd7()
| pure subroutine la_lapack::lasd7::dlasd7 |
( |
integer(ilp), intent(in) |
icompq, |
|
|
integer(ilp), intent(in) |
nl, |
|
|
integer(ilp), intent(in) |
nr, |
|
|
integer(ilp), intent(in) |
sqre, |
|
|
integer(ilp), intent(out) |
k, |
|
|
real(dp), dimension(*), intent(inout) |
d, |
|
|
real(dp), dimension(*), intent(out) |
z, |
|
|
real(dp), dimension( *), intent(out) |
zw, |
|
|
real(dp), dimension(*), intent(inout) |
vf, |
|
|
real(dp), dimension(*), intent(out) |
vfw, |
|
|
real(dp), dimension(*), intent(inout) |
vl, |
|
|
real(dp), dimension(*), intent(out) |
vlw, |
|
|
real(dp), intent(in) |
alpha, |
|
|
real(dp), intent(in) |
beta, |
|
|
real(dp), dimension(*), intent(out) |
dsigma, |
|
|
integer(ilp), dimension(*), intent(out) |
idx, |
|
|
integer(ilp), dimension(*), intent(out) |
idxp, |
|
|
integer(ilp), dimension(*), intent(inout) |
idxq, |
|
|
integer(ilp), dimension(*), intent(out) |
perm, |
|
|
integer(ilp), intent(out) |
givptr, |
|
|
integer(ilp), dimension(ldgcol,*), intent(out) |
givcol, |
|
|
integer(ilp), intent(in) |
ldgcol, |
|
|
real(dp), dimension(ldgnum,*), intent(out) |
givnum, |
|
|
integer(ilp), intent(in) |
ldgnum, |
|
|
real(dp), intent(out) |
c, |
|
|
real(dp), intent(out) |
s, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
◆ la_dlasd7()
| la_lapack::lasd7::la_dlasd7 |
◆ la_qlasd7()
| la_lapack::lasd7::la_qlasd7 |
◆ la_slasd7()
| la_lapack::lasd7::la_slasd7 |
◆ slasd7()
| pure subroutine la_lapack::lasd7::slasd7 |
( |
integer(ilp), intent(in) |
icompq, |
|
|
integer(ilp), intent(in) |
nl, |
|
|
integer(ilp), intent(in) |
nr, |
|
|
integer(ilp), intent(in) |
sqre, |
|
|
integer(ilp), intent(out) |
k, |
|
|
real(sp), dimension(*), intent(inout) |
d, |
|
|
real(sp), dimension(*), intent(out) |
z, |
|
|
real(sp), dimension( *), intent(out) |
zw, |
|
|
real(sp), dimension(*), intent(inout) |
vf, |
|
|
real(sp), dimension(*), intent(out) |
vfw, |
|
|
real(sp), dimension(*), intent(inout) |
vl, |
|
|
real(sp), dimension(*), intent(out) |
vlw, |
|
|
real(sp), intent(in) |
alpha, |
|
|
real(sp), intent(in) |
beta, |
|
|
real(sp), dimension(*), intent(out) |
dsigma, |
|
|
integer(ilp), dimension(*), intent(out) |
idx, |
|
|
integer(ilp), dimension(*), intent(out) |
idxp, |
|
|
integer(ilp), dimension(*), intent(inout) |
idxq, |
|
|
integer(ilp), dimension(*), intent(out) |
perm, |
|
|
integer(ilp), intent(out) |
givptr, |
|
|
integer(ilp), dimension(ldgcol,*), intent(out) |
givcol, |
|
|
integer(ilp), intent(in) |
ldgcol, |
|
|
real(sp), dimension(ldgnum,*), intent(out) |
givnum, |
|
|
integer(ilp), intent(in) |
ldgnum, |
|
|
real(sp), intent(out) |
c, |
|
|
real(sp), intent(out) |
s, |
|
|
integer(ilp), intent(out) |
info |
|
) |
| |
The documentation for this interface was generated from the following file:
1.9.8