
C EXIT HANDLER FOR CRAPS. THIS ROUTINE IS INCLUDED SO THAT ALL
C ERROR EXITS WILL GO THROUGH THE SAME END POINT, WHICH MAY
C BE USEFUL LATER.

      SUBROUTINE ERREX
#ifdef _UNICOS
      CALL TRBK
      CALL ERREXIT
#endif /* _UNICOS */
      CALL EXIT(1)
      RETURN
      END

