BLOCK DATA 
 
      INTEGER     LTLI, LLX, LOCNLX (10), LOCTLI (10) 
      COMMON      /LABCOM/ LTLI, LLX, LOCNLX, LOCTLI 
      DATA         LTLI /0/ 
      END