49 lines
2.3 KiB
Diff
49 lines
2.3 KiB
Diff
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
|