Add calls to timer() around calls to subtractft8().

lib/ft8/ft8b.f90

@@ -418,7 +418,11 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
      endif
      nbadcrc=0  ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
      call get_ft8_tones_from_77bits(message77,itone)
-     if(lsubtract) call subtractft8(dd0,itone,f1,xdt,.false.)
+     if(lsubtract) then
+        call timer('sub_ft8b',0)
+        call subtractft8(dd0,itone,f1,xdt,.false.)
+        call timer('sub_ft8b',1)
+     endif
 !     write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract,   &
 !          f1,xdt,msg37(1:22); flush(21)
 !3001 format(5i3,L3,f7.1,f7.2,2x,a22)

lib/ft8_decode.f90

@@ -76,9 +76,11 @@ contains
        ndecodes=ndec_early
     endif
     if(nzhsym.eq.50 .and. ndec_early.ge.1) then
+       call timer('sub_ft8a',0)
        do i=1,ndec_early
           call subtractft8(dd,itone_save(1,i),f1_save(i),xdt_save(i),.true.)
        enddo
+       call timer('sub_ft8a',1)
     endif
     ifa=nfa
     ifb=nfb