*********************************************************************** SUBROUTINE RICHKEY *********************************************************************** return end