c     This is a small FORTRAN program
      type 101
101   format (' Type a number: '$)
      accept 102,x
102   format (f)
      y=2*x
      type 103,x,y
103   format (' Two times ',f,' is ',f)
      stop
      end