1 files changed, 0 insertions, 32 deletions
diff --git a/test.f90 b/test.f90
deleted file mode 100644
index 38f360f..0000000
--- a/test.f90
+++ /dev/null
@@ -1,32 +0,0 @@
-PROGRAM test
-
-  use, intrinsic :: iso_c_binding 
-  IMPLICIT none
-  
-  INCLUDE 'fftw3.f03'
-
-  integer, parameter :: npoints = 1024
-  real(C_DOUBLE), parameter :: start = 0, end = 1
-  integer :: i
-  real(C_DOUBLE) :: t,                                            &
-       delta = (end - start) / real(npoints - 1, C_DOUBLE)
-
-  DO i = 0, npoints - 1
-
-     t = i * delta + start
-     
-     write(*,*) t, " ", f1(t)
-     
-  END DO
-
-CONTAINS
-
-  PURE real(C_DOUBLE) FUNCTION f1(t)
-    real(C_DOUBLE), intent(in) :: t
-    real(C_DOUBLE), parameter :: pi = acos(-1.0)
-    
-    f1 = sin(2 * pi * t * 200) + 2 * sin(2 * pi * t * 400)
-
-  END FUNCTION f1
-  
-END PROGRAM test