BLOCK DATA 
 
      INTEGER     WOPTR,  WO (64), TLI,     TL (128) 
      INTEGER     BO,     SS,      SS2,     NRFCH 
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL 
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH 
      DATA  WOPTR    /1/ 
      DATA  TLI      /1/ 
      DATA  BO       /3/ 
      DATA  SS       / 9/ 
      DATA  SS2      / 8/ 
      DATA  NRFCH    / 0/ 
      END