floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make IWORK array larger to avoid overflow

This commit is contained in:
Martin Kroeker 2023-09-14 20:21:06 +02:00 committed by GitHub
parent 0606102460
commit 7779bb6fb1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/dtgex2.f
View File

@ -254,7 +254,7 @@
$ THRESHA, THRESHB $ THRESHA, THRESHB
* .. * ..
* .. Local Arrays .. * .. Local Arrays ..
INTEGER IWORK( LDST ) INTEGER IWORK( LDST + 2 )
DOUBLE PRECISION AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ), DOUBLE PRECISION AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ),
$ IRCOP( LDST, LDST ), LI( LDST, LDST ), $ IRCOP( LDST, LDST ), LI( LDST, LDST ),
$ LICOP( LDST, LDST ), S( LDST, LDST ), $ LICOP( LDST, LDST ), S( LDST, LDST ),