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

Remove a redundant array.

Browse Source
This commit is contained in:
Steven Franke 2020-09-14 13:03:33 -05:00
parent 832212b402
commit b49a90f530
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/fst4/get_fst4_bitmetrics.f90
View File

@ -7,7 +7,7 @@ subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual,
complex csymb(nss) complex csymb(nss)
complex, allocatable, save :: ci(:,:) ! ideal waveforms, 20 samples per symbol, 4 tones complex, allocatable, save :: ci(:,:) ! ideal waveforms, 20 samples per symbol, 4 tones
complex cp(0:3) ! accumulated phase shift over symbol types 0:3 complex cp(0:3) ! accumulated phase shift over symbol types 0:3
complex c1(4,8),c2(16,4),c4(256,2),c8(655356),cterm complex c1(4,8),c2(16,4),c4(256,2),cterm
integer isyncword1(0:7),isyncword2(0:7) integer isyncword1(0:7),isyncword2(0:7)
integer graymap(0:3) integer graymap(0:3)
integer ip(1) integer ip(1)
@ -150,8 +150,7 @@ subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual,
do i=1,256 do i=1,256
do j=1,256 do j=1,256
is=(i-1)*256+j is=(i-1)*256+j
c8(is)=c4(i,1)+c4(j,2) s2(is-1)=abs(c4(i,1)+c4(j,2))
s2(is-1)=abs(c8(is))
enddo enddo
enddo enddo
ipt=(k-1)*2+1 ipt=(k-1)*2+1