BLOCK DATA 
 
      INTEGER  LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS 
      INTEGER  LEXEQU, LNLEQU 
      COMMON   /LCON/   LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS 
      COMMON   /LCON/   LEXEQU, LNLEQU 
      DATA  LOWWF    / 1/ 
      DATA  LTLNA    / 2/ 
      DATA  LLPOOL   / 3/ 
      DATA  LLNAME   / 4/ 
      DATA  LMOVEP   / 5/ 
      DATA  LBSS     / 6/ 
      DATA  LEXEQU   / 7/ 
      DATA  LNLEQU   / 8/ 
      END