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

BLAS/SRC/cgbmv.f

@@ -382,6 +382,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

@@ -472,6 +472,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

@@ -342,6 +342,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

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

BLAS/SRC/cgeru.f

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

BLAS/SRC/chbmv.f

@@ -372,6 +372,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

@@ -363,6 +363,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

@@ -329,6 +329,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

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

BLAS/SRC/cher2.f

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

BLAS/SRC/cher2k.f

@@ -434,6 +434,6 @@ SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of CHER2K.
+*     End of CHER2K
 *
       END

BLAS/SRC/cherk.f

@@ -388,6 +388,6 @@ SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
 *
       RETURN
 *
-*     End of CHERK .
+*     End of CHERK
 *
       END

BLAS/SRC/chpmv.f

@@ -330,6 +330,6 @@ SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of CHPMV .
+*     End of CHPMV
 *
       END

BLAS/SRC/chpr.f

@@ -271,6 +271,6 @@ SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP)
 *
       RETURN
 *
-*     End of CHPR  .
+*     End of CHPR
 *
       END

BLAS/SRC/chpr2.f

@@ -310,6 +310,6 @@ SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
 *
       RETURN
 *
-*     End of CHPR2 .
+*     End of CHPR2
 *
       END

BLAS/SRC/csymm.f

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

BLAS/SRC/csyr2k.f

@@ -388,6 +388,6 @@ SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of CSYR2K.
+*     End of CSYR2K
 *
       END

BLAS/SRC/csyrk.f

@@ -355,6 +355,6 @@ SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
 *
       RETURN
 *
-*     End of CSYRK .
+*     End of CSYRK
 *
       END

BLAS/SRC/ctbmv.f

@@ -421,6 +421,6 @@ SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of CTBMV .
+*     End of CTBMV
 *
       END

BLAS/SRC/ctbsv.f

@@ -424,6 +424,6 @@ SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of CTBSV .
+*     End of CTBSV
 *
       END

BLAS/SRC/ctpmv.f

@@ -380,6 +380,6 @@ SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of CTPMV .
+*     End of CTPMV
 *
       END

BLAS/SRC/ctpsv.f

@@ -382,6 +382,6 @@ SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of CTPSV .
+*     End of CTPSV
 *
       END

BLAS/SRC/ctrmm.f

@@ -444,6 +444,6 @@ SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of CTRMM .
+*     End of CTRMM
 *
       END

BLAS/SRC/ctrmv.f

@@ -365,6 +365,6 @@ SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of CTRMV .
+*     End of CTRMV
 *
       END

BLAS/SRC/ctrsm.f

@@ -469,6 +469,6 @@ SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of CTRSM .
+*     End of CTRSM
 *
       END

BLAS/SRC/ctrsv.f

@@ -367,6 +367,6 @@ SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of CTRSV .
+*     End of CTRSV
 *
       END

BLAS/SRC/dgbmv.f

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

BLAS/SRC/dgemm.f

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

BLAS/SRC/dgemv.f

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

BLAS/SRC/dger.f

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

BLAS/SRC/dsbmv.f

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

BLAS/SRC/dspmv.f

@@ -323,6 +323,6 @@ SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of DSPMV .
+*     End of DSPMV
 *
       END

BLAS/SRC/dspr.f

@@ -253,6 +253,6 @@ SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP)
 *
       RETURN
 *
-*     End of DSPR  .
+*     End of DSPR
 *
       END

BLAS/SRC/dspr2.f

@@ -288,6 +288,6 @@ SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
 *
       RETURN
 *
-*     End of DSPR2 .
+*     End of DSPR2
 *
       END

BLAS/SRC/dsymm.f

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

BLAS/SRC/dsymv.f

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

BLAS/SRC/dsyr.f

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

BLAS/SRC/dsyr2.f

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

BLAS/SRC/dsyr2k.f

@@ -391,6 +391,6 @@ SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of DSYR2K.
+*     End of DSYR2K
 *
       END

BLAS/SRC/dsyrk.f

@@ -356,6 +356,6 @@ SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
 *
       RETURN
 *
-*     End of DSYRK .
+*     End of DSYRK
 *
       END

BLAS/SRC/dtbmv.f

@@ -390,6 +390,6 @@ SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of DTBMV .
+*     End of DTBMV
 *
       END

BLAS/SRC/dtbsv.f

@@ -393,6 +393,6 @@ SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of DTBSV .
+*     End of DTBSV
 *
       END

BLAS/SRC/dtpmv.f

@@ -344,6 +344,6 @@ SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of DTPMV .
+*     End of DTPMV
 *
       END

BLAS/SRC/dtpsv.f

@@ -346,6 +346,6 @@ SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of DTPSV .
+*     End of DTPSV
 *
       END

BLAS/SRC/dtrmm.f

@@ -407,6 +407,6 @@ SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of DTRMM .
+*     End of DTRMM
 *
       END

BLAS/SRC/dtrmv.f

@@ -334,6 +334,6 @@ SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of DTRMV .
+*     End of DTRMV
 *
       END

BLAS/SRC/dtrsm.f

@@ -435,6 +435,6 @@ SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of DTRSM .
+*     End of DTRSM
 *
       END

BLAS/SRC/dtrsv.f

@@ -330,6 +330,6 @@ SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of DTRSV .
+*     End of DTRSV
 *
       END

BLAS/SRC/sgbmv.f

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

BLAS/SRC/sgemm.f

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