C    FROM CTSIN.COM
C    INSTRUCTION SECTION OF TSS OSV:
C     SPECIAL COMMON SCRTCH
C
C     + + + HISTORY + + +
C     12/6/2004 - jlk&pbd - added new variables for changing 
C        MFACT during execution
C
      COMMON/SCRTCH/ AMODE,NCOMPS,VOLCOD,FILE,DELTAT,FREC,LREC,
     1 COMPR,TOTCOM,FMTCLS,BEGYR,TENDR,LGAP,TGAP,GAPVAL,LTRNFG,
     2 VOTSB,VOLFRM,VOTFRM,BCWBTI,BCWNOV,INPSTR,ENDF,YEAR,MO,DAY,
     3 LPYRFG,NREM,TYREND,FRMTIM,TZERO,TLAST,UCNT,ZCNT,VOPADR,
     4 OFFSET,    STKIND,    STTRAN,    INMODE,    A,    B,
     5 PVAR,    INPDAT,
     $ SVOL,SNUM,SGRPN,SMEMN,SMEMSB,ARATIO,
     $ TVOL,TNUM,TGRPN,TMEMN,TMEMSB,DUMMF
C
      INTEGER        AMODE,NCOMPS,VOLCOD,FILE,DELTAT,FREC,LREC,
     1 COMPR,TOTCOM,FMTCLS,BEGYR,TENDR,LGAP,TGAP,       LTRNFG,
     2 VOTSB,VOLFRM,VOTFRM,BCWBTI,BCWNOV,INPSTR,ENDF,YEAR,MO,DAY,
     3 LPYRFG,NREM,TYREND,FRMTIM,TZERO,TLAST,UCNT,ZCNT,VOPADR(20),
     4 OFFSET(20),STKIND(20),STTRAN(20),INMODE(20),
     5          INPDAT(6),
     $ SVOL(2),SNUM,SGRPN(2),SMEMN(2),SMEMSB(2),
     $ TVOL(2),TNUM,TGRPN(2),TMEMN(2),TMEMSB(2),DUMMF
      REAL
     1                                           GAPVAL,
     4                                             A(20),B(20),
     5 PVAR(20),
     $ ARATIO
C
      INTEGER   BCW,CRDNO,CRDSEQ(3),INSTR(220),OLDOFF,ASVEC(2),
     1          QLFG,AGGRFG,CTYPI(2)
      EQUIVALENCE (BCWBTI,BCW),(AMODE,INSTR(1)),(CTYPI(1),FREC),
     1            (VOTSB,CRDSEQ(1)),(TZERO,OLDOFF),(UCNT,CRDNO),
     2            (AMODE,ASVEC(1)),(COMPR,QLFG),(LPYRFG,AGGRFG)
C    END BYTE 800
