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

Remove some unused variables.

Browse Source
This commit is contained in:
Steven Franke 2020-09-14 13:07:07 -05:00
parent affe33091d
commit 221ede2903
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/fst4/get_fst4_bitmetrics.f90
View File

@ -1,4 +1,4 @@
subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual,badsync) subroutine get_fst4_bitmetrics(cd,nss,nmax,nhicoh,bitmetrics,s4,nsync_qual,badsync)
use timer_module, only: timer use timer_module, only: timer
include 'fst4_params.f90' include 'fst4_params.f90'
@ -6,12 +6,10 @@ subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual,
complex cs(0:3,NN) complex cs(0:3,NN)
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 c1(4,8),c2(16,4),c4(256,2)
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)
integer hmod
integer hbits(2*NN) integer hbits(2*NN)
logical one(0:65535,0:15) ! 65536 8-symbol sequences, 16 bits logical one(0:65535,0:15) ! 65536 8-symbol sequences, 16 bits
logical first logical first
@ -35,7 +33,7 @@ subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual,
enddo enddo
enddo enddo
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
dphi=twopi*hmod/nss dphi=twopi/nss
do itone=0,3 do itone=0,3
dp=(itone-1.5)*dphi dp=(itone-1.5)*dphi
phi=0.0 phi=0.0
@ -43,7 +41,6 @@ subroutine get_fst4_bitmetrics(cd,nss,hmod,nmax,nhicoh,bitmetrics,s4,nsync_qual,
ci(j,itone)=cmplx(cos(phi),sin(phi)) ci(j,itone)=cmplx(cos(phi),sin(phi))
phi=mod(phi+dp,twopi) phi=mod(phi+dp,twopi)
enddo enddo
cp(itone)=cmplx(cos(phi),sin(phi))
enddo enddo
first=.false. first=.false.
endif endif

2
lib/fst4_decode.f90
View File

@ -316,7 +316,7 @@ contains
cframe=c2(is0:is0+160*nss-1) cframe=c2(is0:is0+160*nss-1)
bitmetrics=0 bitmetrics=0
call timer('bitmetrc',0) call timer('bitmetrc',0)
call get_fst4_bitmetrics(cframe,nss,hmod,nblock,nhicoh,bitmetrics, & call get_fst4_bitmetrics(cframe,nss,nblock,nhicoh,bitmetrics, &
s4,nsync_qual,badsync) s4,nsync_qual,badsync)
call timer('bitmetrc',1) call timer('bitmetrc',1)
if(badsync) cycle if(badsync) cycle