C     EDIT DATE   03DEC78  11:40
C     SOURCE FILE STKDFA.IN
C     AUTHOR      A. J. HOWARD
      INTEGER     STK (20, 13)
C     COLUMN      ARRAY
C
C        1        NAMEX
C        2        SUBX
C        3        MODE
C        4        SUBXM
C        5        BIAS
C        6        SUBXB
C        7        LOCFLG
C        8        OSTACK
C        9        OPCODE
C        10       WFOP
C        11       WFOPND
C        12       SUBOP
C        13       WFSOP
      INTEGER     NAMEX (40)
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS
I     INTEGER ICLP14
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS
I     COMMON      /SDEFS/ ICLP14
      EQUIVALENCE (STK (1,1), NAMEX (1))