aboutsummaryrefslogtreecommitdiff
path: root/src/f1.f90
diff options
context:
space:
mode:
Diffstat (limited to 'src/f1.f90')
-rw-r--r--src/f1.f904
1 files changed, 3 insertions, 1 deletions
diff --git a/src/f1.f90 b/src/f1.f90
index f8054cd..955be71 100644
--- a/src/f1.f90
+++ b/src/f1.f90
@@ -5,6 +5,9 @@ PROGRAM test
INCLUDE 'fftw3.f03'
+ real(kind=8), parameter :: pi = acos(-1.0) ! also used from f1()
+
+ ! rest of variables only used from "main" program code
integer, parameter :: npoints = 1024, ncomplex = npoints / 2 + 1
real(kind=8), parameter :: start = 0, end = 1
integer :: i
@@ -72,7 +75,6 @@ CONTAINS
PURE real(kind=8) FUNCTION f1(t)
real(kind=8), intent(in) :: t
- real(kind=8), parameter :: pi = acos(-1.0)
f1 = sin(2 * pi * t * 200) + 2 * sin(2 * pi * t * 400)