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

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@486 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

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)

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,         &

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")

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,   &