C     EDIT DATE   28AUG78  19:40
C     SOURCE FILE CODE1FTM.IN
C     AUTHOR      F. T. MICKEY
C     CLUSTER     X
      INTEGER     WOPTR,  WO (64), TLI,     TL (128)
      INTEGER     BO,     SS,      SS2,     NRFCH
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH