From a8826124099e9c51ab2c0e242a13396e13669d54 Mon Sep 17 00:00:00 2001 From: Pavel Demin Date: Mon, 2 Apr 2018 10:45:57 +0200 Subject: [PATCH] remove save statement from ft8d.f90 --- ft8d.f90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/ft8d.f90 b/ft8d.f90 index 8677b5c..82c657f 100644 --- a/ft8d.f90 +++ b/ft8d.f90 @@ -15,7 +15,6 @@ program ft8d logical newdat,lsubtract,ldupe,bcontest integer apsym(KK) integer allsnrs(100) - save s,dd nargs=iargc() if(nargs.lt.1) then @@ -69,7 +68,7 @@ program ft8d xdt=candidate(2,icand) xbase=10.0**(0.1*(sbase(nint(f1/3.125))-40.0)) 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, & hiscall12,bcontest,sync,f1,xdt,xbase,apsym,nharderrors,dmin, & nbadcrc,iappass,iera,msg37,xsnr) @@ -91,8 +90,8 @@ program ft8d allmessages(ndecodes)=message allsnrs(ndecodes)=nsnr endif - write(*,1004) nutc,ipass,iaptype,iappass, & - nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & + write(*,1004) nutc,ipass,iaptype,iappass, & + nharderrors,dmin,hd,min(sync,999.0),nint(xsnr), & xdt,nint(f1-2000+dialfreq),message 1004 format(i6.6,3i2,i3,3f6.1,i4,f6.2,i9,1x,a22) endif