From 1901f80720a193d4c06f10b0888ce97fb4e0ede6 Mon Sep 17 00:00:00 2001 From: Sam Hatfield Date: Thu, 9 Sep 2021 10:22:55 +0100 Subject: [PATCH] Update FFTW benchmark --- fftw_benchmark/README.md | 2 +- fftw_benchmark/main.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/fftw_benchmark/README.md b/fftw_benchmark/README.md index 0c9f4a0..e9b7d9d 100644 --- a/fftw_benchmark/README.md +++ b/fftw_benchmark/README.md @@ -17,4 +17,4 @@ which uses the `fujitsu-fftw` Spack module. Also if you don't want to use the Fujitsu compiler you must also set the `FORTCOMP` environment variable to your compiler of choice, set the `FORTOPT` environment variable with your optimisation flags and set the -`FORTLIB` to the empty string. +`export FORTLIB=" "` (note the space). diff --git a/fftw_benchmark/main.F90 b/fftw_benchmark/main.F90 index dd16f96..afcb56a 100644 --- a/fftw_benchmark/main.F90 +++ b/fftw_benchmark/main.F90 @@ -13,7 +13,7 @@ program main integer, parameter :: n = 10000 ! Number of times to repeat FFT cycle - integer, parameter :: n_repeats = 1000 + integer, parameter :: n_repeats = 100000 ! Storage array for input/output real(4) :: test_in(n+2)