home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / endsm4.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  1.6 KB  |  38 lines
  1.         SUBROUTINE      ENDSM(NSET)
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     ENDSM                                   /
  5. C/      Date-written.   Jan. 26th 1984                          /
  6. C/      File-name.      ENDSM4.FOR                              /
  7. C/      Remaeks.        User defined subroutine, the completion /
  8. C/                      of the simulation at a time specified   /
  9. C/                      by the programmer. (p.152)              /
  10. C/                      This is the version for Example 4.      /
  11. C/                                                              /
  12. C////////////////////////////////////////////////////////////////
  13. C
  14. C    * Default size of INTEGER = 2 bytes in F80
  15. C       
  16.         INTEGER*4       NSET(6,1)
  17. C
  18.       COMMON /C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  19.      1           NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,
  20.      2           TNOW,TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)
  21. C
  22.       COMMON /C2/ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),
  23.      1           MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  24.      2           QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,
  25.      3         NDAY,NYR,JCLR
  26. C
  27.         COMMON /C3/XL,XMU(2),XBUZ(2),XISYS,CBALK,TCUST,TLD
  28. C
  29. C       --- Update time ststistics for last time segment
  30. C
  31.         CALL    TMST(XBUZ(1),TNOW,1,NSET)
  32.         CALL    TMST(XBUZ(2),TNOW,2,NSET)
  33.         CALL    TMST(XISYS,TNOW,3,NSET)
  34.         MSTOP = -1
  35.         NORPT = 0
  36.         RETURN
  37.         END
  38.