home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Reference Guide / C-C++ Interactive Reference Guide.iso / c_ref / csource5 / 349_01 / sss.arc / EX_0305.FOR < prev    next >
Encoding:
Text File  |  1991-04-09  |  862 b   |  41 lines
  1. C     Program EX_0305.FOR
  2. C     Listing 5F - see documentation in TUTOR.SSS
  3.  
  4. $include:'SSSF1.H'
  5.  
  6.       subroutine prime
  7. $include:'SSSF2.H'
  8.  
  9.       call INIQUE(0, 0, 2)
  10.       call inista(1,'Outofstock       ', 0, 0, 0.0, 0.0)
  11.       call inista(2,'Avestock         ', 1, 0, 0.0, 0.0)
  12.       return
  13.       end
  14.  
  15.       Program EX_0305
  16. $include:'SSSF2.H'
  17.       real*8 mean, c, lost
  18.       data mean /2.0/, lost /1.0/
  19.  
  20.       call prime
  21.  
  22.       do 88 i=1, 3
  23.         c = 15
  24.         call SETT(30*(i-1))
  25.         call TALLY(2, c)
  26.         call SETT(T() + EX(mean))
  27.  
  28.         if (T().le.30*i) then
  29.           if (c.gt.0) then
  30.             c = c - 1
  31.           else
  32.             call TALLY(1, lost)
  33.           endif
  34.           call TALLY(2, c)
  35.           call SETT(T() + EX(2))
  36.         endif
  37.   88  continue
  38.  
  39.       call SUMRY(' ')
  40.       end
  41.