w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 14:42:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Un-break decoding of long msk messages.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6871 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2016-07-05 21:32:19 +00:00
parent bd2d44942e
commit 92088369e6
3 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/detectmsk144.f90
View File

@ -176,7 +176,7 @@ subroutine detectmsk144(cbig,n,pchk_file,lines,nmessages,nutc)
allmessages=char(0) allmessages=char(0)
lines=char(0) lines=char(0)
do ip=1,1 !run through the candidates and try to sync/demod/decode do ip=1,ndet !run through the candidates and try to sync/demod/decode
imid=times(ip)*fs imid=times(ip)*fs
if( imid .lt. NPTS/2 ) imid=NPTS/2 if( imid .lt. NPTS/2 ) imid=NPTS/2
if( imid .gt. n-NPTS/2 ) imid=n-NPTS/2 if( imid .gt. n-NPTS/2 ) imid=n-NPTS/2

2
lib/detectmsk32.f90
View File

@ -443,6 +443,6 @@ subroutine detectmsk32(cbig,n,lines,nmessages,nutc)
! cdbest,cdratbest,nbadsyncbest,ipkbest,idbest,idfbest,iavbest ! cdbest,cdratbest,nbadsyncbest,ipkbest,idbest,idfbest,iavbest
endif endif
endif endif
1022 format(i4.4,2x,i4,f8.3,f8.2,f8.2,i6,i6,a6,i8,i10,i4,f8.2,f8.2,i5,i5,i5,i5,i5) !1022 format(i4.4,2x,i4,f8.3,f8.2,f8.2,i6,i6,a6,i8,i10,i4,f8.2,f8.2,i5,i5,i5,i5,i5)
return return
end subroutine detectmsk32 end subroutine detectmsk32

3
lib/msk144_decode.f90
View File

@ -38,13 +38,12 @@ subroutine msk144_decode(id2,npts,nutc,nprint,pchk_file,line)
if(nline .eq. 0) then if(nline .eq. 0) then
call detectmsk32(c,npts,line,nline,nutc) call detectmsk32(c,npts,line,nline,nutc)
endif
if( nprint .ne. 0 ) then if( nprint .ne. 0 ) then
do i=1,nline do i=1,nline
write(*,'(a80)') line(i) write(*,'(a80)') line(i)
enddo enddo
endif endif
endif
return return
end subroutine msk144_decode end subroutine msk144_decode