w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove unused variable in qmapa().

Browse Source
This commit is contained in:
Joe Taylor 2024-01-19 11:11:33 -05:00
parent 55286b05a9
commit e81cafa2c2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
qmap/libqmap/qmapa.f90
View File

@ -19,7 +19,6 @@ subroutine qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
parameter (MAX_CANDIDATES=50) parameter (MAX_CANDIDATES=50)
parameter (MAXMSG=1000) !Size of decoded message list parameter (MAXMSG=1000) !Size of decoded message list
parameter (NSMAX=60*96000) parameter (NSMAX=60*96000)
complex cx(NSMAX/64) !Data at 1378.125 samples/s
real dd(2,NSMAX) !I/Q data from Linrad real dd(2,NSMAX) !I/Q data from Linrad
real ss(400,NFFT) !Symbol spectra real ss(400,NFFT) !Symbol spectra
real savg(NFFT) !Average spectrum real savg(NFFT) !Average spectrum
@ -32,7 +31,7 @@ subroutine qmapa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, & common/decodes/ndecodes,ncand,nQDecoderDone,nWDecoderBusy, &
nWTransmitting,result(50) nWTransmitting,result(50)
save save
tsec0=sec_midn() tsec0=sec_midn()
if(nagain.eq.1) ndepth=3 !Use full depth for click-to-decode if(nagain.eq.1) ndepth=3 !Use full depth for click-to-decode
nkhz_center=nint(1000.0*(fcenter-int(fcenter))) nkhz_center=nint(1000.0*(fcenter-int(fcenter)))