aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-06-01 23:11:20 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-06-01 23:11:20 +0200
commit6c9fd37344df724417c1e19d863d3198104f1346 (patch)
tree21a5e39854fcb6ad86b630aefd9773c9b83ab583 /src
parent0d5bcb268cbd8ece21b0d9aadaf547f3f5f1f40c (diff)
downloadfortran-assignment2-6c9fd37344df724417c1e19d863d3198104f1346.tar.gz
fortran-assignment2-6c9fd37344df724417c1e19d863d3198104f1346.zip
fix wording error (transformed → filtered)
Diffstat (limited to 'src')
-rw-r--r--src/fourier.f904
1 files 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))