From 8e4ed9b3bea6abc12465c138c39c28e36c4268b2 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 21 Nov 2020 10:12:46 -0500
Subject: [PATCH] Fix a bug in jt65_decode: crash when Rx Freq is set too close
 to upper freq limit on waterfall.

---
 lib/jt65_decode.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90
index 5242b6efe..bfb78b254 100644
--- a/lib/jt65_decode.f90
+++ b/lib/jt65_decode.f90
@@ -179,6 +179,7 @@ contains
           ia=max(1,nint((nfa-100)/df))
           ib=min(NSZ,nint((nfb+100)/df))
           nz=ib-ia+1
+          if(nz.lt.50) go to 900
           call lorentzian(savg(ia),nz,a)
           baseline=a(1)
           amp=a(2)