More progress on q3list decodes in NA VHF contest mode, Q65-60A.

lib/decoder.f90

@@ -45,6 +45,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
   real ss(184,NSMAX)
   logical baddata,newdat65,newdat9,single_decode,bVHF,bad0,newdat,ex
   integer*2 id2(NTMAX*12000)
+  integer nqf(20)
   type(params_block) :: params
   real*4 dd(NTMAX*12000)
   character(len=20) :: datetime
@@ -211,7 +212,22 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
           params%nfa,params%nfb,logical(params%nclearave),               &
           single_decode,logical(params%nagain),params%max_drift,         &
           logical(params%newdat),params%emedelay,mycall,hiscall,hisgrid, &
-          params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0)
+          params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0,nqf)
+
+!###
+     do k=1,20
+        if(nqf(k).eq.0) exit
+        nqd=1
+        navg0=0
+        ntol=5
+        call my_q65%decode(q65_decoded,id2,nqd,params%nutc,params%ntr,      &
+             params%nsubmode,nqf(k),ntol,params%ndepth,        &
+             params%nfa,params%nfb,logical(params%nclearave),               &
+             .true.,.true.,params%max_drift,         &
+             .false.,params%emedelay,mycall,hiscall,hisgrid, &
+             params%nQSOProgress,ncontest,logical(params%lapcqonly),navg0,nqf)
+     enddo
+!###
      call timer('dec_q65 ',1)
      close(17)
      go to 800