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/slasy2.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/slasy2.f')
| -rw-r--r-- | SRC/slasy2.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/slasy2.f b/SRC/slasy2.f index 860966e6..f58d8d83 100644 --- a/SRC/slasy2.f +++ b/SRC/slasy2.f @@ -24,7 +24,7 @@ * op(TL)*X + ISGN*X*op(TR) = SCALE*B, * * where TL is N1 by N1, TR is N2 by N2, B is N1 by N2, and ISGN = 1 or -* -1. op(T) = T or T', where T' denotes the transpose of T. +* -1. op(T) = T or T**T, where T**T denotes the transpose of T. * * Arguments * ========= @@ -32,12 +32,12 @@ * LTRANL (input) LOGICAL * On entry, LTRANL specifies the op(TL): * = .FALSE., op(TL) = TL, -* = .TRUE., op(TL) = TL'. +* = .TRUE., op(TL) = TL**T. * * LTRANR (input) LOGICAL * On entry, LTRANR specifies the op(TR): * = .FALSE., op(TR) = TR, -* = .TRUE., op(TR) = TR'. +* = .TRUE., op(TR) = TR**T. * * ISGN (input) INTEGER * On entry, ISGN specifies the sign of the equation |