From 8e6f027c5e1d5ea7104354c55dae1124b96cd986 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 17 Feb 2022 10:22:18 -0500
Subject: [PATCH] Oops!  I committed the wrong version.

---
 lib/ft8/ft8_a7.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8/ft8_a7.f90 b/lib/ft8/ft8_a7.f90
index dbad46cd0..ea96c2b43 100644
--- a/lib/ft8/ft8_a7.f90
+++ b/lib/ft8/ft8_a7.f90
@@ -370,7 +370,7 @@ subroutine ft8_a7d(dd0,newdat,call_1,call_2,grid4,xdt,f1,nharderrors,dmin,  &
   if(dmin.gt.100.0 .or. dmin2/dmin.lt.1.3) nharderrors=-1
   msg37=msgbest
   if(msg37(1:3).eq.'CQ ' .and. std_2 .and. grid4.eq.'    ') nharderrors=-1
-  if(index(msg37(1:6).eq.'QU1RK ') nharderrors=-1
+  if(msg37(1:6).eq.'QU1RK ') nharderrors=-1
 
   return
 end subroutine ft8_a7d