--- rpl/lapack/lapack/dstemr.f	2010/08/06 15:32:34	1.4
+++ rpl/lapack/lapack/dstemr.f	2010/08/07 13:18:08	1.5
@@ -3,10 +3,10 @@
      $                   IWORK, LIWORK, INFO )
       IMPLICIT NONE
 *
-*  -- LAPACK computational routine (version 3.2.1)                                  --
+*  -- LAPACK computational 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..--
-*  -- April 2009                                                      --
+*  -- June 2010                                                       --
 *
 *     .. Scalar Arguments ..
       CHARACTER          JOBZ, RANGE
@@ -391,10 +391,10 @@
                IF (SN.NE.ZERO) THEN
                   IF (CS.NE.ZERO) THEN
                      ISUPPZ(2*M-1) = 1
-                     ISUPPZ(2*M-1) = 2
+                     ISUPPZ(2*M) = 2
                   ELSE
                      ISUPPZ(2*M-1) = 1
-                     ISUPPZ(2*M-1) = 1
+                     ISUPPZ(2*M) = 1
                   END IF
                ELSE
                   ISUPPZ(2*M-1) = 2
@@ -415,10 +415,10 @@
                IF (SN.NE.ZERO) THEN
                   IF (CS.NE.ZERO) THEN
                      ISUPPZ(2*M-1) = 1
-                     ISUPPZ(2*M-1) = 2
+                     ISUPPZ(2*M) = 2
                   ELSE
                      ISUPPZ(2*M-1) = 1
-                     ISUPPZ(2*M-1) = 1
+                     ISUPPZ(2*M) = 1
                   END IF
                ELSE
                   ISUPPZ(2*M-1) = 2