Merge branch 'integrate-77bit' of https://bitbucket.org/k1jt/wsjtx into integrate-77bit

This commit is contained in:
Joe Taylor 2018-07-07 14:48:30 -04:00
commit 92e30cfaf9
3 changed files with 4 additions and 4 deletions

View File

@ -55,14 +55,14 @@ subroutine genmsk_128_90(msg0,mygrid,ichk,bcontest,msgsent,i4tone,itype)
2 i4tone(1)=nfreq
else
message=msg0
do i=1,22
do i=1, 37
if(ichar(message(i:i)).eq.0) then
message(i:)=' '
exit
endif
enddo
do i=1,22 !Strip leading blanks
do i=1,37 !Strip leading blanks
if(message(1:1).ne.' ') exit
message=message(i+1:)
enddo
@ -109,6 +109,5 @@ subroutine genmsk_128_90(msg0,mygrid,ichk,bcontest,msgsent,i4tone,itype)
! Flip polarity
i4tone=-i4tone+1
999 return
end subroutine genmsk_128_90

View File

@ -88,7 +88,7 @@ subroutine msk144decodeframe(c,softbits,msgreceived,nsuccess,recent_calls,nrecen
ssig=sqrt(s2av-sav*sav)
softbits=softbits/ssig
sigma=0.75
sigma=0.60
llr(1:48)=softbits(9:9+47)
llr(49:128)=softbits(65:65+80-1)
llr=2.0*llr/(sigma*sigma)

View File

@ -41,6 +41,7 @@ program msk144sim
bcontest=.false.
if(msg(i1:i1+1).eq.'R ') bcontest=.true.
ichk=0
itype=1
call genmsk_128_90(msg,mygrid,ichk,bcontest,msgsent,itone,itype)
twopi=8.d0*atan(1.d0)