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_0209.FOR < prev    next >
Text File  |  1991-04-17  |  1KB  |  53 lines
  1. C     Program EX_0209.FOR
  2. C     Listing 3F - see documentation in TUTOR.SSS
  3.  
  4. $include:'SSSF1.H'
  5.  
  6.       real*8 function rnx(m, s)
  7. $include:'SSSF2.H'
  8.       real*8 m, s, x
  9.   99  x = RN(m, s)
  10.       if (x.lt.0.0) goto 99
  11.       rnx = x
  12.       return
  13.       end
  14.  
  15.       subroutine prime
  16. $include:'SSSF2.H'
  17.       real*8 x, pt, pv, rnx, mean, sd
  18.       common x, pt, pv, mean, sd
  19.  
  20.       call INIQUE(0, 0, 2)
  21.       call inista(1,'Callduration         ', 0,12,2,0.5)
  22.       call inista(2,'Cycletime            ', 0,0,0,0)
  23.       pv = 0.0
  24.       mean = 7.0
  25.       sd = 4.0
  26.       pt = rnx(mean, sd)
  27.       return
  28.       end
  29.  
  30.       Program EX_0209
  31. $include:'SSSF2.H'
  32.       real*8 x, pt, pv, rnx, mean, sd
  33.       common x, pt, pv, mean, sd
  34.       real*8 erm, min, mode, max
  35.       data erm /2.0/, min /1.0/, mode /3.0/, max /4.0/
  36.  
  37.       call prime
  38.   99    if (RA().lt.0.25) then
  39.           x = ER(2, erm)
  40.         else
  41.           x = TR(min, mode, max)
  42.         endif
  43.         call TALLY(1, x)
  44.         pt = pt + x
  45.         call TALLY(2, pt - pv)
  46.         pv = pt
  47.         pt = pt + rnx(mean, sd)
  48.       if (pt.le.120.0) goto 99
  49.  
  50.       call SUMRY(' ')
  51.       call SUMRY('RESULTS ')
  52.       end
  53.