From 9f8336de4ecb22f0198bee35e234820ea07b0fad Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 5 Dec 2020 11:09:15 -0500
Subject: [PATCH] Code cleanup.

---
 lib/test_q65.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/test_q65.f90 b/lib/test_q65.f90
index 68e28ed3d..8c48d3639 100644
--- a/lib/test_q65.f90
+++ b/lib/test_q65.f90
@@ -95,7 +95,7 @@ program test_q65
 
   dterr=tsym/4.0
   nferr=max(1,nint(0.5*baud),nint(fdop/3.0))
-  ndec10=nfiles
+  ndec1z=nfiles
   
   do nsnr=ia,ib,-1
      snr1=nsnr
@@ -143,8 +143,8 @@ program test_q65
      write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn,    &
           ndec1,nfalse,naptype,tdec/nfiles
 1100 format(f5.1,i4,1x,a1,i3,f5.1,3i5,i4,i6,5i5,f6.2)
-     if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then
-        snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec10-ndec1)
+     if(ndec1.lt.nfiles/2 .and. ndec1z.ge.nfiles/2) then
+        snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec1z-ndec1)
         open(13,file='snr_thresh.out',status='unknown',position='append')
         write(13,1200) ntrperiod,csubmode,ndepth,nQSOprogress,nfiles,   &
              fdop,snr_thresh,trim(msg)
@@ -154,7 +154,7 @@ program test_q65
      flush(6)
      flush(12)
      if(ndec1.eq.0 .and. ndecn.eq.0) exit           !Bail out if no decodes at this SNR
-     ndec10=ndec1
+     ndec1z=ndec1
   enddo  ! nsnr
 
 999 end program test_q65