w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Trivial code cleanup in q65.g90.

This commit is contained in:
Joe Taylor 2021-04-27 15:17:18 -04:00
parent 14f8dc76c0
commit 03e67dff47
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/qra/q65/q65.f90
View File

@ -69,6 +69,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
data first/.true./
save first
NN=63
if(nutc+ndepth.eq.-999) stop !Silence compiler warnings
! Set some parameters and allocate storage for large arrays
@ -190,7 +191,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
smax=maxval(ccf1)
! Estimate frequenct spread
! Estimate frequency spread
i1=-9999
i2=-9999
do i=-ia,ia