From 736dd5378f11171d02267b4a521d1618dcac8875 Mon Sep 17 00:00:00 2001
From: Julie <julie@cs.utk.edu>
Date: Tue, 14 Jun 2016 21:35:52 -0700
Subject: [PATCH] Align definition of DIFR on *lasd8

Reported by Alex Zotkevich, Intel Co. on april 11th 2016
See http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4954
---
 SRC/dlasd6.f | 13 ++++++-------
 SRC/slasd6.f | 13 ++++++-------
 2 files changed, 12 insertions(+), 14 deletions(-)

diff --git a/SRC/dlasd6.f b/SRC/dlasd6.f
index f8b7dea0..1c7f5e8d 100644
--- a/SRC/dlasd6.f
+++ b/SRC/dlasd6.f
@@ -232,14 +232,13 @@
 *> \param[out] DIFR
 *> \verbatim
 *>          DIFR is DOUBLE PRECISION array,
-*>                  dimension ( LDGNUM, 2 ) if ICOMPQ = 1 and
-*>                  dimension ( N ) if ICOMPQ = 0.
-*>         On exit, DIFR(I, 1) is the distance between I-th updated
-*>         (undeflated) singular value and the I+1-th (undeflated) old
-*>         singular value.
+*>                   dimension ( LDDIFR, 2 ) if ICOMPQ = 1 and
+*>                   dimension ( K ) if ICOMPQ = 0.
+*>          On exit, DIFR(I,1) = D(I) - DSIGMA(I+1), DIFR(K,1) is not
+*>          defined and will not be referenced.
 *>
-*>         If ICOMPQ = 1, DIFR(1:K,2) is an array containing the
-*>         normalizing factors for the right singular vector matrix.
+*>          If ICOMPQ = 1, DIFR(1:K,2) is an array containing the
+*>          normalizing factors for the right singular vector matrix.
 *>
 *>         See DLASD8 for details on DIFL and DIFR.
 *> \endverbatim
diff --git a/SRC/slasd6.f b/SRC/slasd6.f
index e0cb1da9..4c2f0045 100644
--- a/SRC/slasd6.f
+++ b/SRC/slasd6.f
@@ -232,14 +232,13 @@
 *> \param[out] DIFR
 *> \verbatim
 *>          DIFR is REAL array,
-*>                  dimension ( LDGNUM, 2 ) if ICOMPQ = 1 and
-*>                  dimension ( N ) if ICOMPQ = 0.
-*>         On exit, DIFR(I, 1) is the distance between I-th updated
-*>         (undeflated) singular value and the I+1-th (undeflated) old
-*>         singular value.
+*>                   dimension ( LDDIFR, 2 ) if ICOMPQ = 1 and
+*>                   dimension ( K ) if ICOMPQ = 0.
+*>          On exit, DIFR(I,1) = D(I) - DSIGMA(I+1), DIFR(K,1) is not
+*>          defined and will not be referenced.
 *>
-*>         If ICOMPQ = 1, DIFR(1:K,2) is an array containing the
-*>         normalizing factors for the right singular vector matrix.
+*>          If ICOMPQ = 1, DIFR(1:K,2) is an array containing the
+*>          normalizing factors for the right singular vector matrix.
 *>
 *>         See SLASD8 for details on DIFL and DIFR.
 *> \endverbatim
-- 
2.34.1