w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-04-21 10:48:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove (most of) mcall3 stuff.

Browse Source
This commit is contained in:
Joe Taylor 2022-12-12 13:44:41 -05:00
parent 16214c2ff1
commit 504a62bf93
2 changed files with 3 additions and 10 deletions

7
q65w/libq65/decode0.f90
View File

@ -16,7 +16,7 @@ subroutine decode0(dd,ss,savg,nstandalone)
mcall3,nkeep,ntol,nxant,nrxlog,nfsample,nxpol,nmode, &
ndop00,nsave,max_drift,nhsym,mycall,mygrid,hiscall,hisgrid,datetime
common/early/nhsym1,nhsym2,ldecoded(32768)
data neme0/-99/,mcall3b/1/
data neme0/-99/
save
call sec0(0,tquick)
@ -40,9 +40,6 @@ subroutine decode0(dd,ss,savg,nstandalone)
enddo
10 rmsdd=1.5*i
endif
if(mycall.ne.mycall0 .or. hiscall.ne.hiscall0 .or. &
hisgrid.ne.hisgrid0 .or. mcall3.ne.0 .or. neme.ne.neme0) mcall3b=1
mycall0=mycall
hiscall0=hiscall
@ -52,7 +49,7 @@ subroutine decode0(dd,ss,savg,nstandalone)
call timer('q65wa ',0)
call q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
mousedf,mousefqso,nagain,ndecdone,nfshift,max_drift, &
nfcal,mcall3b,nsum,nxant,mycall,mygrid, &
nfcal,nsum,nxant,mycall,mygrid, &
hiscall,hisgrid,nhsym,nfsample, &
ndiskdat,nxpol,nmode,ndop00)
call timer('q65wa ',1)

6
q65w/libq65/q65wa.f90
View File

@ -1,6 +1,6 @@
subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
mousedf,mousefqso,nagain,ndecdone,nfshift,max_drift, &
nfcal,mcall3b,nsum,nxant,mycall,mygrid, &
nfcal,nsum,nxant,mycall,mygrid, &
hiscall,hisgrid,nhsym,nfsample, &
ndiskdat,nxpol,nmode,ndop00)
@ -25,7 +25,6 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
type(candidate) :: cand(MAX_CANDIDATES)
character*60 result
common/decodes/ndecodes,ncand,result(50)
common/c3com/ mcall3a
common/testcom/ifreq
common/early/nhsym1,nhsym2,ldecoded(32768)
@ -72,7 +71,6 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
nwrite_q65=0
bq65=mode_q65.gt.0
mcall3a=mcall3b
mousefqso0=mousefqso
nsum=0
@ -126,9 +124,7 @@ subroutine q65wa(dd,ss,savg,newdat,nutc,fcenter,ntol,nfa,nfb, &
enddo ! icand
call sec0(1,tsec0)
ndecdone=2
call flush(12)
mcall3b=mcall3a
return
end subroutine q65wa