comments unified: 'End of' comment: letters case unified

Author: jip

SRC/chb2st_kernels.f

@@ -372,6 +372,6 @@ SUBROUTINE  CHB2ST_KERNELS( UPLO, WANTZ, TTYPE,
 *
       RETURN
 *
-*     END OF CHB2ST_KERNELS
+*     End of CHB2ST_KERNELS
 *
       END

SRC/dlaed5.f

@@ -184,6 +184,6 @@ SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM )
       END IF
       RETURN
 *
-*     End OF DLAED5
+*     End of DLAED5
 *
       END

SRC/dlarrc.f

@@ -246,6 +246,6 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
 
       RETURN
 *
-*     end of DLARRC
+*     End of DLARRC
 *
       END

SRC/dlarre.f

@@ -899,6 +899,6 @@ SUBROUTINE DLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
 
       RETURN
 *
-*     end of DLARRE
+*     End of DLARRE
 *
       END

SRC/dlarrr.f

@@ -206,6 +206,6 @@ SUBROUTINE DLARRR( N, D, E, INFO )
 *
       RETURN
 *
-*     END OF DLARRR
+*     End of DLARRR
 *
       END

SRC/dsb2st_kernels.f

@@ -372,6 +372,6 @@ SUBROUTINE  DSB2ST_KERNELS( UPLO, WANTZ, TTYPE,
 *
       RETURN
 *
-*     END OF DSB2ST_KERNELS
+*     End of DSB2ST_KERNELS
 *
       END

SRC/slaed5.f

@@ -184,6 +184,6 @@ SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM )
       END IF
       RETURN
 *
-*     End OF SLAED5
+*     End of SLAED5
 *
       END

SRC/slarrc.f

@@ -246,6 +246,6 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
 
       RETURN
 *
-*     end of SLARRC
+*     End of SLARRC
 *
       END

SRC/slarre.f

@@ -903,6 +903,6 @@ SUBROUTINE SLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
 
       RETURN
 *
-*     end of SLARRE
+*     End of SLARRE
 *
       END

SRC/slarrr.f

@@ -206,6 +206,6 @@ SUBROUTINE SLARRR( N, D, E, INFO )
 *
       RETURN
 *
-*     END OF SLARRR
+*     End of SLARRR
 *
       END