home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol268 / endsvx.for < prev    next >
Encoding:
Text File  |  1986-05-22  |  1.5 KB  |  49 lines
  1.     SUBROUTINE    ENDSV( NSET,QSET )
  2. C////////////////////////////////////////////////////////////////
  3. C/                                /
  4. C/    Program-id    ENDSV.FOR                /
  5. C/    Date-written.    11th,Feb,1984                /
  6. C/    Remarks.    Subroutine ENDSV is called eack time    /
  7. C/            a customer is finished with the answer    /
  8. C/            to his request.                /
  9. C/            From page 276                /
  10. C/                                /
  11. C////////////////////////////////////////////////////////////////
  12. C
  13.     DIMENSION    NSET(1),QSET(1)
  14.         COMMON/C1/ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST,
  15.      $  NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,ISEED,TNOW,
  16.      $  TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4),IMM,MAXQS,MAXNS
  17.     COMMON /C2/ATRIB(10),ENQ(4),INN(4),JCELS(5,22),KRANK(4),
  18.      $  MAXNQ(4),MFE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),
  19.      $  QTIME(4),SSUMA(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,
  20.      $  JCLR,JTRIB(12)
  21.     COMMON /U1/ NARC,NSCAN,JBUFF,NSTA(10),JRPLY(10)
  22.     COMMON /U2/ XL,NTER,IBUFF,CDIAL(2),CREAD(2),SRTIM,SCTIM,
  23.      $  TRTIM,DLTIM,COMTIM(2)
  24. C
  25. C    --- Collect statistics on number of customers at station J
  26. C
  27.     J = JTRIB( 2 )
  28.     X = NSTA( J )
  29.     CALL    TMST( X,TNOW,J,NSET,QSET )
  30. C
  31. C    --- Decrement number of customers at station J by one
  32. C
  33.     NSTA( J ) = NSTA(J ) - 1
  34.     JRPLY( J ) = 1
  35. C
  36. C    --- Set line from station J to free status
  37. C
  38.     IF ( NSTA(J) ) 3,3,2
  39. C
  40. C    --- If a customer is waitting for station J, schedule a 
  41. C        plavement of request event at station J
  42. C
  43. 2    ATRIB( 1 ) = TNOW + UNFRM( CDIAL(1),CDIAL(2) )
  44.     JTRIB( 1 ) = 2
  45.     JTRIB( 2 ) = J
  46.     CALL    FILEM( 1,NSET,QSET )
  47. 3    RETURN
  48.     END
  49.