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

Use fast fading model in q65_ftn_test.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-27 15:45:34 -04:00
parent 5d904927a0
commit a41325d596
1 changed files with 6 additions and 5 deletions

11
lib/qra/q65/q65_ftn_test.f90
View File

@ -1,7 +1,7 @@
program q65_ftn_test
use packjt77
parameter (LL=64,NN=63)
parameter (LL=192,NN=63)
integer x(13) !User's 78-bit message as 13 six-bit integers
integer y(63) !Q65 codeword for x
integer xdec(13) !Decoded message
@ -35,13 +35,14 @@ program q65_ftn_test
s3=0.
s3prob=0.
do j=1,NN
s3(y(j),j)=1.0
s3(y(j)+64,j)=1.0
enddo
APmask=0
APsymbols=0
call q65_dec(s3,APmask,APsymbols,s3prob,snr2500,xdec,irc)
nsubmode=0
b90=1.0
nFadingModel=1
call q65_dec(s3,APmask,APsymbols,nsubmode,b90,nFadingModel,s3prob,snr2500,xdec,irc)
write(c77,1000) xdec
call unpack77(c77,0,msg,unpk77_success) !Unpack to get msgsent
write(*,1100) xdec,trim(msg)