moving heat source

how to do moving heat source , without using subroutines