aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/fourier.f903
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)