comments unified: replace a notation ||expr|| by norm(expr) in xQRT17

Author: jip

TESTING/LIN/cqrt17.f

@@ -28,12 +28,12 @@
 *>
 *> CQRT17 computes the ratio
 *>
-*>    || R**H * op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*>    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
 *>
-*>    alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*>    alpha = ||R|| if IRESID = 2 (otherwise).
+*>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*>    alpha = norm(R) if IRESID = 2 (otherwise).
 *> \endverbatim
 *
 *  Arguments:

TESTING/LIN/dqrt17.f

@@ -28,12 +28,12 @@
 *>
 *> DQRT17 computes the ratio
 *>
-*>    || R**T * op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*>    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
 *>
-*>    alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*>    alpha = ||R|| if IRESID = 2 (otherwise).
+*>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*>    alpha = norm(R) if IRESID = 2 (otherwise).
 *> \endverbatim
 *
 *  Arguments:

TESTING/LIN/sqrt17.f

@@ -28,12 +28,12 @@
 *>
 *> SQRT17 computes the ratio
 *>
-*>    || R**T * op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*>    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
 *>
-*>    alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*>    alpha = ||R|| if IRESID = 2 (otherwise).
+*>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*>    alpha = norm(R) if IRESID = 2 (otherwise).
 *> \endverbatim
 *
 *  Arguments:

TESTING/LIN/zqrt17.f

@@ -28,12 +28,12 @@
 *>
 *> ZQRT17 computes the ratio
 *>
-*>    || R**H * op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*>    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
 *>
-*>    alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*>    alpha = ||R|| if IRESID = 2 (otherwise).
+*>    alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*>    alpha = norm(R) if IRESID = 2 (otherwise).
 *> \endverbatim
 *
 *  Arguments: