comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2024-11-30 08:18:43 -05:00
Code Issues Packages Projects Releases Wiki Activity

replace hardcoded values with parameters

Browse Source
This commit is contained in:
Pavel Demin 2018-03-31 21:23:46 +02:00
parent 327d64e363
commit 56667947ca
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
baseline.f90
View File

@ -4,14 +4,15 @@ subroutine baseline(s,nfa,nfb,sbase)
! Input: s(npts) Linear scale in power
! Output: sbase(npts) Baseline
include 'ft8_params.f90'
implicit real*8 (a-h,o-z)
real*4 s(1920)
real*4 sbase(1920)
real*4 s(NSPS)
real*4 sbase(NSPS)
real*4 base
real*8 x(1000),y(1000),a(5)
data nseg/10/,npct/10/
df=12000.0/3840.0 !3.125 Hz
df=12000.0/NFFT1 !3.125 Hz
ia=max(1,nint(nfa/df))
ib=nint(nfb/df)
do i=ia,ib

2
ft8b.f90
View File

@ -17,7 +17,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
real ps(0:7),psl(0:7)
real bmeta(3*ND),bmetb(3*ND),bmetap(3*ND)
real llr(3*ND),llra(3*ND),llr0(3*ND),llr1(3*ND),llrap(3*ND) !Soft symbols
real dd0(15*12000)
real dd0(NMAX)
integer*1 decoded(KK),decoded0(KK),apmask(3*ND),cw(3*ND)
integer*1 msgbits(KK)
integer apsym(KK)