Pass "nContest" value to ft8_decode.f90.

lib/decoder.f90

@@ -93,9 +93,10 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
 ! We're in FT8 mode
      call timer('decft8  ',0)
      newdat=params%newdat
+     ncontest=iand(params%nexp_decode,7)
      call my_ft8%decode(ft8_decoded,id2,params%nQSOProgress,params%nfqso,    &
           params%nftx,newdat,params%nutc,params%nfa,params%nfb,              &
-          params%ndepth,logical(params%nagain),                              &
+          params%ndepth,ncontest,logical(params%nagain),                     &
           logical(params%lft8apon),logical(params%lapcqonly),                &
           logical(params%ldecode77),params%napwid,                           &
           mycall,hiscall,hisgrid)

lib/ft8_decode.f90

@@ -33,8 +33,8 @@ module ft8_decode
 contains
 
   subroutine decode(this,callback,iwave,nQSOProgress,nfqso,nftx,newdat,  &
-       nutc,nfa,nfb,ndepth,nagain,lft8apon,lapcqonly,ldecode77,napwid,   &
-       mycall12,hiscall12,hisgrid6)
+       nutc,nfa,nfb,ndepth,ncontest,nagain,lft8apon,lapcqonly,ldecode77, &
+       napwid,mycall12,hiscall12,hisgrid6)
 !    use wavhdr
     use timer_module, only: timer
     include 'ft8/ft8_params.f90'