w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 21:02:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Minor tweaks to detectmsk144.f90.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6772 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-06-12 15:02:50 +00:00
parent 9d75e1d9d1
commit 45c36a5738
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/detectmsk144.f90
View File

@ -43,7 +43,6 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
real softbits(144) real softbits(144)
real*8 unscrambledsoftbits(128) real*8 unscrambledsoftbits(128)
real lratio(128) real lratio(128)
real ttt(NPTS)
logical first logical first
data first/.true./ data first/.true./
@ -51,8 +50,6 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
save df,first,cb,fs,nfft,pi,twopi,dt,s8,rcw,pp save df,first,cb,fs,nfft,pi,twopi,dt,s8,rcw,pp
if(first) then if(first) then
allmessages=' '
lines=' '
i=index(pchk_file,".pchk") i=index(pchk_file,".pchk")
gen_file=pchk_file(1:i-1)//".gen" gen_file=pchk_file(1:i-1)//".gen"
call init_ldpc(trim(pchk_file)//char(0),trim(gen_file)//char(0)) call init_ldpc(trim(pchk_file)//char(0),trim(gen_file)//char(0))
@ -82,8 +79,6 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
cbi(37:42)=pp(1:6)*s8(8) cbi(37:42)=pp(1:6)*s8(8)
cb=cmplx(cbi,cbq) cb=cmplx(cbi,cbq)
ttt=(/ (i, i=1,NPTS) /)
ttt=(ttt-NPTS/2)/(NPTS/2)
first=.false. first=.false.
endif endif
@ -137,6 +132,7 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
detmet=detmet/xmed ! noise floor of detection metric is 1.0 detmet=detmet/xmed ! noise floor of detection metric is 1.0
ndet=0 ndet=0
do ip=1,20 ! use something like the "clean" algorithm to find candidates do ip=1,20 ! use something like the "clean" algorithm to find candidates
iloc=maxloc(detmet) iloc=maxloc(detmet)
il=iloc(1) il=iloc(1)
@ -149,7 +145,10 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
enddo enddo
nmessages=0 nmessages=0
do ip=1,ndet allmessages=char(0)
lines=char(0)
do ip=1,ndet !run through the candidates and try to sync/demod/decode
imid=times(ip)*fs imid=times(ip)*fs
t0=times(ip) t0=times(ip)
cdat=cbig(imid-NPTS/2+1:imid+NPTS/2) cdat=cbig(imid-NPTS/2+1:imid+NPTS/2)