diff options
| -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)) |