dlaed1.f.html
来自「famous linear algebra library (LAPACK) p」· HTML 代码 · 共 220 行 · 第 1/2 页
HTML
220 行
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>dlaed1.f</title>
<meta name="generator" content="emacs 21.3.1; htmlfontify 0.20">
<style type="text/css"><!--
body { background: rgb(255, 255, 255); color: rgb(0, 0, 0); font-style: normal; font-weight: 500; font-stretch: normal; font-family: adobe-courier; font-size: 11pt; text-decoration: none; }
span.default { background: rgb(255, 255, 255); color: rgb(0, 0, 0); font-style: normal; font-weight: 500; font-stretch: normal; font-family: adobe-courier; font-size: 11pt; text-decoration: none; }
span.default a { background: rgb(255, 255, 255); color: rgb(0, 0, 0); font-style: normal; font-weight: 500; font-stretch: normal; font-family: adobe-courier; font-size: 11pt; text-decoration: underline; }
span.string { color: rgb(188, 143, 143); background: rgb(255, 255, 255); font-style: normal; font-weight: 500; font-stretch: normal; font-family: adobe-courier; font-size: 11pt; text-decoration: none; }
span.string a { color: rgb(188, 143, 143); background: rgb(255, 255, 255); font-style: normal; font-weight: 500; font-stretch: normal; font-family: adobe-courier; font-size: 11pt; text-decoration: underline; }
span.comment { color: rgb(178, 34, 34); background: rgb(255, 255, 255); font-style: normal; font-weight: 500; font-stretch: normal; font-family: adobe-courier; font-size: 11pt; text-decoration: none; }
span.comment a { color: rgb(178, 34, 34); background: rgb(255, 255, 255); font-style: normal; font-weight: 500; font-stretch: normal; font-family: adobe-courier; font-size: 11pt; text-decoration: underline; }
--></style>
</head>
<body>
<pre>
SUBROUTINE <a name="DLAED1.1"></a><a href="dlaed1.f.html#DLAED1.1">DLAED1</a>( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK,
$ INFO )
<span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> -- LAPACK routine (version 3.1) --
</span><span class="comment">*</span><span class="comment"> Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
</span><span class="comment">*</span><span class="comment"> November 2006
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> .. Scalar Arguments ..
</span> INTEGER CUTPNT, INFO, LDQ, N
DOUBLE PRECISION RHO
<span class="comment">*</span><span class="comment"> ..
</span><span class="comment">*</span><span class="comment"> .. Array Arguments ..
</span> INTEGER INDXQ( * ), IWORK( * )
DOUBLE PRECISION D( * ), Q( LDQ, * ), WORK( * )
<span class="comment">*</span><span class="comment"> ..
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> Purpose
</span><span class="comment">*</span><span class="comment"> =======
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> <a name="DLAED1.20"></a><a href="dlaed1.f.html#DLAED1.1">DLAED1</a> computes the updated eigensystem of a diagonal
</span><span class="comment">*</span><span class="comment"> matrix after modification by a rank-one symmetric matrix. This
</span><span class="comment">*</span><span class="comment"> routine is used only for the eigenproblem which requires all
</span><span class="comment">*</span><span class="comment"> eigenvalues and eigenvectors of a tridiagonal matrix. <a name="DLAED7.23"></a><a href="dlaed7.f.html#DLAED7.1">DLAED7</a> handles
</span><span class="comment">*</span><span class="comment"> the case in which eigenvalues only or eigenvalues and eigenvectors
</span><span class="comment">*</span><span class="comment"> of a full symmetric matrix (which was reduced to tridiagonal form)
</span><span class="comment">*</span><span class="comment"> are desired.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> T = Q(in) ( D(in) + RHO * Z*Z' ) Q'(in) = Q(out) * D(out) * Q'(out)
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> where Z = Q'u, u is a vector of length N with ones in the
</span><span class="comment">*</span><span class="comment"> CUTPNT and CUTPNT + 1 th elements and zeros elsewhere.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> The eigenvectors of the original matrix are stored in Q, and the
</span><span class="comment">*</span><span class="comment"> eigenvalues are in D. The algorithm consists of three stages:
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> The first stage consists of deflating the size of the problem
</span><span class="comment">*</span><span class="comment"> when there are multiple eigenvalues or if there is a zero in
</span><span class="comment">*</span><span class="comment"> the Z vector. For each such occurence the dimension of the
</span><span class="comment">*</span><span class="comment"> secular equation problem is reduced by one. This stage is
</span><span class="comment">*</span><span class="comment"> performed by the routine <a name="DLAED2.40"></a><a href="dlaed2.f.html#DLAED2.1">DLAED2</a>.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> The second stage consists of calculating the updated
</span><span class="comment">*</span><span class="comment"> eigenvalues. This is done by finding the roots of the secular
</span><span class="comment">*</span><span class="comment"> equation via the routine <a name="DLAED4.44"></a><a href="dlaed4.f.html#DLAED4.1">DLAED4</a> (as called by <a name="DLAED3.44"></a><a href="dlaed3.f.html#DLAED3.1">DLAED3</a>).
</span><span class="comment">*</span><span class="comment"> This routine also calculates the eigenvectors of the current
</span><span class="comment">*</span><span class="comment"> problem.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> The final stage consists of computing the updated eigenvectors
</span><span class="comment">*</span><span class="comment"> directly using the updated eigenvalues. The eigenvectors for
</span><span class="comment">*</span><span class="comment"> the current problem are multiplied with the eigenvectors from
</span><span class="comment">*</span><span class="comment"> the overall problem.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> Arguments
</span><span class="comment">*</span><span class="comment"> =========
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> N (input) INTEGER
</span><span class="comment">*</span><span class="comment"> The dimension of the symmetric tridiagonal matrix. N >= 0.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> D (input/output) DOUBLE PRECISION array, dimension (N)
</span><span class="comment">*</span><span class="comment"> On entry, the eigenvalues of the rank-1-perturbed matrix.
</span><span class="comment">*</span><span class="comment"> On exit, the eigenvalues of the repaired matrix.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> Q (input/output) DOUBLE PRECISION array, dimension (LDQ,N)
</span><span class="comment">*</span><span class="comment"> On entry, the eigenvectors of the rank-1-perturbed matrix.
</span><span class="comment">*</span><span class="comment"> On exit, the eigenvectors of the repaired tridiagonal matrix.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> LDQ (input) INTEGER
</span><span class="comment">*</span><span class="comment"> The leading dimension of the array Q. LDQ >= max(1,N).
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> INDXQ (input/output) INTEGER array, dimension (N)
</span><span class="comment">*</span><span class="comment"> On entry, the permutation which separately sorts the two
</span><span class="comment">*</span><span class="comment"> subproblems in D into ascending order.
</span><span class="comment">*</span><span class="comment"> On exit, the permutation which will reintegrate the
</span><span class="comment">*</span><span class="comment"> subproblems back into sorted order,
</span><span class="comment">*</span><span class="comment"> i.e. D( INDXQ( I = 1, N ) ) will be in ascending order.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> RHO (input) DOUBLE PRECISION
</span><span class="comment">*</span><span class="comment"> The subdiagonal entry used to create the rank-1 modification.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> CUTPNT (input) INTEGER
</span><span class="comment">*</span><span class="comment"> The location of the last eigenvalue in the leading sub-matrix.
</span><span class="comment">*</span><span class="comment"> min(1,N) <= CUTPNT <= N/2.
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> WORK (workspace) DOUBLE PRECISION array, dimension (4*N + N**2)
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> IWORK (workspace) INTEGER array, dimension (4*N)
</span><span class="comment">*</span><span class="comment">
</span><span class="comment">*</span><span class="comment"> INFO (output) INTEGER
</span><span class="comment">*</span><span class="comment"> = 0: successful exit.
</span><span class="comment">*</span><span class="comment"> < 0: if INFO = -i, the i-th argument had an illegal value.
</span><span class="comment">*</span><span class="comment"> > 0: if INFO = 1, an eigenvalue did not converge
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?