w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05: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
mycall13=mycall
fMHz=1.0
fMHz=1.0e9
if(first) then
mcq=2*mod(mcq+rvec(1:29),2)-1
@ -325,7 +325,7 @@ contains
is0=1.5*nspsec
ishw=1.5*nspsec
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
endif
@ -581,9 +581,11 @@ contains
nsnr=nint(xsnr)
qual=0.
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)') &
! nutc,icand,itry,nsyncoh,iaptype,ijitter,ntype,nsync_qual,nharderrors,dmin,sync,xsnr,xdt,fsig,msg
! flush(21)
if(ex) then
write(21,'(i6.6,8i6,f7.1,f10.2,f7.1,1x,f7.2,1x,f7.1,1x,a37)') &
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, &
iaptype,qual,ntrperiod,lwspr,fmid,w50)
goto 2002