From bbd7fa059afe69d0193d15a71b629d993337a661 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 24 Jun 2021 10:36:34 -0400
Subject: [PATCH] Correct a flaw in setting values of ia, ib in q65_ccf_22.f90.

---
 lib/qra/q65/q65.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index ac2438a81..4a5508cdc 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -439,8 +439,8 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ndepth,ntrperiod,iavg,ipk,jpk,  &
   ib=min(nfb,4900)/df
   if(nqd.ne.1 .or. iavg.ne.0) max_drift=0
   if(max_drift.ne.0) then
-     ia=max(100,nint((nfqso-ntol)/df))
-     ib=min(4900,nint((nfqso+ntol)/df))
+     ia=max(nint(100/df),nint((nfqso-ntol)/df))
+     ib=min(nint(4900/df),nint((nfqso+ntol)/df))
   endif
 
   do i=ia,ib