mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-01 17:46:55 -04:00
tweak
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7761 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
ff4e4b1828
commit
12c1b45c66
@ -116,7 +116,7 @@ subroutine ft8b(dd0,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
|
|||||||
do k=1,NN
|
do k=1,NN
|
||||||
i1=ibest+(k-1)*32
|
i1=ibest+(k-1)*32
|
||||||
csymb=cmplx(0.0,0.0)
|
csymb=cmplx(0.0,0.0)
|
||||||
if( i1.gt.1 .and. i1+31 .lt. NP2 ) csymb=cd0(i1:i1+31)
|
if( i1.ge.1 .and. i1+31 .le. NP2 ) csymb=cd0(i1:i1+31)
|
||||||
call four2a(csymb,32,1,-1,1)
|
call four2a(csymb,32,1,-1,1)
|
||||||
s2(0:7,k)=abs(csymb(1:8))
|
s2(0:7,k)=abs(csymb(1:8))
|
||||||
enddo
|
enddo
|
||||||
|
Loading…
Reference in New Issue
Block a user