diff options
| -rw-r--r-- | src/fourier.f90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/fourier.f90 b/src/fourier.f90 index 54ffb42..6766195 100644 --- a/src/fourier.f90 +++ b/src/fourier.f90 @@ -35,6 +35,7 @@ PROGRAM test which_fun = .false. call random_seed() call random_number(randvals) + randvals = randvals / 50 ELSE STOP "bad first argument (should be 'f1' or 'f2')" END IF @@ -96,6 +97,8 @@ PROGRAM test call fftw_execute_dft_c2r(plan_b, arr_complex, arr_real) + arr_real = arr_real / npoints ! normalize + DO i = 1, npoints write(*,*) (i - 1) * delta + start, " ", arr_real(i) |