phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix out-of-bounds access in orhr_col

Browse Source
This commit is contained in:
Mark Gates
2024-05-23 14:59:23 -04:00
parent 4a8ed6be3d
commit 0d2d60173b
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SRC/cunhr_col.f
+1 -1
View File
@@ -421,7 +421,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
SRC/dorhr_col.f
+1 -1
View File
@@ -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 ) = ZERO
END DO
END DO
SRC/sorhr_col.f
+1 -1
View File
@@ -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 ) = ZERO
END DO
END DO
SRC/zunhr_col.f
+1 -1
View File
@@ -421,7 +421,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