home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 349_01 / sss.arc / EX_0403.FOR < prev    next >
Text File  |  1991-04-09  |  2KB  |  88 lines
  1. C     Program EX_0403.FOR
  2. C     Listing 7F - see documentation in TUTOR.SSS
  3.  
  4. $include:'SSSF1.H'
  5.  
  6.       subroutine prime
  7. $include:'SSSF2.H'
  8.       integer ARRIVL, STARTA, ENDACT
  9.       real*8 c
  10.       common ARRIVL, STARTA, ENDACT, c
  11.       real*8 endt
  12.       data endt /40.0/
  13.  
  14.       ARRIVL = 1
  15.       STARTA = 2
  16.       ENDACT = 3
  17.       c      = 0.0
  18.  
  19.       call INIQUE(0, 0, 1)
  20.       call inista(1,'Occupancy            ',1,0,0.0,0.0)
  21.       call SIMEND(endt)
  22.       call CREATE(0.0, 0)
  23.       call TALLY(1, c)
  24.       return
  25.       end
  26.  
  27.       subroutine leavec
  28. $include:'SSSF2.H'
  29.       integer ARRIVL, STARTA, ENDACT
  30.       real*8 c
  31.       common ARRIVL, STARTA, ENDACT, c
  32.  
  33.       c = c + 1.0
  34.       call TALLY(1, c)
  35.       call SCHED(EX(20), ENDACT, 0)
  36.       call DISPOS
  37.       return
  38.       end
  39.  
  40.       subroutine pickc
  41. $include:'SSSF2.H'
  42.       integer ARRIVL, STARTA, ENDACT
  43.       real*8 c
  44.       common ARRIVL, STARTA, ENDACT, c
  45.  
  46.       c = c - 1.0
  47.       call TALLY(1, c)
  48.       call DISPOS
  49.       return
  50.       end
  51.  
  52.       Program EX_0401
  53. $include:'SSSF2.H'
  54.       integer ARRIVL, STARTA, ENDACT
  55.       real*8 c
  56.       common ARRIVL, STARTA, ENDACT, c
  57.       integer ecode
  58.  
  59.       call prime
  60.  
  61.    99 ecode = NEXTEV()
  62.       if (ecode.gt.0) then
  63.         goto(101, 102, 103) ecode
  64.  
  65. C ARRIVL
  66.   101   continue
  67.         call CREATE(EX(2.0), 0)
  68.         call SCHED(0.0, STARTA, 0)
  69.         goto 99
  70.  
  71. C STARTA
  72.   102   continue
  73.         call leavec
  74.         goto 99
  75.  
  76. C ENDACT
  77.   103   continue
  78.         call pickc
  79.         goto 99
  80.  
  81.       else
  82.  
  83.         call SUMRY(' ')
  84.         stop 'End of simulation'
  85.  
  86.       endif
  87.       end
  88.