PROGRAM MAIN
      DIMENSION NSET(1000000)
      COMMON/SCOM1/ATRIB(100),DD(100),DDL(100),DTNOW,II,
     1MFA,MSTOP,NCLNR,NCRDR,NPRNT,NNRUN,NNSET,NTAPE,
     2SS(100),SSL(100),TNEXT,TNOW,XX(100),IRUN,QSIZE(2000),NUMBER,
     3SQSUM(2000),SUM(2000),VARI(2000),UCF(2000),XLCF(2000),
     4TLAM(2000),SQSUML(2000),SUML(2000),VARIL(2000),
     5UCFL(2000),XLCFL(2000),TOTLAM,DELTAT

      COMMON QSET(5000)
      EQUIVALENCE(NSET(1),QSET(1))
      NNSET=5000
      NCRDR=5
      NPRNT=6
      NTAPE=7
   
      OPEN(UNIT=5,FILE='fort.5')
      OPEN(UNIT=6,FILE='fort.6')

      CALL SLAM

      STOP
      END