home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d143 / rim.lha / Rim / RimSrcAmi.Arc / RULCOM.BLK < prev    next >
Text File  |  1988-01-05  |  631b  |  22 lines
  1. C
  2. C  *** / R U L C O M / ***
  3. C
  4. C  RULE CHECKING DATA
  5. C
  6.       COMMON /RULCOM/ RIMRRC,RIMRDT,RULCNT,RULNUM(10),RULPTR(6),RULES
  7.       REAL*8 RIMRRC
  8.       REAL*8 RIMRDT
  9.       INTEGER RULCNT
  10.       INTEGER RULNUM
  11.       INTEGER RULPTR
  12.       LOGICAL RULES
  13. C
  14. C  VARIABLE DEFINITIONS:
  15. C         RIMRRC--NAME OF THE RULE RELATION
  16. C         RIMRDT--NAME OF THE RULE DATA RELATION
  17. C         RULES---.TRUE. IF RULES DEFINED (OTHERWISE .FALSE.)
  18. C         RULCNT--NUMBER OF RULES APPLYING TO A GIVEN RELATION
  19. C         RULNUM--RULE NUMBERS APPLYING TO A GIVEN RELATION
  20. C         RULPTR--RULE DATA RELATION POINTERS (RIMPTR)
  21. C
  22.