diff options
Diffstat (limited to 'TESTING/EIG/schkbd.f')
| -rw-r--r-- | TESTING/EIG/schkbd.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index f7e88309..261567ed 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -1143,7 +1143,7 @@ IWBD = IWBS + MNMIN IWBE = IWBD + MNMIN IWBZ = IWBE + MNMIN - IWWORK = IWBZ + MNMIN*(MNMIN*2+1) + IWWORK = IWBZ + 2*MNMIN*(MNMIN+1) MNMIN2 = MAX( 1,MNMIN*2 ) * CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) |