diff options
author | julie <julielangou@users.noreply.github.com> | 2010-06-24 18:23:57 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2010-06-24 18:23:57 +0000 |
commit | d50a7d9e6b94114eef4ed551b2f49db89fb33387 (patch) | |
tree | 6331f740f81b523df72bef60e555730474a4c093 /SRC/dtgsy2.f | |
parent | 82f05f2dd3e11ff479cfba13b5e5f0e80249abb3 (diff) |
Fix bug0060 :: Bug in dtgsy2, missing IWORK call
bug report and fix sent by Vasile Sima on 24 Feb 2009 to "lapack@cs.utk.edu".
The error is that "IWORK" must appear in the line 640. (It was included in the 1999 version.)
Note that the statement IE = ( I+1 ) - 1 is strange; also, in other similar place, IWORK is used like below.
Diffstat (limited to 'SRC/dtgsy2.f')
-rw-r--r-- | SRC/dtgsy2.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/dtgsy2.f b/SRC/dtgsy2.f index 49edccee..c86a2351 100644 --- a/SRC/dtgsy2.f +++ b/SRC/dtgsy2.f @@ -638,7 +638,7 @@ * IS = IWORK( I ) ISP1 = IS + 1 - IE = ( I+1 ) - 1 + IE = IWORK ( I+1 ) - 1 MB = IE - IS + 1 DO 190 J = Q, P + 2, -1 * |