C
C  *** / R U L C O M / ***
C
C  RULE CHECKING DATA
C
      COMMON /RULCOM/ RIMRRC,RIMRDT,RULCNT,RULNUM(10),RULPTR(6),RULES
      REAL*8 RIMRRC
      REAL*8 RIMRDT
      INTEGER RULCNT
      INTEGER RULNUM
      INTEGER RULPTR
      LOGICAL RULES
C
C  VARIABLE DEFINITIONS:
C         RIMRRC--NAME OF THE RULE RELATION
C         RIMRDT--NAME OF THE RULE DATA RELATION
C         RULES---.TRUE. IF RULES DEFINED (OTHERWISE .FALSE.)
C         RULCNT--NUMBER OF RULES APPLYING TO A GIVEN RELATION
C         RULNUM--RULE NUMBERS APPLYING TO A GIVEN RELATION
C         RULPTR--RULE DATA RELATION POINTERS (RIMPTR)
C