diff options
| author | langou <langou@users.noreply.github.com> | 2016-01-26 18:29:16 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2016-01-26 18:29:16 +0000 |
| commit | 5f9dd6e3f5fc477d420dba82be1227b46856ecab (patch) | |
| tree | 8d02e9cf1ca661ff7d2cd23d3626972ecaeaaa28 /TESTING | |
| parent | 884d8884ddf42c6dc27c24e0b35d03b91fd5e63d (diff) | |
Email from Edward Smyth from NAG. (Thanks Ed!)
In calls to {D,S}BDSVDX in the test programs {d,s}chkbd.f, insufficient space
may be provided for the array Z i.e. WORK(IWBZ). The correction is to change
IWWORK = IWBZ + MNMIN*(MNMIN*2+1)
to
IWWORK = IWBZ + 2*MNMIN*(MNMIN+1)
on line 1146 in both files.
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/dchkbd.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/schkbd.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index cf0ad14f..3a70053c 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.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 DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) 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 ) |