From 1d590b81f54be5044bdac975736e1836a4aef16e Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Wed, 10 Mar 2021 13:10:47 -0600
Subject: [PATCH] Prevent a crash when widegraph lower limit is 0 Hz.

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

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index 967b91bf7..209528387 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -581,7 +581,7 @@ subroutine q65_write_red(iz,xdt,ccf2_avg,ccf2)
 
   rewind 17
   write(17,1000) xdt
-  do i=nint(nfa/df),nint(nfb/df)
+  do i=max(1,nint(nfa/df)),nint(nfb/df)
      freq=i*df
      write(17,1000) freq,ccf2_avg(i),ccf2(i)
 1000 format(f10.3,2e12.3)