Clean up the formation and display of JT4 average and DS decodes.

This commit is contained in:
Joe Taylor 2020-04-17 12:14:43 -04:00
parent e94cacb265
commit 35eb391e23
3 changed files with 17 additions and 13 deletions

View File

@ -319,16 +319,19 @@ contains
if (have_sync) then
decoded=decoded0
cflags=' '
if(decoded.ne.' ') cflags='f '
if(is_deep) then
cflags(1:2)='d1'
write(cflags(3:3),'(i1)') min(int(qual),9)
if(qual.ge.10.0) cflags(3:3)='*'
if(qual.lt.3.0) decoded(22:22)='?'
endif
if(is_average) then
write(cflags(2:2),'(i1)') min(ave,9)
if(ave.ge.10) cflags(2:2)='*'
if(decoded.ne.' ') then
cflags='f '
if(is_deep) then
cflags='d '
write(cflags(2:2),'(i1)') min(int(qual),9)
if(qual.ge.10.0) cflags(2:2)='*'
if(qual.lt.3.0) decoded(22:22)='?'
endif
if(is_average) then
write(cflags(3:3),'(i1)') min(ave,9)
if(ave.ge.10) cflags(3:3)='*'
if(cflags(1:1).eq.'f') cflags=cflags(1:1)//cflags(3:3)//' '
endif
endif
write(*,1000) params%nutc,snr,dt,freq,sync,decoded,cflags
1000 format(i4.4,i4,f5.1,i5,1x,'$',a1,1x,a22,1x,a3)

View File

@ -194,7 +194,7 @@ contains
call this%decode_callback(nsnr,dtx,nfreq,.true.,csync, &
.false.,decoded,99.,ich,.false.,0)
end if
nsave=0
!### nsave=0
go to 990
else !Fano failed
@ -299,6 +299,7 @@ contains
nfsave=0
dtdiff=0.2
first=.false.
nsave=1 ! ### Should this be here? ###
endif
do i=1,64
@ -311,7 +312,7 @@ contains
dtsave(nsave)=dtxx
nfsave(nsave)=nfreq
flipsave(nsave)=flip
ppsave(1:207,1:7,nsave)=rsymbol(1:207,1:7)
ppsave(1:207,1:7,nsave)=rsymbol(1:207,1:7)
10 sym=0.
syncsum=0.

View File

@ -3136,7 +3136,7 @@ void MainWindow::readFromStdout() //readFromStdout
navg=line_read.mid(nd+2,1).toInt();
if(line_read.mid(nd+2,1)=="*") navg=10;
}
if(m_mode=="JT65") {
if(m_mode=="JT65" or m_mode=="JT4") {
int na=-1;
if(nf<0 and nd<0) na=line_read.indexOf("a");
if(na>0) {