From 5277dad956fe3f28f5cbb7db8693fb39e923b0c1 Mon Sep 17 00:00:00 2001 From: langou Date: Wed, 10 Jun 2015 17:30:19 +0000 Subject: remove the COMPLEX*16 TMP from DLAHILB this has nothing to do here, probably a bad copy-paste from Z to D --- TESTING/MATGEN/dlahilb.f | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/TESTING/MATGEN/dlahilb.f b/TESTING/MATGEN/dlahilb.f index 5106d9d0..7173f70f 100644 --- 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 -- cgit v1.2.3