      subroutine inkey (answ)                                           INKE001
c ----------------------------------------------------------------------INKE002
c     reads a key as answer                                             INKE003
c ----------------------------------------------------------------------INKE004
      character answ                                                    INKE005
      read (*,'(a1)') answ                                              INKE006
      call upstrg (answ,1)                                              INKE007
      if ((answ.eq.' ').or.(answ.eq.char(13))) answ='Y'                 INKE008
      return                                                            INKE009
      end                                                               INKE010
