comicsansg
/
ft8d
mirror of https://github.com/pavel-demin/ft8d.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove unused variables from ft8d.f90

This commit is contained in:
Pavel Demin 2018-10-18 14:20:23 +02:00
parent e4fcf6a2d0
commit cc368b7d6d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ft8d.f90
View File

@ -3,7 +3,7 @@ program ft8d
! Decode FT8 data read from *.c2 files. ! Decode FT8 data read from *.c2 files.
include 'ft8_params.f90' include 'ft8_params.f90'
character infile*80,date*6,message*22,msg37*37 character infile*80,date*6
character msgcall*12, msggrid*4 character msgcall*12, msggrid*4
real s(NFFT1,NHSYM) real s(NFFT1,NHSYM)
real sbase(NFFT1) real sbase(NFFT1)
@ -53,7 +53,6 @@ program ft8d
nftx,ndepth,lft8apon,lapcqonly,napwid,nagain,iaptype, & nftx,ndepth,lft8apon,lapcqonly,napwid,nagain,iaptype, &
f1,xdt,xbase,apsym,nharderrors,dmin,nbadcrc,iappass, & f1,xdt,xbase,apsym,nharderrors,dmin,nbadcrc,iappass, &
msgcall,msggrid,xsnr) msgcall,msggrid,xsnr)
message=msg37(1:22)
nsnr=nint(xsnr) nsnr=nint(xsnr)
xdt=xdt-0.5 xdt=xdt-0.5
hd=nharderrors+dmin hd=nharderrors+dmin