“…j=1 do while (j.le.m) vzm(j)=0. k=j-1 do while (k.ge.1) wf=exp(-(dfloat(j-k)+dfloat(j-k-1))*dz/mlen2) 1'VFA',tab,'VFAM' j=1 write (11,102) time,tab,-1.,tab,0.,tab,stem1c,tab,stem1c, 1tab,stem1c do while (j.le.m) poszn=length*(j-1)/(m-1) write (11,102) time,tab,poszn,tab,f(j,1),tab,temc(j,1),tab, 1temc(j,5),tab,temc(j,n) 102 format (f9.4,a1,f10.5,a1,f7.5,3(a1,f9.4)) write (16,400) time,tab,poszn,tab,c(j,1),tab,f(j,1),tab,y2(j,1), 1tab,fx(j,1) 400 format (f9.4,a1,f10.5,4(a1,f9.5)) write (10,500) time,tab,poszn,tab,ind3(j,1),tab, 1y2(j,1),tab,y2max(j,i),tab,cmx2(j,1) 500 format (f9.4,a1,f10.5,a1,i2,3(a1,f9.5)) j=j+1 enddo write (11,102) …”