SUBROUTINE MSTAK (INROW, OUTROW)  
      INTEGER     INROW, OUTROW 
      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  13000 I = 1, 13   
      STK (OUTROW, I) = STK (INROW, I)  
13000 CONTINUE  
    
      RETURN
      END