Fix potential bounds error (Reference-LAPACK PR 1018)

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
+      END