From 67ca97015559e6d32b1140d999bc935401c63787 Mon Sep 17 00:00:00 2001 From: "m.petschow" Date: Fri, 16 Nov 2012 17:05:11 +0000 Subject: [PATCH] nothing --- SRC/mrrr.c | 2 +- SRC/mrrr_val.c | 2 +- SRC/process_cluster.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/SRC/mrrr.c b/SRC/mrrr.c index efec5e4..b28ddfc 100644 --- a/SRC/mrrr.c +++ b/SRC/mrrr.c @@ -233,7 +233,7 @@ int mrrr(char *jobz, char *range, int *np, double *restrict D, } else { tolstruct->rtol1 = sqrt(DBL_EPSILON); tolstruct->rtol1 = fmin(tolstruct->rtol1, 1e-2 * MIN_RELGAP); - tolstruct->rtol2 = sqrt(DBL_EPSILON)*5.0E-3; + tolstruct->rtol2 = tolstruct->rtol1*5.0E-3; tolstruct->rtol2 = fmin(tolstruct->rtol2, MIN_RELGAP * 5.0E-6); tolstruct->rtol2 = fmax(tolstruct->rtol2, 4.0 * DBL_EPSILON); } diff --git a/SRC/mrrr_val.c b/SRC/mrrr_val.c index 1d26ef2..52dbb24 100644 --- a/SRC/mrrr_val.c +++ b/SRC/mrrr_val.c @@ -376,7 +376,7 @@ int mrrr_val(char *jobz, char *range, int nthreads, in_t *Dstruct, /* Compute desired eigenvalues by bisection or dqds */ if (!useDQDS) { /* Bisection has been used before, now refine */ - + info = refine_eigval_approx(max_nthreads, ibgn, iend, wbgn, wend, ilow, iupp, sigma, spdiam, Dstruct, Wstruct, tolstruct, work, diff --git a/SRC/process_cluster.c b/SRC/process_cluster.c index 47f19f3..1f16a26 100644 --- a/SRC/process_cluster.c +++ b/SRC/process_cluster.c @@ -469,7 +469,7 @@ int PMR_create_subtasks(cluster_t *cl, int tid, int nthreads, double avggap, avggap_factor; max_size = fmax(1, PMR_get_counter_value(num_left) / - (fmin(depth+1,4)*nthreads) ); + (fmin(depth+3,8)*nthreads) ); task_inserted = true; avggap_factor = 1.0;