anchor.diff:      deallocate(pa)
   
   
  -  end subroutine tt_kls
  -
  -  subroutine ztt_kls(d,n,m,ra,crA, crY0, ry, tau, rmax, kickrank, nswp, verb)
  +  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
       use estnorm  !1-norm estimation
  -    use bfun_kls !bfun declarations
  -    use sfun_kls !We have to do this
  +    use bfun_ksl !bfun declarations
  +    use sfun_ksl !We have to do this
       use explib !Krylov exponential
       implicit none
       integer,intent(in) :: d,n(d),m(d),ra(d+1), rmax
  
positive.code: 
  
    !! What we have: we have a starting vector + a matrix (no vector X!) 
    subroutine tt_kls(d,n,m,ra,crA, crY0, ry, tau, rmax, kickrank, nswp, verb)
      use dispmodule
      use matrix_util ! dqr
      use ttals   ! als stuff
      use estnorm  !1-norm estimation
      use bfun_kls !bfun declarations
      use sfun_kls !We have to do this
      use explib !Krylov exponential
      implicit none
      integer,intent(in) :: d,n(d),m(d),ra(d+1), rmax
  
negative.code:     !Seems to be OK.
    end subroutine zsfun_matvec_transp
  
  end module sfun_ksl
  
  
  module dyn_tt
  