From d6bcfc9664a7b4d561811eb2a9df8edfd048936d Mon Sep 17 00:00:00 2001
From: Igor Zhuravlov <zhuravlov.ip@ya.ru>
Date: Tue, 2 Jun 2020 00:03:39 +1000
Subject: [PATCH] comments unified: 'End of' comment: letters case unified

---
 SRC/chb2st_kernels.f | 2 +-
 SRC/dlaed5.f         | 2 +-
 SRC/dlarrc.f         | 2 +-
 SRC/dlarre.f         | 2 +-
 SRC/dlarrr.f         | 2 +-
 SRC/dsb2st_kernels.f | 2 +-
 SRC/slaed5.f         | 2 +-
 SRC/slarrc.f         | 2 +-
 SRC/slarre.f         | 2 +-
 SRC/slarrr.f         | 2 +-
 SRC/ssb2st_kernels.f | 2 +-
 SRC/zhb2st_kernels.f | 2 +-
 12 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/SRC/chb2st_kernels.f b/SRC/chb2st_kernels.f
index 49a8336c9d..ea25b76e1d 100644
--- a/SRC/chb2st_kernels.f
+++ b/SRC/chb2st_kernels.f
@@ -371,6 +371,6 @@ SUBROUTINE  CHB2ST_KERNELS( UPLO, WANTZ, TTYPE,
 *
       RETURN
 *
-*     END OF CHB2ST_KERNELS
+*     End of CHB2ST_KERNELS
 *
       END
diff --git a/SRC/dlaed5.f b/SRC/dlaed5.f
index 0328f0e629..af47459269 100644
--- a/SRC/dlaed5.f
+++ b/SRC/dlaed5.f
@@ -181,6 +181,6 @@ SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM )
       END IF
       RETURN
 *
-*     End OF DLAED5
+*     End of DLAED5
 *
       END
diff --git a/SRC/dlarrc.f b/SRC/dlarrc.f
index 5193e05625..55a17626ac 100644
--- a/SRC/dlarrc.f
+++ b/SRC/dlarrc.f
@@ -243,6 +243,6 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
 
       RETURN
 *
-*     end of DLARRC
+*     End of DLARRC
 *
       END
diff --git a/SRC/dlarre.f b/SRC/dlarre.f
index 2d6ac8e358..afbfe6379c 100644
--- a/SRC/dlarre.f
+++ b/SRC/dlarre.f
@@ -896,6 +896,6 @@ SUBROUTINE DLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
 
       RETURN
 *
-*     end of DLARRE
+*     End of DLARRE
 *
       END
diff --git a/SRC/dlarrr.f b/SRC/dlarrr.f
index f1aad96c4a..3bd6beb308 100644
--- a/SRC/dlarrr.f
+++ b/SRC/dlarrr.f
@@ -203,6 +203,6 @@ SUBROUTINE DLARRR( N, D, E, INFO )
 *
       RETURN
 *
-*     END OF DLARRR
+*     End of DLARRR
 *
       END
diff --git a/SRC/dsb2st_kernels.f b/SRC/dsb2st_kernels.f
index 643d03c8ca..683d7a24e3 100644
--- a/SRC/dsb2st_kernels.f
+++ b/SRC/dsb2st_kernels.f
@@ -371,6 +371,6 @@ SUBROUTINE  DSB2ST_KERNELS( UPLO, WANTZ, TTYPE,
 *
       RETURN
 *
-*     END OF DSB2ST_KERNELS
+*     End of DSB2ST_KERNELS
 *
       END
diff --git a/SRC/slaed5.f b/SRC/slaed5.f
index 24579e10ca..8ed6d9efe2 100644
--- a/SRC/slaed5.f
+++ b/SRC/slaed5.f
@@ -181,6 +181,6 @@ SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM )
       END IF
       RETURN
 *
-*     End OF SLAED5
+*     End of SLAED5
 *
       END
diff --git a/SRC/slarrc.f b/SRC/slarrc.f
index d4f8336f33..060051539f 100644
--- a/SRC/slarrc.f
+++ b/SRC/slarrc.f
@@ -243,6 +243,6 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN,
 
       RETURN
 *
-*     end of SLARRC
+*     End of SLARRC
 *
       END
diff --git a/SRC/slarre.f b/SRC/slarre.f
index 0e9b8f882c..34dd71fd9d 100644
--- a/SRC/slarre.f
+++ b/SRC/slarre.f
@@ -900,6 +900,6 @@ SUBROUTINE SLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2,
 
       RETURN
 *
-*     end of SLARRE
+*     End of SLARRE
 *
       END
diff --git a/SRC/slarrr.f b/SRC/slarrr.f
index 02a057daeb..d18465bc8b 100644
--- a/SRC/slarrr.f
+++ b/SRC/slarrr.f
@@ -203,6 +203,6 @@ SUBROUTINE SLARRR( N, D, E, INFO )
 *
       RETURN
 *
-*     END OF SLARRR
+*     End of SLARRR
 *
       END
diff --git a/SRC/ssb2st_kernels.f b/SRC/ssb2st_kernels.f
index b5743e9001..23f77d0dae 100644
--- a/SRC/ssb2st_kernels.f
+++ b/SRC/ssb2st_kernels.f
@@ -372,6 +372,6 @@ SUBROUTINE  SSB2ST_KERNELS( UPLO, WANTZ, TTYPE,
 *
       RETURN
 *
-*     END OF SSB2ST_KERNELS
+*     End of SSB2ST_KERNELS
 *
       END
diff --git a/SRC/zhb2st_kernels.f b/SRC/zhb2st_kernels.f
index 05d05234f0..717b36eefa 100644
--- a/SRC/zhb2st_kernels.f
+++ b/SRC/zhb2st_kernels.f
@@ -371,6 +371,6 @@ SUBROUTINE  ZHB2ST_KERNELS( UPLO, WANTZ, TTYPE,
 *
       RETURN
 *
-*     END OF ZHB2ST_KERNELS
+*     End of ZHB2ST_KERNELS
 *
       END