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)