Send mycall,hiscall,hisgrid into the ft8 decoder.

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

lib/decoder.f90

@@ -73,7 +73,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
      call my_ft8%decode(ft8_decoded,id2,params%nfqso,                   &
           newdat,params%nutc,params%nfa,      &
           params%nfb,logical(params%nagain),     &
-          params%ndepth,params%nsubmode)
+          params%ndepth,params%nsubmode,      &
+          params%mycall,params%hiscall,params%hisgrid)
      call timer('decft8  ',1)
      go to 800
   endif

lib/fsk4hf/sync8.f90

@@ -84,7 +84,7 @@ subroutine sync8(dd,nfa,nfb,nfqso,s,candidate,ncand)
 
   candidate0=0.
   k=0
-  syncmin=1.5
+  syncmin=2.0
   do i=1,100
      n=ia + indx(iz+1-i) - 1
      if(red(n).lt.syncmin) exit

lib/ft8_decode.f90

@@ -23,7 +23,7 @@ module ft8_decode
 contains
 
   subroutine decode(this,callback,iwave,nfqso,newdat,nutc,nfa,    &
-       nfb,nagain,ndepth,nsubmode)
+       nfb,nagain,ndepth,nsubmode,mycall,hiscall,hisgrid)
 !use wavhdr
     use timer_module, only: timer
     include 'fsk4hf/ft8_params.f90'
@@ -35,6 +35,8 @@ contains
     real candidate(3,100)
     real dd(15*12000)
     logical, intent(in) :: newdat, nagain
+    character*12 mycall, hiscall
+    character*6 hisgrid
     integer*2 iwave(15*12000)
     character datetime*13,message*22
     save s,dd