From fcdeac14961ddb47e85a64bad77b1168db6e9f82 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Sat, 1 Jun 2019 23:21:30 +0200
Subject: fix bug that make f1 used at all times

---
 src/fourier.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/fourier.f90 b/src/fourier.f90
index 9308238..54ffb42 100644
--- a/src/fourier.f90
+++ b/src/fourier.f90
@@ -32,7 +32,7 @@ PROGRAM test
   IF      (arg == "f1") THEN
      which_fun = .true.
   ELSE IF (arg == "f2") THEN
-     which_fun = .true.
+     which_fun = .false.
      call random_seed()
      call random_number(randvals)
   ELSE
-- 
cgit v1.2.3