Fix potential bounds error (Reference-LAPACK PR 1018)
This commit is contained in:
parent
e2c1a1e269
commit
4dd715d220
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue