w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-05 15:34:39 -04:00
Code Issues Packages Projects Releases Wiki Activity

Progress on AP decoding for 77bit messages. AP is basically working for regular i3=1 messages.

Browse Source
This commit is contained in:
Steve Franke
2018-07-28 17:32:45 -05:00
parent 4d35c669d6
commit df0b5e2622
4 changed files with 87 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+3 -3
View File
@@ -497,7 +497,7 @@ contains
annot=' '
if(nap.ne.0) then
write(annot,'(a1,i1)') 'a',nap
if(qual.lt.0.17) decoded0(22:22)='?'
if(qual.lt.0.17) decoded0(37:37)='?'
endif
! i0=index(decoded0,';')
@@ -507,8 +507,8 @@ contains
i0=1
if(i0.le.0) write(*,1000) params%nutc,snr,dt,nint(freq),decoded0(1:22),annot
1000 format(i6.6,i4,f5.1,i5,' ~ ',1x,a22,1x,a2)
if(i0.gt.0) write(*,1001) params%nutc,snr,dt,nint(freq),decoded0
1001 format(i6.6,i4,f5.1,i5,' ~ ',1x,a37)
if(i0.gt.0) write(*,1001) params%nutc,snr,dt,nint(freq),decoded0,annot
1001 format(i6.6,i4,f5.1,i5,' ~ ',1x,a37,1x,a2)
write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded0
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FT8')