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

Remove some unused variables.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7771 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-02 00:08:17 +00:00
parent d8c883dd52
commit 27de2481bb
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/fsk4hf/ft8b.f90
View File

@ -2,8 +2,7 @@ subroutine ft8b(dd0,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
use timer_module, only: timer use timer_module, only: timer
include 'ft8_params.f90' include 'ft8_params.f90'
parameter(NRECENT=10,NP2=2812) parameter(NP2=2812)
character*12 recent_calls(NRECENT)
character message*22,msgsent*22 character message*22,msgsent*22
real a(5) real a(5)
real s1(0:7,ND),s2(0:7,NN) real s1(0:7,ND),s2(0:7,NN)
@ -42,8 +41,6 @@ subroutine ft8b(dd0,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
max_iterations=40 max_iterations=40
norder=2 norder=2
! if(abs(nfqso-f1).lt.10.0) norder=3 ! if(abs(nfqso-f1).lt.10.0) norder=3
tstep=0.5*NSPS/12000.0
df=12000.0/NFFT1
call timer('ft8_down',0) call timer('ft8_down',0)
call ft8_downsample(dd0,f1,cd0) call ft8_downsample(dd0,f1,cd0)
call timer('ft8_down',1) call timer('ft8_down',1)
@ -70,8 +67,6 @@ subroutine ft8b(dd0,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
if( sync .gt. smax ) then if( sync .gt. smax ) then
smax=sync smax=sync
ibest=idt ibest=idt
delfbest=delf
ifbest=if
endif endif
enddo enddo
xdt2=ibest*dt2 xdt2=ibest*dt2
@ -184,8 +179,8 @@ subroutine ft8b(dd0,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
ios=mod(itone(i)+4,7) ios=mod(itone(i)+4,7)
xnoi=xnoi+s2(ios,i)**2 xnoi=xnoi+s2(ios,i)**2
enddo enddo
xsnr=xsig/xnoi-1.0 xsnr=0.001
if( xsnr .lt. 0.0 ) xsnr=0.005 if( xnoi.gt.0 .and. xnoi.lt.xsig ) xsnr=xsig/xnoi-1.0
xsnr=10.0*log10(xsnr)-26.3 xsnr=10.0*log10(xsnr)-26.3
if( xsnr .lt. -24.0 ) xsnr=-24.0 if( xsnr .lt. -24.0 ) xsnr=-24.0
endif endif