From 09b47b0e8ed4752fd0b1aba3b035c7c80010d3dd Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Fri, 14 Feb 2020 15:28:16 -0600 Subject: [PATCH] Change lower limit of analysis window from 200 Hz to 100 Hz. --- lib/ft8/get_spectrum_baseline.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/ft8/get_spectrum_baseline.f90 b/lib/ft8/get_spectrum_baseline.f90 index 843e08c2c..c05131a82 100644 --- a/lib/ft8/get_spectrum_baseline.f90 +++ b/lib/ft8/get_spectrum_baseline.f90 @@ -35,7 +35,7 @@ subroutine get_spectrum_baseline(dd,nfa,nfb,sbase) savg=savg + s(1:NH1,j) !Average spectrum enddo - if(nfa.lt.nint(200.0)) nfa=nint(200.0) + if(nfa.lt.nint(100.0)) nfa=nint(100.0) if(nfb.gt.nint(4910.0)) nfb=nint(4910.0) call baseline(savg,nfa,nfb,sbase)