anchor.diff:    end subroutine zinit_bfun_main
   
   
  -end module bfun_kls
  -
  -module sfun_kls
  +end module bfun_ksl
  +
  +module sfun_ksl
   
     integer, private :: rx1, rx2, ra, ry1, ry2
     double precision, private, pointer :: phi1(:), phi2(:)
  
positive.code: module bfun_kls
    !Here we need to have all parameters required for the matrix-by-vector product (to call bfun3)
    integer, private  ::  rx1T,mT,rx2T,ry1T,nT,ry2T,ra1T,ra2T
    double precision, pointer, private :: phi1T(:), phi2T(:),res1T(:), res2T(:), AT(:)
  
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
  