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/cpbstf.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/cpbstf.f')
| -rw-r--r-- | SRC/cpbstf.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/SRC/cpbstf.f b/SRC/cpbstf.f index 2055c658..fe1cd307 100644 --- a/SRC/cpbstf.f +++ b/SRC/cpbstf.f @@ -83,19 +83,19 @@ * * on entry: on exit: * -* * * a13 a24 a35 a46 a57 * * s13 s24 s53' s64' s75' -* * a12 a23 a34 a45 a56 a67 * s12 s23 s34 s54' s65' s76' -* a11 a22 a33 a44 a55 a66 a77 s11 s22 s33 s44 s55 s66 s77 +* * * a13 a24 a35 a46 a57 * * s13 s24 s53**H s64**H s75**H +* * a12 a23 a34 a45 a56 a67 * s12 s23 s34 s54**H s65**H s76**H +* a11 a22 a33 a44 a55 a66 a77 s11 s22 s33 s44 s55 s66 s77 * * If UPLO = 'L', the array AB holds: * * on entry: on exit: * -* a11 a22 a33 a44 a55 a66 a77 s11 s22 s33 s44 s55 s66 s77 -* a21 a32 a43 a54 a65 a76 * s12' s23' s34' s54 s65 s76 * -* a31 a42 a53 a64 a64 * * s13' s24' s53 s64 s75 * * +* a11 a22 a33 a44 a55 a66 a77 s11 s22 s33 s44 s55 s66 s77 +* a21 a32 a43 a54 a65 a76 * s12**H s23**H s34**H s54 s65 s76 * +* a31 a42 a53 a64 a64 * * s13**H s24**H s53 s64 s75 * * * -* Array elements marked * are not used by the routine; s12' denotes +* Array elements marked * are not used by the routine; s12**H denotes * conjg(s12); the diagonal elements of S are real. * * ===================================================================== |