diff --git a/display.F90 b/display.F90 index 1a4f08be9..9f0cd99fa 100644 --- a/display.F90 +++ b/display.F90 @@ -1,4 +1,4 @@ -subroutine display(nkeep) +subroutine display(nkeep,ncsmin) #ifdef Win32 use dfport @@ -133,9 +133,13 @@ subroutine display(nkeep) i2=index(callsign,' ') if(i2.gt.1) callsign(i2:)=' ' if(callsign.ne.' ' .and. callsign.ne.callsign0) then - nc=nc+1 - freqcall(nc)=cfreq0//' '//callsign//line3(k)(80:81) - callsign0=callsign + len=i2-1 + if(len.lt.0) len=6 + if(len.ge.ncsmin) then !Omit short "callsigns" + nc=nc+1 + freqcall(nc)=cfreq0//' '//callsign//line3(k)(80:81) + callsign0=callsign + endif endif if(callsign.ne.' ' .and. callsign.eq.callsign0) then freqcall(nc)=cfreq0//' '//callsign//line3(k)(80:81) diff --git a/gcom2.f90 b/gcom2.f90 index cca48f663..cb936fc28 100644 --- a/gcom2.f90 +++ b/gcom2.f90 @@ -34,6 +34,7 @@ integer minsigdb !Decoder threshold setting GUI integer nclearave !Set to 1 to clear JT65 avg GUI,Decoder integer nfreeze !Is Freeze 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 nfa !Low end of map65 search (def 100 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, & ndecdone,npingtime,ierr,lauto,mantx,nrestart,ntr,nmsg,nsave,nadd5, & 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, & nblank,nport,mousedf,mousefqso,neme,nrw26,naggressive,ntx2,nagain, & shok,sendingsh,d2a(661500),d2b(661500),b(60000),jza,jzb,ntime, & diff --git a/map65.py b/map65.py index f32dc53cb..1c06eb2d0 100644 --- a/map65.py +++ b/map65.py @@ -1760,7 +1760,7 @@ Audio.ftn_init() GenStdMsgs() Audio.gcom4.addpfx=(options.addpfx.get().lstrip()+' ')[:8] Audio.gcom2.mousefqso=125 -# stopmon() +Audio.gcom2.ncsmin=4 monitor() first=1 if g.Win32: root.iconbitmap("wsjt.ico") diff --git a/map65a.F90 b/map65a.F90 index f4d81fbfe..e817cdebf 100644 --- a/map65a.F90 +++ b/map65a.F90 @@ -336,7 +336,7 @@ subroutine map65a(newdat) write(26,1015) nutc 1015 format(39x,i4.4) call flushqqq(26) - call display(nkeep) + call display(nkeep,ncsmin) ndecdone=2 if(nsave.gt.0 .and. ndiskdat.eq.0) call savetf2(id(1,1,kbuf),nsave, &