C
C  *** / C O N S T 8 / ***
C
C  MISCELLANEOUS CONSTANTS -- 1-8 CHARACTER WORDS (REAL*8 VARIABLES)
C
      COMMON /CONST8/ K8RRC,K8RDT,K8NAM,K8NUM,K8AOR,K8AN1,
     X  K8RN1,K8OPR,K8TYP,K8AN2,K8RN2,K8VAL,K8XXX,K8AND,K8OR,
     X  K8ZFIL,K8HDB,K8COMM,K8SCH,K8RC,K8DBA,K8RMDT,K8RIM,
     X  K8BEGI,K8READ,K8USE,K8LOAD,K8DEFI,K8MENU,K8EXIT,K8IN,
     X  K8OUT,K8LIM,K8ROWS,K8DATA,K8ALL,K8ZZ98,K8ZZ99
C
      REAL*8  K8RRC,K8RDT,K8NAM,K8NUM,K8AOR,K8AN1,
     X        K8RN1,K8OPR,K8TYP,K8AN2,K8RN2,K8VAL,K8XXX,K8AND,K8OR,
     X        K8ZFIL,K8HDB,K8COMM,K8SCH,K8RC,K8DBA,K8RMDT,K8RIM,
     X        K8BEGI,K8READ,K8USE,K8LOAD,K8DEFI,K8MENU,K8EXIT,K8IN,
     X        K8OUT,K8LIM,K8ROWS,K8DATA,K8ALL,K8ZZ98,K8ZZ99
C