anchor.diff:      !Seems to be OK.
     end subroutine zsfun_matvec_transp
   
  -end module sfun_kls
  +end module sfun_ksl
   
   
   module dyn_tt
  
positive.code:     deallocate(pa)
  
  
    end subroutine tt_kls
  
    subroutine ztt_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:     deallocate(pa)
  
  
    end subroutine ztt_ksl
    !! What we have: we have a starting vector + a matrix (no vector X!) 
    
  
  end module dyn_tt
  