Finish removing unnecessary code - TMP = DBLE(M) - see 1547 - Thank you Elena

diff --git a/TESTING/MATGEN/dlahilb.f b/TESTING/MATGEN/dlahilb.f
index 7173f70f7fb0654ee400f08eb33cff2304d4b626..630b03f0325f785bd7edb871f1b5524c95e7191e 100644 (file)
--- a/TESTING/MATGEN/dlahilb.f
+++ b/TESTING/MATGEN/dlahilb.f
@@ -202,7 +202,6 @@ C> \brief \b DLAHILB
 
 *     Generate matrix B as simply the first NRHS columns of M * the
 *     identity.
-      TMP = DBLE(M)
       CALL DLASET('Full', N, NRHS, 0.0D+0, DBLE(M), B, LDB)
 
 *     Generate the true solutions in X.  Because B = the first NRHS