diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 23:11:20 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 23:11:20 +0200 |
| commit | 6c9fd37344df724417c1e19d863d3198104f1346 (patch) | |
| tree | 21a5e39854fcb6ad86b630aefd9773c9b83ab583 | |
| parent | 0d5bcb268cbd8ece21b0d9aadaf547f3f5f1f40c (diff) | |
| download | fortran-assignment2-6c9fd37344df724417c1e19d863d3198104f1346.tar.gz fortran-assignment2-6c9fd37344df724417c1e19d863d3198104f1346.zip | |
fix wording error (transformed → filtered)
| -rw-r--r-- | src/fourier.f90 | 4 |
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)) |