anchor.diff:      ermax = 0d0
       i = d
       dir = -1
  -    swp = 1
  +    swp = 0
   
       call init_seed()
       ermax = 0d0
  -    swp = 1
       if ( typ .eq. 1 ) then
           tau0 = tau
       else if ( typ .eq. 2  ) then
  
positive.code: 
    end subroutine tt_ksl
  
    subroutine ztt_ksl(d,n,m,ra,crA, crY0, ry, tau, rmax, kickrank, nswp, verb)
      use dispmodule
      use matrix_util ! dqr
      use ttals   ! als stuff
  
negative.code:     implicit none
      integer,intent(in) :: d,n(d),m(d),ra(d+1), rmax
      integer,intent(inout) :: ry(d+1)
      integer, intent(in), optional :: kickrank, nswp, verb, typ0
      ! verb: 0: off; 1: matlab; 2: console
      integer :: kickrank0, nswp0, verb0
      complex(8), intent(in) :: crA(*), crY0(*)
  