From 21a2abb375380d745d648ba868ef0a0de4d3cbbe Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Sat, 1 Jun 2019 12:03:01 +0200
Subject: compute sinuses signal

---
 test.f90 | 28 +++++++++++++++++++++++++---
 1 file changed, 25 insertions(+), 3 deletions(-)

diff --git a/test.f90 b/test.f90
index abc2e58..b5beb0b 100644
--- a/test.f90
+++ b/test.f90
@@ -1,10 +1,32 @@
 PROGRAM test
 
   use, intrinsic :: iso_c_binding 
-  implicit none
+  IMPLICIT none
   
-  include 'fftw3.f03'
+  INCLUDE 'fftw3.f03'
 
-  write(*,*) "ok"
+  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
+
+  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
-- 
cgit v1.2.3

='/guix/'>summary</a><a href='/guix/refs/'>refs</a><a class='active' href='/guix/log/gnu/packages/patches/telegram-purple-adjust-test.patch?showmsg=1'>log</a><a href='/guix/tree/gnu/packages/patches/telegram-purple-adjust-test.patch'>tree</a><a href='/guix/commit/gnu/packages/patches/telegram-purple-adjust-test.patch'>commit</a><a href='/guix/diff/gnu/packages/patches/telegram-purple-adjust-test.patch'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/patches/telegram-purple-adjust-test.patch'>
<input type='hidden' name='showmsg' value='1'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?showmsg=1'>root</a>/<a href='/guix/log/gnu?showmsg=1'>gnu</a>/<a href='/guix/log/gnu/packages?showmsg=1'>packages</a>/<a href='/guix/log/gnu/packages/patches?showmsg=1'>patches</a>/<a href='/guix/log/gnu/packages/patches/telegram-purple-adjust-test.patch?showmsg=1'>telegram-purple-adjust-test.patch</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/patches/telegram-purple-adjust-test.patch'>Collapse</a>)</th><th class='left'>Author</th></tr>
<tr class='logheader'><td><span title='2018-10-27 16:39:29 +0200'>2018-10-27</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/patches/telegram-purple-adjust-test.patch?id=e9a041577a4c63d86ff9164bd0e0d46e59db6122'>gnu: Add telegram-purple.</a></td><td>Tomáš Čech</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/messaging.scm (telegram-purple): New variable.
* gnu/packages/patches/telegram-purple-adjust-test.patch: New file.
* gnu/local.mk (dist_patch_DATA): Add it.

Co-authored-by: Ludovic Courtès &lt;ludo@gnu.org&gt;


</td></tr>