diff options
| author | langou <langou@users.noreply.github.com> | 2015-06-10 17:30:19 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2015-06-10 17:30:19 +0000 |
| commit | 5277dad956fe3f28f5cbb7db8693fb39e923b0c1 (patch) | |
| tree | d5bd2c7645b2177d5bb32fe150a5beedb4e8b402 | |
| parent | 81a0ecfe835d7410686ebde441b2f1ccb130a97e (diff) | |
| download | lapack-5277dad956fe3f28f5cbb7db8693fb39e923b0c1.tar.gz lapack-5277dad956fe3f28f5cbb7db8693fb39e923b0c1.tar.bz2 lapack-5277dad956fe3f28f5cbb7db8693fb39e923b0c1.zip | |
remove the COMPLEX*16 TMP from DLAHILB
this has nothing to do here, probably a bad copy-paste from Z to D
| -rw-r--r-- | TESTING/MATGEN/dlahilb.f | 3 |
1 files changed, 1 insertions, 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 |