diff options
author | langou <langou@users.noreply.github.com> | 2009-05-10 18:10:23 +0000 |
---|---|---|
committer | langou <langou@users.noreply.github.com> | 2009-05-10 18:10:23 +0000 |
commit | 7e19748f6c17e0249f2b5825655d6abd78fc09cd (patch) | |
tree | b0f3ab07fd776c0d662654992e11d0a2eddca685 /SRC/zhbgst.f | |
parent | 225b0360208f86b35b9bd26f802c9f717efbc98f (diff) | |
download | lapack-7e19748f6c17e0249f2b5825655d6abd78fc09cd.tar.gz lapack-7e19748f6c17e0249f2b5825655d6abd78fc09cd.tar.bz2 lapack-7e19748f6c17e0249f2b5825655d6abd78fc09cd.zip |
Patch from Lawrence Mulholland (NAG) on Wednesday May 6th 2009.
See forum: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=2&t=1408.
Thanks Lawrence.
Diffstat (limited to 'SRC/zhbgst.f')
-rw-r--r-- | SRC/zhbgst.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/zhbgst.f b/SRC/zhbgst.f index 01a295ec..088a80df 100644 --- a/SRC/zhbgst.f +++ b/SRC/zhbgst.f @@ -507,7 +507,7 @@ 230 CONTINUE * IF( KB.GT.1 ) THEN - DO 240 J = N - 1, I2 + KA, -1 + DO 240 J = N - 1, J2 + KA, -1 RWORK( J-M ) = RWORK( J-KA-M ) WORK( J-M ) = WORK( J-KA-M ) 240 CONTINUE @@ -771,7 +771,7 @@ 460 CONTINUE * IF( KB.GT.1 ) THEN - DO 470 J = N - 1, I2 + KA, -1 + DO 470 J = N - 1, J2 + KA, -1 RWORK( J-M ) = RWORK( J-KA-M ) WORK( J-M ) = WORK( J-KA-M ) 470 CONTINUE |