define(KEY$NOMATCH,0)
define(KEY$EQ,1)
define(KEY$GE,2)
define(KEY$GT,3)
define(KEY$NUMERIC,0)
define(KEY$CHARACTER,1)

  common /gpkey/ keyref, keymat, keytyp, keylen, keybuf, gpbuf
    integer*4 keyref		# contains key of reference for indexed files
    integer keymat		# type of match for initial key search
    integer keytyp		# key type, ie. numeric or character
    integer*4 keylen		# length of key
    byte keybuf(256)		# buffer to hold key
    byte gpbuf(BUFSIZ)		# temporary buffer

  integer*4 keyint
  byte intbuf(21)
  equivalence (keyint, keybuf),
	      (intbuf, keybuf(10))