diff options
| -rw-r--r-- | aberth/Makefile | 2 | ||||
| -rw-r--r-- | aberth/aberth.cpp | 2 | ||||
| -rw-r--r-- | aberth/aberth_kernel.fut | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/aberth/Makefile b/aberth/Makefile index f610c01..10f36b8 100644 --- a/aberth/Makefile +++ b/aberth/Makefile @@ -22,7 +22,7 @@ aberth: $(OBJECTS) aberth_kernel.o ../lodepng.o $(CXX) -o $@ $^ $(LDFLAGS) aberth_kernel.h: aberth_kernel.fut - futhark c --library $^ + futhark opencl --library $^ aberth_kernel.o: aberth_kernel.h gcc -c $(OPTFLAGS) -o $@ aberth_kernel.c diff --git a/aberth/aberth.cpp b/aberth/aberth.cpp index 550760d..8f65ef1 100644 --- a/aberth/aberth.cpp +++ b/aberth/aberth.cpp @@ -347,7 +347,7 @@ static vector<int32_t> invoke_kernel( futhark_context_config *config = futhark_context_config_new(); // futhark_context_config_select_device_interactively(config); - futhark_context_config_set_debugging(config, 1); + // futhark_context_config_set_debugging(config, 1); futhark_context *ctx = futhark_context_new(config); diff --git a/aberth/aberth_kernel.fut b/aberth/aberth_kernel.fut index f09db56..be1fed0 100644 --- a/aberth/aberth_kernel.fut +++ b/aberth/aberth_kernel.fut @@ -82,7 +82,7 @@ module aberth = { quos sums let approx = map2 (cplx.-) approx offsets let svals = map (eval_d ctx.bound <-< cplx.mag) approx - let conditions = map2 (\p s -> cplx.mag p <= 1e-9 * s) pvals svals + let conditions = map2 (\p s -> cplx.mag p <= 1e-5 * s) pvals svals let all_converged = all id conditions in (all_converged, approx) |