C
C  *** / R E L T B L / ***
C
C  BUFFER TO HOLD ONE PAGE FROM THE RELTBL RELATION
C
      COMMON /RELTBL/ RELBUF(1024),
     X CNAME,LRROW,NRROW,RELMOD,RPBUF
      INTEGER RELBUF
      REAL*8 CNAME
      INTEGER RELMOD
      INTEGER RPBUF
      INTEGER RELTBL(14,73)
      EQUIVALENCE (RELBUF(2),RELTBL(1,1))
C
C  VARIABLE DEFINITIONS:
C         RELBUF--BUFFER FOR ONE PAGE FROM THE RELTBL RELATION
C         RELTBL--EQUIVALENCE ARRAY FOR EASIER USE OF RELBUF
C         CNAME---CURRENT RELATION NAME SPECIFIED IN LOCREL
C         LRROW---LAST ROW SENT IN TUPLER
C         NRROW---NEXT AVAILABLE ROW FOR ADDING A TUPLE
C         RELMOD--MODIFICATION FLAG - O MEANS NO, 1 MEANS YES
C         RPBUF---RELATIONS PER RELBUF PAGE
C