remove the COMPLEX*16 TMP from DLAHILB

this has nothing to do here, probably a bad copy-paste from Z to D

diff --git a/TESTING/MATGEN/dlahilb.f b/TESTING/MATGEN/dlahilb.f
index 5106d9d049ececbe4cebddb025110e6fcbd81256..7173f70f7fb0654ee400f08eb33cff2304d4b626 100644 (file)
--- a/TESTING/MATGEN/dlahilb.f
+++ b/TESTING/MATGEN/dlahilb.f
@@ -140,7 +140,6 @@ C> \brief \b DLAHILB
       INTEGER TM, TI, R
       INTEGER M
       INTEGER I, J
-      COMPLEX*16 TMP
 
 *     .. Parameters ..
 *     NMAX_EXACT   the largest dimension where the generated data is
@@ -204,7 +203,7 @@ 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, TMP, B, LDB)
+      CALL DLASET('Full', N, NRHS, 0.0D+0, DBLE(M), B, LDB)
 
 *     Generate the true solutions in X.  Because B = the first NRHS
 *     columns of M*I, the true solutions are just the first NRHS columns