--- rpl/lapack/lapack/dtgsy2.f	2010/08/06 15:32:36	1.4
+++ rpl/lapack/lapack/dtgsy2.f	2010/08/07 13:18:08	1.5
@@ -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
 *