w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-19 02:22:10 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minimum size of "callsign" in bandmap set to 4 characters.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@486 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-07-10 16:35:52 +00:00
parent 0c9415d0b3
commit 8d0532943e
4 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
display.F90
View File

@ -1,4 +1,4 @@
subroutine display(nkeep) subroutine display(nkeep,ncsmin)
#ifdef Win32 #ifdef Win32
use dfport use dfport
@ -133,10 +133,14 @@ subroutine display(nkeep)
i2=index(callsign,' ') i2=index(callsign,' ')
if(i2.gt.1) callsign(i2:)=' ' if(i2.gt.1) callsign(i2:)=' '
if(callsign.ne.' ' .and. callsign.ne.callsign0) then if(callsign.ne.' ' .and. callsign.ne.callsign0) then
len=i2-1
if(len.lt.0) len=6
if(len.ge.ncsmin) then !Omit short "callsigns"
nc=nc+1 nc=nc+1
freqcall(nc)=cfreq0//' '//callsign//line3(k)(80:81) freqcall(nc)=cfreq0//' '//callsign//line3(k)(80:81)
callsign0=callsign callsign0=callsign
endif endif
endif
if(callsign.ne.' ' .and. callsign.eq.callsign0) then if(callsign.ne.' ' .and. callsign.eq.callsign0) then
freqcall(nc)=cfreq0//' '//callsign//line3(k)(80:81) freqcall(nc)=cfreq0//' '//callsign//line3(k)(80:81)
endif endif

3
gcom2.f90
View File

@ -34,6 +34,7 @@ integer minsigdb !Decoder threshold setting GUI
integer nclearave !Set to 1 to clear JT65 avg GUI,Decoder integer nclearave !Set to 1 to clear JT65 avg GUI,Decoder
integer nfreeze !Is Freeze checked? GUI integer nfreeze !Is Freeze checked? GUI
integer nafc !Is AFC checked? GUI integer nafc !Is AFC checked? GUI
integer ncsmin !Minimum length of callsign in bandmap GUI
integer newspec !New spectra in ss(4,322,NSMAX) GUI,Decoder integer newspec !New spectra in ss(4,322,NSMAX) GUI,Decoder
integer nfa !Low end of map65 search (def 100 kHz) GUI integer nfa !Low end of map65 search (def 100 kHz) GUI
integer nfb !High end of map65 search (def 160 kHz) GUI integer nfb !High end of map65 search (def 160 kHz) GUI
@ -101,7 +102,7 @@ common/gcom2/ps0(431),psavg(450),s2(64,3100),ccf(-5:540), &
ndecoding,ndecoding0,mousebutton, & ndecoding,ndecoding0,mousebutton, &
ndecdone,npingtime,ierr,lauto,mantx,nrestart,ntr,nmsg,nsave,nadd5, & ndecdone,npingtime,ierr,lauto,mantx,nrestart,ntr,nmsg,nsave,nadd5, &
dftolerance,LDecoded,rxdone,monitoring,nzap,minsigdb, & dftolerance,LDecoded,rxdone,monitoring,nzap,minsigdb, &
nclearave,nfreeze,nafc,newspec,nfa,nfb,nfcal,idphi,nkeep, & nclearave,nfreeze,nafc,ncsmin,newspec,nfa,nfb,nfcal,idphi,nkeep, &
nmode,mode65,nclip,ndebug,ndphi, & nmode,mode65,nclip,ndebug,ndphi, &
nblank,nport,mousedf,mousefqso,neme,nrw26,naggressive,ntx2,nagain, & nblank,nport,mousedf,mousefqso,neme,nrw26,naggressive,ntx2,nagain, &
shok,sendingsh,d2a(661500),d2b(661500),b(60000),jza,jzb,ntime, & shok,sendingsh,d2a(661500),d2b(661500),b(60000),jza,jzb,ntime, &

2
map65.py
View File

@ -1760,7 +1760,7 @@ Audio.ftn_init()
GenStdMsgs() GenStdMsgs()
Audio.gcom4.addpfx=(options.addpfx.get().lstrip()+' ')[:8] Audio.gcom4.addpfx=(options.addpfx.get().lstrip()+' ')[:8]
Audio.gcom2.mousefqso=125 Audio.gcom2.mousefqso=125
# stopmon() Audio.gcom2.ncsmin=4
monitor() monitor()
first=1 first=1
if g.Win32: root.iconbitmap("wsjt.ico") if g.Win32: root.iconbitmap("wsjt.ico")

2
map65a.F90
View File

@ -336,7 +336,7 @@ subroutine map65a(newdat)
write(26,1015) nutc write(26,1015) nutc
1015 format(39x,i4.4) 1015 format(39x,i4.4)
call flushqqq(26) call flushqqq(26)
call display(nkeep) call display(nkeep,ncsmin)
ndecdone=2 ndecdone=2
if(nsave.gt.0 .and. ndiskdat.eq.0) call savetf2(id(1,1,kbuf),nsave, & if(nsave.gt.0 .and. ndiskdat.eq.0) call savetf2(id(1,1,kbuf),nsave, &