diff options
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: * * |