comments unified: remove spaces around expr in op( expr ) in xLARHS

jip · jip · commit bf04fe9cd862 · 2021-06-03T23:00:25.000+10:00
diff --git a/TESTING/EIG/clarhs.f b/TESTING/EIG/clarhs.f
@@ -29,8 +29,8 @@
 *>
 *> 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 ) may be A, A**T (transpose of A), or A**H (conjugate
+*>    op(A) * X = B,
+*> where op(A) = A, A**T (transpose of A) or A**H (conjugate
 *> transpose of A).
 *> \endverbatim
 *
@@ -313,7 +313,7 @@ SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.
diff --git a/TESTING/EIG/dlarhs.f b/TESTING/EIG/dlarhs.f
@@ -29,8 +29,8 @@
 *>
 *> DLARHS 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, depending on TRANS.
+*>    op(A) * X = B,
+*> where op(A) = A or A**T, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:
@@ -305,7 +305,7 @@ SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.
diff --git a/TESTING/EIG/slarhs.f b/TESTING/EIG/slarhs.f
@@ -29,8 +29,8 @@
 *>
 *> 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, depending on TRANS.
+*>    op(A) * X = B,
+*> where op(A) = A or A**T, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:
@@ -305,7 +305,7 @@ SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.
diff --git a/TESTING/EIG/zlarhs.f b/TESTING/EIG/zlarhs.f
@@ -29,8 +29,8 @@
 *>
 *> 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 ) may be A, A**T (transpose of A), or A**H (conjugate
+*>    op(A) * X = B,
+*> where op(A) = A, A**T (transpose of A), or A**H (conjugate
 *> transpose of A).
 *> \endverbatim
 *
@@ -313,7 +313,7 @@ SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.
diff --git a/TESTING/LIN/clarhs.f b/TESTING/LIN/clarhs.f
@@ -29,8 +29,8 @@
 *>
 *> 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 ) may be A, A**T (transpose of A), or A**H (conjugate
+*>    op(A) * X = B,
+*> where op(A) = A, A**T (transpose of A), or A**H (conjugate
 *> transpose of A).
 *> \endverbatim
 *
@@ -313,7 +313,7 @@ SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.
diff --git a/TESTING/LIN/dlarhs.f b/TESTING/LIN/dlarhs.f
@@ -29,8 +29,8 @@
 *>
 *> DLARHS 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, depending on TRANS.
+*>    op(A) * X = B,
+*> where op(A) = A or A**T, depending on TRANS.
 *> \endverbatim
 *
 *  Arguments:
@@ -305,7 +305,7 @@ SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.
diff --git a/TESTING/LIN/slarhs.f b/TESTING/LIN/slarhs.f
@@ -29,7 +29,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,
+*>    op(A) * X = B,
 *> where op(A) = A or A**T.
 *> \endverbatim
 *
@@ -305,7 +305,7 @@ SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.
diff --git a/TESTING/LIN/zlarhs.f b/TESTING/LIN/zlarhs.f
@@ -29,8 +29,8 @@
 *>
 *> 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 ) may be A, A**T (transpose of A), or A**H (conjugate
+*>    op(A) * X = B,
+*> where op(A) = A, A**T (transpose of A), or A**H (conjugate
 *> transpose of A).
 *> \endverbatim
 *
@@ -313,7 +313,7 @@ SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
    10    CONTINUE
       END IF
 *
-*     Multiply X by op( A ) using an appropriate
+*     Multiply X by op(A) using an appropriate
 *     matrix multiply routine.
 *
       IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.

Original file line number	Diff line number	Diff line change
`@@ -29,8 +29,8 @@`
`29`	`29`	`*>`
`30`	`30`	`*> CLARHS chooses a set of NRHS random solution vectors and sets`
`31`	`31`	`*> up the right hand sides for the linear system`
`32`		`-> op( A ) X = B,`
`33`		`-> where op( A ) may be A, AT (transpose of A), or A*H (conjugate`
	`32`	`+> op(A) X = B,`
	`33`	`+> where op(A) = A, AT (transpose of A) or A*H (conjugate`
`34`	`34`	`*> transpose of A).`
`35`	`35`	`*> \endverbatim`
`36`	`36`	`*`
`@@ -313,7 +313,7 @@ SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,`
`313`	`313`	`10 CONTINUE`
`314`	`314`	`END IF`
`315`	`315`	`*`
`316`		`-* Multiply X by op( A ) using an appropriate`
	`316`	`+* Multiply X by op(A) using an appropriate`
`317`	`317`	`* matrix multiply routine.`
`318`	`318`	`*`
`319`	`319`	`IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.`
Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,7 @@`
`29`	`29`	`*>`
`30`	`30`	`*> SLARHS chooses a set of NRHS random solution vectors and sets`
`31`	`31`	`*> up the right hand sides for the linear system`
`32`		`-> op( A ) X = B,`
	`32`	`+> op(A) X = B,`
`33`	`33`	`> where op(A) = A or A*T.`
`34`	`34`	`*> \endverbatim`
`35`	`35`	`*`
`@@ -305,7 +305,7 @@ SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,`
`305`	`305`	`10 CONTINUE`
`306`	`306`	`END IF`
`307`	`307`	`*`
`308`		`-* Multiply X by op( A ) using an appropriate`
	`308`	`+* Multiply X by op(A) using an appropriate`
`309`	`309`	`* matrix multiply routine.`
`310`	`310`	`*`
`311`	`311`	`IF( LSAMEN( 2, C2, 'GE' ) .OR. LSAMEN( 2, C2, 'QR' ) .OR.`