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:
