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

Display the 'q#' tags for Q65 decodes.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-28 09:35:40 -04:00
parent 6a4770ef96
commit 57f48187e7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/map65_mmdec.f90
View File

@ -80,12 +80,16 @@ contains
integer, intent(in) :: idec integer, intent(in) :: idec
integer, intent(in) :: nused integer, intent(in) :: nused
integer, intent(in) :: ntrperiod integer, intent(in) :: ntrperiod
character*3 cq
if(nutc+snr1+nsnr+dt+freq+idec+nused+ntrperiod.eq.-999) stop if(nutc+snr1+nsnr+dt+freq+idec+nused+ntrperiod.eq.-999) stop
if(decoded.eq.'-999') stop if(decoded.eq.'-999') stop
write(24,1010) nutc,nsnr,dt,nint(freq),decoded cq='q '
1010 format(i4.4,i4,f5.1,i5,4x,a37) write(cq(2:2),'(i1)') idec
if(nused.ge.2) write(cq(3:3),'(i1)') nused
write(24,1010) nutc,nsnr,dt,nint(freq),decoded,cq
1010 format(i4.4,i4,f5.1,i5,4x,a37,1x,a3)
select type(this) select type(this)
type is (counting_q65_decoder) type is (counting_q65_decoder)