****************************************************
      Subroutine refkey

**************************************************
      return
      end