Merge pull request #418 from jip/fix

Fix some minor errors in code and comments

Author: langou

BLAS/SRC/caxpy.f

@@ -133,4 +133,7 @@ SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
       END IF
 *
       RETURN
+*
+*     End of CAXPY
+*
       END

BLAS/SRC/ccopy.f

@@ -119,4 +119,7 @@ SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
          END DO
       END IF
       RETURN
+*
+*     End of CCOPY
+*
       END

BLAS/SRC/cdotc.f

@@ -128,4 +128,7 @@ COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
       END IF
       CDOTC = CTEMP
       RETURN
+*
+*     End of CDOTC
+*
       END

BLAS/SRC/cdotu.f

@@ -125,4 +125,7 @@ COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
       END IF
       CDOTU = CTEMP
       RETURN
+*
+*     End of CDOTU
+*
       END

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