home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol266 / otput4.for < prev    next >
Encoding:
Text File  |  1986-05-19  |  1.8 KB  |  40 lines
  1.         SUBROUTINE      OTPUT(NSET )
  2. C////////////////////////////////////////////////////////////////
  3. C/                                                              /
  4. C/      Program-id.     OTPUT                                   /
  5. C/      Date-written.   26th,Jan,1984                           /
  6. C/      File-name.      OTPUT4.FOR                              /
  7. C/      Remarks.        Subroutine OTPUT.FOR page 152           /
  8. C/                      Written by a programmer to perform      /
  9. C/                      calculations and provide additional     /
  10. C/                      output at the end of a simulation run.  /
  11. C/                      This is for Example-4 version.          /
  12. C/                                                              /
  13. C////////////////////////////////////////////////////////////////
  14. C
  15.         INTEGER*4       NSET(6,1)
  16. C
  17.       COMMON /C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  18.      1           NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,
  19.      2           TNOW,TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)
  20. C
  21.       COMMON /C2/ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),
  22.      1           MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  23.      2           QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,
  24.      3         NDAY,NYR,JCLR
  25. C
  26.         COMMON /C3/ XL,XMU(2),XBUZ(2),XISYS,CBALK,TCUST,TLD
  27. C
  28. C
  29.         WRITE(NPRNT,10 ) XL,XMU(1),XMU(2)
  30.    10      FORMAT(/25X,'Mean time between arrivals  =  ',F5.2/25X,
  31.      1            'Mean service time for tellers = ',F5.2,2X,F5.2)
  32.         YBALK = CBALK * 100.0 / TCUST
  33.         WRITE(NPRNT,20 ) YBALK,CBALK,TCUST
  34.    20     FORMAT(25X,'Percent of customers balking = ',F6.2,' %'/,25X,
  35.      1           'Number of customers balking =  ',F6.2/,25X,
  36.      2           'Total customers',14X,'= ',F6.2 )
  37.         RETURN
  38.         END
  39.  
  40.