From 32104ec6b122ee4eccec1d4ed0cbc8f9d93df6d4 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Sat, 1 Jun 2019 23:25:11 +0200
Subject: adjust noise, normalize

---
 src/fourier.f90 | 3 +++
 1 file changed, 3 insertions(+)

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)
-- 
cgit v1.2.3