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:22:11 +02:00 committed by GitHub
parent 7779bb6fb1
commit 1285b53e39
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/stgex2.f
View File

@ -255,7 +255,7 @@
$ THRESHA, THRESHB $ THRESHA, THRESHB
* .. * ..
* .. Local Arrays .. * .. Local Arrays ..
INTEGER IWORK( LDST ) INTEGER IWORK( LDST + 2 )
REAL AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ), REAL 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 ),