diff --git a/lapack-netlib/SRC/cunhr_col.f b/lapack-netlib/SRC/cunhr_col.f
index faa37d3ed..b86bcd505 100644
--- a/lapack-netlib/SRC/cunhr_col.f
+++ b/lapack-netlib/SRC/cunhr_col.f
@@ -420,7 +420,7 @@
 *
          JBTEMP2 = JB - 2
          DO J = JB, JB+JNB-2
-            DO I = J-JBTEMP2, NB
+            DO I = J-JBTEMP2, MIN( NB, N )
                T( I, J ) = CZERO
             END DO
          END DO
@@ -436,4 +436,4 @@
 *
 *     End of CUNHR_COL
 *
-      END
\ No newline at end of file
+      END
diff --git a/lapack-netlib/SRC/dorhr_col.f b/lapack-netlib/SRC/dorhr_col.f
index a9363c1a5..064f9cb01 100644
--- a/lapack-netlib/SRC/dorhr_col.f
+++ b/lapack-netlib/SRC/dorhr_col.f
@@ -419,7 +419,7 @@
 *
          JBTEMP2 = JB - 2
          DO J = JB, JB+JNB-2
-            DO I = J-JBTEMP2, NB
+            DO I = J-JBTEMP2, MIN( NB, N )
                T( I, J ) = ZERO
             END DO
          END DO
@@ -435,4 +435,4 @@
 *
 *     End of DORHR_COL
 *
-      END
\ No newline at end of file
+      END
diff --git a/lapack-netlib/SRC/sorhr_col.f b/lapack-netlib/SRC/sorhr_col.f
index 5d9188148..ab6df2bc8 100644
--- a/lapack-netlib/SRC/sorhr_col.f
+++ b/lapack-netlib/SRC/sorhr_col.f
@@ -419,7 +419,7 @@
 *
          JBTEMP2 = JB - 2
          DO J = JB, JB+JNB-2
-            DO I = J-JBTEMP2, NB
+            DO I = J-JBTEMP2, MIN( NB, N )
                T( I, J ) = ZERO
             END DO
          END DO
diff --git a/lapack-netlib/SRC/zunhr_col.f b/lapack-netlib/SRC/zunhr_col.f
index 3c7b2deb1..ce5c09e06 100644
--- a/lapack-netlib/SRC/zunhr_col.f
+++ b/lapack-netlib/SRC/zunhr_col.f
@@ -420,7 +420,7 @@
 *
          JBTEMP2 = JB - 2
          DO J = JB, JB+JNB-2
-            DO I = J-JBTEMP2, NB
+            DO I = J-JBTEMP2, MIN( NB, N )
                T( I, J ) = CZERO
             END DO
          END DO
@@ -436,4 +436,4 @@
 *
 *     End of ZUNHR_COL
 *
-      END
\ No newline at end of file
+      END