anchor.diff:      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))
  -             time(lev,ns) = time(lev,ns) + ntoc(lev,ns) - ntic(lev,ns)
  +!             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.
  
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:        if (flag) then
            nbsub = nbsub + 1
            subname(nbsub)=TRIM(string)
  !          call cpu_time(ntic(lev,nbsub))
            call system_clock(ntic(lev,nbsub))
            time(lev,nbsub)  = 0._8
            calls(lev,nbsub) = 0
         endif
  