--- rpl/lapack/lapack/zhbgst.f	2010/08/06 15:32:41	1.4
+++ rpl/lapack/lapack/zhbgst.f	2010/08/07 13:18:09	1.5
@@ -1,10 +1,10 @@
       SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X,
      $                   LDX, WORK, RWORK, INFO )
 *
-*  -- LAPACK routine (version 3.2) --
+*  -- LAPACK routine (version 3.2.2) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     November 2006
+*     June 2010
 *
 *     .. Scalar Arguments ..
       CHARACTER          UPLO, VECT
@@ -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