diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f
index 7ccd6792bb..42a1da0335 100644
--- a/BLAS/SRC/cgbmv.f
+++ b/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
diff --git a/BLAS/SRC/cgemm.f b/BLAS/SRC/cgemm.f
index 348726a854..baefe21e8b 100644
--- a/BLAS/SRC/cgemm.f
+++ b/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
diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f
index 9a29fe1bcc..574be07602 100644
--- a/BLAS/SRC/cgemv.f
+++ b/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
diff --git a/BLAS/SRC/cgerc.f b/BLAS/SRC/cgerc.f
index 1721755dbc..716628d8ad 100644
--- a/BLAS/SRC/cgerc.f
+++ b/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
diff --git a/BLAS/SRC/cgeru.f b/BLAS/SRC/cgeru.f
index 50c6c1c23b..5ff8f9405d 100644
--- a/BLAS/SRC/cgeru.f
+++ b/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
diff --git a/BLAS/SRC/chbmv.f b/BLAS/SRC/chbmv.f
index d981e1d733..bddab93259 100644
--- a/BLAS/SRC/chbmv.f
+++ b/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
diff --git a/BLAS/SRC/chemm.f b/BLAS/SRC/chemm.f
index 2b246ba96a..5d66dda3d5 100644
--- a/BLAS/SRC/chemm.f
+++ b/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
diff --git a/BLAS/SRC/chemv.f b/BLAS/SRC/chemv.f
index 7712aadec5..288ab1436f 100644
--- a/BLAS/SRC/chemv.f
+++ b/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
diff --git a/BLAS/SRC/cher.f b/BLAS/SRC/cher.f
index 1b0ae637a7..2695a7eb1b 100644
--- a/BLAS/SRC/cher.f
+++ b/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
diff --git a/BLAS/SRC/cher2.f b/BLAS/SRC/cher2.f
index 4a69746a7b..68976b46ee 100644
--- a/BLAS/SRC/cher2.f
+++ b/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
diff --git a/BLAS/SRC/cher2k.f b/BLAS/SRC/cher2k.f
index a03f7dfc89..a77908738a 100644
--- a/BLAS/SRC/cher2k.f
+++ b/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
diff --git a/BLAS/SRC/cherk.f b/BLAS/SRC/cherk.f
index be346fc94a..7aa8b33cd3 100644
--- a/BLAS/SRC/cherk.f
+++ b/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
diff --git a/BLAS/SRC/chpmv.f b/BLAS/SRC/chpmv.f
index 4c19b5c3d4..459a9ba3ed 100644
--- a/BLAS/SRC/chpmv.f
+++ b/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
diff --git a/BLAS/SRC/chpr.f b/BLAS/SRC/chpr.f
index f93f34e458..62a946f242 100644
--- a/BLAS/SRC/chpr.f
+++ b/BLAS/SRC/chpr.f
@@ -271,6 +271,6 @@ SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP)
 *
       RETURN
 *
-*     End of CHPR  .
+*     End of CHPR
 *
       END
diff --git a/BLAS/SRC/chpr2.f b/BLAS/SRC/chpr2.f
index 2bd5e26beb..cb07168b0e 100644
--- a/BLAS/SRC/chpr2.f
+++ b/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
diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f
index 4ac838c2cd..ff6a6bf05b 100644
--- a/BLAS/SRC/csymm.f
+++ b/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
diff --git a/BLAS/SRC/csyr2k.f b/BLAS/SRC/csyr2k.f
index 5c1ecfcea2..09751895d2 100644
--- a/BLAS/SRC/csyr2k.f
+++ b/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
diff --git a/BLAS/SRC/csyrk.f b/BLAS/SRC/csyrk.f
index 2602c186bd..97bde056cd 100644
--- a/BLAS/SRC/csyrk.f
+++ b/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
diff --git a/BLAS/SRC/ctbmv.f b/BLAS/SRC/ctbmv.f
index 0f94f4291b..c0be8f4ea5 100644
--- a/BLAS/SRC/ctbmv.f
+++ b/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
diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f
index 6c78b427f1..b3600e4636 100644
--- a/BLAS/SRC/ctbsv.f
+++ b/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
diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f
index 792d7b027d..b4651a2a39 100644
--- a/BLAS/SRC/ctpmv.f
+++ b/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
diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f
index d8c2fd2413..d306cc2380 100644
--- a/BLAS/SRC/ctpsv.f
+++ b/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
diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f
index 4c1996ff77..2597372136 100644
--- a/BLAS/SRC/ctrmm.f
+++ b/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
diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f
index a71c9bb065..2404b3deb1 100644
--- a/BLAS/SRC/ctrmv.f
+++ b/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
diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f
index 5c7823d7f0..7da6cfe59a 100644
--- a/BLAS/SRC/ctrsm.f
+++ b/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
diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f
index 719a33b6df..de0640e4bd 100644
--- a/BLAS/SRC/ctrsv.f
+++ b/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
diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f
index 26e73f99a3..4c8f088b00 100644
--- a/BLAS/SRC/dgbmv.f
+++ b/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
diff --git a/BLAS/SRC/dgemm.f b/BLAS/SRC/dgemm.f
index b1e22036f4..8c1b4f2066 100644
--- a/BLAS/SRC/dgemm.f
+++ b/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
diff --git a/BLAS/SRC/dgemv.f b/BLAS/SRC/dgemv.f
index 01a1f0e8f4..6625509b3a 100644
--- a/BLAS/SRC/dgemv.f
+++ b/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
diff --git a/BLAS/SRC/dger.f b/BLAS/SRC/dger.f
index 3725212b2a..8c19cb4e41 100644
--- a/BLAS/SRC/dger.f
+++ b/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
diff --git a/BLAS/SRC/dsbmv.f b/BLAS/SRC/dsbmv.f
index e6315d3cae..ad9e418a1e 100644
--- a/BLAS/SRC/dsbmv.f
+++ b/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
diff --git a/BLAS/SRC/dspmv.f b/BLAS/SRC/dspmv.f
index 4d7cd324c0..a79c74da7b 100644
--- a/BLAS/SRC/dspmv.f
+++ b/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
diff --git a/BLAS/SRC/dspr.f b/BLAS/SRC/dspr.f
index 0f0c0f173b..67227a2d58 100644
--- a/BLAS/SRC/dspr.f
+++ b/BLAS/SRC/dspr.f
@@ -253,6 +253,6 @@ SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP)
 *
       RETURN
 *
-*     End of DSPR  .
+*     End of DSPR
 *
       END
diff --git a/BLAS/SRC/dspr2.f b/BLAS/SRC/dspr2.f
index c52ed4be86..0756c2bbd6 100644
--- a/BLAS/SRC/dspr2.f
+++ b/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
diff --git a/BLAS/SRC/dsymm.f b/BLAS/SRC/dsymm.f
index 136333dd51..683e79f6ad 100644
--- a/BLAS/SRC/dsymm.f
+++ b/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
diff --git a/BLAS/SRC/dsymv.f b/BLAS/SRC/dsymv.f
index 27c0595ca4..17310d7c62 100644
--- a/BLAS/SRC/dsymv.f
+++ b/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
diff --git a/BLAS/SRC/dsyr.f b/BLAS/SRC/dsyr.f
index 4e0ff67172..ab452dd950 100644
--- a/BLAS/SRC/dsyr.f
+++ b/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
diff --git a/BLAS/SRC/dsyr2.f b/BLAS/SRC/dsyr2.f
index 496dc7ea4c..4bad19b96b 100644
--- a/BLAS/SRC/dsyr2.f
+++ b/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
diff --git a/BLAS/SRC/dsyr2k.f b/BLAS/SRC/dsyr2k.f
index 478486961f..f5d16e0854 100644
--- a/BLAS/SRC/dsyr2k.f
+++ b/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
diff --git a/BLAS/SRC/dsyrk.f b/BLAS/SRC/dsyrk.f
index f437cb6921..0548c0ce2f 100644
--- a/BLAS/SRC/dsyrk.f
+++ b/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
diff --git a/BLAS/SRC/dtbmv.f b/BLAS/SRC/dtbmv.f
index d01b6c3ebe..646fb9bf55 100644
--- a/BLAS/SRC/dtbmv.f
+++ b/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
diff --git a/BLAS/SRC/dtbsv.f b/BLAS/SRC/dtbsv.f
index 827f47cc98..d4ab7c65ac 100644
--- a/BLAS/SRC/dtbsv.f
+++ b/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
diff --git a/BLAS/SRC/dtpmv.f b/BLAS/SRC/dtpmv.f
index 58f086126a..32ab147f77 100644
--- a/BLAS/SRC/dtpmv.f
+++ b/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
diff --git a/BLAS/SRC/dtpsv.f b/BLAS/SRC/dtpsv.f
index 946986fc69..853d0dab0c 100644
--- a/BLAS/SRC/dtpsv.f
+++ b/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
diff --git a/BLAS/SRC/dtrmm.f b/BLAS/SRC/dtrmm.f
index 39789efdab..b2cc0a1fa8 100644
--- a/BLAS/SRC/dtrmm.f
+++ b/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
diff --git a/BLAS/SRC/dtrmv.f b/BLAS/SRC/dtrmv.f
index fecdd989df..e8af8e6136 100644
--- a/BLAS/SRC/dtrmv.f
+++ b/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
diff --git a/BLAS/SRC/dtrsm.f b/BLAS/SRC/dtrsm.f
index 4fe97fbb3b..fa8080bc92 100644
--- a/BLAS/SRC/dtrsm.f
+++ b/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
diff --git a/BLAS/SRC/dtrsv.f b/BLAS/SRC/dtrsv.f
index 89131c8635..d8ea9fa898 100644
--- a/BLAS/SRC/dtrsv.f
+++ b/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
diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f
index 88140a1784..b5211eec99 100644
--- a/BLAS/SRC/sgbmv.f
+++ b/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
diff --git a/BLAS/SRC/sgemm.f b/BLAS/SRC/sgemm.f
index c2d8a8c102..d25a152116 100644
--- a/BLAS/SRC/sgemm.f
+++ b/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
diff --git a/BLAS/SRC/sgemv.f b/BLAS/SRC/sgemv.f
index 34cd02d07f..0517b124c5 100644
--- a/BLAS/SRC/sgemv.f
+++ b/BLAS/SRC/sgemv.f
@@ -322,6 +322,6 @@ SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of SGEMV .
+*     End of SGEMV
 *
       END
diff --git a/BLAS/SRC/sger.f b/BLAS/SRC/sger.f
index ee0e2e028d..9dfe4a2826 100644
--- a/BLAS/SRC/sger.f
+++ b/BLAS/SRC/sger.f
@@ -219,6 +219,6 @@ SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of SGER  .
+*     End of SGER
 *
       END
diff --git a/BLAS/SRC/ssbmv.f b/BLAS/SRC/ssbmv.f
index e7e36cd753..c458131709 100644
--- a/BLAS/SRC/ssbmv.f
+++ b/BLAS/SRC/ssbmv.f
@@ -367,6 +367,6 @@ SUBROUTINE SSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of SSBMV .
+*     End of SSBMV
 *
       END
diff --git a/BLAS/SRC/sspmv.f b/BLAS/SRC/sspmv.f
index 3af954031c..840fd5c79a 100644
--- a/BLAS/SRC/sspmv.f
+++ b/BLAS/SRC/sspmv.f
@@ -323,6 +323,6 @@ SUBROUTINE SSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of SSPMV .
+*     End of SSPMV
 *
       END
diff --git a/BLAS/SRC/sspr.f b/BLAS/SRC/sspr.f
index 0f0b406d95..ab24d3f1dc 100644
--- a/BLAS/SRC/sspr.f
+++ b/BLAS/SRC/sspr.f
@@ -253,6 +253,6 @@ SUBROUTINE SSPR(UPLO,N,ALPHA,X,INCX,AP)
 *
       RETURN
 *
-*     End of SSPR  .
+*     End of SSPR
 *
       END
diff --git a/BLAS/SRC/sspr2.f b/BLAS/SRC/sspr2.f
index 6266da35ef..1107a8c655 100644
--- a/BLAS/SRC/sspr2.f
+++ b/BLAS/SRC/sspr2.f
@@ -288,6 +288,6 @@ SUBROUTINE SSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
 *
       RETURN
 *
-*     End of SSPR2 .
+*     End of SSPR2
 *
       END
diff --git a/BLAS/SRC/ssymm.f b/BLAS/SRC/ssymm.f
index ca1d49b740..3147bd619e 100644
--- a/BLAS/SRC/ssymm.f
+++ b/BLAS/SRC/ssymm.f
@@ -359,6 +359,6 @@ SUBROUTINE SSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of SSYMM .
+*     End of SSYMM
 *
       END
diff --git a/BLAS/SRC/ssymv.f b/BLAS/SRC/ssymv.f
index ae5348e2df..91117989bf 100644
--- a/BLAS/SRC/ssymv.f
+++ b/BLAS/SRC/ssymv.f
@@ -325,6 +325,6 @@ SUBROUTINE SSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of SSYMV .
+*     End of SSYMV
 *
       END
diff --git a/BLAS/SRC/ssyr.f b/BLAS/SRC/ssyr.f
index 423e465747..51164c5c41 100644
--- a/BLAS/SRC/ssyr.f
+++ b/BLAS/SRC/ssyr.f
@@ -255,6 +255,6 @@ SUBROUTINE SSYR(UPLO,N,ALPHA,X,INCX,A,LDA)
 *
       RETURN
 *
-*     End of SSYR  .
+*     End of SSYR
 *
       END
diff --git a/BLAS/SRC/ssyr2.f b/BLAS/SRC/ssyr2.f
index d6363b5f08..1dc73eee96 100644
--- a/BLAS/SRC/ssyr2.f
+++ b/BLAS/SRC/ssyr2.f
@@ -290,6 +290,6 @@ SUBROUTINE SSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of SSYR2 .
+*     End of SSYR2
 *
       END
diff --git a/BLAS/SRC/ssyr2k.f b/BLAS/SRC/ssyr2k.f
index 7705c9fa23..1bb5aa4caf 100644
--- a/BLAS/SRC/ssyr2k.f
+++ b/BLAS/SRC/ssyr2k.f
@@ -391,6 +391,6 @@ SUBROUTINE SSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of SSYR2K.
+*     End of SSYR2K
 *
       END
diff --git a/BLAS/SRC/ssyrk.f b/BLAS/SRC/ssyrk.f
index 3345dab4d0..faca01b894 100644
--- a/BLAS/SRC/ssyrk.f
+++ b/BLAS/SRC/ssyrk.f
@@ -356,6 +356,6 @@ SUBROUTINE SSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
 *
       RETURN
 *
-*     End of SSYRK .
+*     End of SSYRK
 *
       END
diff --git a/BLAS/SRC/stbmv.f b/BLAS/SRC/stbmv.f
index c1416bb98a..09273a1b1b 100644
--- a/BLAS/SRC/stbmv.f
+++ b/BLAS/SRC/stbmv.f
@@ -390,6 +390,6 @@ SUBROUTINE STBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of STBMV .
+*     End of STBMV
 *
       END
diff --git a/BLAS/SRC/stbsv.f b/BLAS/SRC/stbsv.f
index ce48eed887..5f37cf7195 100644
--- a/BLAS/SRC/stbsv.f
+++ b/BLAS/SRC/stbsv.f
@@ -393,6 +393,6 @@ SUBROUTINE STBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of STBSV .
+*     End of STBSV
 *
       END
diff --git a/BLAS/SRC/stpmv.f b/BLAS/SRC/stpmv.f
index a2391ae120..9e77c1e70d 100644
--- a/BLAS/SRC/stpmv.f
+++ b/BLAS/SRC/stpmv.f
@@ -344,6 +344,6 @@ SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of STPMV .
+*     End of STPMV
 *
       END
diff --git a/BLAS/SRC/stpsv.f b/BLAS/SRC/stpsv.f
index 06ee2a1f96..40b1ffb2c7 100644
--- a/BLAS/SRC/stpsv.f
+++ b/BLAS/SRC/stpsv.f
@@ -346,6 +346,6 @@ SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of STPSV .
+*     End of STPSV
 *
       END
diff --git a/BLAS/SRC/strmm.f b/BLAS/SRC/strmm.f
index 217e5acade..9aa2ac260c 100644
--- a/BLAS/SRC/strmm.f
+++ b/BLAS/SRC/strmm.f
@@ -407,6 +407,6 @@ SUBROUTINE STRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of STRMM .
+*     End of STRMM
 *
       END
diff --git a/BLAS/SRC/strmv.f b/BLAS/SRC/strmv.f
index d635c219d5..6f5a3e8fd4 100644
--- a/BLAS/SRC/strmv.f
+++ b/BLAS/SRC/strmv.f
@@ -334,6 +334,6 @@ SUBROUTINE STRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of STRMV .
+*     End of STRMV
 *
       END
diff --git a/BLAS/SRC/strsm.f b/BLAS/SRC/strsm.f
index 8f3c4aadf6..6e97c52d86 100644
--- a/BLAS/SRC/strsm.f
+++ b/BLAS/SRC/strsm.f
@@ -435,6 +435,6 @@ SUBROUTINE STRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of STRSM .
+*     End of STRSM
 *
       END
diff --git a/BLAS/SRC/strsv.f b/BLAS/SRC/strsv.f
index eb9bf172b4..e228ea90c1 100644
--- a/BLAS/SRC/strsv.f
+++ b/BLAS/SRC/strsv.f
@@ -336,6 +336,6 @@ SUBROUTINE STRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of STRSV .
+*     End of STRSV
 *
       END
diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f
index 43650ecac1..0bca54eb9e 100644
--- a/BLAS/SRC/zgbmv.f
+++ b/BLAS/SRC/zgbmv.f
@@ -382,6 +382,6 @@ SUBROUTINE ZGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of ZGBMV .
+*     End of ZGBMV
 *
       END
diff --git a/BLAS/SRC/zgemm.f b/BLAS/SRC/zgemm.f
index ca18d6d8a9..0b712f1b73 100644
--- a/BLAS/SRC/zgemm.f
+++ b/BLAS/SRC/zgemm.f
@@ -472,6 +472,6 @@ SUBROUTINE ZGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of ZGEMM .
+*     End of ZGEMM
 *
       END
diff --git a/BLAS/SRC/zgemv.f b/BLAS/SRC/zgemv.f
index eee461f3cb..2664454b94 100644
--- a/BLAS/SRC/zgemv.f
+++ b/BLAS/SRC/zgemv.f
@@ -342,6 +342,6 @@ SUBROUTINE ZGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of ZGEMV .
+*     End of ZGEMV
 *
       END
diff --git a/BLAS/SRC/zgerc.f b/BLAS/SRC/zgerc.f
index 428f4c87da..2eb4349367 100644
--- a/BLAS/SRC/zgerc.f
+++ b/BLAS/SRC/zgerc.f
@@ -219,6 +219,6 @@ SUBROUTINE ZGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of ZGERC .
+*     End of ZGERC
 *
       END
diff --git a/BLAS/SRC/zgeru.f b/BLAS/SRC/zgeru.f
index b538c0588d..e1cd2dcd19 100644
--- a/BLAS/SRC/zgeru.f
+++ b/BLAS/SRC/zgeru.f
@@ -219,6 +219,6 @@ SUBROUTINE ZGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of ZGERU .
+*     End of ZGERU
 *
       END
diff --git a/BLAS/SRC/zhbmv.f b/BLAS/SRC/zhbmv.f
index 8edeffce28..6f8026c693 100644
--- a/BLAS/SRC/zhbmv.f
+++ b/BLAS/SRC/zhbmv.f
@@ -372,6 +372,6 @@ SUBROUTINE ZHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of ZHBMV .
+*     End of ZHBMV
 *
       END
diff --git a/BLAS/SRC/zhemm.f b/BLAS/SRC/zhemm.f
index 278cd8b968..9ebbab2c77 100644
--- a/BLAS/SRC/zhemm.f
+++ b/BLAS/SRC/zhemm.f
@@ -363,6 +363,6 @@ SUBROUTINE ZHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of ZHEMM .
+*     End of ZHEMM
 *
       END
diff --git a/BLAS/SRC/zhemv.f b/BLAS/SRC/zhemv.f
index c675defbab..dad68bf25b 100644
--- a/BLAS/SRC/zhemv.f
+++ b/BLAS/SRC/zhemv.f
@@ -329,6 +329,6 @@ SUBROUTINE ZHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of ZHEMV .
+*     End of ZHEMV
 *
       END
diff --git a/BLAS/SRC/zher.f b/BLAS/SRC/zher.f
index 992a94cfa5..59227305f8 100644
--- a/BLAS/SRC/zher.f
+++ b/BLAS/SRC/zher.f
@@ -270,6 +270,6 @@ SUBROUTINE ZHER(UPLO,N,ALPHA,X,INCX,A,LDA)
 *
       RETURN
 *
-*     End of ZHER  .
+*     End of ZHER
 *
       END
diff --git a/BLAS/SRC/zher2.f b/BLAS/SRC/zher2.f
index cd36656f0f..d1f2b57ec4 100644
--- a/BLAS/SRC/zher2.f
+++ b/BLAS/SRC/zher2.f
@@ -309,6 +309,6 @@ SUBROUTINE ZHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
 *
       RETURN
 *
-*     End of ZHER2 .
+*     End of ZHER2
 *
       END
diff --git a/BLAS/SRC/zher2k.f b/BLAS/SRC/zher2k.f
index e19a41f9ba..5c75083cd5 100644
--- a/BLAS/SRC/zher2k.f
+++ b/BLAS/SRC/zher2k.f
@@ -435,6 +435,6 @@ SUBROUTINE ZHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of ZHER2K.
+*     End of ZHER2K
 *
       END
diff --git a/BLAS/SRC/zherk.f b/BLAS/SRC/zherk.f
index b962099a56..e39a3fce36 100644
--- a/BLAS/SRC/zherk.f
+++ b/BLAS/SRC/zherk.f
@@ -388,6 +388,6 @@ SUBROUTINE ZHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
 *
       RETURN
 *
-*     End of ZHERK .
+*     End of ZHERK
 *
       END
diff --git a/BLAS/SRC/zhpmv.f b/BLAS/SRC/zhpmv.f
index 9d59226e90..c1a2fa006c 100644
--- a/BLAS/SRC/zhpmv.f
+++ b/BLAS/SRC/zhpmv.f
@@ -330,6 +330,6 @@ SUBROUTINE ZHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
 *
       RETURN
 *
-*     End of ZHPMV .
+*     End of ZHPMV
 *
       END
diff --git a/BLAS/SRC/zhpr.f b/BLAS/SRC/zhpr.f
index 44d0c75a06..2ba5774a21 100644
--- a/BLAS/SRC/zhpr.f
+++ b/BLAS/SRC/zhpr.f
@@ -271,6 +271,6 @@ SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP)
 *
       RETURN
 *
-*     End of ZHPR  .
+*     End of ZHPR
 *
       END
diff --git a/BLAS/SRC/zhpr2.f b/BLAS/SRC/zhpr2.f
index 91deeb2b55..55cfe77e30 100644
--- a/BLAS/SRC/zhpr2.f
+++ b/BLAS/SRC/zhpr2.f
@@ -310,6 +310,6 @@ SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
 *
       RETURN
 *
-*     End of ZHPR2 .
+*     End of ZHPR2
 *
       END
diff --git a/BLAS/SRC/zsymm.f b/BLAS/SRC/zsymm.f
index 7b191d0338..3ec8a8db7a 100644
--- a/BLAS/SRC/zsymm.f
+++ b/BLAS/SRC/zsymm.f
@@ -361,6 +361,6 @@ SUBROUTINE ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of ZSYMM .
+*     End of ZSYMM
 *
       END
diff --git a/BLAS/SRC/zsyr2k.f b/BLAS/SRC/zsyr2k.f
index 68e518e782..e0f89bb584 100644
--- a/BLAS/SRC/zsyr2k.f
+++ b/BLAS/SRC/zsyr2k.f
@@ -388,6 +388,6 @@ SUBROUTINE ZSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
 *
       RETURN
 *
-*     End of ZSYR2K.
+*     End of ZSYR2K
 *
       END
diff --git a/BLAS/SRC/zsyrk.f b/BLAS/SRC/zsyrk.f
index 7281548641..143a5e235a 100644
--- a/BLAS/SRC/zsyrk.f
+++ b/BLAS/SRC/zsyrk.f
@@ -355,6 +355,6 @@ SUBROUTINE ZSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
 *
       RETURN
 *
-*     End of ZSYRK .
+*     End of ZSYRK
 *
       END
diff --git a/BLAS/SRC/ztbmv.f b/BLAS/SRC/ztbmv.f
index fc0dafbbc1..6be39d04e1 100644
--- a/BLAS/SRC/ztbmv.f
+++ b/BLAS/SRC/ztbmv.f
@@ -421,6 +421,6 @@ SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of ZTBMV .
+*     End of ZTBMV
 *
       END
diff --git a/BLAS/SRC/ztbsv.f b/BLAS/SRC/ztbsv.f
index 57b87a9b8b..41b540774a 100644
--- a/BLAS/SRC/ztbsv.f
+++ b/BLAS/SRC/ztbsv.f
@@ -424,6 +424,6 @@ SUBROUTINE ZTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of ZTBSV .
+*     End of ZTBSV
 *
       END
diff --git a/BLAS/SRC/ztpmv.f b/BLAS/SRC/ztpmv.f
index cd7014314c..363fd5a2ac 100644
--- a/BLAS/SRC/ztpmv.f
+++ b/BLAS/SRC/ztpmv.f
@@ -380,6 +380,6 @@ SUBROUTINE ZTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of ZTPMV .
+*     End of ZTPMV
 *
       END
diff --git a/BLAS/SRC/ztpsv.f b/BLAS/SRC/ztpsv.f
index 47fcc2636f..c6f24d0b27 100644
--- a/BLAS/SRC/ztpsv.f
+++ b/BLAS/SRC/ztpsv.f
@@ -382,6 +382,6 @@ SUBROUTINE ZTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
 *
       RETURN
 *
-*     End of ZTPSV .
+*     End of ZTPSV
 *
       END
diff --git a/BLAS/SRC/ztrmm.f b/BLAS/SRC/ztrmm.f
index 62b1c5e54a..c59c367cee 100644
--- a/BLAS/SRC/ztrmm.f
+++ b/BLAS/SRC/ztrmm.f
@@ -444,6 +444,6 @@ SUBROUTINE ZTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of ZTRMM .
+*     End of ZTRMM
 *
       END
diff --git a/BLAS/SRC/ztrmv.f b/BLAS/SRC/ztrmv.f
index e5a4a5ce62..e8314facb7 100644
--- a/BLAS/SRC/ztrmv.f
+++ b/BLAS/SRC/ztrmv.f
@@ -365,6 +365,6 @@ SUBROUTINE ZTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of ZTRMV .
+*     End of ZTRMV
 *
       END
diff --git a/BLAS/SRC/ztrsm.f b/BLAS/SRC/ztrsm.f
index a4e92f015e..7f7eb52f3e 100644
--- a/BLAS/SRC/ztrsm.f
+++ b/BLAS/SRC/ztrsm.f
@@ -469,6 +469,6 @@ SUBROUTINE ZTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
 *
       RETURN
 *
-*     End of ZTRSM .
+*     End of ZTRSM
 *
       END
diff --git a/BLAS/SRC/ztrsv.f b/BLAS/SRC/ztrsv.f
index 0f17a8b3b7..0bb9cbe745 100644
--- a/BLAS/SRC/ztrsv.f
+++ b/BLAS/SRC/ztrsv.f
@@ -367,6 +367,6 @@ SUBROUTINE ZTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
       RETURN
 *
-*     End of ZTRSV .
+*     End of ZTRSV
 *
       END
diff --git a/BLAS/TESTING/cblat2.f b/BLAS/TESTING/cblat2.f
index 87972dbc2d..a74ccf9b7a 100644
--- a/BLAS/TESTING/cblat2.f
+++ b/BLAS/TESTING/cblat2.f
@@ -428,7 +428,7 @@ PROGRAM CBLAT2
  9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of CBLAT2.
+*     End of CBLAT2
 *
       END
       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -773,7 +773,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK1.
+*     End of CCHK1
 *
       END
       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1121,7 +1121,7 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK2.
+*     End of CCHK2
 *
       END
       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1482,7 +1482,7 @@ SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK3.
+*     End of CCHK3
 *
       END
       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1759,7 +1759,7 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK4.
+*     End of CCHK4
 *
       END
       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2043,7 +2043,7 @@ SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK5.
+*     End of CCHK5
 *
       END
       SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2365,7 +2365,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK6.
+*     End of CCHK6
 *
       END
       SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )
@@ -2708,7 +2708,7 @@ SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of CCHKE.
+*     End of CCHKE
 *
       END
       SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
@@ -2900,7 +2900,7 @@ SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
       END IF
       RETURN
 *
-*     End of CMAKE.
+*     End of CMAKE
 *
       END
       SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
@@ -3032,7 +3032,7 @@ SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
      $      'SULT                    COMPUTED RESULT' )
  9998 FORMAT( 1X, I7, 2( '  (', G15.6, ',', G15.6, ')' ) )
 *
-*     End of CMVCH.
+*     End of CMVCH
 *
       END
       LOGICAL FUNCTION LCE( RI, RJ, LR )
@@ -3062,7 +3062,7 @@ LOGICAL FUNCTION LCE( RI, RJ, LR )
       LCE = .FALSE.
    30 RETURN
 *
-*     End of LCE.
+*     End of LCE
 *
       END
       LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -3121,7 +3121,7 @@ LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LCERES = .FALSE.
    80 RETURN
 *
-*     End of LCERES.
+*     End of LCERES
 *
       END
       COMPLEX FUNCTION CBEG( RESET )
@@ -3173,7 +3173,7 @@ COMPLEX FUNCTION CBEG( RESET )
       CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
       RETURN
 *
-*     End of CBEG.
+*     End of CBEG
 *
       END
       REAL FUNCTION SDIFF( X, Y )
@@ -3189,7 +3189,7 @@ REAL FUNCTION SDIFF( X, Y )
       SDIFF = X - Y
       RETURN
 *
-*     End of SDIFF.
+*     End of SDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -3217,7 +3217,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f
index 984939118c..e7a6114bee 100644
--- a/BLAS/TESTING/cblat3.f
+++ b/BLAS/TESTING/cblat3.f
@@ -396,7 +396,7 @@ PROGRAM CBLAT3
  9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of CBLAT3.
+*     End of CBLAT3
 *
       END
       SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -681,7 +681,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK1.
+*     End of CCHK1
 *
       END
       SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -960,7 +960,7 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK2.
+*     End of CCHK2
 *
       END
       SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1270,7 +1270,7 @@ SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK3.
+*     End of CCHK3
 *
       END
       SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1602,7 +1602,7 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK4.
+*     End of CCHK4
 *
       END
       SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1975,7 +1975,7 @@ SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of CCHK5.
+*     End of CCHK5
 *
       END
       SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )
@@ -2916,7 +2916,7 @@ SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of CCHKE.
+*     End of CCHKE
 *
       END
       SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
@@ -3044,7 +3044,7 @@ SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
       END IF
       RETURN
 *
-*     End of CMAKE.
+*     End of CMAKE
 *
       END
       SUBROUTINE CMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
@@ -3232,7 +3232,7 @@ SUBROUTINE CMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
  9998 FORMAT( 1X, I7, 2( '  (', G15.6, ',', G15.6, ')' ) )
  9997 FORMAT( '      THESE ARE THE RESULTS FOR COLUMN ', I3 )
 *
-*     End of CMMCH.
+*     End of CMMCH
 *
       END
       LOGICAL FUNCTION LCE( RI, RJ, LR )
@@ -3264,7 +3264,7 @@ LOGICAL FUNCTION LCE( RI, RJ, LR )
       LCE = .FALSE.
    30 RETURN
 *
-*     End of LCE.
+*     End of LCE
 *
       END
       LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -3325,7 +3325,7 @@ LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LCERES = .FALSE.
    80 RETURN
 *
-*     End of LCERES.
+*     End of LCERES
 *
       END
       COMPLEX FUNCTION CBEG( RESET )
@@ -3379,7 +3379,7 @@ COMPLEX FUNCTION CBEG( RESET )
       CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
       RETURN
 *
-*     End of CBEG.
+*     End of CBEG
 *
       END
       REAL FUNCTION SDIFF( X, Y )
@@ -3398,7 +3398,7 @@ REAL FUNCTION SDIFF( X, Y )
       SDIFF = X - Y
       RETURN
 *
-*     End of SDIFF.
+*     End of SDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -3428,7 +3428,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/BLAS/TESTING/dblat2.f b/BLAS/TESTING/dblat2.f
index 22a1cf12ae..70bd028737 100644
--- a/BLAS/TESTING/dblat2.f
+++ b/BLAS/TESTING/dblat2.f
@@ -421,7 +421,7 @@ PROGRAM DBLAT2
  9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of DBLAT2.
+*     End of DBLAT2
 *
       END
       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -762,7 +762,7 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK1.
+*     End of DCHK1
 *
       END
       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1105,7 +1105,7 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK2.
+*     End of DCHK2
 *
       END
       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1462,7 +1462,7 @@ SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK3.
+*     End of DCHK3
 *
       END
       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1723,7 +1723,7 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK4.
+*     End of DCHK4
 *
       END
       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2001,7 +2001,7 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK5.
+*     End of DCHK5
 *
       END
       SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2316,7 +2316,7 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK6.
+*     End of DCHK6
 *
       END
       SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT )
@@ -2642,7 +2642,7 @@ SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of DCHKE.
+*     End of DCHKE
 *
       END
       SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
@@ -2818,7 +2818,7 @@ SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
       END IF
       RETURN
 *
-*     End of DMAKE.
+*     End of DMAKE
 *
       END
       SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
@@ -2935,7 +2935,7 @@ SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
      $      'TED RESULT' )
  9998 FORMAT( 1X, I7, 2G18.6 )
 *
-*     End of DMVCH.
+*     End of DMVCH
 *
       END
       LOGICAL FUNCTION LDE( RI, RJ, LR )
@@ -2965,7 +2965,7 @@ LOGICAL FUNCTION LDE( RI, RJ, LR )
       LDE = .FALSE.
    30 RETURN
 *
-*     End of LDE.
+*     End of LDE
 *
       END
       LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -3024,7 +3024,7 @@ LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LDERES = .FALSE.
    80 RETURN
 *
-*     End of LDERES.
+*     End of LDERES
 *
       END
       DOUBLE PRECISION FUNCTION DBEG( RESET )
@@ -3070,7 +3070,7 @@ DOUBLE PRECISION FUNCTION DBEG( RESET )
       DBEG = DBLE( I - 500 )/1001.0D0
       RETURN
 *
-*     End of DBEG.
+*     End of DBEG
 *
       END
       DOUBLE PRECISION FUNCTION DDIFF( X, Y )
@@ -3086,7 +3086,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y )
       DDIFF = X - Y
       RETURN
 *
-*     End of DDIFF.
+*     End of DDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -3114,7 +3114,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/BLAS/TESTING/dblat3.f b/BLAS/TESTING/dblat3.f
index e130347e16..5dbf6cf6b7 100644
--- a/BLAS/TESTING/dblat3.f
+++ b/BLAS/TESTING/dblat3.f
@@ -386,7 +386,7 @@ PROGRAM DBLAT3
  9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of DBLAT3.
+*     End of DBLAT3
 *
       END
       SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -667,7 +667,7 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK1.
+*     End of DCHK1
 *
       END
       SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -937,7 +937,7 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK2.
+*     End of DCHK2
 *
       END
       SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1242,7 +1242,7 @@ SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK3.
+*     End of DCHK3
 *
       END
       SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1517,7 +1517,7 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK4.
+*     End of DCHK4
 *
       END
       SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1831,7 +1831,7 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of DCHK5.
+*     End of DCHK5
 *
       END
       SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT )
@@ -2386,7 +2386,7 @@ SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of DCHKE.
+*     End of DCHKE
 *
       END
       SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
@@ -2499,7 +2499,7 @@ SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
       END IF
       RETURN
 *
-*     End of DMAKE.
+*     End of DMAKE
 *
       END
       SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
@@ -2621,7 +2621,7 @@ SUBROUTINE DMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
  9998 FORMAT( 1X, I7, 2G18.6 )
  9997 FORMAT( '      THESE ARE THE RESULTS FOR COLUMN ', I3 )
 *
-*     End of DMMCH.
+*     End of DMMCH
 *
       END
       LOGICAL FUNCTION LDE( RI, RJ, LR )
@@ -2653,7 +2653,7 @@ LOGICAL FUNCTION LDE( RI, RJ, LR )
       LDE = .FALSE.
    30 RETURN
 *
-*     End of LDE.
+*     End of LDE
 *
       END
       LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -2714,7 +2714,7 @@ LOGICAL FUNCTION LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LDERES = .FALSE.
    80 RETURN
 *
-*     End of LDERES.
+*     End of LDERES
 *
       END
       DOUBLE PRECISION FUNCTION DBEG( RESET )
@@ -2760,7 +2760,7 @@ DOUBLE PRECISION FUNCTION DBEG( RESET )
       DBEG = ( I - 500 )/1001.0D0
       RETURN
 *
-*     End of DBEG.
+*     End of DBEG
 *
       END
       DOUBLE PRECISION FUNCTION DDIFF( X, Y )
@@ -2779,7 +2779,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y )
       DDIFF = X - Y
       RETURN
 *
-*     End of DDIFF.
+*     End of DDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -2809,7 +2809,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/BLAS/TESTING/sblat2.f b/BLAS/TESTING/sblat2.f
index 16d1c04e94..70a9d60548 100644
--- a/BLAS/TESTING/sblat2.f
+++ b/BLAS/TESTING/sblat2.f
@@ -421,7 +421,7 @@ PROGRAM SBLAT2
  9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of SBLAT2.
+*     End of SBLAT2
 *
       END
       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -762,7 +762,7 @@ SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK1.
+*     End of SCHK1
 *
       END
       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1105,7 +1105,7 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK2.
+*     End of SCHK2
 *
       END
       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1462,7 +1462,7 @@ SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK3.
+*     End of SCHK3
 *
       END
       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1723,7 +1723,7 @@ SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK4.
+*     End of SCHK4
 *
       END
       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2001,7 +2001,7 @@ SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK5.
+*     End of SCHK5
 *
       END
       SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2316,7 +2316,7 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK6.
+*     End of SCHK6
 *
       END
       SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )
@@ -2642,7 +2642,7 @@ SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of SCHKE.
+*     End of SCHKE
 *
       END
       SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
@@ -2818,7 +2818,7 @@ SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
       END IF
       RETURN
 *
-*     End of SMAKE.
+*     End of SMAKE
 *
       END
       SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
@@ -2935,7 +2935,7 @@ SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
      $      'TED RESULT' )
  9998 FORMAT( 1X, I7, 2G18.6 )
 *
-*     End of SMVCH.
+*     End of SMVCH
 *
       END
       LOGICAL FUNCTION LSE( RI, RJ, LR )
@@ -2965,7 +2965,7 @@ LOGICAL FUNCTION LSE( RI, RJ, LR )
       LSE = .FALSE.
    30 RETURN
 *
-*     End of LSE.
+*     End of LSE
 *
       END
       LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -3024,7 +3024,7 @@ LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LSERES = .FALSE.
    80 RETURN
 *
-*     End of LSERES.
+*     End of LSERES
 *
       END
       REAL FUNCTION SBEG( RESET )
@@ -3070,7 +3070,7 @@ REAL FUNCTION SBEG( RESET )
       SBEG = REAL( I - 500 )/1001.0
       RETURN
 *
-*     End of SBEG.
+*     End of SBEG
 *
       END
       REAL FUNCTION SDIFF( X, Y )
@@ -3086,7 +3086,7 @@ REAL FUNCTION SDIFF( X, Y )
       SDIFF = X - Y
       RETURN
 *
-*     End of SDIFF.
+*     End of SDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -3114,7 +3114,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/BLAS/TESTING/sblat3.f b/BLAS/TESTING/sblat3.f
index a304b39170..f020657fac 100644
--- a/BLAS/TESTING/sblat3.f
+++ b/BLAS/TESTING/sblat3.f
@@ -386,7 +386,7 @@ PROGRAM SBLAT3
  9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of SBLAT3.
+*     End of SBLAT3
 *
       END
       SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -667,7 +667,7 @@ SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK1.
+*     End of SCHK1
 *
       END
       SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -937,7 +937,7 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK2.
+*     End of SCHK2
 *
       END
       SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1242,7 +1242,7 @@ SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK3.
+*     End of SCHK3
 *
       END
       SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1517,7 +1517,7 @@ SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK4.
+*     End of SCHK4
 *
       END
       SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1831,7 +1831,7 @@ SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of SCHK5.
+*     End of SCHK5
 *
       END
       SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )
@@ -2386,7 +2386,7 @@ SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of SCHKE.
+*     End of SCHKE
 *
       END
       SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
@@ -2499,7 +2499,7 @@ SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
       END IF
       RETURN
 *
-*     End of SMAKE.
+*     End of SMAKE
 *
       END
       SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
@@ -2621,7 +2621,7 @@ SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
  9998 FORMAT( 1X, I7, 2G18.6 )
  9997 FORMAT( '      THESE ARE THE RESULTS FOR COLUMN ', I3 )
 *
-*     End of SMMCH.
+*     End of SMMCH
 *
       END
       LOGICAL FUNCTION LSE( RI, RJ, LR )
@@ -2653,7 +2653,7 @@ LOGICAL FUNCTION LSE( RI, RJ, LR )
       LSE = .FALSE.
    30 RETURN
 *
-*     End of LSE.
+*     End of LSE
 *
       END
       LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -2714,7 +2714,7 @@ LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LSERES = .FALSE.
    80 RETURN
 *
-*     End of LSERES.
+*     End of LSERES
 *
       END
       REAL FUNCTION SBEG( RESET )
@@ -2760,7 +2760,7 @@ REAL FUNCTION SBEG( RESET )
       SBEG = ( I - 500 )/1001.0
       RETURN
 *
-*     End of SBEG.
+*     End of SBEG
 *
       END
       REAL FUNCTION SDIFF( X, Y )
@@ -2779,7 +2779,7 @@ REAL FUNCTION SDIFF( X, Y )
       SDIFF = X - Y
       RETURN
 *
-*     End of SDIFF.
+*     End of SDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -2809,7 +2809,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/BLAS/TESTING/zblat2.f b/BLAS/TESTING/zblat2.f
index ceb86e0efc..9df292859f 100644
--- a/BLAS/TESTING/zblat2.f
+++ b/BLAS/TESTING/zblat2.f
@@ -429,7 +429,7 @@ PROGRAM ZBLAT2
  9981 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9980 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of ZBLAT2.
+*     End of ZBLAT2
 *
       END
       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -775,7 +775,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK1.
+*     End of ZCHK1
 *
       END
       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1124,7 +1124,7 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK2.
+*     End of ZCHK2
 *
       END
       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1486,7 +1486,7 @@ SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK3.
+*     End of ZCHK3
 *
       END
       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1764,7 +1764,7 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK4.
+*     End of ZCHK4
 *
       END
       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2049,7 +2049,7 @@ SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK5.
+*     End of ZCHK5
 *
       END
       SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -2372,7 +2372,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK6.
+*     End of ZCHK6
 *
       END
       SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT )
@@ -2715,7 +2715,7 @@ SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of ZCHKE.
+*     End of ZCHKE
 *
       END
       SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
@@ -2908,7 +2908,7 @@ SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
       END IF
       RETURN
 *
-*     End of ZMAKE.
+*     End of ZMAKE
 *
       END
       SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
@@ -3040,7 +3040,7 @@ SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
      $      'SULT                    COMPUTED RESULT' )
  9998 FORMAT( 1X, I7, 2( '  (', G15.6, ',', G15.6, ')' ) )
 *
-*     End of ZMVCH.
+*     End of ZMVCH
 *
       END
       LOGICAL FUNCTION LZE( RI, RJ, LR )
@@ -3070,7 +3070,7 @@ LOGICAL FUNCTION LZE( RI, RJ, LR )
       LZE = .FALSE.
    30 RETURN
 *
-*     End of LZE.
+*     End of LZE
 *
       END
       LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -3129,7 +3129,7 @@ LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LZERES = .FALSE.
    80 RETURN
 *
-*     End of LZERES.
+*     End of LZERES
 *
       END
       COMPLEX*16 FUNCTION ZBEG( RESET )
@@ -3181,7 +3181,7 @@ COMPLEX*16 FUNCTION ZBEG( RESET )
       ZBEG = DCMPLX( ( I - 500 )/1001.0D0, ( J - 500 )/1001.0D0 )
       RETURN
 *
-*     End of ZBEG.
+*     End of ZBEG
 *
       END
       DOUBLE PRECISION FUNCTION DDIFF( X, Y )
@@ -3197,7 +3197,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y )
       DDIFF = X - Y
       RETURN
 *
-*     End of DDIFF.
+*     End of DDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -3225,7 +3225,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f
index d538f566ff..f4dbbdd1c0 100644
--- a/BLAS/TESTING/zblat3.f
+++ b/BLAS/TESTING/zblat3.f
@@ -398,7 +398,7 @@ PROGRAM ZBLAT3
  9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
  9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
 *
-*     End of ZBLAT3.
+*     End of ZBLAT3
 *
       END
       SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -683,7 +683,7 @@ SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK1.
+*     End of ZCHK1
 *
       END
       SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -962,7 +962,7 @@ SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK2.
+*     End of ZCHK2
 *
       END
       SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1273,7 +1273,7 @@ SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK3.
+*     End of ZCHK3
 *
       END
       SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1605,7 +1605,7 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK4.
+*     End of ZCHK4
 *
       END
       SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
@@ -1979,7 +1979,7 @@ SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
  9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
      $      '******' )
 *
-*     End of ZCHK5.
+*     End of ZCHK5
 *
       END
       SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT )
@@ -2923,7 +2923,7 @@ SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT )
  9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
      $      '**' )
 *
-*     End of ZCHKE.
+*     End of ZCHKE
 *
       END
       SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
@@ -3052,7 +3052,7 @@ SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
       END IF
       RETURN
 *
-*     End of ZMAKE.
+*     End of ZMAKE
 *
       END
       SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
@@ -3242,7 +3242,7 @@ SUBROUTINE ZMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
  9998 FORMAT( 1X, I7, 2( '  (', G15.6, ',', G15.6, ')' ) )
  9997 FORMAT( '      THESE ARE THE RESULTS FOR COLUMN ', I3 )
 *
-*     End of ZMMCH.
+*     End of ZMMCH
 *
       END
       LOGICAL FUNCTION LZE( RI, RJ, LR )
@@ -3274,7 +3274,7 @@ LOGICAL FUNCTION LZE( RI, RJ, LR )
       LZE = .FALSE.
    30 RETURN
 *
-*     End of LZE.
+*     End of LZE
 *
       END
       LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
@@ -3335,7 +3335,7 @@ LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
       LZERES = .FALSE.
    80 RETURN
 *
-*     End of LZERES.
+*     End of LZERES
 *
       END
       COMPLEX*16     FUNCTION ZBEG( RESET )
@@ -3389,7 +3389,7 @@ COMPLEX*16     FUNCTION ZBEG( RESET )
       ZBEG = DCMPLX( ( I - 500 )/1001.0D0, ( J - 500 )/1001.0D0 )
       RETURN
 *
-*     End of ZBEG.
+*     End of ZBEG
 *
       END
       DOUBLE PRECISION FUNCTION DDIFF( X, Y )
@@ -3408,7 +3408,7 @@ DOUBLE PRECISION FUNCTION DDIFF( X, Y )
       DDIFF = X - Y
       RETURN
 *
-*     End of DDIFF.
+*     End of DDIFF
 *
       END
       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
@@ -3438,7 +3438,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' ***** ILLEGAL VALUE OF PARAMETER NUMBER ', I2, ' NOT D',
      $      'ETECTED BY ', A6, ' *****' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
       SUBROUTINE XERBLA( SRNAME, INFO )
diff --git a/SRC/dsgesv.f b/SRC/dsgesv.f
index 49071812d2..986492f8ba 100644
--- a/SRC/dsgesv.f
+++ b/SRC/dsgesv.f
@@ -425,6 +425,6 @@ SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK,
 *
       RETURN
 *
-*     End of DSGESV.
+*     End of DSGESV
 *
       END
diff --git a/SRC/dsposv.f b/SRC/dsposv.f
index 23246b9327..c3b8de0e3e 100644
--- a/SRC/dsposv.f
+++ b/SRC/dsposv.f
@@ -431,6 +431,6 @@ SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK,
 *
       RETURN
 *
-*     End of DSPOSV.
+*     End of DSPOSV
 *
       END
diff --git a/SRC/zcgesv.f b/SRC/zcgesv.f
index 8d2cbf9245..e926d4e975 100644
--- a/SRC/zcgesv.f
+++ b/SRC/zcgesv.f
@@ -440,6 +440,6 @@ SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK,
 *
       RETURN
 *
-*     End of ZCGESV.
+*     End of ZCGESV
 *
       END
diff --git a/SRC/zcposv.f b/SRC/zcposv.f
index 313672422a..9b1940d60b 100644
--- a/SRC/zcposv.f
+++ b/SRC/zcposv.f
@@ -449,6 +449,6 @@ SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK,
 *
       RETURN
 *
-*     End of ZCPOSV.
+*     End of ZCPOSV
 *
       END
diff --git a/TESTING/EIG/chkxer.f b/TESTING/EIG/chkxer.f
index 5e291ec47f..fd00bb65a7 100644
--- a/TESTING/EIG/chkxer.f
+++ b/TESTING/EIG/chkxer.f
@@ -63,6 +63,6 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' *** Illegal value of parameter number ', I2,
      $      ' not detected by ', A6, ' ***' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END
diff --git a/TESTING/LIN/chkxer.f b/TESTING/LIN/chkxer.f
index e35126ddcf..d2b2c636a4 100644
--- a/TESTING/LIN/chkxer.f
+++ b/TESTING/LIN/chkxer.f
@@ -63,6 +63,6 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
  9999 FORMAT( ' *** Illegal value of parameter number ', I2,
      $      ' not detected by ', A6, ' ***' )
 *
-*     End of CHKXER.
+*     End of CHKXER
 *
       END