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))