SUBROUTINE WRBLOK 
 
      INTEGER  WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12,WF13,W
     1F14,WF15,WF16,WF17 
      INTEGER  ICLP16 
      COMMON   / WF / WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12
     1,WF13,WF14,WF15,WF16,WF17 
      COMMON   / WF / ICLP16 
 
      INTEGER     WOPTR,  WO (64), TLI,     TL (128) 
      INTEGER     BO,     SS,      SS2,     NRFCH 
      COMMON      /SCR1/  WOPTR,   WO,      TLI,    TL 
      COMMON      /SCR1/  BO,      SS,      SS2,    NRFCH 
      NRFCH = NRFCH + 1 
      CALL BLDBLK (0, WF3) 
      IF (WOPTR .NE. 1) CALL WRITWO 
      CALL WRSEQ (SS, TL, 256) 
      TLI = 1 
      RETURN 
      END