diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 12:08:17 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-01 12:08:17 +0200 |
| commit | 94e4f02728e102d69a1a2378869c22519751fe47 (patch) | |
| tree | 4ab4d2d70c38e4d2d435d67dcc0084d6b4a43826 /test.f90 | |
| parent | a55947a66ae92422f29f73679f9c1fe84c0778ee (diff) | |
| download | fortran-assignment2-94e4f02728e102d69a1a2378869c22519751fe47.tar.gz fortran-assignment2-94e4f02728e102d69a1a2378869c22519751fe47.zip | |
move: text.f90 → src/f1.f90
Diffstat (limited to 'test.f90')
| -rw-r--r-- | test.f90 | 32 |
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 |