PPT Slide

C Update points along line

do i = 1, npoints

newval(i) = (2.0 * values(i)) - oldval(i)

& + (sqtau * (values(i-1) - (2.0 * values(i)) + values(i+1)))

end do

end do

C Write results out to file

write values

call terminate parallel environment

Previous slide

Next slide

Back to first slide

View graphic version