real x
      x = 123.456
	  write(6,100) x
100   format(f10.5)
      stop
      end