SUBROUTINE STSET (ROW, SNAMEX, SMODE, SBIAST, SOPCOD, SWFOP, SWFOP
     1N)
    
      INTEGER     STK (20, 13)  
      INTEGER     NAMEX (40)
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      INTEGER ICLP14
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS 
      COMMON      /SDEFS/ ICLP14
      EQUIVALENCE (STK (1,1), NAMEX (1))
    
      INTEGER     MODE (40),   SUBX (20),   SUBXM (20),  BIAS (40)  
      EQUIVALENCE (STK (1, 3), MODE  (1))   
      EQUIVALENCE (STK (1, 2), SUBX  (1))   
      EQUIVALENCE (STK (1, 4), SUBXM (1))   
      EQUIVALENCE (STK (1, 5), BIAS  (1))   
    
      INTEGER     OPCODE (20)   
      EQUIVALENCE (STK (1, 9), OPCODE (1))  
    
      INTEGER     SUBXB (20),  WFOP (20),   WFOPND (20) 
      INTEGER     SUBOP (20),  WFSOP (20)   
      EQUIVALENCE (STK (1,  6), SUBXB  (1)) 
      EQUIVALENCE (STK (1, 10), WFOP   (1)) 
      EQUIVALENCE (STK (1, 11), WFOPND (1)) 
      EQUIVALENCE (STK (1, 12), SUBOP  (1)) 
      EQUIVALENCE (STK (1, 13), WFSOP  (1)) 
      INTEGER ROW, SNAMEX, SMODE, SBIAST, SOPCOD
      INTEGER SWFOP, SWFOPN 
      CALL CLRSTK (ROW) 
      NAMEX (ROW) = SNAMEX  
      MODE  (ROW) = SMODE   
      BIAS  (ROW) = SBIAST  
      OPCODE(ROW) = SOPCOD  
      WFOP  (ROW) = SWFOP   
      WFOPND(ROW) = SWFOPN  
      RETURN
      END