character c(50)
      call suba(c(1))
      end
      subroutine suba(c)
      character c
      read *,c
      end