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

2026-07-15 15:24:25 -04:00 · 2020-02-28 11:25:32 -05:00
parent 2e696574c9
commit f9322f2b43
2 changed files with 7 additions and 1 deletions
@@ -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