anchor.diff:        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)
  
positive.code:    real :: dt, theta, sum_dt
     character(len=8) :: kcmpnm1, kcmpnm2
     integer :: i
  
     ! See if we're being quiet or not: default to silet
     silent = .true.
  
negative.code: 
     !  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
  