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