SUBROUTINE WRITWO 
 
      INTEGER     WOPTR,  WO (64), TLI,     TL (128) 
      INTEGER     BO,     SS,      SS2,     NRFCH 
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL 
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH 
      CALL WRSEQ (SS2, WO, 128) 
      WOPTR = 1 
      RETURN 
      END