comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2024-11-27 14:58:43 -05:00
Code Issues Packages Projects Releases Wiki Activity

remove save statement from ft8d.f90

Browse Source
This commit is contained in:
Pavel Demin 2018-04-02 10:45:57 +02:00
parent afd405291e
commit a882612409
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ft8d.f90
View File

@ -15,7 +15,6 @@ program ft8d
logical newdat,lsubtract,ldupe,bcontest logical newdat,lsubtract,ldupe,bcontest
integer apsym(KK) integer apsym(KK)
integer allsnrs(100) integer allsnrs(100)
save s,dd
nargs=iargc() nargs=iargc()
if(nargs.lt.1) then if(nargs.lt.1) then
@ -69,7 +68,7 @@ program ft8d
xdt=candidate(2,icand) xdt=candidate(2,icand)
xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0)) xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0))
nsnr0=min(99,nint(10.0*log10(sync) - 25.5)) ! ### empirical ### nsnr0=min(99,nint(10.0*log10(sync) - 25.5)) ! ### empirical ###
call ft8b(dd,newdat,nQSOProgress,nfqso+2000,nftx,ndepth,lft8apon, & call ft8b(dd,newdat,nQSOProgress,nfqso+2000,nftx,ndepth,lft8apon, &
lapcqonly,napwid,lsubtract,nagain,iaptype,mycall12,mygrid6, & lapcqonly,napwid,lsubtract,nagain,iaptype,mycall12,mygrid6, &
hiscall12,bcontest,sync,f1,xdt,xbase,apsym,nharderrors,dmin, & hiscall12,bcontest,sync,f1,xdt,xbase,apsym,nharderrors,dmin, &
nbadcrc,iappass,iera,msg37,xsnr) nbadcrc,iappass,iera,msg37,xsnr)
@ -91,8 +90,8 @@ program ft8d
allmessages(ndecodes)=message allmessages(ndecodes)=message
allsnrs(ndecodes)=nsnr allsnrs(ndecodes)=nsnr
endif endif
write(*,1004) nutc,ipass,iaptype,iappass, & write(*,1004) nutc,ipass,iaptype,iappass, &
nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), &
xdt,nint(f1-2000+dialfreq),message xdt,nint(f1-2000+dialfreq),message
1004 format(i6.6,3i2,i3,3f6.1,i4,f6.2,i9,1x,a22) 1004 format(i6.6,3i2,i3,3f6.1,i4,f6.2,i9,1x,a22)
endif endif