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/sgels.f | |
parent | 8b5dd5433b205f27821b10d5389f55bcd4a1e87a (diff) |
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/sgels.f')
-rw-r--r-- | SRC/sgels.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/sgels.f b/SRC/sgels.f index d20e4f02..6fc82655 100644 --- a/SRC/sgels.f +++ b/SRC/sgels.f @@ -298,9 +298,9 @@ * ELSE * -* Overdetermined system of equations A' * X = B +* Overdetermined system of equations A**T * X = B * -* B(1:N,1:NRHS) := inv(R') * B(1:N,1:NRHS) +* B(1:N,1:NRHS) := inv(R**T) * B(1:N,1:NRHS) * CALL STRTRS( 'Upper', 'Transpose', 'Non-unit', N, NRHS, $ A, LDA, B, LDB, INFO ) @@ -371,7 +371,7 @@ * ELSE * -* overdetermined system min || A' * X - B || +* overdetermined system min || A**T * X - B || * * B(1:N,1:NRHS) := Q * B(1:N,1:NRHS) * @@ -381,7 +381,7 @@ * * workspace at least NRHS, optimally NRHS*NB * -* B(1:M,1:NRHS) := inv(L') * B(1:M,1:NRHS) +* B(1:M,1:NRHS) := inv(L**T) * B(1:M,1:NRHS) * CALL STRTRS( 'Lower', 'Transpose', 'Non-unit', M, NRHS, $ A, LDA, B, LDB, INFO ) |