w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Optimize the Q65 inner loops. Also more code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2020-11-02 16:04:46 -05:00
parent fa92799bda
commit 1b541082fd
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/qra64a.f90
View File

@ -102,8 +102,8 @@ subroutine qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist)
integer iparam(7)
logical first,ex
! data iparam/3,5,3,11,0,9,30/ !Maximum effort
data iparam/2,5,3,11,3,9,10/ !Default values
! data iparam/3,5,11,11,0,11,60/ !Maximum effort
data iparam/3,5,7,7,0,4,15/ !Default values
data first/.true./
save first,iparam