comments unified: 'End of' comment: trash removed at the end of line

Author: jip

BLAS/SRC/cgbmv.f

@@ -385,6 +385,6 @@ SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of CGBMV .
+*     End of CGBMV
 *
       END

BLAS/SRC/cgemm.f

@@ -478,6 +478,6 @@ SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of CGEMM .
+*     End of CGEMM
 *
       END

BLAS/SRC/cgemv.f

@@ -345,6 +345,6 @@ SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of CGEMV .
+*     End of CGEMV
 *
       END

BLAS/SRC/cgerc.f

@@ -222,6 +222,6 @@ SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of CGERC .
+*     End of CGERC
 *
       END

BLAS/SRC/cgeru.f

@@ -222,6 +222,6 @@ SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of CGERU .
+*     End of CGERU
 *
       END

BLAS/SRC/chbmv.f

@@ -375,6 +375,6 @@ SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of CHBMV .
+*     End of CHBMV
 *
       END

BLAS/SRC/chemm.f

@@ -366,6 +366,6 @@ SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of CHEMM .
+*     End of CHEMM
 *
       END

BLAS/SRC/chemv.f

@@ -332,6 +332,6 @@ SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of CHEMV .
+*     End of CHEMV
 *
       END

BLAS/SRC/cher.f

@@ -273,6 +273,6 @@ SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA)
 *
       RETURN
 *
-*     End of CHER  .
+*     End of CHER
 *
       END

BLAS/SRC/cher2.f

@@ -312,6 +312,6 @@ SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of CHER2 .
+*     End of CHER2
 *
       END