From 27bf7bb9640283064dd0dcab055248e5152457a3 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 25 Dec 2020 12:22:25 -0600
Subject: [PATCH] FT8: Fix jt9 crash when nagain is invoked.

---
 lib/ft8/get_spectrum_baseline.f90 | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/lib/ft8/get_spectrum_baseline.f90 b/lib/ft8/get_spectrum_baseline.f90
index 9cf4e637c..f815eba14 100644
--- a/lib/ft8/get_spectrum_baseline.f90
+++ b/lib/ft8/get_spectrum_baseline.f90
@@ -35,8 +35,19 @@ subroutine get_spectrum_baseline(dd,nfa,nfb,sbase)
      savg=savg + s(1:NH1,j)                   !Average spectrum
   enddo
 
-  if(nfa.lt.100) nfa=100
-  if(nfb.gt.4910) nfb=4910
+  nwin=nfb-nfa
+  if(nfa.lt.100) then
+     nfa=100
+     if(nwin.lt.100) then ! nagain
+        nfb=nfa+nwin  
+     endif
+  endif
+  if(nfb.gt.4910) then
+     nfb=4910
+     if(nwin.lt.100) then 
+        nfa=nfb-nwin
+     endif
+  endif
   call baseline(savg,nfa,nfb,sbase)
 
 return