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