Computational method for the long time propagation of quantum channeled particles in crystals and carbon nanotubes