Index: lapack-3.1.0/SRC/dtgsy2.f
===================================================================
--- lapack-3.1.0.orig/SRC/dtgsy2.f	2006-11-14 01:32:02.000000000 +0100
+++ lapack-3.1.0/SRC/dtgsy2.f	2006-12-11 23:48:32.000000000 +0100
@@ -54,10 +54,10 @@
 *  This case is used to compute an estimate of Dif[(A, D), (B, E)] =
 *  sigma_min(Z) using reverse communicaton with DLACON.
 *
-*  DTGSY2 also (IJOB >= 1) contributes to the computation in STGSYL
+*  DTGSY2 also (IJOB >= 1) contributes to the computation in DTGSYL
 *  of an upper bound on the separation between to matrix pairs. Then
 *  the input (A, D), (B, E) are sub-pencils of the matrix pair in
-*  DTGSYL. See STGSYL for details.
+*  DTGSYL. See DTGSYL for details.
 *
 *  Arguments
 *  =========
@@ -142,7 +142,7 @@
 *          On exit, the corresponding sum of squares updated with the
 *          contributions from the current sub-system.
 *          If TRANS = 'T' RDSUM is not touched.
-*          NOTE: RDSUM only makes sense when DTGSY2 is called by STGSYL.
+*          NOTE: RDSUM only makes sense when DTGSY2 is called by DTGSYL.
 *
 *  RDSCAL  (input/output) DOUBLE PRECISION
 *          On entry, scaling factor used to prevent overflow in RDSUM.
@@ -512,7 +512,7 @@
                      CALL DGER( MB, N-JE, ONE, RHS( 3 ), 1,
      $                          B( JS, JE+1 ), LDB, C( IS, JE+1 ), LDC )
                      CALL DGER( MB, N-JE, ONE, RHS( 3 ), 1,
-     $                          E( JS, JE+1 ), LDB, F( IS, JE+1 ), LDC )
+     $                          E( JS, JE+1 ), LDE, F( IS, JE+1 ), LDF )
                   END IF
 *
                ELSE IF( ( MB.EQ.2 ) .AND. ( NB.EQ.2 ) ) THEN
Index: lapack-3.1.0/SRC/stgsy2.f
===================================================================
--- lapack-3.1.0.orig/SRC/stgsy2.f	2006-11-14 01:32:02.000000000 +0100
+++ lapack-3.1.0/SRC/stgsy2.f	2006-12-11 23:48:16.000000000 +0100
@@ -512,7 +512,7 @@
                      CALL SGER( MB, N-JE, ONE, RHS( 3 ), 1,
      $                          B( JS, JE+1 ), LDB, C( IS, JE+1 ), LDC )
                      CALL SGER( MB, N-JE, ONE, RHS( 3 ), 1,
-     $                          E( JS, JE+1 ), LDB, F( IS, JE+1 ), LDC )
+     $                          E( JS, JE+1 ), LDE, F( IS, JE+1 ), LDF )
                   END IF
 *
                ELSE IF( ( MB.EQ.2 ) .AND. ( NB.EQ.2 ) ) THEN