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