x=0. do 10 i=1,100000 x=x+sin(i*1e-6) 10 continue write(6,100)x 100 format(1pe10.3) end