subroutine extract(s3,nadd,ndepth,ncount,decoded)

      real s3(64,63)
      character decoded*22
      integer*1 dat1(12)
      integer dat(63),era(51),dat4(12),indx(63)
      integer mrsym(63),mr2sym(63),mrprob(63),mr2prob(63)
      logical first
      data first/.true./,nsec1/0/
      save

      call demod64a(s3,nadd,mrsym,mrprob,mr2sym,mr2prob)
      call graycode(mrsym,63,-1)
      call interleave63(mrsym,-1)
      call interleave63(mrprob,-1)

      ndec=0
      nemax=30
      maxe=8
      if(ndepth.ge.2) ndec=1
      if(ndepth.eq.2) xlambda=13.0
      if(ndepth.eq.3) xlambda=15.0

      if(ndec.eq.1) then
         call graycode(mr2sym,63,-1)
         call interleave63(mr2sym,-1)
         call interleave63(mr2prob,-1)

         nsec1=nsec1+1
         write(22,rec=1) nsec1,xlambda,maxe,200,
     +        mrsym,mrprob,mr2sym,mr2prob
         call flushqqq(22)
         call runqqq('kvasd.exe','-q',iret)
         if(iret.ne.0) then
            if(first) write(*,1000)
 1000       format('Error in KV decoder, or no KV decoder present.'/
     +         'Using BM algorithm.')
            ndec=0
            first=.false.
            go to 20
         endif
         read(22,rec=2) nsec2,ncount,dat4
         decoded='                      '
         if(ncount.ge.0) then
            call unpackmsg(dat4,decoded) !Unpack the user message
         endif
      endif
 20   if(ndec.eq.0) then
         call indexx(63,mrprob,indx)
         do i=1,nemax
            j=indx(i)
            if(mrprob(j).gt.120) then
               ne2=i-1
               go to 2
            endif
            era(i)=j-1
         enddo
         ne2=nemax
 2       decoded='                      '
         do nerase=0,ne2,2
            call rs_decode(mrsym,era,nerase,dat4,ncount)
            if(ncount.ge.0) then
               call unpackmsg(dat4,decoded)
               go to 900
            endif
         enddo
      endif

 900  return
      end