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

Do not display end-of line numbers for MSK144 decodes.

Browse Source
This commit is contained in:
Joe Taylor 2018-09-26 10:02:45 -04:00
parent d085175472
commit ab137b37e7
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lib/mskrtd.f90
View File

@ -121,7 +121,7 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, &
if(ndecodesuccess.eq.0 .and. (bshmsg.or.bswl)) then if(ndecodesuccess.eq.0 .and. (bshmsg.or.bswl)) then
call msk40spd(cdat,np,ntol,mycall(1:6),hiscall(1:6),bswl,nhasharray, & call msk40spd(cdat,np,ntol,mycall(1:6),hiscall(1:6),bswl,nhasharray, &
ndecodesuccess,msgrx22,fc,fest,tdec,navg) ndecodesuccess,msgrx22,fc,fest,tdec,navg)
if( ndecodesuccess .ge. 1 ) msgreceived(1:22)=msgrx22 if( ndecodesuccess .ge. 1 ) msgreceived=msgrx22//' '
endif endif
if( ndecodesuccess .ge. 1 ) then if( ndecodesuccess .ge. 1 ) then
tdec=tsec+tdec tdec=tsec+tdec
@ -210,15 +210,17 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, &
if(.not. bshdecode) then if(.not. bshdecode) then
call update_hasharray(nhasharray) call update_hasharray(nhasharray)
endif endif
if( .not.bshdecode ) then write(line,1021) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived,char(0)
write(line,1020) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived(1:22), & 1021 format(i6.6,i4,f5.1,i5,a4,a37,a1)
navg,ncorrected,eyeopening,char(0) ! if( .not.bshdecode ) then
1020 format(i6.6,i4,f5.1,i5,a4,a22,i2,i3,f5.1,a1) ! write(line,1020) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived(1:22), &
else ! navg,ncorrected,eyeopening,char(0)
write(line,1022) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived(1:22), & !1020 format(i6.6,i4,f5.1,i5,a4,a22,i2,i3,f5.1,a1)
navg,char(0) ! else
1022 format(i6.6,i4,f5.1,i5,a4,a22,i2,a1) ! write(line,1022) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived(1:22), &
endif ! navg,char(0)
!1022 format(i6.6,i4,f5.1,i5,a4,a22,i2,a1)
! endif
elseif(bswl .and. ndecodesuccess.ge.2) then elseif(bswl .and. ndecodesuccess.ge.2) then
seenb4=.false. seenb4=.false.
do i=1,nshmem do i=1,nshmem
@ -233,8 +235,9 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, &
if(bflag) then if(bflag) then
msglastswl=msgreceived msglastswl=msgreceived
nsnrlastswl=nsnr nsnrlastswl=nsnr
write(line,1022) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived, & write(line,1021) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived,char(0)
navg,char(0) ! write(line,1022) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived, &
! navg,char(0)
endif endif
endif endif
999 tsec0=tsec 999 tsec0=tsec