diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 23:21:30 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 23:21:30 +0200 |
| commit | fcdeac14961ddb47e85a64bad77b1168db6e9f82 (patch) | |
| tree | c6a2d5c412b5804f26dbad748e0427c1e6dbda53 | |
| parent | e30d84903b99d395d4e4576b35d48ca8587e8a95 (diff) | |
| download | fortran-assignment2-fcdeac14961ddb47e85a64bad77b1168db6e9f82.tar.gz fortran-assignment2-fcdeac14961ddb47e85a64bad77b1168db6e9f82.zip | |
fix bug that make f1 used at all times
| -rw-r--r-- | src/fourier.f90 | 2 |
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 |