From 2472cd18a1485fe42ac6cfd4cd82fb3114248f00 Mon Sep 17 00:00:00 2001 From: Anton Khirnov Date: Sat, 7 Apr 2018 10:01:34 +0200 Subject: Make the location of the outermost point configurable. --- src/qms_solve.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/qms_solve.c') diff --git a/src/qms_solve.c b/src/qms_solve.c index 0d74300..f1e6ee8 100644 --- a/src/qms_solve.c +++ b/src/qms_solve.c @@ -1093,7 +1093,7 @@ fail: int qms_solver_init(QMSSolver **pctx, cGH *cctkGH, int basis_order_r, int basis_order_z, - double sf, double filter_power, double input_filter_power) + double outer_bound, double filter_power, double input_filter_power) { QMSSolver *ctx; QMSSolverPriv *s; @@ -1136,7 +1136,7 @@ int qms_solver_init(QMSSolver **pctx, //FIXME scale_factor = 1.0; - scale_factor = (64.0 / ctx->basis[0]->colloc_point(s->colloc_grid_order[0], ctx->nb_colloc_points[0] - 1)); + scale_factor = (outer_bound / ctx->basis[0]->colloc_point(s->colloc_grid_order[0], ctx->nb_colloc_points[0] - 1)); fprintf(stderr, "scale factor %16.16g\n", scale_factor); init_opencl(ctx); -- cgit v1.2.3