Merge pull request #4716 from martin-frbg/lapack1018
Fix a potential bounds error in ?UNHR_COL/?ORHR_COL (Reference-LAPACK PR 1018)
This commit is contained in:
commit
3833190454
|
@ -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
|
||||
END
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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