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

Center the DT search window properly. Write fort.21 when plotspec exists.

Browse Source
This commit is contained in:
Steven Franke 2020-07-20 16:09:22 -05:00
parent 9702537614
commit a773a7ad1f
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/fst240_decode.f90
View File

@ -87,7 +87,7 @@ contains
dxcall13=hiscall ! initialize for use in packjt77 dxcall13=hiscall ! initialize for use in packjt77
mycall13=mycall mycall13=mycall
fMHz=1.0 fMHz=1.0e9
if(first) then if(first) then
mcq=2*mod(mcq+rvec(1:29),2)-1 mcq=2*mod(mcq+rvec(1:29),2)-1
@ -325,7 +325,7 @@ contains
is0=1.5*nspsec is0=1.5*nspsec
ishw=1.5*nspsec ishw=1.5*nspsec
else ! search plus or minus 1.5 s centered on emedelay else ! search plus or minus 1.5 s centered on emedelay
is0=nint(emedelay*nspsec) is0=nint((emedelay+1.0)*nspsec)
ishw=1.5*nspsec ishw=1.5*nspsec
endif endif
@ -581,9 +581,11 @@ contains
nsnr=nint(xsnr) nsnr=nint(xsnr)
qual=0. qual=0.
fsig=fc_synced - 1.5*hmod*baud fsig=fc_synced - 1.5*hmod*baud
! write(21,'(i6.6,8i6,f7.1,f10.2,f7.1,1x,f7.2,1x,f7.1,1x,a37)') & if(ex) then
! nutc,icand,itry,nsyncoh,iaptype,ijitter,ntype,nsync_qual,nharderrors,dmin,sync,xsnr,xdt,fsig,msg write(21,'(i6.6,8i6,f7.1,f10.2,f7.1,1x,f7.2,1x,f7.1,1x,a37)') &
! flush(21) nutc,icand,itry,nsyncoh,iaptype,ijitter,ntype,nsync_qual,nharderrors,dmin,sync,xsnr,xdt,fsig,msg
flush(21)
endif
call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, & call this%callback(nutc,smax1,nsnr,xdt,fsig,msg, &
iaptype,qual,ntrperiod,lwspr,fmid,w50) iaptype,qual,ntrperiod,lwspr,fmid,w50)
goto 2002 goto 2002