From 6da4be174c49d4b7344d3ec6e9de5e28f42a2598 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 21 Nov 2020 09:39:37 -0500 Subject: [PATCH] We now have only 4 levels of AP decoding. Modify test_q65 accordingly. --- lib/test_q65.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/test_q65.f90 b/lib/test_q65.f90 index 4aa452458..0c71d64a5 100644 --- a/lib/test_q65.f90 +++ b/lib/test_q65.f90 @@ -4,7 +4,7 @@ program test_q65 character*22 msg character*8 arg character*1 csubmode - integer naptype(0:6) + integer naptype(0:4) logical decok nargs=iargc() @@ -89,9 +89,9 @@ program test_q65 !1000 format(/'Depth:',i2,' AP:',i2,' df:',i3,' dt:',i3,' bw1:',i3,' bw2:',i3, & ! ' dist:',i3) - write(*,1010) (j,j=0,6) - write(12,1010) (j,j=0,6) -1010 format(' SNR Mode d Dop Sync DecN Dec1 Bad',i6,6i4,' tdec'/73('-')) + write(*,1010) (j,j=0,4) + write(12,1010) (j,j=0,4) +1010 format(' SNR Mode d Dop Sync DecN Dec1 Bad',5i5,' tdec'/70('-')) dterr=tsym/4.0 nferr=max(1,nint(0.5*baud),nint(fdop/3.0)) @@ -142,7 +142,7 @@ program test_q65 ndec1,nfalse,naptype,tdec/nfiles write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, & ndec1,nfalse,naptype,tdec/nfiles -1100 format(f5.1,i4,a1,i3,f5.1,3i5,i4,i6,6i4,f6.2) +1100 format(f5.1,i4,1x,a1,i3,f5.1,3i5,i4,i6,4i5,f6.2) if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec10-ndec1) open(13,file='snr_thresh.out',status='unknown',position='append')