Browse Source

Make IWORK array larger to avoid overflow

tags/v0.3.25^2
Martin Kroeker GitHub 2 years ago
parent
commit
7779bb6fb1
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      lapack-netlib/SRC/dtgex2.f

+ 1
- 1
lapack-netlib/SRC/dtgex2.f View File

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


Loading…
Cancel
Save