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