w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-23 18:02:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Trivial code cleanup in q65.g90.

Browse Source
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./ data first/.true./
save first save first
NN=63
if(nutc+ndepth.eq.-999) stop !Silence compiler warnings if(nutc+ndepth.eq.-999) stop !Silence compiler warnings
! Set some parameters and allocate storage for large arrays ! 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) smax=maxval(ccf1)
! Estimate frequenct spread ! Estimate frequency spread
i1=-9999 i1=-9999
i2=-9999 i2=-9999
do i=-ia,ia do i=-ia,ia