C     EDIT DATE   03DEC78  11:40
C     SOURCE FILE STKDEFA.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)
      EQUIVALENCE (STK (1, 1), NAMEX (1))
      INTEGER     OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS
      COMMON      /SDEFS/ STK,    OPX,    STKSIZ, OCBIT,  FUNBIT, SBIAS

C     EDIT DATE   03DEC78  11:45
C     SOURCE FILE STKDEFB.IN
C     AUTHOR      A. J. HOWARD
      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))

C     EDIT DATE   03DEC78  12:11
C     SOURCE FILE STKDEFC.IN
C     AUTHOR      A. J. HOWARD
      INTEGER     LOCFLG (20)
      EQUIVALENCE (STK (1, 7), LOCFLG (1))

C     EDIT DATE   03DEC78  12:11
C     SOURCE FILE STKDEFD.IN
C     AUTHOR      A. J. HOWARD
      INTEGER     OSTACK (20)
      EQUIVALENCE (STK (1, 8), OSTACK (1))

C     EDIT DATE   03DEC78  12:12
C     SOURCE FILE STKDEFE.IN
C     AUTHOR      A. J. HOWARD
      INTEGER     OPCODE (20)
      EQUIVALENCE (STK (1, 9), OPCODE (1))

C     EDIT DATE   03DEC78  12:13
C     SOURCE FILE STKDEFF.IN
C     AUTHOR      A. J. HOWARD
      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))