w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 09:01:59 -05:00
Code Issues Packages Projects Releases Wiki Activity

Do not display blank decode lines.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-13 14:46:31 -04:00
parent 8937266395
commit b307133882
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
map65/libm65/map65a.f90
View File

@ -339,10 +339,11 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
endif
enddo
if(nwrite.eq.0 .and. nwrite_q65.eq.0) then
write(*,1012) mousefqso,nutc
1012 format('!',i3,9x,i6.4,' ')
endif
! Comment out these lines to prevent display of non-decode lines:
! if(nwrite.eq.0 .and. nwrite_q65.eq.0) then
! write(*,1012) mousefqso,nutc
!1012 format('!',i3,9x,i6.4,' ')
! endif
endif !nqd.eq.1
if(ndphi.eq.1 .and.iloop.lt.12) then

9
map65/libm65/q65b.f90
View File

@ -1,5 +1,5 @@
subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
mycall0,hiscall0,hisgrid,mode65)
mycall0,hiscall0,hisgrid,mode_q65)
use wavhdr
parameter (MAXFFT1=5376000) !56*96000
@ -73,8 +73,6 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
! 96000 5376000 0.017857143 336000 6000.000
! 95238 5120000 0.018601172 322560 5999.994
write(71,*) nutc,ikhz,mousedf,ntol,mode65
! 1 2 3 4 5 6 7 8 9 10
! 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901'
cmnd='jt9 -3 -X 32 -f 1079 -F 1000 -c MyCall -x HisCall -g FN42 -b A 000000_0001.wav > q65_decodes.txt'
@ -83,7 +81,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
write(cmnd(33:44),'(a12)') mycall
write(cmnd(48:59),'(a12)') hiscall
write(cmnd(63:66),'(a4)') grid4
write(cmnd(71:71),'(a1)') char(ichar('A')+mode65-1)
write(cmnd(71:71),'(a1)') char(ichar('A') + mode_q65-1)
fname='000000_0001.wav'
npol=1
if(xpol) npol=4
@ -140,6 +138,9 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
100 if(nsnr0.gt.-40) then
write(*,1100) trim(line2)
1100 format(a)
! Should write to lu 26 here, for Messages and Band Map windows ?
write(21,1110) freq0,nfreq0,xdt0,ipol0,nsnr0,nutc,msg40(1:28),msg40(39:40)
1110 format(f8.3,i5,f5.1,2i4,i5.4,2x,a28,': A',2x,a2)
endif