comments unified: about op(A) in xLARHS and xQRT17

Author: jip

TESTING/EIG/clarhs.f

@@ -30,8 +30,7 @@
 *> CLARHS chooses a set of NRHS random solution vectors and sets
 *> up the right hand sides for the linear system
 *>    op(A) * X = B,
-*> where op(A) = A, A**T (transpose of A) or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T or A**H, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:

TESTING/EIG/zlarhs.f

@@ -30,8 +30,7 @@
 *> ZLARHS chooses a set of NRHS random solution vectors and sets
 *> up the right hand sides for the linear system
 *>    op(A) * X = B,
-*> where op(A) = A, A**T (transpose of A), or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T, or A**H, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:

TESTING/LIN/clarhs.f

@@ -30,8 +30,7 @@
 *> CLARHS chooses a set of NRHS random solution vectors and sets
 *> up the right hand sides for the linear system
 *>    op(A) * X = B,
-*> where op(A) = A, A**T (transpose of A), or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T, or A**H, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:

TESTING/LIN/cqrt17.f

@@ -30,7 +30,7 @@
 *>
 *>    norm(R**H * op(A))/(norm(A)*alpha*max(M,N,NRHS)*eps),
 *>
-*> where R = op(A)*X - B, op(A) is A or A**H, and
+*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, and
 *>
 *>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
 *>    alpha = norm(R) if IRESID = 2 (otherwise).

TESTING/LIN/dqrt17.f

@@ -30,7 +30,7 @@
 *>
 *>    norm(R**T * op(A))/(norm(A)*alpha*max(M,N,NRHS)*eps),
 *>
-*> where R = op(A)*X - B, op(A) is A or A**T, and
+*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, and
 *>
 *>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
 *>    alpha = norm(R) if IRESID = 2 (otherwise).

TESTING/LIN/slarhs.f

@@ -30,7 +30,7 @@
 *> SLARHS chooses a set of NRHS random solution vectors and sets
 *> up the right hand sides for the linear system
 *>    op(A) * X = B,
-*> where op(A) = A or A**T.
+*> where op(A) = A or A**T, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:

TESTING/LIN/sqrt17.f

@@ -30,7 +30,7 @@
 *>
 *>    norm(R**T * op(A))/(norm(A)*alpha*max(M,N,NRHS)*eps),
 *>
-*> where R = op(A)*X - B, op(A) is A or A**T, and
+*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, and
 *>
 *>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
 *>    alpha = norm(R) if IRESID = 2 (otherwise).

TESTING/LIN/zlarhs.f

@@ -30,8 +30,7 @@
 *> ZLARHS chooses a set of NRHS random solution vectors and sets
 *> up the right hand sides for the linear system
 *>    op(A) * X = B,
-*> where op(A) = A, A**T (transpose of A), or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T, or A**H, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:

TESTING/LIN/zqrt17.f

@@ -30,7 +30,7 @@
 *>
 *>    norm(R**H * op(A))/(norm(A)*alpha*max(M,N,NRHS)*eps),
 *>
-*> where R = op(A)*X - B, op(A) is A or A**H, and
+*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, and
 *>
 *>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
 *>    alpha = norm(R) if IRESID = 2 (otherwise).