comments unified: 'End of' comment: added where omitted

Author: jip

BLAS/SRC/caxpy.f

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

BLAS/SRC/ccopy.f

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

BLAS/SRC/cdotc.f

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

BLAS/SRC/cdotu.f

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

BLAS/SRC/crotg.f

@@ -94,4 +94,7 @@ SUBROUTINE CROTG(CA,CB,C,S)
          CA = ALPHA*NORM
       END IF
       RETURN
+*
+*     End of CROTG
+*
       END

BLAS/SRC/cscal.f

@@ -114,4 +114,7 @@ SUBROUTINE CSCAL(N,CA,CX,INCX)
          END DO
       END IF
       RETURN
+*
+*     End of CSCAL
+*
       END

BLAS/SRC/csrot.f

@@ -150,4 +150,7 @@ SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )
          END DO
       END IF
       RETURN
+*
+*     End of CSROT
+*
       END

BLAS/SRC/csscal.f

@@ -117,4 +117,7 @@ SUBROUTINE CSSCAL(N,SA,CX,INCX)
          END DO
       END IF
       RETURN
+*
+*     End of CSSCAL
+*
       END

BLAS/SRC/cswap.f

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

BLAS/SRC/dasum.f

@@ -128,4 +128,7 @@ DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX)
       END IF
       DASUM = DTEMP
       RETURN
+*
+*     End of DASUM
+*
       END