SUBROUTINE BLDOP (OPIN, WF, BIAS, NLX, NLXWF) 
 
      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     OPIN, WF, BIAS, NLX, NLXWF 
      CALL BLDBLK (BIAS, WF6) 
      CALL BLDBLK (OPIN, WF) 
      IF (WF .NE. WF4) CALL BLDBLK (NLX, NLXWF) 
      RETURN 
      END