Fix potential bounds error (Reference-LAPACK PR 1018)
This commit is contained in:
parent
e2c1a1e269
commit
4dd715d220
|
@ -419,7 +419,7 @@
|
||||||
*
|
*
|
||||||
JBTEMP2 = JB - 2
|
JBTEMP2 = JB - 2
|
||||||
DO J = JB, JB+JNB-2
|
DO J = JB, JB+JNB-2
|
||||||
DO I = J-JBTEMP2, NB
|
DO I = J-JBTEMP2, MIN( NB, N )
|
||||||
T( I, J ) = ZERO
|
T( I, J ) = ZERO
|
||||||
END DO
|
END DO
|
||||||
END DO
|
END DO
|
||||||
|
@ -435,4 +435,4 @@
|
||||||
*
|
*
|
||||||
* End of DORHR_COL
|
* End of DORHR_COL
|
||||||
*
|
*
|
||||||
END
|
END
|
||||||
|
|
Loading…
Reference in New Issue