module keys
      implicit none
      integer maxkey
      parameter (maxkey=25000)
      integer nkey
      character*240 keyline(maxkey)
      save
      end