anchor.diff:  
      !  Get old component names
      kcmpnm1 = t1 % kcmpnm   ;   kcmpnm2 = t2 % kcmpnm
  +
  +   ! Turn off warnings for f90sac for zero timeshift
  +   f90sac_suppress_warnings_previous = f90sac_suppress_warnings
  +   if (f90sac_suppress_warnings /= 1) then
  +      f90sac_suppress_warnings = 1
  +   endif
   
      sum_dt = 0.
      ! Loop over the splitting parameters
  
positive.code:       dt2 = maxval(dt)*dt2/maxval(dt2)
     endif
  
     if (present(phi_ecs)) phi_ecs = phi2
     if (present(dt_ecs)) dt_ecs = dt2
  
     do i=1,n
        misfit(i) = sw_misfit(real(phi(i),r4), real(dt(i),r4), real(phi2(i),r4), &
  
negative.code:       endif
        sum_dt = sum_dt + dt
     enddo
  
     ! Revert warning status
     f90sac_suppress_warnings = f90sac_suppress_warnings_previous
  
     !  Set window markers for SHEBA by moving end window along by the applied tshift
     t1%f = t1%f + sum_dt - modulo(sum_dt,t1%delta)
  