aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-06-01 23:21:30 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-06-01 23:21:30 +0200
commitfcdeac14961ddb47e85a64bad77b1168db6e9f82 (patch)
treec6a2d5c412b5804f26dbad748e0427c1e6dbda53 /src
parente30d84903b99d395d4e4576b35d48ca8587e8a95 (diff)
downloadfortran-assignment2-fcdeac14961ddb47e85a64bad77b1168db6e9f82.tar.gz
fortran-assignment2-fcdeac14961ddb47e85a64bad77b1168db6e9f82.zip
fix bug that make f1 used at all times
Diffstat (limited to 'src')
-rw-r--r--src/fourier.f902
1 files changed, 1 insertions, 1 deletions
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