diff options
Diffstat (limited to 'SRC/cpbtrs.f')
| -rw-r--r-- | SRC/cpbtrs.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/cpbtrs.f b/SRC/cpbtrs.f index 6db8cd7b..857e1281 100644 --- a/SRC/cpbtrs.f +++ b/SRC/cpbtrs.f @@ -107,11 +107,11 @@ * IF( UPPER ) THEN * -* Solve A*X = B where A = U'*U. +* Solve A*X = B where A = U**H *U. * DO 10 J = 1, NRHS * -* Solve U'*X = B, overwriting B with X. +* Solve U**H *X = B, overwriting B with X. * CALL CTBSV( 'Upper', 'Conjugate transpose', 'Non-unit', N, $ KD, AB, LDAB, B( 1, J ), 1 ) @@ -123,7 +123,7 @@ 10 CONTINUE ELSE * -* Solve A*X = B where A = L*L'. +* Solve A*X = B where A = L*L**H. * DO 20 J = 1, NRHS * @@ -132,7 +132,7 @@ CALL CTBSV( 'Lower', 'No transpose', 'Non-unit', N, KD, AB, $ LDAB, B( 1, J ), 1 ) * -* Solve L'*X = B, overwriting B with X. +* Solve L**H *X = B, overwriting B with X. * CALL CTBSV( 'Lower', 'Conjugate transpose', 'Non-unit', N, $ KD, AB, LDAB, B( 1, J ), 1 ) |