CDECK  ID>, EXITRC.
      SUBROUTINE EXITRC (INRC)

      JRC = INRC

      CALL EXITF (JRC)
      END
