From 6c9fd37344df724417c1e19d863d3198104f1346 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Sat, 1 Jun 2019 23:11:20 +0200 Subject: fix wording error (transformed → filtered) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/fourier.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fourier.f90 b/src/fourier.f90 index b1d2b84..9308238 100644 --- a/src/fourier.f90 +++ b/src/fourier.f90 @@ -58,8 +58,8 @@ PROGRAM test call get_command_argument(2, arg) - IF ((trim(arg) /= "dft") .and. (trim(arg) /= "transformed")) & - STOP "bad second argument (should be 'dft' or 'transformed')" + IF ((trim(arg) /= "dft") .and. (trim(arg) /= "filtered")) & + STOP "bad second argument (should be 'dft' or 'filtered')" p_real = fftw_alloc_real(int(npoints, C_SIZE_T)) -- cgit v1.2.3