w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-07-28 21:14:19 -04:00
Code Issues Packages Projects Releases Wiki Activity

Work on ap decoding. Diagnostic write enabled.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7925 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke
2017-07-18 01:12:11 +00:00
parent 4f0a3780e5
commit 4594aaa589
3 changed files with 57 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+5 -3
View File
@@ -390,7 +390,7 @@ contains
end select
end subroutine jt9_decoded
subroutine ft8_decoded (this,sync,snr,dt,freq,decoded)
subroutine ft8_decoded (this,sync,snr,dt,freq,iap,iera,decoded)
use ft8_decode
implicit none
@@ -399,10 +399,12 @@ contains
integer, intent(in) :: snr
real, intent(in) :: dt
real, intent(in) :: freq
integer, intent(in) :: iap
integer, intent(in) :: iera
character(len=22), intent(in) :: decoded
write(*,1000) params%nutc,snr,dt,nint(freq),decoded
1000 format(i6.6,i4,f5.1,i5,' ~ ',1x,a22)
write(*,1000) params%nutc,snr,dt,nint(freq),decoded,iap,iera
1000 format(i6.6,i4,f5.1,i5,' ~ ',1x,a22,2x,i2,i2)
write(13,1002) params%nutc,nint(sync),snr,dt,freq,0,decoded
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a22,' FT8')
call flush(6)