SUBROUTINE CLRSTK (ROW)   
      INTEGER  ROW  
      INTEGER     I 
    
      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))
      DO  13002 I = 1, 13   
      STK (ROW, I) = 0  
13002 CONTINUE  
    
      RETURN
      END