From a41325d596a339763dda6f7ea664beaa6725d12a Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 27 Oct 2020 15:45:34 -0400
Subject: [PATCH] Use fast fading model in q65_ftn_test.

---
 lib/qra/q65/q65_ftn_test.f90 | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/qra/q65/q65_ftn_test.f90 b/lib/qra/q65/q65_ftn_test.f90
index 6ff17ddf6..607d0f5ba 100644
--- a/lib/qra/q65/q65_ftn_test.f90
+++ b/lib/qra/q65/q65_ftn_test.f90
@@ -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)