home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / evnts3.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  1.6 KB  |  41 lines
  1.         SUBROUTINE      EVNTS(IX,NSET)
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     EVNTS                                   /
  5. C/      Date-written.   Jan. 21st 1984                          /
  6. C/      File-name.      EVNTS3.FOR                              /
  7. C/      Remarks.        Subroutine EVNTS page 121               /
  8. C/                      Event code 1 siginifires an arrival     /
  9. C/                      event; event code 2 signifires an end   /
  10. C/                      of service event;                       /
  11. C/                      and event code 3 signifires an end of   /
  12. C/                      simulation event.                       /
  13. C/            User subroutine for Example-3.        /
  14. C/                                                              /
  15. C////////////////////////////////////////////////////////////////
  16. C    * ONE WORD INTEGERS EXCEPT NSET
  17. C       
  18.         INTEGER*4       NSET(6,1)
  19. C
  20.       COMMON /C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  21.      1           NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,
  22.      2           TNOW,TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)
  23. C
  24.       COMMON /C2/ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),
  25.      1           MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  26.      2           QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,
  27.      3         NDAY,NYR,JCLR
  28. C
  29.     COMMON /C3/ XISYS,BUS
  30. C
  31.         GO TO (1,2,3,4),IX
  32. 1       CALL    ARRVL(NSET)
  33.         RETURN
  34. 2       CALL    ENDSV(NSET)
  35.         RETURN
  36. 3       CALL    ENDSM(NSET)
  37.         RETURN
  38. 4       CALL    STTUP(NSET)
  39.         RETURN
  40.         END
  41.