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

In place of the qra64 return code as is, display a number that increases monotonically with the amount of a priori information used.

Browse Source 
Here's the translation, as a lookup table.  The displayed number is the tens
digit of the number of a priori bits.

rc  APxx  displayed
-------------------
0     0      0
1    27      2
2    42      4
3    29      2
4    44      4
5    57      5
6    29      2
7    44      4
8    72      7
9    55      5
10   70      7
11   70      7



git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7325 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-11-21 16:51:11 +00:00
parent 14d44f483b
commit 76e8f5ec85
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/decoder.f90
View File

@ -236,9 +236,10 @@ contains
integer, intent(in) :: nsum integer, intent(in) :: nsum
integer, intent(in) :: minsync integer, intent(in) :: minsync
integer i,nft integer i,nft,nap(0:11)
logical is_deep,is_average logical is_deep,is_average
character decoded*22,csync*2,cflags*3 character decoded*22,csync*2,cflags*3
data nap/0,2,4,2,4,5,2,4,7,5,7,7/
if(width.eq.-9999.0) stop !Silence compiler warning if(width.eq.-9999.0) stop !Silence compiler warning
!$omp critical(decode_results) !$omp critical(decode_results)
@ -246,14 +247,14 @@ contains
cflags=' ' cflags=' '
is_deep=ft.eq.2 is_deep=ft.eq.2
if(ft.ge.80) then if(ft.ge.80) then !QRA64 mode
nft=ft-100 nft=ft-100
csync=': ' csync=': '
if(sync.ge.float(minsync) .or. nft.ge.0) csync=':*' if(sync.ge.float(minsync) .or. nft.ge.0) csync=':*'
if(nft.lt.0) then if(nft.lt.0) then
write(*,1009) params%nutc,snr,dt,freq,csync,decoded write(*,1009) params%nutc,snr,dt,freq,csync,decoded
else else
write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nft write(*,1009) params%nutc,snr,dt,freq,csync,decoded,nap(nft)
1009 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2) 1009 format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,i2)
endif endif
write(13,1011) params%nutc,nint(sync),snr,dt,float(freq),drift, & write(13,1011) params%nutc,nint(sync),snr,dt,float(freq),drift, &