diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
| commit | 16973f0c15a4327f8a78b9652f178246895778c1 (patch) | |
| tree | 1d022faeffac8e1524f4f73517483f4cd828038d /SRC/dlaic1.f | |
| parent | 8b5dd5433b205f27821b10d5389f55bcd4a1e87a (diff) | |
| download | lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.gz lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.bz2 lapack-16973f0c15a4327f8a78b9652f178246895778c1.zip | |
Second and hopefully last pass to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Please take a look and let me know if you find some old notation of transpose.
I am going to close bug0024.
Julie
Diffstat (limited to 'SRC/dlaic1.f')
| -rw-r--r-- | SRC/dlaic1.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/dlaic1.f b/SRC/dlaic1.f index b62a69d6..5873e80f 100644 --- a/SRC/dlaic1.f +++ b/SRC/dlaic1.f @@ -27,15 +27,15 @@ * [ s*x ] * xhat = [ c ] * is an approximate singular vector of -* [ L 0 ] -* Lhat = [ w' gamma ] +* [ L 0 ] +* Lhat = [ w**T gamma ] * in the sense that * twonorm(Lhat*xhat) = sestpr. * * Depending on JOB, an estimate for the largest or smallest singular * value is computed. * -* Note that [s c]' and sestpr**2 is an eigenpair of the system +* Note that [s c]**T and sestpr**2 is an eigenpair of the system * * diag(sest*sest, 0) + [alpha gamma] * [ alpha ] * [ gamma ] |