real*8 a
      character b
      b = '6 '
      read (b, '(i2)'),a
      print *,a
      read (b, '(f2.0)'),a
      print *,a
      end