Developer Reference for Intel® oneAPI Math Kernel Library for Fortran
?bdsdc
Computes the singular value decomposition of a real bidiagonal matrix using a divide and conquer method.
Syntax
call sbdsdc ( uplo , compq , n , d , e , u , ldu , vt , ldvt , q , iq , work , iwork , info )
call dbdsdc ( uplo , compq , n , d , e , u , ldu , vt , ldvt , q , iq , work , iwork , info )
call bdsdc ( d , e [ , u ] [ , vt ] [ , q ] [ , iq ] [ , uplo ] [ , info ] )
Include Files
mkl.fi , mkl_lapack.f90
Description
The routine computes the Singular Value Decomposition (SVD) of a real n -by- n (upper or lower) bidiagonal matrix B : B = U*Σ*V^{T} , using a divide and conquer method, where Σ is a diagonal matrix with non-negative diagonal elements (the singular values of B ), and U and V are orthogonal matrices of left and right singular vectors, respectively. ?bdsdc can be used to compute all singular values, and optionally, singular vectors or singular vectors in compact form.
This rotuine uses ?lasd0 , ?lasd1 , ?lasd2 , ?lasd3 , ?lasd4 , ?lasd5 , ?lasd6 , ?lasd7 , ?lasd8 , ?lasd9 , ?lasda , ?lasdq , ?lasdt .
Input Parameters
uplo
CHARACTER*1 . Must be ‘U’ or ‘L’ .
If uplo = 'U' , B is an upper bidiagonal matrix. If uplo = 'L' , B is a lower bidiagonal matrix.
compq
CHARACTER*1 . Must be ‘N’ , ‘P’ , or ‘I’ .
If compq = 'N' , compute singular values only. If compq = 'P' , compute singular values and compute singular vectors in compact form. If compq = 'I' , compute singular values and singular vectors.
n
INTEGER . The order of the matrix B ( n ≥ 0 ).
- d , e , work
-
REAL for sbdsdc DOUBLE PRECISION for dbdsdc . Arrays: d(*) contains the n diagonal elements of the bidiagonal matrix B . The size of d must be at least max(1, n ). e(*) contains the off-diagonal elements of the bidiagonal matrix B . The size of e must be at least max(1, n ). work (*) is a workspace array. The dimension of work must be at least: max(1, 4* n ), if compq = 'N' or compq = 'P' ; max(1, 3* n2 +4* n ), if compq = 'I' .
ldu
INTEGER . The leading dimension of the output array u ; ldu ≥ 1.
If singular vectors are desired, then ldu ≥ max(1, n ) .
ldvt
INTEGER . The leading dimension of the output array vt ; ldvt ≥ 1.
If singular vectors are desired, then ldvt ≥ max(1, n ) .
iwork
INTEGER . Workspace array, dimension at least max(1, 8* n ).
Output Parameters
- d
-
If info = 0 , overwritten by the singular values of B .
- e
-
On exit, e is overwritten.
- u , vt , q
-
REAL for sbdsdc DOUBLE PRECISION for dbdsdc .
Arrays: u ( ldu ,*) , vt ( ldvt ,*) , q (*) .
If compq = 'I' , then on exit u contains the left singular vectors of the bidiagonal matrix B , unless info≠ 0 ( seeinfo ). For other values of compq , u is not referenced. The second dimension of u must be at least max(1, n ).
if compq = 'I' , then on exit vt:code:`T` contains the right singular vectors of the bidiagonal matrix B , unless info≠ 0 ( seeinfo ). For other values of compq , vt is not referenced. The second dimension of vt must be at least max(1, n ).
If compq = 'P' , then on exit, if info = 0 , q and iq contain the left and right singular vectors in a compact form. Specifically, q contains all the REAL float (for sbdsdc ) or DOUBLE PRECISION double (for dbdsdc ) data for singular vectors. For other values of compq , q is not referenced.
iq
INTEGER .
Array: iq (*) .
If compq = 'P' , then on exit, if info = 0 , q and iq contain the left and right singular vectors in a compact form. Specifically, iq contains all the INTEGER lapack_int data for singular vectors. For other values of compq , iq is not referenced.
info
INTEGER .
If info = 0 , the execution is successful.
If info = -i , the i- th parameter had an illegal value.
If info = i , the algorithm failed to compute a singular value. The update process of divide and conquer failed.
Return Values
No return value, info is an Output Parameter.
LAPACK 95 Interface Notes
Routines in Fortran 95 interface have fewer arguments in the calling sequence than their FORTRAN 77 counterparts. For general conventions applied to skip redundant or restorable arguments, see LAPACK 95 Interface Conventions .
Specific details for the routine bdsdc interface are the following:
d
Holds the vector of length n .
e
Holds the vector of length n .
u
Holds the matrix U of size ( n,n ).
vt
Holds the matrix VT of size ( n,n ).
q
Holds the vector of length ( ldq ), where
ldq≥ n*(11 + 2*smlsiz + 8*int(log_2(n/(smlsiz + 1)))) and smlsiz is returned by ilaenv and is equal to the maximum size of the subproblems at the bottom of the computation tree (usually about 25).
compq
Restored based on the presence of arguments u , vt , q , and iq as follows:
compq = 'N' , if none of u , vt , q , and iq are present,
compq = 'I' , if both u and vt are present. Arguments u and vt must either be both present or both omitted,
compq = 'P' , if both q and iq are present. Arguments q and iq must either be both present or both omitted.
Note that there will be an error condition if all of u , vt , q , and iq arguments are present simultaneously.