From 207fd05f9fd63158e87f387e4cf95576176e72b0 Mon Sep 17 00:00:00 2001
From: K9AN <s.j.franke@icloud.com>
Date: Fri, 14 Feb 2020 16:54:56 -0600
Subject: [PATCH] Minor simplification - remove unnecessary nint() functions in
 get_spectrum_baseline.f90

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

diff --git a/lib/ft8/get_spectrum_baseline.f90 b/lib/ft8/get_spectrum_baseline.f90
index c05131a82..95eb55324 100644
--- a/lib/ft8/get_spectrum_baseline.f90
+++ b/lib/ft8/get_spectrum_baseline.f90
@@ -35,8 +35,8 @@ subroutine get_spectrum_baseline(dd,nfa,nfb,sbase)
      savg=savg + s(1:NH1,j)                   !Average spectrum
   enddo
 
-  if(nfa.lt.nint(100.0)) nfa=nint(100.0)
-  if(nfb.gt.nint(4910.0)) nfb=nint(4910.0)
+  if(nfa.lt.100) nfa=100
+  if(nfb.gt.4910) nfb=4910
   call baseline(savg,nfa,nfb,sbase)
 
 return