5 请问如何用Fortran实验热源重复移动？

x=coords(1) y=coords(2) x0=-0.015+v*t-r0 y0=0.006 r1=((x-x0)**2+(y-y0)**2)**0.5 flux(1)=((alpha*p)/(pi*r0**2))*exp(-(r1/r0)**2) flux(2)=0 请问，如何让这个热源移动路径重复6次。