comments unified: compress space chains in xGBT01 and xPOT01

Author: jip

TESTING/LIN/cgbt01.f

@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> CGBT01 reconstructs a band matrix  A  from its L*U factorization and
+*> CGBT01 reconstructs a band matrix A from its L*U factorization and
 *> computes the residual:
 *>    norm(L*U - A) / ( N * norm(A) * EPS ),
 *> where EPS is the machine epsilon.

TESTING/LIN/cpot01.f

@@ -206,7 +206,7 @@ SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
    30    CONTINUE
       END IF
 *
-*     Compute the difference  L * L**H - A (or U**H * U - A).
+*     Compute the difference L * L**H - A (or U**H * U - A).
 *
       IF( LSAME( UPLO, 'U' ) ) THEN
          DO 50 J = 1, N

TESTING/LIN/dgbt01.f

@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> DGBT01 reconstructs a band matrix  A  from its L*U factorization and
+*> DGBT01 reconstructs a band matrix A from its L*U factorization and
 *> computes the residual:
 *>    norm(L*U - A) / ( N * norm(A) * EPS ),
 *> where EPS is the machine epsilon.

TESTING/LIN/sgbt01.f

@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> SGBT01 reconstructs a band matrix  A  from its L*U factorization and
+*> SGBT01 reconstructs a band matrix A from its L*U factorization and
 *> computes the residual:
 *>    norm(L*U - A) / ( N * norm(A) * EPS ),
 *> where EPS is the machine epsilon.

TESTING/LIN/spot01.f

@@ -191,7 +191,7 @@ SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
    20    CONTINUE
       END IF
 *
-*     Compute the difference  L * L**T - A (or U**T * U - A).
+*     Compute the difference L * L**T - A (or U**T * U - A).
 *
       IF( LSAME( UPLO, 'U' ) ) THEN
          DO 40 J = 1, N

TESTING/LIN/zgbt01.f

@@ -26,7 +26,7 @@
 *>
 *> \verbatim
 *>
-*> ZGBT01 reconstructs a band matrix  A  from its L*U factorization and
+*> ZGBT01 reconstructs a band matrix A from its L*U factorization and
 *> computes the residual:
 *>    norm(L*U - A) / ( N * norm(A) * EPS ),
 *> where EPS is the machine epsilon.

TESTING/LIN/zpot01.f

@@ -206,7 +206,7 @@ SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
    30    CONTINUE
       END IF
 *
-*     Compute the difference  L * L**H - A (or U**H * U - A).
+*     Compute the difference L * L**H - A (or U**H * U - A).
 *
       IF( LSAME( UPLO, 'U' ) ) THEN
          DO 50 J = 1, N