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/ctrttf.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/ctrttf.f')
-rw-r--r-- | SRC/ctrttf.f | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/SRC/ctrttf.f b/SRC/ctrttf.f index 4835ca4a..825cfeea 100644 --- a/SRC/ctrttf.f +++ b/SRC/ctrttf.f @@ -72,15 +72,15 @@ * 55 50 51 52 53 54 55 * * -* Let TRANSR = `N'. RFP holds AP as follows: -* For UPLO = `U' the upper trapezoid A(0:5,0:2) consists of the last +* Let TRANSR = 'N'. RFP holds AP as follows: +* For UPLO = 'U' the upper trapezoid A(0:5,0:2) consists of the last * three columns of AP upper. The lower triangle A(4:6,0:2) consists of * conjugate-transpose of the first three columns of AP upper. -* For UPLO = `L' the lower trapezoid A(1:6,0:2) consists of the first +* For UPLO = 'L' the lower trapezoid A(1:6,0:2) consists of the first * three columns of AP lower. The upper triangle A(0:2,0:2) consists of * conjugate-transpose of the last three columns of AP lower. * To denote conjugate we place -- above the element. This covers the -* case N even and TRANSR = `N'. +* case N even and TRANSR = 'N'. * * RFP A RFP A * @@ -99,7 +99,7 @@ * -- -- -- * 02 12 22 50 51 52 * -* Now let TRANSR = `C'. RFP A in both UPLO cases is just the conjugate- +* Now let TRANSR = 'C'. RFP A in both UPLO cases is just the conjugate- * transpose of RFP A above. One therefore gets: * * @@ -125,15 +125,15 @@ * 44 40 41 42 43 44 * * -* Let TRANSR = `N'. RFP holds AP as follows: -* For UPLO = `U' the upper trapezoid A(0:4,0:2) consists of the last +* Let TRANSR = 'N'. RFP holds AP as follows: +* For UPLO = 'U' the upper trapezoid A(0:4,0:2) consists of the last * three columns of AP upper. The lower triangle A(3:4,0:1) consists of * conjugate-transpose of the first two columns of AP upper. -* For UPLO = `L' the lower trapezoid A(0:4,0:2) consists of the first +* For UPLO = 'L' the lower trapezoid A(0:4,0:2) consists of the first * three columns of AP lower. The upper triangle A(0:1,1:2) consists of * conjugate-transpose of the last two columns of AP lower. * To denote conjugate we place -- above the element. This covers the -* case N odd and TRANSR = `N'. +* case N odd and TRANSR = 'N'. * * RFP A RFP A * @@ -148,7 +148,7 @@ * -- -- * 01 11 44 40 41 42 * -* Now let TRANSR = `C'. RFP A in both UPLO cases is just the conjugate- +* Now let TRANSR = 'C'. RFP A in both UPLO cases is just the conjugate- * transpose of RFP A above. One therefore gets: * * |