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

Don't execute irrelevant code if "No JT65" was selected.

Browse Source
This commit is contained in:
Joe Taylor 2021-05-17 10:45:10 -04:00
parent 5541d0f792
commit f174367a5b
1 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
map65/libm65/map65a.f90
View File

@ -43,6 +43,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
mode65=mod(nmode,10) mode65=mod(nmode,10)
if(mode65.eq.3) mode65=4 if(mode65.eq.3) mode65=4
mode_q65=nmode/10 mode_q65=nmode/10
nts_jt65=2**(mode65-1) nts_jt65=2**(mode65-1)
nts_q65=2**(mode_q65) nts_q65=2**(mode_q65)
if(nagain.eq.0) then if(nagain.eq.0) then
@ -147,6 +148,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
call ccf65(ss(1,1,i),nhsym,ssmax,sync1,ipol,jpz,dt, & call ccf65(ss(1,1,i),nhsym,ssmax,sync1,ipol,jpz,dt, &
flipk,syncshort,snr2,ipol2,dt2) flipk,syncshort,snr2,ipol2,dt2)
call timer('ccf65 ',1) call timer('ccf65 ',1)
if(mode65.eq.0) syncshort=-99.0 !If "No JT65", don't waste time
! ########################### Search for Shorthand Messages ################# ! ########################### Search for Shorthand Messages #################
! Is there a shorthand tone above threshold? ! Is there a shorthand tone above threshold?
@ -245,6 +247,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
a,dt,pol,nkv,nhist,nsum,nsave,qual,decoded) a,dt,pol,nkv,nhist,nsum,nsave,qual,decoded)
call timer('decode1a',1) call timer('decode1a',1)
if(mode65.ne.0) then
if(km.lt.MAXMSG) km=km+1 if(km.lt.MAXMSG) km=km+1
sig(km,1)=nfile sig(km,1)=nfile
sig(km,2)=nutc sig(km,2)=nutc
@ -271,6 +274,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
endif endif
endif endif
endif endif
endif
enddo !i=ia,ib enddo !i=ia,ib
if(nqd.eq.1) then if(nqd.eq.1) then