anchor.diff:         if (flag) then
             nbsub = nbsub + 1
             subname(nbsub)=TRIM(string)
  -          call cpu_time(ntic(lev,nbsub))
  +!          call cpu_time(ntic(lev,nbsub))
  +          call system_clock(ntic(lev,nbsub))
             time(lev,nbsub)  = 0._8
             calls(lev,nbsub) = 0
          endif
  
positive.code:        !- if yes -> cpu_time(tic)
         do ns=1, nbsub
            if (TRIM(string) == subname(ns)) then
               call cpu_time(ntic(lev,ns))
               flag = .false.
               exit
            endif
  
negative.code:     integer(kind=st) :: ns
      logical :: flag 
  
      real*8:: rate
      integer*8:: cr
  
  
      call system_clock(count_rate=cr)
  !    call system_clock(count_max=cm)
      rate = real(cr)
  
      if (nbsub > 0) then
  
         flag = .true.
  
         do ns=1, nbsub
            if (TRIM(string) == subname(ns)) then
  !             call cpu_time(ntoc(lev,ns))
               call system_clock(ntoc(lev,ns))
               time(lev,ns) = time(lev,ns) + (ntoc(lev,ns) - ntic(lev,ns))/rate
               calls(lev,ns) = calls(lev,ns) + 1
               if (lev > nblev) nblev = lev
               flag = .false.
  