home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / evnts4.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  1.7 KB  |  40 lines
  1.         SUBROUTINE      EVNTS(IX,NSET)
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     EVNTS                                   /
  5. C/      Date-written.   Jan. 24th 1984                          /
  6. C/      File-name.      EVNTS4.FOR                              /
  7. C/      Remarks.        Subroutine EVNTS page 146               /
  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-4.          /
  14. C/                                                              /
  15. C////////////////////////////////////////////////////////////////
  16. C
  17. C    * ONE WORD INTEGERS EXCEPT NSET
  18. C       
  19.         INTEGER*4       NSET(6,1)
  20. C
  21.       COMMON /C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  22.      1           NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,
  23.      2           TNOW,TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)
  24. C
  25.       COMMON /C2/ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),
  26.      1           MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  27.      2           QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,
  28.      3         NDAY,NYR,JCLR
  29. C
  30.         COMMON /C3/ XL,XMU(2),XBUZ(2),XISYS,CBALK,TCUST,TLD
  31. C
  32.     GO TO (1,2,2,3),IX
  33.     1       CALL    ARRVL(NSET)
  34.         RETURN
  35.     2       CALL    ENDSV(NSET)
  36.         RETURN
  37.     3       CALL    ENDSM(NSET)
  38.         RETURN
  39.         END
  40.