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

Enable passing decodes back to caller

Browse Source
This commit is contained in:
Bill Somerville
2020-06-18 23:33:36 +01:00
parent 72005888ac
commit 402ce1b3fb
3 changed files with 42 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+31 -31
View File
@@ -677,43 +677,43 @@ contains
return
end subroutine ft4_decoded
! subroutine fst280_decoded (this,sync,nsnr,dt,freq,decoded,nap,qual)
subroutine fst280_decoded (this,sync,nsnr,dt,freq,decoded,nap,qual)
! use fst280_decode
! implicit none
use fst280_decode
implicit none
! class(fst280_decoder), intent(inout) :: this
! real, intent(in) :: sync
! integer, intent(in) :: nsnr
! real, intent(in) :: dt
! real, intent(in) :: freq
! character(len=37), intent(in) :: decoded
! integer, intent(in) :: nap
! real, intent(in) :: qual
! character*2 annot
! character*37 decoded0
class(fst280_decoder), intent(inout) :: this
real, intent(in) :: sync
integer, intent(in) :: nsnr
real, intent(in) :: dt
real, intent(in) :: freq
character(len=37), intent(in) :: decoded
integer, intent(in) :: nap
real, intent(in) :: qual
character*2 annot
character*37 decoded0
! decoded0=decoded
! annot=' '
! if(nap.ne.0) then
! write(annot,'(a1,i1)') 'a',nap
! if(qual.lt.0.17) decoded0(37:37)='?'
! endif
decoded0=decoded
annot=' '
if(nap.ne.0) then
write(annot,'(a1,i1)') 'a',nap
if(qual.lt.0.17) decoded0(37:37)='?'
endif
! write(*,1001) params%nutc,nsnr,dt,nint(freq),decoded0,annot
!1001 format(i6.6,i4,f5.1,i5,' + ',1x,a37,1x,a2)
! write(13,1002) params%nutc,nint(sync),nsnr,dt,freq,0,decoded0
!1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FST280')
write(*,1001) params%nutc,nsnr,dt,nint(freq),decoded0,annot
1001 format(i6.6,i4,f5.1,i5,' + ',1x,a37,1x,a2)
write(13,1002) params%nutc,nint(sync),nsnr,dt,freq,0,decoded0
1002 format(i6.6,i4,i5,f6.1,f8.0,i4,3x,a37,' FST280')
! call flush(6)
! call flush(13)
call flush(6)
call flush(13)
! select type(this)
! type is (counting_fst280_decoder)
! this%decoded = this%decoded + 1
! end select
select type(this)
type is (counting_fst280_decoder)
this%decoded = this%decoded + 1
end select
! return
! end subroutine fst280_decoded
return
end subroutine fst280_decoded
end subroutine multimode_decoder