From 2dcd8504e8109c3dad388838d241136bfb97812b Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 17 Nov 2020 15:09:03 -0500
Subject: [PATCH] Updates to test_q65: allow command-line input of QSOprogress.

---
 lib/test_q65.f90 | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/lib/test_q65.f90 b/lib/test_q65.f90
index 3fb39d026..fc6841ae7 100644
--- a/lib/test_q65.f90
+++ b/lib/test_q65.f90
@@ -8,10 +8,11 @@ program test_q65
   logical decok
 
   nargs=iargc()
-  if(nargs.ne.9) then
-     print*,'Usage:   test_q65        "msg"       A-D depth freq  DT fDop TRp nfiles SNR'
-     print*,'Example: test_q65 "K1ABC W9XYZ EN37"  A    3   1500 0.0  5.0  60  100   -20'
-     print*,'         SNR = 0 to loop over all relevant SNRs'
+  if(nargs.ne.10) then
+     print*,'Usage:   test_q65        "msg"       A-D depth freq  DT fDop TRp Q nfiles SNR'
+     print*,'Example: test_q65 "K1ABC W9XYZ EN37"  A    3   1500 0.0  5.0  60 3  100   -20'
+     print*,'Use SNR = 0 to loop over all relevant SNRs'
+     print*,'Use MyCall=K1ABC, HisCall=W9XYZ, HisGrid="EN37" for AP decodes'
      go to 999
   endif
   call getarg(1,msg)
@@ -27,8 +28,10 @@ program test_q65
   call getarg(7,arg)
   read(arg,*) ntrperiod
   call getarg(8,arg)
-  read(arg,*) nfiles
+  read(arg,*) nQSOprogress
   call getarg(9,arg)
+  read(arg,*) nfiles
+  call getarg(10,arg)
   read(arg,*) nsnr
 
   if(ntrperiod.eq.15) then
@@ -62,7 +65,7 @@ program test_q65
 !                1         2         3         4         5         6         7
 !       1234567890123456789012345678901234567890123456789012345678901234567890123'
   cmd1='q65sim   "K1ABC W9XYZ EN37      " A 1500  5.0  0.0  60  100 F -10 > junk0'
-  cmd2='jt9 -3 -p  15 -L 300 -H 3000 -d  3 -b A *.wav > junk'
+  cmd2='jt9 -3 -p  15 -L 300 -H 3000 -d  3 -b A -Q 3 *.wav > junk'
 
   write(cmd1(10:33),'(a)') '"'//msg//'"'
   cmd1(35:35)=csubmode
@@ -74,6 +77,7 @@ program test_q65
 
   write(cmd2(11:13),'(i3)') ntrperiod
   write(cmd2(33:34),'(i2)') ndepth
+  write(cmd2(44:44),'(i1)') nQSOprogress
   cmd2(39:39)=csubmode
   call system('rm -f *.wav')
 
@@ -85,7 +89,7 @@ program test_q65
   
   write(*,1010) (j,j=0,6)
   write(12,1010) (j,j=0,6)
-1010 format('SNR nd  Dop Sync DecN Dec1 Bad',i6,6i4,'  tdec'/66('-'))
+1010 format('SNR  d  Dop Sync DecN Dec1 Bad',i6,6i4,'  tdec'/66('-'))
 
   dterr=tsym/4.0
   nferr=max(1,nint(0.5*baud),nint(fdop/3.0))