diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-02 15:35:07 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-02 15:35:07 +0200 |
| commit | 375ffd62ff4c5e46e449c05047889394027e4d18 (patch) | |
| tree | 5f8790965bc1593cc9262d06ad8aaf1297ea9c29 /src | |
| parent | a491aa0e3e2b480ff3c8b907306214d6e1666176 (diff) | |
| download | fortran-assignment2-375ffd62ff4c5e46e449c05047889394027e4d18.tar.gz fortran-assignment2-375ffd62ff4c5e46e449c05047889394027e4d18.zip | |
adjust number of points
Diffstat (limited to 'src')
| -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 6766195..76f6224 100644 --- a/src/fourier.f90 +++ b/src/fourier.f90 @@ -8,7 +8,7 @@ PROGRAM test real(kind=8), parameter :: pi = acos(-1.0) ! also used from f1() ! rest of variables only used from "main" program code - integer, parameter :: npoints = 65536, ncomplex = npoints / 2 + 1 + integer, parameter :: npoints = 8192, ncomplex = npoints / 2 + 1 real(kind=8), parameter :: start = 0, end = 1 integer :: i real(kind=8) :: t, & |