chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
cc6e28d5a7
js8call/lib/ft8/genft8refsig.f90

25 lines
480 B
Fortran
Raw Normal View History

Initial Commit
2018-02-08 21:28:33 -05:00
subroutine genft8refsig(itone,cref,f0)
Squashed commit of the following: commit dbca224ee15f598ba86b860c19e902b594f6b888 Author: Jordan Sherer <jordan@widefido.com> Date: Wed Aug 14 21:10:17 2019 -0400 Cleanup decoder with easy parameters commit 427a6ac6bf02a7de80e76b921bbd48ec23dab0c4 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:56:32 2019 -0400 Working on downsampling commit ef5e1fb9cdafb6069b6f67377c3bc9e073d2785e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:01:34 2019 -0400 Fixed NN parameters commit 216dbc83a931127540fb028d3365a205b4ef1d28 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 21:40:20 2019 -0400 Fixed dupe during sync commit 9505d50ba6c42b05e5fff1a059864a643d9e7558 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 16:54:37 2019 -0400 Tweaking downsampling commit 86cd07e1ac8ce8d64cdd2d4321cf295cd867f80e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 10:11:07 2019 -0400 Working with logging commit 0de3849a442d20081f545c6fef5fadf2def6e0d2 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:46:51 2019 -0400 250 millisecond startup delay commit a35cc5302b6f8532a424d504a4e2feaacf74ef99 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:39:20 2019 -0400 1200 sps, 10 seconds, 80Hz commit 6f36db20f90c510336b497605d9d7667d6f0f44f Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:27:12 2019 -0400 Working word count commit 741c55ac0840512d68e1fbdb2f1fff6adfcd4612 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:40:40 2019 -0400 Updated LDPC simulator commit ce0992644315402503f44bdae4131bacf2cc3e21 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:34:01 2019 -0400 Weird. Apparently symbol stop is the only way to get decodes to work in app...need to figure out why commit 8b330fbff6574f2ee6d7a471dd93a2cb57b492dd Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 01:50:37 2019 -0400 More parameter fixups (downsampling) and first decode commit 37c780b45e6579294b5a4692b8e8d0602d9bd8b1 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 23:20:58 2019 -0400 More params fixing commit bc8547e1e8f55bfb4bce5f95890f3cf6798e36d7 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 22:48:00 2019 -0400 Fixed params in fortran code commit 10fbf9f4a78c6244e0082a31819ee26aeae39325 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 16:08:32 2019 -0400 Using constants in place of literals in a few places to make it easier to change
2019-08-14 21:11:06 -04:00
include 'ft8_params.f90'
complex cref(NN*NSPS)
integer itone(NN)
Initial Commit
2018-02-08 21:28:33 -05:00
real*8 twopi,phi,dphi,dt,xnsps
data twopi/0.d0/
save twopi
if( twopi .lt. 0.1 ) twopi=8.d0*atan(1.d0)
Squashed commit of the following: commit dbca224ee15f598ba86b860c19e902b594f6b888 Author: Jordan Sherer <jordan@widefido.com> Date: Wed Aug 14 21:10:17 2019 -0400 Cleanup decoder with easy parameters commit 427a6ac6bf02a7de80e76b921bbd48ec23dab0c4 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:56:32 2019 -0400 Working on downsampling commit ef5e1fb9cdafb6069b6f67377c3bc9e073d2785e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:01:34 2019 -0400 Fixed NN parameters commit 216dbc83a931127540fb028d3365a205b4ef1d28 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 21:40:20 2019 -0400 Fixed dupe during sync commit 9505d50ba6c42b05e5fff1a059864a643d9e7558 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 16:54:37 2019 -0400 Tweaking downsampling commit 86cd07e1ac8ce8d64cdd2d4321cf295cd867f80e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 10:11:07 2019 -0400 Working with logging commit 0de3849a442d20081f545c6fef5fadf2def6e0d2 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:46:51 2019 -0400 250 millisecond startup delay commit a35cc5302b6f8532a424d504a4e2feaacf74ef99 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:39:20 2019 -0400 1200 sps, 10 seconds, 80Hz commit 6f36db20f90c510336b497605d9d7667d6f0f44f Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:27:12 2019 -0400 Working word count commit 741c55ac0840512d68e1fbdb2f1fff6adfcd4612 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:40:40 2019 -0400 Updated LDPC simulator commit ce0992644315402503f44bdae4131bacf2cc3e21 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:34:01 2019 -0400 Weird. Apparently symbol stop is the only way to get decodes to work in app...need to figure out why commit 8b330fbff6574f2ee6d7a471dd93a2cb57b492dd Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 01:50:37 2019 -0400 More parameter fixups (downsampling) and first decode commit 37c780b45e6579294b5a4692b8e8d0602d9bd8b1 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 23:20:58 2019 -0400 More params fixing commit bc8547e1e8f55bfb4bce5f95890f3cf6798e36d7 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 22:48:00 2019 -0400 Fixed params in fortran code commit 10fbf9f4a78c6244e0082a31819ee26aeae39325 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 16:08:32 2019 -0400 Using constants in place of literals in a few places to make it easier to change
2019-08-14 21:11:06 -04:00
xnsps=NSPS*1.0d0
Initial Commit
2018-02-08 21:28:33 -05:00
dt=1.d0/12000.d0
phi=0.d0
k=1
Squashed commit of the following: commit dbca224ee15f598ba86b860c19e902b594f6b888 Author: Jordan Sherer <jordan@widefido.com> Date: Wed Aug 14 21:10:17 2019 -0400 Cleanup decoder with easy parameters commit 427a6ac6bf02a7de80e76b921bbd48ec23dab0c4 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:56:32 2019 -0400 Working on downsampling commit ef5e1fb9cdafb6069b6f67377c3bc9e073d2785e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:01:34 2019 -0400 Fixed NN parameters commit 216dbc83a931127540fb028d3365a205b4ef1d28 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 21:40:20 2019 -0400 Fixed dupe during sync commit 9505d50ba6c42b05e5fff1a059864a643d9e7558 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 16:54:37 2019 -0400 Tweaking downsampling commit 86cd07e1ac8ce8d64cdd2d4321cf295cd867f80e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 10:11:07 2019 -0400 Working with logging commit 0de3849a442d20081f545c6fef5fadf2def6e0d2 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:46:51 2019 -0400 250 millisecond startup delay commit a35cc5302b6f8532a424d504a4e2feaacf74ef99 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:39:20 2019 -0400 1200 sps, 10 seconds, 80Hz commit 6f36db20f90c510336b497605d9d7667d6f0f44f Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:27:12 2019 -0400 Working word count commit 741c55ac0840512d68e1fbdb2f1fff6adfcd4612 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:40:40 2019 -0400 Updated LDPC simulator commit ce0992644315402503f44bdae4131bacf2cc3e21 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:34:01 2019 -0400 Weird. Apparently symbol stop is the only way to get decodes to work in app...need to figure out why commit 8b330fbff6574f2ee6d7a471dd93a2cb57b492dd Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 01:50:37 2019 -0400 More parameter fixups (downsampling) and first decode commit 37c780b45e6579294b5a4692b8e8d0602d9bd8b1 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 23:20:58 2019 -0400 More params fixing commit bc8547e1e8f55bfb4bce5f95890f3cf6798e36d7 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 22:48:00 2019 -0400 Fixed params in fortran code commit 10fbf9f4a78c6244e0082a31819ee26aeae39325 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 16:08:32 2019 -0400 Using constants in place of literals in a few places to make it easier to change
2019-08-14 21:11:06 -04:00
do i=1,NN
Initial Commit
2018-02-08 21:28:33 -05:00
dphi=twopi*(f0*dt+itone(i)/xnsps)
Squashed commit of the following: commit dbca224ee15f598ba86b860c19e902b594f6b888 Author: Jordan Sherer <jordan@widefido.com> Date: Wed Aug 14 21:10:17 2019 -0400 Cleanup decoder with easy parameters commit 427a6ac6bf02a7de80e76b921bbd48ec23dab0c4 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:56:32 2019 -0400 Working on downsampling commit ef5e1fb9cdafb6069b6f67377c3bc9e073d2785e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 22:01:34 2019 -0400 Fixed NN parameters commit 216dbc83a931127540fb028d3365a205b4ef1d28 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 21:40:20 2019 -0400 Fixed dupe during sync commit 9505d50ba6c42b05e5fff1a059864a643d9e7558 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 16:54:37 2019 -0400 Tweaking downsampling commit 86cd07e1ac8ce8d64cdd2d4321cf295cd867f80e Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 10:11:07 2019 -0400 Working with logging commit 0de3849a442d20081f545c6fef5fadf2def6e0d2 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:46:51 2019 -0400 250 millisecond startup delay commit a35cc5302b6f8532a424d504a4e2feaacf74ef99 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:39:20 2019 -0400 1200 sps, 10 seconds, 80Hz commit 6f36db20f90c510336b497605d9d7667d6f0f44f Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 03:27:12 2019 -0400 Working word count commit 741c55ac0840512d68e1fbdb2f1fff6adfcd4612 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:40:40 2019 -0400 Updated LDPC simulator commit ce0992644315402503f44bdae4131bacf2cc3e21 Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 02:34:01 2019 -0400 Weird. Apparently symbol stop is the only way to get decodes to work in app...need to figure out why commit 8b330fbff6574f2ee6d7a471dd93a2cb57b492dd Author: Jordan Sherer <jordan@widefido.com> Date: Tue Aug 13 01:50:37 2019 -0400 More parameter fixups (downsampling) and first decode commit 37c780b45e6579294b5a4692b8e8d0602d9bd8b1 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 23:20:58 2019 -0400 More params fixing commit bc8547e1e8f55bfb4bce5f95890f3cf6798e36d7 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 22:48:00 2019 -0400 Fixed params in fortran code commit 10fbf9f4a78c6244e0082a31819ee26aeae39325 Author: Jordan Sherer <jordan@widefido.com> Date: Mon Aug 12 16:08:32 2019 -0400 Using constants in place of literals in a few places to make it easier to change
2019-08-14 21:11:06 -04:00
do is=1,NSPS
Initial Commit
2018-02-08 21:28:33 -05:00
cref(k)=cmplx(cos(phi),sin(phi))
phi=mod(phi+dphi,twopi)
k=k+1
enddo
enddo
return
end subroutine genft8refsig
Reference in New Issue Copy Permalink