w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-22 20:18:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

Minor simplification - remove unnecessary nint() functions in get_spectrum_baseline.f90

Browse Source
This commit is contained in:
K9AN 2020-02-14 16:54:56 -06:00
parent ecb09ba852
commit 207fd05f9f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft8/get_spectrum_baseline.f90
View File

@ -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