C     EDIT DATE   03DEC78  12:13
C     SOURCE FILE STKDFF.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))